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