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