integer res
integer n
TYPE(C_PTR) :: peph

peph = calceph_open("example1.dat"//C_NULL_CHAR)
if (C_ASSOCIATED(peph)) then
  n = calceph_getconstantcount(peph)
  write (*,*) "number of constants", n
  call calceph_close(peph)
endif