program F90example
    implicit none
    include 'f90calceph.h'
    integer res
    double precision AU
    integer*8 :: peph

    res = f90calceph_open(peph, "example1.dat")
    if (res.eq.1) then
      write (*,*) "The ephemeris is already opened"
      if (f90calceph_getconstant(peph, "AU", AU).eq.1) then
            write (*,*) "AU=", AU
      endif
      call f90calceph_close(peph)
      write (*,*) "The ephemeris is already closed"
    endif
stop
end