The following example opens the ephemeris file example1.dat

USE, INTRINSIC :: ISO_C_BINDING
use calceph
TYPE(C_PTR) :: peph

peph = calceph_open("example1.dat"//C_NULL_CHAR)
if (C_ASSOCIATED(peph)) then

     ! ... computation ...

endif
call calceph_close(peph)