1!----------------------------------------------------------------------- 2 program test 3 implicit none 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 ceedelemrestrictioncreatestrided(ceed,ne,2,1,ne+1,strides,r,err) 20 21 call ceedelemrestrictionview(r,err) 22 23 call ceedelemrestrictiondestroy(r,err) 24 call ceeddestroy(ceed,err) 25 26 end 27!----------------------------------------------------------------------- 28