10a0da059Sjeremylt!----------------------------------------------------------------------- 20a0da059Sjeremylt program test 3*1f9a83abSJed Brown implicit none 40a0da059Sjeremylt include 'ceedf.h' 50a0da059Sjeremylt 60a0da059Sjeremylt integer ceed,err 70a0da059Sjeremylt character arg*32 80a0da059Sjeremylt 90a0da059Sjeremylt 100a0da059Sjeremylt call getarg(1,arg) 110a0da059Sjeremylt 120a0da059Sjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 130a0da059Sjeremylt 140a0da059Sjeremylt call ceedview(ceed,err) 150a0da059Sjeremylt 160a0da059Sjeremylt call ceeddestroy(ceed,err) 170a0da059Sjeremylt 180a0da059Sjeremylt end 190a0da059Sjeremylt!----------------------------------------------------------------------- 20