Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't534-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
87 ! QFunction - setup
90 &//'t531-operator.h:setup'//char(0),qf_setup,err)
95 ! Operator - setup
108 ! QFunction - apply
111 &//'t531-operator.h:diff'//char(0),qf_diff,err)
116 ! Operator - apply
139 uu(i-1+uoffset)=0.d0
145 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
146 atrue(i)=vv(voffset+i)
147 call ceedvectorrestorearrayread(v,vv,voffset,err)
153 if (abs(aa(aoffset+i)-atrue(i))>1.0d-13) then
180 !-----------------------------------------------------------------------