10036de2cSjeremylt!----------------------------------------------------------------------- 20036de2cSjeremylt program test 31f9a83abSJed Brown implicit none 4ec3da8bcSJed Brown include 'ceed/fortran.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*e7f679fcSJeremy L Thompson call ceedelemrestrictioncreateblockedstrided(ceed,ne,2,2,1,ne*2,& 200036de2cSjeremylt & strides,r,err) 210036de2cSjeremylt 220036de2cSjeremylt call ceedelemrestrictionview(r,err) 230036de2cSjeremylt 240036de2cSjeremylt call ceedelemrestrictiondestroy(r,err) 250036de2cSjeremylt call ceeddestroy(ceed,err) 260036de2cSjeremylt 270036de2cSjeremylt end 280036de2cSjeremylt!----------------------------------------------------------------------- 29