Lines Matching refs:shpb
1 subroutine e3bvar (yl, ycl, BCB, shpb, shglb, argument
55 & shpb(npro,nshl),
98 pres = pres + shpb(:,nodlcl) * yl(:,nodlcl,1)
99 u1 = u1 + shpb(:,nodlcl) * yl(:,nodlcl,2)
100 u2 = u2 + shpb(:,nodlcl) * yl(:,nodlcl,3)
101 u3 = u3 + shpb(:,nodlcl) * yl(:,nodlcl,4)
102 T = T + shpb(:,nodlcl) * yl(:,nodlcl,5)
115 temp = temp + shpb(:,n) * ycl(:,n,isc)
337 rou = rou + shpb(:,nodlcl) * BCB(:,n,1)
338 p = p + shpb(:,nodlcl) * BCB(:,n,2)
353 tau1n = tau1n + shpb(:,nodlcl) * BCB(:,n,3)
354 tau2n = tau2n + shpb(:,nodlcl) * BCB(:,n,4)
355 tau3n = tau3n + shpb(:,nodlcl) * BCB(:,n,5)
356 heat = heat + shpb(:,nodlcl) * BCB(:,n,6)
376 subroutine e3bvarSclr(ycl, BCB, shpb, shglb, argument
415 & shpb(npro,nshl), shglb(npro,nsd,nshl),
458 pres = pres + shpb(:,nodlcl) * ycl(:,nodlcl,1)
459 u1 = u1 + shpb(:,nodlcl) * ycl(:,nodlcl,2)
460 u2 = u2 + shpb(:,nodlcl) * ycl(:,nodlcl,3)
461 u3 = u3 + shpb(:,nodlcl) * ycl(:,nodlcl,4)
462 T = T + shpb(:,nodlcl) * ycl(:,nodlcl,5)
463 Sclr = Sclr + shpb(:,nodlcl) * ycl(:,nodlcl,id)
615 rou = rou + shpb(:,nodlcl) * BCB(:,n,1)
622 SclrF = SclrF + shpb(:,nodlcl) * BCB(:,n,ibb)