The following example opens the ephemeris file example1.dat
include 'f90calceph.h'
integer res
res = f90calceph_open(peph, "example1.dat")
if (res.eq.1) then
! ... computation ...
endif
call f90calceph_close(peph)
The following example opens the ephemeris file example1.dat
include 'f90calceph.h'
integer res
res = f90calceph_open(peph, "example1.dat")
if (res.eq.1) then
! ... computation ...
endif
call f90calceph_close(peph)