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