integer*8 peph
integer res
integer continuous
double precision firsttime, lasttime
res = f90calceph_open(peph, "example1.dat")
if (res.eq.1) then
if (f90calceph_gettimespan(peph, firsttime, lasttime, continuous).eq.1) then
write (*,*) firsttime, lasttime, countinuous
endif
call f90calceph_close(peph)
endif