Lines Matching refs:shp
1 subroutine e3wmlt (shp, shg, WdetJ, argument
53 dimension shp(npro,nshl),
102 & + shp(:,i) * rmi(:,16) )
106 & + shp(:,i) * rmi(:,17) )
110 & + shp(:,i) * rmi(:,18) )
114 & + shp(:,i) * rmi(:,19) )
118 & + shp(:,i) * rmi(:,20) )
129 rl(:,i,2) = rl(:,i,2) + shp(:,i) * WdetJ * ri(:,17)
130 rl(:,i,3) = rl(:,i,3) + shp(:,i) * WdetJ * ri(:,18)
131 rl(:,i,4) = rl(:,i,4) + shp(:,i) * WdetJ * ri(:,19)
132 rl(:,i,5) = rl(:,i,5) + shp(:,i) * WdetJ * ri(:,20)
137 rl(:,i,1) = rl(:,i,1) + shp(:,i) * WdetJ * ri(:,16)
138 rl(:,i,2) = rl(:,i,2) + shp(:,i) * WdetJ * ri(:,17)
139 rl(:,i,3) = rl(:,i,3) + shp(:,i) * WdetJ * ri(:,18)
140 rl(:,i,4) = rl(:,i,4) + shp(:,i) * WdetJ * ri(:,19)
141 rl(:,i,5) = rl(:,i,5) + shp(:,i) * WdetJ * ri(:,20)
238 subroutine e3wmltSclr(shp, shg, WdetJ, argument
288 dimension shp(npro,nshl), shg(npro,nshl,nsd),
346 rtl(:,i) = rtl(:,i) + shp(:,i) * WdetJ * rti(:,4)