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