1!----------------------------------------------------------------------- 2 program test 3 4 include 'ceedf.h' 5 6 integer ceed,mtype,err 7 character arg*32 8 mtype = 1024 9 10 11 call getarg(1,arg) 12 13 call ceedinit(trim(arg)//char(0),ceed,err) 14 15 call ceedgetpreferredmemtype(ceed,mtype,err) 16 17 if (mtype == 1024) then 18 write(*,*) 'Error getting preferred memory type.' 19 endif 20 21 call ceeddestroy(ceed,err) 22 23 end 24!----------------------------------------------------------------------- 25