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