integer res
integer n
res = calceph_sopen("example1.dat"//C_NULL_CHAR)
if (res.eq.1) then
n = calceph_sgetconstantcount()
write (*,*) "number of constants", n
call calceph_sclose
endif
integer res
integer n
res = calceph_sopen("example1.dat"//C_NULL_CHAR)
if (res.eq.1) then
n = calceph_sgetconstantcount()
write (*,*) "number of constants", n
call calceph_sclose
endif