10436c2adSjeremylt!----------------------------------------------------------------------- 20436c2adSjeremylt program test 31f9a83abSJed Brown implicit none 4*ec3da8bcSJed Brown include 'ceed/fortran.h' 50436c2adSjeremylt 60436c2adSjeremylt integer ceed,err 70436c2adSjeremylt integer x,n 80436c2adSjeremylt real*8 a(10) 90436c2adSjeremylt real*8 b(10) 100436c2adSjeremylt integer*8 aoffset,boffset 110436c2adSjeremylt character arg*32 120436c2adSjeremylt 130436c2adSjeremylt call getarg(1,arg) 140436c2adSjeremylt 150436c2adSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 160436c2adSjeremylt 170436c2adSjeremylt n=10 180436c2adSjeremylt 190436c2adSjeremylt call ceedvectorcreate(ceed,n,x,err) 200436c2adSjeremylt 210436c2adSjeremylt call ceedvectorgetarrayread(x,ceed_mem_host,a,aoffset,err) 220436c2adSjeremylt call ceedvectorgetarrayread(x,ceed_mem_host,b,boffset,err) 230436c2adSjeremylt 240436c2adSjeremylt call ceedvectorrestorearrayread(x,a,aoffset,err) 250436c2adSjeremylt call ceedvectorrestorearrayread(x,b,boffset,err) 260436c2adSjeremylt 270436c2adSjeremylt call ceedvectordestroy(x,err) 280436c2adSjeremylt call ceeddestroy(ceed,err) 290436c2adSjeremylt 300436c2adSjeremylt end 310436c2adSjeremylt!----------------------------------------------------------------------- 32