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