static void t_atoc13 ( int *  status )

static

Definition at line 1559 of file t_erfa_c.c.

References eraAtoc13(), viv(), and vvd().

Referenced by main().

{
   double utc1, utc2, dut1,
          elong, phi, hm, xp, yp, phpa, tc, rh, wl,
          ob1, ob2, rc, dc;
   int j;


   utc1 = 2456384.5;
   utc2 = 0.969254051;
   dut1 = 0.1550675;
   elong = -0.527800806;
   phi = -1.2345856;
   hm = 2738.0;
   xp = 2.47230737e-7;
   yp = 1.82640464e-6;
   phpa = 731.0;
   tc = 12.8;
   rh = 0.59;
   wl = 0.55;

   ob1 = 2.710085107986886201;
   ob2 = 0.1717653435758265198;
   j = eraAtoc13 ( "R", ob1, ob2, utc1, utc2, dut1,
                   elong, phi, hm, xp, yp, phpa, tc, rh, wl,
                   &rc, &dc);
   vvd(rc, 2.709956744661000609, 1e-12, "eraAtoc13", "R/rc", status);
   vvd(dc, 0.1741696500895398562, 1e-12, "eraAtoc13", "R/dc", status);
   viv(j, 0, "eraAtoc13", "R/j", status);

   ob1 = -0.09247619879782006106;
   ob2 = 0.1717653435758265198;
   j = eraAtoc13 ( "H", ob1, ob2, utc1, utc2, dut1,
                   elong, phi, hm, xp, yp, phpa, tc, rh, wl,
                   &rc, &dc);
   vvd(rc, 2.709956744661000609, 1e-12, "eraAtoc13", "H/rc", status);
   vvd(dc, 0.1741696500895398562, 1e-12, "eraAtoc13", "H/dc", status);
   viv(j, 0, "eraAtoc13", "H/j", status);

   ob1 = 0.09233952224794989993;
   ob2 = 1.407758704513722461;
   j = eraAtoc13 ( "A", ob1, ob2, utc1, utc2, dut1,
                   elong, phi, hm, xp, yp, phpa, tc, rh, wl,
                   &rc, &dc);
   vvd(rc, 2.709956744661000609, 1e-12, "eraAtoc13", "A/rc", status);
   vvd(dc, 0.1741696500895398565, 1e-12, "eraAtoc13", "A/dc", status);
   viv(j, 0, "eraAtoc13", "A/j", status);

}

Here is the call graph for this function:

Here is the caller graph for this function: