10036de2cSjeremylt!----------------------------------------------------------------------- 20036de2cSjeremylt program test 30036de2cSjeremylt 40036de2cSjeremylt include 'ceedf.h' 50036de2cSjeremylt 60036de2cSjeremylt integer ceed,err 70036de2cSjeremylt integer r 80036de2cSjeremylt 90036de2cSjeremylt integer ne 100036de2cSjeremylt parameter(ne=3) 110036de2cSjeremylt integer strides(3) 120036de2cSjeremylt 130036de2cSjeremylt character arg*32 140036de2cSjeremylt 150036de2cSjeremylt call getarg(1,arg) 160036de2cSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 170036de2cSjeremylt 180036de2cSjeremylt strides=[1,2,2] 19*d979a051Sjeremylt call ceedelemrestrictioncreatestrided(ceed,ne,2,1,ne+1,strides,r,err) 200036de2cSjeremylt 210036de2cSjeremylt call ceedelemrestrictionview(r,err) 220036de2cSjeremylt 230036de2cSjeremylt call ceedelemrestrictiondestroy(r,err) 240036de2cSjeremylt call ceeddestroy(ceed,err) 250036de2cSjeremylt 260036de2cSjeremylt end 270036de2cSjeremylt!----------------------------------------------------------------------- 28