int nvalue, k;
t_calcephcharvalue *mission_units;
t_calcephbin *peph;
/* open the ephemeris file */
peph = calceph_open("example1.dat");
if (peph)
{
/* get the number of values */
int nvalue = calceph_getconstantvs(peph, "MISSION_UNITS", NULL, 0);
mission_units = (t_calcephcharvalue*)malloc(sizeof(t_calcephcharvalue)*nvalue);
/* fill the array radii */
if (calceph_getconstantvs(peph, "MISSION_UNITS", mission_units, nvalue))
{
for (k=0; k<nvalue; k++)
printf("MISSION_UNITS(%d)=%s\n", k, mission_units[k]);
}
free(mission_units);
/* close the ephemeris file */
calceph_close(peph);
}