t_calcephbin *peph;
int timescale;

/* open the ephemeris file */
peph = calceph_open("example1.dat");
if (peph)
{
  /* print the time scale */
  timescale = calceph_gettimescale(peph);
  if (timescale==1) printf("timescale=TDB\n");
  if (timescale==2) printf("timescale=TCB\n");

  /* close the ephemeris file */
  calceph_close(peph);
}