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);
}