Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't531-operator-f.h'
6 !-----------------------------------------------------------------------
31 real*8 arrx(d*ndofs),uu(ndofs),vv(ndofs),vvlin(ndofs)
69 do i=0,nelem-1
72 offset=col*(p-1)+row*(nx*2+1)*(p-1)
73 do j=0,p-1
74 do k=0,p-1
100 ! QFunction - setup
103 &//'t531-operator.h:setup'//char(0),qf_setup,err)
108 ! Operator - setup
121 ! QFunction - apply
124 &//'t531-operator.h:diff'//char(0),qf_diff,err)
129 ! Operator - apply
146 ! QFunction - apply linearized
149 &//'t531-operator.h:diff_lin'//char(0),qf_diff_lin,err)
154 ! Operator - apply linearized
168 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
171 if (abs(vv(voffset+i)-vvlin(vlinoffset+i))>1.0d-14) then
173 write(*,*) 'Error: Linearized operator computed v[i] = ',vv(voffset+i),&
178 call ceedvectorrestorearrayread(v,vv,voffset,err)
203 !-----------------------------------------------------------------------