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