1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceed/fortran.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*2,& 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