Lines Matching refs:aa
12 integer aa, b, c, e, i, k, n local
27 do aa = 1, nshl ! loop over the local equation numbers
28 i = ien(e,aa) ! finds the global equation number or
44 lhsK(1,k) = lhsK(1,k) + xKebe(e,1,aa,b)
45 lhsK(2,k) = lhsK(2,k) + xKebe(e,2,aa,b)
46 lhsK(3,k) = lhsK(3,k) + xKebe(e,3,aa,b)
47 lhsK(4,k) = lhsK(4,k) + xKebe(e,4,aa,b)
48 lhsK(5,k) = lhsK(5,k) + xKebe(e,5,aa,b)
49 lhsK(6,k) = lhsK(6,k) + xKebe(e,6,aa,b)
50 lhsK(7,k) = lhsK(7,k) + xKebe(e,7,aa,b)
51 lhsK(8,k) = lhsK(8,k) + xKebe(e,8,aa,b)
52 lhsK(9,k) = lhsK(9,k) + xKebe(e,9,aa,b)
54 lhsP(1,k) = lhsP(1,k) + xGoC(e,1,aa,b)
55 lhsP(2,k) = lhsP(2,k) + xGoC(e,2,aa,b)
56 lhsP(3,k) = lhsP(3,k) + xGoC(e,3,aa,b)
57 lhsP(4,k) = lhsP(4,k) + xGoC(e,4,aa,b)
86 integer aa, b, c, e, i, k, n, n1 local
102 do aa = 1, nshl !loop over matrix block column index
103 i = ien(e,aa) !get mapping from aath node of element e to
109 r = (aa-1)*nflow !starting index of the ath node in EGmass
148 integer aa, b, c, e, i, k, n, n1 local
162 do aa = 1, nshl !loop over matrix block column index
163 i = ien(e,aa) !get mapping from aath node of element e to
178 lhsk(25, k) = lhsk(25, k) + EGmass(e, aa, b)
202 integer aa, b, c, e, i, k, n local
217 do aa = 1, nshl
218 i = ien(e,aa)
224 lhsS(k) = lhsS(k) + xSebe(e,aa,b)