integer*8 peph
integer res
integer n

res = f90calceph_open(peph, "example1.dat")
if (res.eq.1) then
  do j=1, f90calceph_getconstantcount(peph)
     res = f90calceph_getconstantindex(peph,j,nameconstant,valueconstant)
     write (*,*) nameconstant,"=",valueconstant
  enddo
  call f90calceph_close(peph)
endif