4080 double a = 6378136.0, f = 0.0033528;
4081 double e = 3.1, p = -0.5, h = 2500.0;
4086 viv(j, 0,
"eraGd2gce",
"j", status);
4087 vvd(xyz[0], -5598999.6665116328, 1e-7,
"eraGd2gce",
"0", status);
4088 vvd(xyz[1], 233011.63514630572, 1e-7,
"eraGd2gce",
"1", status);
4089 vvd(xyz[2], -3040909.0517314132, 1e-7,
"eraGd2gce",
"2", status);
static void vvd(double val, double valok, double dval, const char *func, const char *test, int *status)
static void viv(int ival, int ivalok, const char *func, const char *test, int *status)
int eraGd2gce(double a, double f, double elong, double phi, double height, double xyz[3])