1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceed/fortran.h' 5 6 integer ceed,err 7 character arg*32 8 9 call getarg(1,arg) 10 11 call ceedinit(trim(arg)//char(0),ceed,err) 12 13 call ceedview(ceed,err) 14 15 call ceedsetnumviewtabs(ceed,1,err) 16 call ceedview(ceed,err) 17 18 call ceeddestroy(ceed,err) 19 20 end 21!----------------------------------------------------------------------- 22