Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't510-operator-f.h'
6 !-----------------------------------------------------------------------
30 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
56 do i=0,nelem-1
59 offset=col*(p-1)+row*(nx*2+1)*(p-1)
60 do j=0,p-1
61 do k=0,p-1
84 ! -- Setup
87 &//'t510-operator.h:setup'//char(0),qf_setup,err)
91 ! -- Mass
94 &//'t510-operator.h:mass'//char(0),qf_mass,err)
100 ! -- Setup
109 ! -- Mass
135 uu(i-1+uoffset)=0.d0
141 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
142 atrue(i)=vv(voffset+i)
143 call ceedvectorrestorearrayread(v,vv,voffset,err)
149 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
175 !-----------------------------------------------------------------------