10436c2adSjeremylt!----------------------------------------------------------------------- 20436c2adSjeremylt program test 31f9a83abSJed Brown implicit none 4ec3da8bcSJed Brown include 'ceed/fortran.h' 50436c2adSjeremylt 60436c2adSjeremylt integer ceed,err 71f9a83abSJed Brown integer x,i,n 80436c2adSjeremylt real*8 a(10) 90436c2adSjeremylt integer*8 aoffset 100436c2adSjeremylt character arg*32 110436c2adSjeremylt 120436c2adSjeremylt call getarg(1,arg) 130436c2adSjeremylt 140436c2adSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 150436c2adSjeremylt 160436c2adSjeremylt n=10 170436c2adSjeremylt 180436c2adSjeremylt call ceedvectorcreate(ceed,n,x,err) 190436c2adSjeremylt 200436c2adSjeremylt do i=1,10 210436c2adSjeremylt a(i)=9+i 220436c2adSjeremylt enddo 230436c2adSjeremylt aoffset=0 240436c2adSjeremylt call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err) 250436c2adSjeremylt 260436c2adSjeremylt call ceedvectorview(x,err) 270436c2adSjeremylt 28*13a7d540SJeremy L Thompson call ceedvectorsetnumviewtabs(x,1,err) 29*13a7d540SJeremy L Thompson call ceedvectorview(x,err) 30*13a7d540SJeremy L Thompson 310436c2adSjeremylt call ceedvectordestroy(x,err) 320436c2adSjeremylt call ceeddestroy(ceed,err) 330436c2adSjeremylt 340436c2adSjeremylt end 350436c2adSjeremylt!----------------------------------------------------------------------- 36