Lines Matching refs:aa
83 integer aa local
305 do aa = 1, nshl !TODO: get rid of the intermediary dNadxi
307 dNadxi(:,aa,1) = shglb(:,1,aa) * 1 !would normally be a sum over
308 dNadxi(:,aa,2) = shglb(:,2,aa) * 1 !all nodes, but N = 0 for a /= 1
309 dNadxi(:,aa,3) = shglb(:,3,aa) * 1
312 do aa = 1, nshl
313 dNadx(:,aa,1) = dNadxi(:,aa,1) * dxidxb(:,1,1) +
314 & dNadxi(:,aa,2) * dxidxb(:,2,1) +
315 & dNadxi(:,aa,3) * dxidxb(:,3,1)
316 dNadx(:,aa,2) = dNadxi(:,aa,1) * dxidxb(:,1,2) +
317 & dNadxi(:,aa,2) * dxidxb(:,2,2) +
318 & dNadxi(:,aa,3) * dxidxb(:,3,2)
319 dNadx(:,aa,3) = dNadxi(:,aa,1) * dxidxb(:,1,3) +
320 & dNadxi(:,aa,2) * dxidxb(:,2,3) +
321 & dNadxi(:,aa,3) * dxidxb(:,3,3)