integer*8 peph
integer res
character*80 filear(2)
filear(1) = "example1.bsp"
filear(2) = "example1.tpc"
res = f90calceph_open_array(peph, 2, filear, 80)
if (res.eq.1) then
res = f90calceph_prefetch(peph)
! ... computation ...
call calceph_close(peph)
endif