4001 double a = 6378136.0, f = 0.0033528;
4002 double xyz[] = {2e6, 3e6, 5.244e6};
4007 viv(j, 0,
"eraGc2gde",
"j", status);
4008 vvd(e, 0.98279372324732907, 1e-14,
"eraGc2gde",
"e", status);
4009 vvd(p, 0.97160183775704115, 1e-14,
"eraGc2gde",
"p", status);
4010 vvd(h, 332.36862495764397, 1e-8,
"eraGc2gde",
"h", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
int eraGc2gde(double a, double f, double xyz[3], double *elong, double *phi, double *height)
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)