Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't530-operator-f.h'
6 !-----------------------------------------------------------------------
30 real*8 arrx(d*ndofs),aa(nqpts),qq(nqpts),vv(ndofs)
57 do i=0,nelem-1
60 offset=col*(p-1)+row*(nx*2+1)*(p-1)
61 do j=0,p-1
62 do k=0,p-1
85 ! -- Setup
88 &//'t510-operator.h:setup'//char(0),qf_setup,err)
92 ! -- Mass
95 &//'t510-operator.h:mass'//char(0),qf_mass,err)
101 ! -- Setup
110 ! -- Mass
131 if (abs(qq(qoffset+i)-aa(aoffset+i))>1.0d-9) then
149 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
152 total=total+vv(voffset+i)
154 if (abs(total-1.)>1.0d-14) then
159 call ceedvectorrestorearrayread(v,vv,voffset,err)
172 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
175 total=total+vv(voffset+i)
177 if (abs(total-1.)>1.0d-10) then
182 call ceedvectorrestorearrayread(v,vv,voffset,err)
202 !-----------------------------------------------------------------------