19525855cSJeremy L Thompson!----------------------------------------------------------------------- 29525855cSJeremy L Thompson program test 39525855cSJeremy L Thompson implicit none 4*ec3da8bcSJed Brown include 'ceed/fortran.h' 59525855cSJeremy L Thompson 69525855cSJeremy L Thompson integer ceed,err 79525855cSJeremy L Thompson integer isdeterministic 89525855cSJeremy L Thompson character arg*32 99525855cSJeremy L Thompson 109525855cSJeremy L Thompson call getarg(1,arg) 119525855cSJeremy L Thompson 129525855cSJeremy L Thompson call ceedinit(trim(arg)//char(0),ceed,err) 139525855cSJeremy L Thompson call ceedisdeterministic(ceed,isdeterministic,err) 149525855cSJeremy L Thompson call ceeddestroy(ceed,err) 159525855cSJeremy L Thompson 169525855cSJeremy L Thompson end 179525855cSJeremy L Thompson!----------------------------------------------------------------------- 18