Lines Matching +full:- +full:vv
1 !-----------------------------------------------------------------------
5 include 't532-operator-f.h'
6 !-----------------------------------------------------------------------
31 real*8 arrx(d*ndofs),vv(ndofs)
59 do i=0,nelem-1
62 offset=col*(p-1)+row*(nx*2+1)*(p-1)
63 do j=0,p-1
64 do k=0,p-1
88 ! QFunction - setup mass
91 &//'t532-operator.h:setup_mass'//char(0),qf_setup_mass,err)
96 ! Operator - setup mass
106 ! QFunction - setup diff
109 &//'t532-operator.h:setup_diff'//char(0),qf_setup_diff,err)
115 ! Operator - setup diff
131 ! QFunction - apply
134 &//'t532-operator.h:apply'//char(0),qf_apply,err)
143 ! Operator - apply
167 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
170 total=total+vv(voffset+i)
172 if (abs(total-1.)>1.0d-10) then
177 call ceedvectorrestorearrayread(v,vv,voffset,err)
183 ! QFunction - apply linearized
186 &//'t532-operator.h:apply_lin'//char(0),qf_apply_lin,err)
194 ! Operator - apply linearized
213 call ceedvectorgetarrayread(v,ceed_mem_host,vv,voffset,err)
216 total=total+vv(voffset+i)
218 if (abs(total-1.)>1.0d-10) then
223 call ceedvectorrestorearrayread(v,vv,voffset,err)
249 !-----------------------------------------------------------------------