Lines Matching refs:shg
1 subroutine e3wmlt (shp, shg, WdetJ, argument
54 & shg(npro,nshl,nsd),
76 & shg(:,i,1) * ri(:, 1) + shg(:,i,2) * ri(:, 6)
77 & + shg(:,i,3) * ri(:,11) )
79 & shg(:,i,1) * ri(:, 2) + shg(:,i,2) * ri(:, 7)
80 & + shg(:,i,3) * ri(:,12) )
82 & shg(:,i,1) * ri(:, 3) + shg(:,i,2) * ri(:, 8)
83 & + shg(:,i,3) * ri(:,13) )
85 & shg(:,i,1) * ri(:, 4) + shg(:,i,2) * ri(:, 9)
86 & + shg(:,i,3) * ri(:,14) )
88 & shg(:,i,1) * ri(:, 5) + shg(:,i,2) * ri(:,10)
89 & + shg(:,i,3) * ri(:,15) )
100 & shg(:,i,1) * rmi(:, 1) + shg(:,i,2) * rmi(:, 6)
101 & + shg(:,i,3) * rmi(:,11)
104 & shg(:,i,1) * rmi(:, 2) + shg(:,i,2) * rmi(:, 7)
105 & + shg(:,i,3) * rmi(:,12)
108 & shg(:,i,1) * rmi(:, 3) + shg(:,i,2) * rmi(:, 8)
109 & + shg(:,i,3) * rmi(:,13)
112 & shg(:,i,1) * rmi(:, 4) + shg(:,i,2) * rmi(:, 9)
113 & + shg(:,i,3) * rmi(:,14)
116 & shg(:,i,1) * rmi(:, 5) + shg(:,i,2) * rmi(:,10)
117 & + shg(:,i,3) * rmi(:,15)
159 shg1 = WdetJ * shg(:,j,1)
160 shg2 = WdetJ * shg(:,j,2)
161 shg3 = WdetJ * shg(:,j,3)
196 & + shg(:,i,1) * stif1(:,1,jdof)
197 & + shg(:,i,2) * stif2(:,1,jdof)
198 & + shg(:,i,3) * stif3(:,1,jdof)
200 & + shg(:,i,1) * stif1(:,2,jdof)
201 & + shg(:,i,2) * stif2(:,2,jdof)
202 & + shg(:,i,3) * stif3(:,2,jdof)
204 & + shg(:,i,1) * stif1(:,3,jdof)
205 & + shg(:,i,2) * stif2(:,3,jdof)
206 & + shg(:,i,3) * stif3(:,3,jdof)
208 & + shg(:,i,1) * stif1(:,4,jdof)
209 & + shg(:,i,2) * stif2(:,4,jdof)
210 & + shg(:,i,3) * stif3(:,4,jdof)
212 & + shg(:,i,1) * stif1(:,5,jdof)
213 & + shg(:,i,2) * stif2(:,5,jdof)
214 & + shg(:,i,3) * stif3(:,5,jdof)
238 subroutine e3wmltSclr(shp, shg, WdetJ, argument
288 dimension shp(npro,nshl), shg(npro,nshl,nsd),
310 & shg(:,i,1) * rti(:,1) + shg(:,i,2) * rti(:,2)
311 & + shg(:,i,3) * rti(:,3) )
362 shg1 = WdetJ * shg(:,j,1)
363 shg2 = WdetJ * shg(:,j,2)
364 shg3 = WdetJ * shg(:,j,3)
385 & + shg(:,i,1) * stift1(:)
386 & + shg(:,i,2) * stift2(:)
387 & + shg(:,i,3) * stift3(:)