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