1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceedf.h' 5 6 integer ceed,err 7 integer isdeterministic 8 character arg*32 9 10 call getarg(1,arg) 11 12 call ceedinit(trim(arg)//char(0),ceed,err) 13 call ceedisdeterministic(ceed,isdeterministic,err) 14 call ceeddestroy(ceed,err) 15 16 end 17!----------------------------------------------------------------------- 18