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 integer lmode 13 parameter(lmode=ceed_notranspose) 14 15 integer*4 ind(2*ne) 16 17 character arg*32 18 19 call getarg(1,arg) 20 call ceedinit(trim(arg)//char(0),ceed,err) 21 22 do i=1,ne 23 ind(2*i-1)=i-1 24 ind(2*i )=i 25 enddo 26 27 call ceedelemrestrictioncreate(ceed,lmode,ne,2,ne+1,1,ceed_mem_host,& 28 & ceed_use_pointer,ind,r,err) 29 30 call ceedelemrestrictionview(r,err) 31 32 call ceedelemrestrictiondestroy(r,err) 33 call ceeddestroy(ceed,err) 34 35 end 36!----------------------------------------------------------------------- 37