10a0da059Sjeremylt!----------------------------------------------------------------------- 20a0da059Sjeremylt program test 31f9a83abSJed Brown implicit none 4ec3da8bcSJed 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 15*13a7d540SJeremy L Thompson call ceedsetnumviewtabs(ceed,1,err) 16*13a7d540SJeremy L Thompson call ceedview(ceed,err) 17*13a7d540SJeremy L Thompson 180a0da059Sjeremylt call ceeddestroy(ceed,err) 190a0da059Sjeremylt 200a0da059Sjeremylt end 210a0da059Sjeremylt!----------------------------------------------------------------------- 22