Home
last modified time | relevance | path

Searched refs:hv (Results 1 – 15 of 15) sorted by relevance

/libCEED/tests/
H A Dt553-operator-f.f9034 real*8 hv(nufine) 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.f9037 real*8 hv(nufine*ncomp)
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.f9040 real*8 hv(nufine*ncomp)
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 Dt506-operator-f.f9032 real*8 hu(nu*2),hv(nu*2)
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)
185 total1=total1+hv(voffset+2*i-1)
186 total2=total2+hv(voffset+2*i)
198 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt505-operator-f.f9030 real*8 hv(nu)
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 Dt500-operator-f.f9030 real*8 hv(nu)
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 Dt502-operator-f.f9030 real*8 hu(nu*2),hv(nu*2)
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 Dt510-operator-f.f9042 real*8 hv(ndofs)
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.f9030 real*8 hv(nu)
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.f9030 real*8 hv(nu)
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.f9051 real*8 hv(ndofs)
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 Dt511-operator-f.f9043 real*8 hv(ndofs)
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 Dt520-operator-f.f9051 real*8 hv(ndofs)
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 Dt521-operator-f.f9051 real*8 hv(ndofs)
236 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
239 total=total+hv(voffset+i)
246 call ceedvectorrestorearrayread(v,hv,voffset,err)
H A Dt522-operator-f.f9051 real*8 hv(ndofs)
238 call ceedvectorgetarrayread(v,ceed_mem_host,hv,voffset,err)
240 if (abs(hv(voffset+i))>1.0d-14) then
246 call ceedvectorrestorearrayread(v,hv,voffset,err)