integer res
integer :: continuous
real(8) :: firsttime, lasttime
TYPE(C_PTR) :: peph
peph = calceph_open("example1.dat"//C_NULL_CHAR)
if (C_ASSOCIATED(peph)) then
if (calceph_gettimespan(peph, firsttime, lasttime, continuous).eq.1) then
write (*,*) firsttime, lasttime, countinuous
endif
call calceph_close(peph)
endif