t_calcephcharvalue unit;
t_calcephbin *peph;
/* open the ephemeris file */
peph = calceph_open("example1.dat");
if (peph)
{
/* print the value of UNIT */
if (calceph_getconstantss(peph, "UNIT", unit))
printf("UNIT=%s\n", unit);
/* close the ephemeris file */
calceph_close(peph);
}