integer res
integer n
TYPE(C_PTR) :: peph
peph = calceph_open("example1.dat"//C_NULL_CHAR)
if (C_ASSOCIATED(peph)) then
n = calceph_getpositionrecordcount(peph)
write (*,*) "number of position's record", n
call calceph_close(peph)
endif
integer res
integer n
TYPE(C_PTR) :: peph
peph = calceph_open("example1.dat"//C_NULL_CHAR)
if (C_ASSOCIATED(peph)) then
n = calceph_getpositionrecordcount(peph)
write (*,*) "number of position's record", n
call calceph_close(peph)
endif