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 ceedelemrestrictioncreateblockedstrided(ceed,ne,2,2,ne+1,1,& 20*0036de2cSjeremylt & strides,r,err) 21*0036de2cSjeremylt 22*0036de2cSjeremylt call ceedelemrestrictionview(r,err) 23*0036de2cSjeremylt 24*0036de2cSjeremylt call ceedelemrestrictiondestroy(r,err) 25*0036de2cSjeremylt call ceeddestroy(ceed,err) 26*0036de2cSjeremylt 27*0036de2cSjeremylt end 28*0036de2cSjeremylt!----------------------------------------------------------------------- 29