Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't320-basis-f.h'
9 include 't535-operator-f.h'
10 !-----------------------------------------------------------------------
34 real*8 arrx(d*ndofs),aa(nqpts),uu(ndofs),vv(ndofs),atrue(ndofs)
51 do i=0,ndofs-1
108 ! QFunction - setup mass
111 &//'t532-operator.h:setup_mass'//char(0),qf_setup_mass,err)
116 ! Operator - setup mass
126 ! QFunction - setup diff
129 &//'t532-operator.h:setup_diff'//char(0),qf_setup_diff,err)
135 ! Operator - setup diff
151 ! QFunction - apply
154 &//'t532-operator.h:apply'//char(0),qf_apply,err)
163 ! Operator - apply
192 uu(i-1+uoffset)=0.d0
198 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
199 atrue(i)=vv(voffset+i)
200 call ceedvectorrestorearrayread(v,vv,voffset,err)
206 if (abs(aa(aoffset+i)-atrue(i))>1.0d-14) then
236 !-----------------------------------------------------------------------