1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceedf.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 21 call ceedvectorgetarrayread(x,ceed_mem_host,a,aoffset,err) 22 call ceedvectorgetarrayread(x,ceed_mem_host,b,boffset,err) 23 24 call ceedvectorrestorearrayread(x,a,aoffset,err) 25 call ceedvectorrestorearrayread(x,b,boffset,err) 26 27 call ceedvectordestroy(x,err) 28 call ceeddestroy(ceed,err) 29 30 end 31!----------------------------------------------------------------------- 32