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

res = f90calceph_open(peph, "example1.dat")
if (res.eq.1) then

  res = f90calceph_getfileversion(peph, version)
  write (*,*) "The version of the file is ", version

  call f90calceph_close(peph)
endif