Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't535-operator-f.h'
6 !-----------------------------------------------------------------------
30 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(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
86 ! QFunction - setup mass
89 &//'t532-operator.h:setup_mass'//char(0),qf_setup_mass,err)
94 ! Operator - setup mass
104 ! QFunction - setup diff
107 &//'t532-operator.h:setup_diff'//char(0),qf_setup_diff,err)
113 ! Operator - setup diff
129 ! QFunction - apply
132 &//'t532-operator.h:apply'//char(0),qf_apply,err)
141 ! Operator - apply
170 uu(i-1+uoffset)=0.d0
176 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
177 atrue(i)=vv(voffset+i)
178 call ceedvectorrestorearrayread(v,vv,voffset,err)
184 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
214 !-----------------------------------------------------------------------