Lines Matching refs:WdetJ
1 subroutine e3wmlt (shp, shg, WdetJ, argument
55 & WdetJ(npro), ri(npro,nflow*(nsd+1)),
75 rl(:,i,1) = rl(:,i,1) + WdetJ * (
78 rl(:,i,2) = rl(:,i,2) + WdetJ * (
81 rl(:,i,3) = rl(:,i,3) + WdetJ * (
84 rl(:,i,4) = rl(:,i,4) + WdetJ * (
87 rl(:,i,5) = rl(:,i,5) + WdetJ * (
99 rml(:,i,1) = rml(:,i,1) + WdetJ * (
103 rml(:,i,2) = rml(:,i,2) + WdetJ * (
107 rml(:,i,3) = rml(:,i,3) + WdetJ * (
111 rml(:,i,4) = rml(:,i,4) + WdetJ * (
115 rml(:,i,5) = rml(:,i,5) + WdetJ * (
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)
159 shg1 = WdetJ * shg(:,j,1)
160 shg2 = WdetJ * shg(:,j,2)
161 shg3 = WdetJ * shg(:,j,3)
238 subroutine e3wmltSclr(shp, shg, WdetJ, argument
289 & WdetJ(npro), rti(npro,nsd+1),
309 rtl(:,i) = rtl(:,i) + WdetJ * (
346 rtl(:,i) = rtl(:,i) + shp(:,i) * WdetJ * rti(:,4)
362 shg1 = WdetJ * shg(:,j,1)
363 shg2 = WdetJ * shg(:,j,2)
364 shg3 = WdetJ * shg(:,j,3)