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