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