Home
last modified time | relevance | path

Searched refs:aoffset (Results 1 – 21 of 21) sorted by relevance

/libCEED/tests/
H A Dt124-vector-f.f9010 integer*8 aoffset variable
21 aoffset=0
22 call ceedvectorgetarraywrite(x,ceed_mem_host,a,aoffset,err)
24 a(i+aoffset)=3*i
26 call ceedvectorrestorearray(x,a,aoffset,err)
28 call ceedvectorgetarrayread(x,ceed_mem_host,a,aoffset,err)
30 diff=a(i+aoffset)-3*i
33 write(*,*) 'Error writing array a(',i,')=',a(i+aoffset)
37 call ceedvectorrestorearrayread(x,a,aoffset,err)
H A Dt107-vector-f.f909 integer*8 aoffset variable
23 aoffset=0
24 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt102-vector-f.f9010 integer*8 aoffset,boffset variable
22 call ceedvectorgetarrayread(x,ceed_mem_host,a,aoffset,err)
25 call ceedvectorrestorearrayread(x,a,aoffset,err)
H A Dt104-vector-f.f9011 integer*8 aoffset,boffset variable
26 aoffset=0
27 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt100-vector-f.f908 integer*8 aoffset,boffset variable
26 aoffset=0
27 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt119-vector-f.f908 integer*8 aoffset,boffset variable
26 aoffset=0
27 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt108-vector-f.f9010 integer*8 aoffset variable
28 aoffset=0
29 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt109-vector-f.f9012 integer*8 aoffset,boffset,coffset variable
28 aoffset=0
29 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt530-operator-f.f9031 integer*8 xoffset,aoffset,qoffset,voffset
128 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
131 if (abs(qq(qoffset+i)-aa(aoffset+i))>1.0d-9) then
133 write(*,*) 'Error: A[',i,'] = ',aa(aoffset+i),' != ',&
138 call ceedvectorrestorearrayread(a,aa,aoffset,err)
162 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
164 & aoffset,err)
165 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt105-vector-f.f9012 integer*8 aoffset,boffset,coffset variable
28 aoffset=0
29 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt101-vector-f.f9012 integer*8 aoffset,boffset variable
28 aoffset=0
29 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt103-vector-f.f908 integer*8 aoffset,xoffset,yoffset variable
27 aoffset=0
28 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt106-vector-f.f9012 integer*8 aoffset,boffset,coffset variable
27 aoffset=0
28 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt200-elemrestriction-f.f9010 integer*8 aoffset,yoffset variable
31 aoffset=0
32 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt201-elemrestriction-f.f9019 integer*8 aoffset,yoffset variable
32 aoffset=0
33 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt208-elemrestriction-f.f9021 integer*8 aoffset,xoffset,yoffset variable
34 aoffset=0
35 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt202-elemrestriction-f.f9021 integer*8 aoffset,xoffset,yoffset variable
34 aoffset=0
35 call ceedvectorsetarray(x,ceed_mem_host,ceed_use_pointer,a,aoffset,err)
H A Dt533-operator-f.f9031 integer*8 xoffset,aoffset,uoffset,voffset
147 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
149 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
151 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
156 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt534-operator-f.f9031 integer*8 xoffset,aoffset,uoffset,voffset
151 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
153 if (abs(aa(aoffset+i)-atrue(i))>1.0d-13) then
155 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
160 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt535-operator-f.f9031 integer*8 xoffset,aoffset,uoffset,voffset
182 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
184 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
186 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
191 call ceedvectorrestorearrayread(a,aa,aoffset,err)
H A Dt536-operator-f.f9035 integer*8 xoffset,aoffset,uoffset,voffset
204 call ceedvectorgetarrayread(a,ceed_mem_host,aa,aoffset,err)
206 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
208 write(*,*) '[',i,'] Error in assembly: ',aa(aoffset+i),' != ',&
213 call ceedvectorrestorearrayread(a,aa,aoffset,err)