static void t_gd2gc ( int *  status )

static

Definition at line 4013 of file t_erfa_c.c.

References eraGd2gc(), ERFA_GRS80, ERFA_WGS72, ERFA_WGS84, viv(), and vvd().

Referenced by main().

{
   int j;
   double e = 3.1, p = -0.5, h = 2500.0;
   double xyz[3];

   j = eraGd2gc(0, e, p, h, xyz);

   viv(j, -1, "eraGd2gc", "j0", status);

   j = eraGd2gc(ERFA_WGS84, e, p, h, xyz);

   viv(j, 0, "eraGd2gc", "j1", status);
   vvd(xyz[0], -5599000.5577049947, 1e-7, "eraGd2gc", "0/1", status);
   vvd(xyz[1], 233011.67223479203, 1e-7, "eraGd2gc", "1/1", status);
   vvd(xyz[2], -3040909.4706983363, 1e-7, "eraGd2gc", "2/1", status);

   j = eraGd2gc(ERFA_GRS80, e, p, h, xyz);

   viv(j, 0, "eraGd2gc", "j2", status);
   vvd(xyz[0], -5599000.5577260984, 1e-7, "eraGd2gc", "0/2", status);
   vvd(xyz[1], 233011.6722356703, 1e-7, "eraGd2gc", "1/2", status);
   vvd(xyz[2], -3040909.4706095476, 1e-7, "eraGd2gc", "2/2", status);

   j = eraGd2gc(ERFA_WGS72, e, p, h, xyz);

   viv(j, 0, "eraGd2gc", "j3", status);
   vvd(xyz[0], -5598998.7626301490, 1e-7, "eraGd2gc", "0/3", status);
   vvd(xyz[1], 233011.5975297822, 1e-7, "eraGd2gc", "1/3", status);
   vvd(xyz[2], -3040908.6861467111, 1e-7, "eraGd2gc", "2/3", status);

   j = eraGd2gc(4, e, p, h, xyz);

   viv(j, -1, "eraGd2gc", "j4", status);
}

Here is the call graph for this function:

Here is the caller graph for this function: