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