Lines Matching refs:bnorm
63 & bnorm(npro,nsd)
129 & bnorm, pres,
157 & - ( tau1n(iel) - bnorm(iel,1)*pres(iel))
160 & - ( tau2n(iel) - bnorm(iel,2)*pres(iel))
163 & - ( tau3n(iel) - bnorm(iel,3)*pres(iel))
255 vn=dot_product(vdot(iel,:),bnorm(iel,:))
256 vdot(iel,:)=vn*bnorm(iel,:)
257 walln1=dot_product(rlkwall(iel,1,:),bnorm(iel,:))
258 walln2=dot_product(rlkwall(iel,2,:),bnorm(iel,:))
259 walln3=dot_product(rlkwall(iel,3,:),bnorm(iel,:))
260 rlkwall(iel,1,:)=walln1*bnorm(iel,:)
261 rlkwall(iel,2,:)=walln2*bnorm(iel,:)
262 rlkwall(iel,3,:)=walln3*bnorm(iel,:)
270 rNa(:,1) = -WdetJb * ( tau1n - bnorm(:,1) * pres - vdot(:,1))
271 rNa(:,2) = -WdetJb * ( tau2n - bnorm(:,2) * pres - vdot(:,2))
272 rNa(:,3) = -WdetJb * ( tau3n - bnorm(:,3) * pres - vdot(:,3))
322 tau1n = ( tau1n - bnorm(:,1)*pres) * WdetJb
323 tau2n = ( tau2n - bnorm(:,2)*pres) * WdetJb
324 tau3n = ( tau3n - bnorm(:,3)*pres) * WdetJb
384 real*8 WdetJb(npro), bnorm(npro,nsd) local
413 & shape, WdetJb, bnorm,