integer*8 peph
integer res
character(len=CALCEPH_MAX_CONSTANTVALUE) UNIT

res = f90calceph_open(peph, "example1.dat")
if (res.eq.1) then
   ! print the value of UNIT
   if (f90calceph_getconstantss(peph, "UNIT", UNIT).eq.1) then
        write (*,*) "UNIT=", trim(UNIT)
    endif

  call f90calceph_close(peph)
endif