| /libCEED/tests/ |
| H A D | t101-vector-f.f90 | 12 integer*8 aoffset,boffset variable
30 call ceedvectorgetarrayread(x,ceed_mem_host,b,boffset,err)
33 diff=b(boffset+i)-10-i
36 write(*,*) 'Error reading array b(',i,')=',b(boffset+i)
41 call ceedvectorrestorearrayread(x,b,boffset,err)
44 call ceedvectorgetarrayread(x,ceed_mem_host,b,boffset,err)
47 diff=b(boffset+i)-val
50 write(*,*) 'Error reading array b(',i,')=',b(boffset+i)
55 call ceedvectorrestorearrayread(x,b,boffset,err)
|
| H A D | t100-vector-f.f90 | 8 integer*8 aoffset,boffset variable
28 call ceedvectorgetarrayread(x,ceed_mem_host,b,boffset,err)
31 diff=b(i+boffset)-10-i
34 write(*,*) 'Error reading array b(',i,')=',b(i+boffset)
39 call ceedvectorrestorearrayread(x,b,boffset,err)
|
| H A D | t119-vector-f.f90 | 8 integer*8 aoffset,boffset variable
30 call ceedvectorgetarrayread(x,ceed_mem_host,b,boffset,err)
32 diff=1./(real(10+i,8))-b(i+boffset)
35 write(*,*) 'Error reading array b(',i,')=',b(i+boffset),diff
40 call ceedvectorrestorearrayread(x,b,boffset,err)
|
| H A D | t106-vector-f.f90 | 12 integer*8 aoffset,boffset,coffset variable
33 boffset=0
34 call ceedvectorsetarray(y,ceed_mem_host,ceed_use_pointer,b,boffset,err)
42 diff = b(i+boffset)-(9+i)
45 write(*,*) 'Error reading array b(',i,') = ',b(i+boffset),' != ',9+i
|
| H A D | t104-vector-f.f90 | 11 integer*8 aoffset,boffset variable
28 call ceedvectorgetarray(x,ceed_mem_host,b,boffset,err)
29 b(boffset+3) = -3.14
30 call ceedvectorrestorearray(x,b,boffset,err)
|
| H A D | t109-vector-f.f90 | 12 integer*8 aoffset,boffset,coffset variable
41 call ceedvectorgetarraywrite(x,ceed_mem_host,b,boffset,err)
42 b(boffset+5) = -3.14
43 call ceedvectorrestorearray(x,b,boffset,err)
|
| H A D | t105-vector-f.f90 | 12 integer*8 aoffset,boffset,coffset variable
30 call ceedvectorgetarrayread(x,ceed_mem_device,b,boffset,err)
31 call ceedvectorsetarray(y,ceed_mem_device,ceed_copy_values,b,boffset,err)
32 call ceedvectorrestorearrayread(x,b,boffset,err)
|
| H A D | t102-vector-f.f90 | 10 integer*8 aoffset,boffset variable
23 call ceedvectorgetarrayread(x,ceed_mem_host,b,boffset,err)
26 call ceedvectorrestorearrayread(x,b,boffset,err)
|