15a86f033Sjeremylt!----------------------------------------------------------------------- 25a86f033Sjeremylt program test 31f9a83abSJed Brown implicit none 4*ec3da8bcSJed Brown include 'ceed/fortran.h' 55a86f033Sjeremylt 65a86f033Sjeremylt integer ceed,err 75a86f033Sjeremylt integer r 85a86f033Sjeremylt integer i 95a86f033Sjeremylt 105a86f033Sjeremylt integer ne 115a86f033Sjeremylt parameter(ne=3) 125a86f033Sjeremylt 135a86f033Sjeremylt integer*4 ind(2*ne) 145a86f033Sjeremylt 155a86f033Sjeremylt character arg*32 165a86f033Sjeremylt 175a86f033Sjeremylt call getarg(1,arg) 185a86f033Sjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 195a86f033Sjeremylt 205a86f033Sjeremylt do i=1,ne 215a86f033Sjeremylt ind(2*i-1)=i-1 225a86f033Sjeremylt ind(2*i )=i 235a86f033Sjeremylt enddo 245a86f033Sjeremylt 25d979a051Sjeremylt call ceedelemrestrictioncreate(ceed,ne,2,1,1,ne+1,ceed_mem_host,& 265a86f033Sjeremylt & ceed_use_pointer,ind,r,err) 275a86f033Sjeremylt 285a86f033Sjeremylt call ceedelemrestrictionview(r,err) 295a86f033Sjeremylt 305a86f033Sjeremylt call ceedelemrestrictiondestroy(r,err) 315a86f033Sjeremylt call ceeddestroy(ceed,err) 325a86f033Sjeremylt 335a86f033Sjeremylt end 345a86f033Sjeremylt!----------------------------------------------------------------------- 35