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