integer*8 peph
integer j, itarget, iframe, iseg
real*8 firsttime, lasttime
integer res
res = f90calceph_open(peph, "example1.dat")
if (res.eq.1) then
do j=1, f90calceph_getorientrecordcount(peph)
res = f90calceph_getorientrecordindex2(peph,j,itarget, firsttime, lasttime, iframe, iseg)
write (*,*) itarget, firsttime, lasttime, iframe, iseg
enddo
call f90calceph_close(peph)
endif