1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceed/fortran.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 ceedelemrestrictionsetnumviewtabs(r,1,err) 31 call ceedelemrestrictionview(r,err) 32 33 call ceedelemrestrictiondestroy(r,err) 34 call ceeddestroy(ceed,err) 35 36 end 37!----------------------------------------------------------------------- 38