Home
last modified time | relevance | path

Searched refs:voffset (Results 1 – 25 of 27) sorted by relevance

12

/libCEED/tests/
H A Dt506-operator-f.f9030 integer*8 voffset,xoffset
142 call ceedvectorgetarraywrite(u,ceed_mem_host,hu,voffset,err)
144 hu(voffset+2*i-1)=1.
145 hu(voffset+2*i)=2.
147 call ceedvectorrestorearray(u,hu,voffset,err)
156 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
160 total1=total1+hv(voffset+2*i-1)
161 total2=total2+hv(voffset+2*i)
173 call ceedvectorrestorearrayread(v,hv,voffset,err)
181 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
[all …]
H A Dt502-operator-f.f9028 integer*8 voffset,xoffset
106 call ceedvectorgetarraywrite(u,ceed_mem_host,hu,voffset,err)
108 hu(voffset+2*i-1)=1.
109 hu(voffset+2*i)=2.
111 call ceedvectorrestorearray(u,hu,voffset,err)
115 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
119 total1=total1+hv(voffset+2*i-1)
120 total2=total2+hv(voffset+2*i)
132 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt411-qfunction-f.f9014 integer*8 uoffset,voffset variable
39 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
41 if (abs(vv(i+voffset)-(i-1)*(i-1)) > 1.0D-14) then
43 write(*,*) 'v(i)=',vv(i+voffset),', u(i)=',(i-1)*(i-1)
47 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt412-qfunction-f.f9015 integer*8 uoffset,voffset variable
40 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
42 if (abs(vv(i+voffset)-(i-1)*(i-1)) > 1.0D-12) then
44 write(*,*) 'v(i)=',vv(i+voffset),', u(i)=',(i-1)*(i-1)
48 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt553-operator-f.f9028 integer*8 voffset,xoffset,ioffset variable
129 call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
132 total=total+hv(voffset+i)
139 call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
152 call ceedvectorgetarrayread(vfine,ceed_mem_host,hv,voffset,err)
155 total=total+hv(voffset+i)
162 call ceedvectorrestorearrayread(vfine,hv,voffset,err)
169 call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
172 total=total+hv(voffset+i)
179 call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
H A Dt550-operator-f.f9034 integer*8 voffset,xoffset
140 call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
143 total=total+hv(voffset+i)
150 call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
163 call ceedvectorgetarrayread(vfine,ceed_mem_host,hv,voffset,err)
166 total=total+hv(voffset+i)
173 call ceedvectorrestorearrayread(vfine,hv,voffset,err)
180 call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
183 total=total+hv(voffset+i)
190 call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
H A Dt552-operator-f.f9034 integer*8 voffset,xoffset,ioffset
150 call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
153 total=total+hv(voffset+i)
160 call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
173 call ceedvectorgetarrayread(vfine,ceed_mem_host,hv,voffset,err)
176 total=total+hv(voffset+i)
183 call ceedvectorrestorearrayread(vfine,hv,voffset,err)
190 call ceedvectorgetarrayread(vcoarse,ceed_mem_host,hv,voffset,err)
193 total=total+hv(voffset+i)
200 call ceedvectorrestorearrayread(vcoarse,hv,voffset,err)
H A Dt505-operator-f.f9028 integer*8 voffset,xoffset
112 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
115 total=total+hv(voffset+i)
122 call ceedvectorrestorearrayread(v,hv,voffset,err)
127 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
130 total=total+hv(voffset+i)
137 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt410-qfunction-f.f9018 integer*8 joffset,uoffset,voffset,woffset variable
62 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
64 if (abs(vv(i+voffset)-vvv(i)) > 1.0D-14) then
66 write(*,*) 'v(i)=',vv(i+voffset),', vv(i)=',vvv(i)
70 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt400-qfunction-f.f9022 integer*8 uoffset,voffset,woffset
74 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
76 if (abs(vv(i+voffset)-vvv(i)) > 1.0D-14) then
78 write(*,*) 'v(i)=',vv(i+voffset),', vv(i)=',vvv(i)
82 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt401-qfunction-f.f9026 integer*8 uoffset,voffset,woffset,coffset
86 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
88 if (abs(vv(i+voffset)-ctxdata(5)*vvv(i)) > 1.0D-14) then
90 write(*,*) 'v(i)=',vv(i+voffset),', 5*vv(i)=',ctxdata(5)*vvv(i)
94 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt530-operator-f.f9031 integer*8 xoffset,aoffset,qoffset,voffset
149 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
152 total=total+vv(voffset+i)
159 call ceedvectorrestorearrayread(v,vv,voffset,err)
172 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
175 total=total+vv(voffset+i)
182 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt500-operator-f.f9028 integer*8 voffset,xoffset
109 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
111 if (abs(hv(voffset+i))>1.0d-10) then
113 write(*,*) '[',i,'] v ',hv(voffset+i),' != 0.0'
117 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt532-operator-f.f9033 integer*8 xoffset,voffset
167 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
170 total=total+vv(voffset+i)
177 call ceedvectorrestorearrayread(v,vv,voffset,err)
213 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
216 total=total+vv(voffset+i)
223 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt510-operator-f.f9035 integer*8 voffset,xoffset
138 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
140 if (abs(hv(voffset+i))>1.0d-10) then
142 write(*,*) '[',i,'] v ',hv(voffset+i),' != 0.0'
146 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt503-operator-f.f9028 integer*8 voffset,xoffset
110 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
113 total=total+hv(voffset+i)
120 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt501-operator-f.f9028 integer*8 voffset,xoffset
110 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
113 total=total+hv(voffset+i)
120 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt524-operator-f.f9044 integer*8 voffset,xoffset
239 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
242 total=total+hv(voffset+i)
249 call ceedvectorrestorearrayread(v,hv,voffset,err)
255 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
258 total=total+hv(voffset+i)
265 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt531-operator-f.f9032 integer*8 xoffset,uoffset,voffset,vlinoffset
168 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
171 if (abs(vv(voffset+i)-vvlin(vlinoffset+i))>1.0d-14) then
173 write(*,*) 'Error: Linearized operator computed v[i] = ',vv(voffset+i),&
178 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt533-operator-f.f9031 integer*8 xoffset,aoffset,uoffset,voffset
141 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
142 atrue(i)=vv(voffset+i)
143 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt511-operator-f.f9035 integer*8 voffset,xoffset
139 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
142 total=total+hv(voffset+i)
149 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt534-operator-f.f9031 integer*8 xoffset,aoffset,uoffset,voffset
145 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
146 atrue(i)=vv(voffset+i)
147 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt520-operator-f.f9044 integer*8 voffset,xoffset
234 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
236 if (abs(hv(voffset+i))>1.0d-10) then
238 write(*,*) '[',i,'] v ',hv(voffset+i),' != 0.0'
242 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt535-operator-f.f9031 integer*8 xoffset,aoffset,uoffset,voffset
176 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
177 atrue(i)=vv(voffset+i)
178 call ceedvectorrestorearrayread(v,vv,voffset,err)
H A Dt536-operator-f.f9035 integer*8 xoffset,aoffset,uoffset,voffset
198 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
199 atrue(i)=vv(voffset+i)
200 call ceedvectorrestorearrayread(v,vv,voffset,err)

12