15a86f033Sjeremylt!----------------------------------------------------------------------- 25a86f033Sjeremylt program test 31f9a83abSJed Brown implicit none 4ec3da8bcSJed 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 30*13a7d540SJeremy L Thompson call ceedelemrestrictionsetnumviewtabs(r,1,err) 31*13a7d540SJeremy L Thompson call ceedelemrestrictionview(r,err) 32*13a7d540SJeremy L Thompson 335a86f033Sjeremylt call ceedelemrestrictiondestroy(r,err) 345a86f033Sjeremylt call ceeddestroy(ceed,err) 355a86f033Sjeremylt 365a86f033Sjeremylt end 375a86f033Sjeremylt!----------------------------------------------------------------------- 38