static void t_eform ( int *  status )

static

Definition at line 3108 of file t_erfa_c.c.

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

Referenced by main().

{
   int j;
   double a, f;

   j = eraEform(0, &a, &f);

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

   j = eraEform(ERFA_WGS84, &a, &f);

   viv(j, 0, "eraEform", "j1", status);
   vvd(a, 6378137.0, 1e-10, "eraEform", "a1", status);
   vvd(f, 0.0033528106647474807, 1e-18, "eraEform", "f1", status);

   j = eraEform(ERFA_GRS80, &a, &f);

   viv(j, 0, "eraEform", "j2", status);
   vvd(a, 6378137.0, 1e-10, "eraEform", "a2", status);
   vvd(f, 0.0033528106811823189, 1e-18, "eraEform", "f2", status);

   j = eraEform(ERFA_WGS72, &a, &f);

   viv(j, 0, "eraEform", "j2", status);
   vvd(a, 6378135.0, 1e-10, "eraEform", "a3", status);
   vvd(f, 0.0033527794541675049, 1e-18, "eraEform", "f3", status);

   j = eraEform(4, &a, &f);
   viv(j, -1, "eraEform", "j3", status);
}

Here is the call graph for this function:

Here is the caller graph for this function: