Lines Matching refs:shg
1 subroutine e3bdg_nd (shp, shg, WdetJ, argument
14 & shg(npro,nshl,nsd), WdetJ(npro),
42 & shg(:,j,1) * A1(:,1,1) +
43 & shg(:,j,2) * A2(:,1,1) +
44 & shg(:,j,3) * A3(:,1,1)
48 & shg(:,j,1) * A1(:,1,2)
55 & +shg(:,j,2) * A2(:,1,3)
62 & shg(:,j,3) * A3(:,1,4)
66 & shg(:,j,1) * A1(:,1,5) +
67 & shg(:,j,2) * A2(:,1,5) +
68 & shg(:,j,3) * A3(:,1,5)
72 & shg(:,j,1) * A1(:,2,1) +
73 & shg(:,j,2) * A2(:,2,1) +
74 & shg(:,j,3) * A3(:,2,1)
78 & shg(:,j,1) * A1(:,2,2) +
79 & shg(:,j,2) * A2(:,2,2) +
80 & shg(:,j,3) * A3(:,2,2)
85 & +shg(:,j,2) * A2(:,2,3)
92 & shg(:,j,3) * A3(:,2,4)
96 & shg(:,j,1) * A1(:,2,5) +
97 & shg(:,j,2) * A2(:,2,5) +
98 & shg(:,j,3) * A3(:,2,5)
102 & shg(:,j,1) * A1(:,3,1) +
103 & shg(:,j,2) * A2(:,3,1) +
104 & shg(:,j,3) * A3(:,3,1)
108 & shg(:,j,1) * A1(:,3,2)
114 & shg(:,j,1) * A1(:,3,3) +
115 & shg(:,j,2) * A2(:,3,3) +
116 & shg(:,j,3) * A3(:,3,3)
122 & shg(:,j,3) * A3(:,3,4)
126 & shg(:,j,1) * A1(:,3,5) +
127 & shg(:,j,2) * A2(:,3,5) +
128 & shg(:,j,3) * A3(:,3,5)
132 & shg(:,j,1) * A1(:,4,1) +
133 & shg(:,j,2) * A2(:,4,1) +
134 & shg(:,j,3) * A3(:,4,1)
138 & shg(:,j,1) * A1(:,4,2)
145 & +shg(:,j,2) * A2(:,4,3)
150 & shg(:,j,1) * A1(:,4,4) +
151 & shg(:,j,2) * A2(:,4,4) +
152 & shg(:,j,3) * A3(:,4,4)
156 & shg(:,j,1) * A1(:,4,5) +
157 & shg(:,j,2) * A2(:,4,5) +
158 & shg(:,j,3) * A3(:,4,5)
162 & shg(:,j,1) * A1(:,5,1) +
163 & shg(:,j,2) * A2(:,5,1) +
164 & shg(:,j,3) * A3(:,5,1)
168 & shg(:,j,1) * A1(:,5,2) +
169 & shg(:,j,2) * A2(:,5,2) +
170 & shg(:,j,3) * A3(:,5,2)
174 & shg(:,j,1) * A1(:,5,3) +
175 & shg(:,j,2) * A2(:,5,3) +
176 & shg(:,j,3) * A3(:,5,3)
180 & shg(:,j,1) * A1(:,5,4) +
181 & shg(:,j,2) * A2(:,5,4) +
182 & shg(:,j,3) * A3(:,5,4)
186 & shg(:,j,1) * A1(:,5,5) +
187 & shg(:,j,2) * A2(:,5,5) +
188 & shg(:,j,3) * A3(:,5,5)
346 & shg(:,i,1) * A1tauA0(:,idof,jdof) +
347 & shg(:,i,2) * A2tauA0(:,idof,jdof) +
348 & shg(:,i,3) * A3tauA0(:,idof,jdof))
575 tmp = WdetJ * shg(:,j,1) * shg(:,j,1)
792 tmp = WdetJ * shg(:,j,2) * shg(:,j,2)
1009 tmp = WdetJ * shg(:,j,3) * shg(:,j,3)
1349 tmp = WdetJ * shg(:,j,1) * shg(:,j,2)
1692 tmp = WdetJ * shg(:,j,1) * shg(:,j,3)
2035 tmp = WdetJ * shg(:,j,2) * shg(:,j,3)