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