1*0036de2cSjeremylt!----------------------------------------------------------------------- 2*0036de2cSjeremylt program test 3*0036de2cSjeremylt 4*0036de2cSjeremylt include 'ceedf.h' 5*0036de2cSjeremylt 6*0036de2cSjeremylt integer ceed,err 7*0036de2cSjeremylt integer r 8*0036de2cSjeremylt 9*0036de2cSjeremylt integer ne 10*0036de2cSjeremylt parameter(ne=3) 11*0036de2cSjeremylt integer strides(3) 12*0036de2cSjeremylt 13*0036de2cSjeremylt character arg*32 14*0036de2cSjeremylt 15*0036de2cSjeremylt call getarg(1,arg) 16*0036de2cSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 17*0036de2cSjeremylt 18*0036de2cSjeremylt strides=[1,2,2] 19*0036de2cSjeremylt call ceedelemrestrictioncreatestrided(ceed,ne,2,ne+1,1,strides,r,err) 20*0036de2cSjeremylt 21*0036de2cSjeremylt call ceedelemrestrictionview(r,err) 22*0036de2cSjeremylt 23*0036de2cSjeremylt call ceedelemrestrictiondestroy(r,err) 24*0036de2cSjeremylt call ceeddestroy(ceed,err) 25*0036de2cSjeremylt 26*0036de2cSjeremylt end 27*0036de2cSjeremylt!----------------------------------------------------------------------- 28