static void t_gc2gd ( int *  status )

static

Definition at line 3934 of file t_erfa_c.c.

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

Referenced by main().

{
   int j;
   double xyz[] = {2e6, 3e6, 5.244e6};
   double e, p, h;

   j = eraGc2gd(0, xyz, &e, &p, &h);

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

   j = eraGc2gd(ERFA_WGS84, xyz, &e, &p, &h);

   viv(j, 0, "eraGc2gd", "j1", status);
   vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e1", status);
   vvd(p, 0.97160184819075459, 1e-14, "eraGc2gd", "p1", status);
   vvd(h, 331.41724614260599, 1e-8, "eraGc2gd", "h1", status);

   j = eraGc2gd(ERFA_GRS80, xyz, &e, &p, &h);

   viv(j, 0, "eraGc2gd", "j2", status);
   vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e2", status);
   vvd(p, 0.97160184820607853, 1e-14, "eraGc2gd", "p2", status);
   vvd(h, 331.41731754844348, 1e-8, "eraGc2gd", "h2", status);

   j = eraGc2gd(ERFA_WGS72, xyz, &e, &p, &h);

   viv(j, 0, "eraGc2gd", "j3", status);
   vvd(e, 0.98279372324732907, 1e-14, "eraGc2gd", "e3", status);
   vvd(p, 0.97160181811015119, 1e-14, "eraGc2gd", "p3", status);
   vvd(h, 333.27707261303181, 1e-8, "eraGc2gd", "h3", status);

   j = eraGc2gd(4, xyz, &e, &p, &h);

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

Here is the call graph for this function:

Here is the caller graph for this function: