1*0436c2adSjeremylt!----------------------------------------------------------------------- 2*0436c2adSjeremylt program test 3*0436c2adSjeremylt 4*0436c2adSjeremylt include 'ceedf.h' 5*0436c2adSjeremylt 6*0436c2adSjeremylt integer ceed,err 7*0436c2adSjeremylt integer x,n 8*0436c2adSjeremylt real*8 a(10) 9*0436c2adSjeremylt integer*8 aoffset 10*0436c2adSjeremylt character arg*32 11*0436c2adSjeremylt 12*0436c2adSjeremylt call getarg(1,arg) 13*0436c2adSjeremylt 14*0436c2adSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 15*0436c2adSjeremylt 16*0436c2adSjeremylt n=10 17*0436c2adSjeremylt 18*0436c2adSjeremylt call ceedvectorcreate(ceed,n,x,err) 19*0436c2adSjeremylt 20*0436c2adSjeremylt do i=1,10 21*0436c2adSjeremylt a(i)=9+i 22*0436c2adSjeremylt enddo 23*0436c2adSjeremylt aoffset=0 24*0436c2adSjeremylt call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err) 25*0436c2adSjeremylt 26*0436c2adSjeremylt call ceedvectorview(x,err) 27*0436c2adSjeremylt 28*0436c2adSjeremylt call ceedvectordestroy(x,err) 29*0436c2adSjeremylt call ceeddestroy(ceed,err) 30*0436c2adSjeremylt 31*0436c2adSjeremylt end 32*0436c2adSjeremylt!----------------------------------------------------------------------- 33