int j;
char nameconstant[CALCEPH_MAX_CONSTANTNAME];
double valueconstant;
t_calcephbin *peph;
/* open the ephemeris file */
peph = calceph_open("example1.dat");
if (peph)
{
for (j=1; j<=calceph_getconstantcount(peph); j++)
{
calceph_getconstantindex(peph, j, nameconstant, &valueconstant);
printf("'%s'\t= %23.16E\n", nameconstant, valueconstant);
}
/* close the ephemeris file */
calceph_close(peph);
}