Lines Matching refs:shg
5 & shpfun, shg, xKebe, argument
39 & shpfun(npro,nshl),shg(npro,nshl,3)
80 t1(:,1) = uBar(:,1) * shg(:,b,1)
81 & + uBar(:,2) * shg(:,b,2)
82 & + uBar(:,3) * shg(:,b,3)
104 t1(:,1) = tauC * shg(:,b,1)
105 t1(:,2) = tauC * shg(:,b,2)
106 t1(:,3) = tauC * shg(:,b,3)
110 t2(:,1) = rmu * shg(:,b,1)
111 t2(:,2) = rmu * shg(:,b,2)
112 t2(:,3) = rmu * shg(:,b,3)
115 tmp1 = tauM * ( u1 * shg(:,b,1)
116 & + u2 * shg(:,b,2)
117 & + u3 * shg(:,b,3) )*rho
120 tmp2 = tauBar * ( rLui(:,1) * shg(:,b,1)
121 & + rLui(:,2) * shg(:,b,2)
122 & + rLui(:,3) * shg(:,b,3) )
137 tmp = t3(:,1) * shg(:,aa,1)
138 & + t3(:,2) * shg(:,aa,2)
139 & + t3(:,3) * shg(:,aa,3)
143 & + t1(:,1) * shg(:,aa,1)
144 & + t2(:,1) * shg(:,aa,1)
146 & + t1(:,2) * shg(:,aa,2)
147 & + t2(:,2) * shg(:,aa,2)
149 & + t1(:,3) * shg(:,aa,3)
150 & + t2(:,3) * shg(:,aa,3)
152 tmp1 = t1(:,1) * shg(:,aa,2)
153 & + t2(:,2) * shg(:,aa,1)
157 tmp1 = t1(:,1) * shg(:,aa,3)
158 & + t2(:,3) * shg(:,aa,1)
162 tmp1 = t1(:,2) * shg(:,aa,3)
163 & + t2(:,3) * shg(:,aa,2)
170 tmp = t3(:,1) * shg(:,aa,1)
171 & + t3(:,2) * shg(:,aa,2)
172 & + t3(:,3) * shg(:,aa,3)
175 & + t1(:,1) * shg(:,aa,1)
176 & + t2(:,1) * shg(:,aa,1)
181 & + t1(:,2) * shg(:,aa,2)
182 & + t2(:,2) * shg(:,aa,2)
187 & + t1(:,3) * shg(:,aa,3)
188 & + t2(:,3) * shg(:,aa,3)
194 tmp1 = t1(:,1) * shg(:,aa,2)
195 & + t2(:,2) * shg(:,aa,1)
199 tmp1 = t1(:,1) * shg(:,aa,3)
200 & + t2(:,3) * shg(:,aa,1)
204 tmp1 = t1(:,2) * shg(:,aa,1)
205 & + t2(:,1) * shg(:,aa,2)
209 tmp1 = t1(:,2) * shg(:,aa,3)
210 & + t2(:,3) * shg(:,aa,2)
214 tmp1 = t1(:,3) * shg(:,aa,1)
215 & + t2(:,1) * shg(:,aa,3)
219 tmp1 = t1(:,3) * shg(:,aa,2)
220 & + t2(:,2) * shg(:,aa,3)
231 t1(:,1) = tlW * shg(:,b,1)
232 t1(:,2) = tlW * shg(:,b,2)
233 t1(:,3) = tlW * shg(:,b,3)
247 t1(:,1) = tauM * shg(:,b,1)
248 t1(:,2) = tauM * shg(:,b,2)
249 t1(:,3) = tauM * shg(:,b,3)
252 & + t1(:,1) * shg(:,aa,1)
253 & + t1(:,2) * shg(:,aa,2)
254 & + t1(:,3) * shg(:,aa,3)
273 & shpfun, shg, srcL, argument
284 & srcL(npro), shg(npro,nshl,3), local
312 t1(:,1) = WdetJ * ( uMod(:,1) * shg(:,b,1)
313 & + uMod(:,2) * shg(:,b,2)
314 & + uMod(:,3) * shg(:,b,3) )
333 & * ( uMod(:,1) * shg(:,b,1)
334 & + uMod(:,2) * shg(:,b,2)
335 & + uMod(:,3) * shg(:,b,3) )
337 t1(:,1) = kptmp * shg(:,b,1) + uMod(:,1) * tmp
338 t1(:,2) = kptmp * shg(:,b,2) + uMod(:,2) * tmp
339 t1(:,3) = kptmp * shg(:,b,3) + uMod(:,3) * tmp
353 t1(:,1) = t1(:,1) + giju(:,1) * shg(:,b,1)
354 2 + giju(:,4) * shg(:,b,2)
355 3 + giju(:,6) * shg(:,b,3)
356 t1(:,2) = t1(:,2) + giju(:,4) * shg(:,b,1)
357 2 + giju(:,2) * shg(:,b,2)
358 3 + giju(:,5) * shg(:,b,3)
359 t1(:,3) = t1(:,3) + giju(:,6) * shg(:,b,1)
360 2 + giju(:,5) * shg(:,b,2)
361 3 + giju(:,3) * shg(:,b,3)
369 xSebe(:,aa,b) = xSebe(:,aa,b) + t1(:,1) * shg(:,aa,1)
370 & + t1(:,2) * shg(:,aa,2)
371 & + t1(:,3) * shg(:,aa,3)
377 tmp = t1(:,1) * shg(:,aa,1)
378 & + t1(:,2) * shg(:,aa,2)
379 & + t1(:,3) * shg(:,aa,3)