Lines Matching refs:aa
59 integer aa local
227 do aa = 1,nshl
231 rl(:,aa,4) = rl(:,aa,4) + WdetJ
232 & * ( shg(:,aa,1) * uBar(:,1)
233 & + shg(:,aa,2) * uBar(:,2)
234 & + shg(:,aa,3) * uBar(:,3) )
238 rl(:,aa,1) = rl(:,aa,1) - WdetJ
239 & * ( shpfun(:,aa) * rNa(:,1)
240 & + shg(:,aa,1) * rGNa(:,1,1)
241 & + shg(:,aa,2) * rGNa(:,1,2)
242 & + shg(:,aa,3) * rGNa(:,1,3) )
243 rl(:,aa,2) = rl(:,aa,2) - WdetJ
244 & * ( shpfun(:,aa) * rNa(:,2)
245 & + shg(:,aa,1) * rGNa(:,2,1)
246 & + shg(:,aa,2) * rGNa(:,2,2)
247 & + shg(:,aa,3) * rGNa(:,2,3) )
248 rl(:,aa,3) = rl(:,aa,3) - WdetJ
249 & * ( shpfun(:,aa) * rNa(:,3)
250 & + shg(:,aa,1) * rGNa(:,3,1)
251 & + shg(:,aa,2) * rGNa(:,3,2)
252 & + shg(:,aa,3) * rGNa(:,3,3) )
289 integer aa local
332 do aa = 1,nshl
334 rl(:,aa) = rl(:,aa) - WdetJ
335 & * ( shpfun(:,aa) * rNa(:)
336 & + shg(:,aa,1) * rGNa(:,1)
337 & + shg(:,aa,2) * rGNa(:,2)
338 & + shg(:,aa,3) * rGNa(:,3) )