Lines Matching refs:bnorm
4 & WdetJb, bnorm, pres, argument
56 & WdetJb(npro), bnorm(npro,nsd),
228 bnorm(:,1) = temp1 * temp
229 bnorm(:,2) = temp2 * temp
230 bnorm(:,3) = temp3 * temp
342 unm = bnorm(:,1) * u1 +bnorm(:,2) * u2 +bnorm(:,3) * u3
349 tau1n = bnorm(:,1) * two * rmu * g1yi(:,2)
350 & + bnorm(:,2) * (rmu * (g2yi(:,2) + g1yi(:,3)))
351 & + bnorm(:,3) * (rmu * (g3yi(:,2) + g1yi(:,4)))
352 tau2n = bnorm(:,1) * (rmu * (g2yi(:,2) + g1yi(:,3)))
353 & + bnorm(:,2) * two * rmu * g2yi(:,3)
354 & + bnorm(:,3) * (rmu * (g3yi(:,3) + g2yi(:,4)))
355 tau3n = bnorm(:,1) * (rmu * (g3yi(:,2) + g1yi(:,4)))
356 & + bnorm(:,2) * (rmu * (g3yi(:,3) + g2yi(:,4)))
357 & + bnorm(:,3) * two * rmu * g3yi(:,4)
359 temp1 = bnorm(:,1) * tau1n
360 & + bnorm(:,2) * tau2n
361 & + bnorm(:,3) * tau3n
365 tau1n = tau1n - bnorm(:,1) * temp1
366 tau2n = tau2n - bnorm(:,2) * temp1
367 tau3n = tau3n - bnorm(:,3) * temp1
795 & shape, WdetJb, bnorm, argument
802 & WdetJb(npro), bnorm(npro,nsd),
865 bnorm(:,1) = temp1 * temp
866 bnorm(:,2) = temp2 * temp
867 bnorm(:,3) = temp3 * temp
941 flux = diffus * ( gradS(:,1) * bnorm(:,1)
942 & + gradS(:,2) * bnorm(:,2)
943 & + gradS(:,3) * bnorm(:,3) )