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