Lines Matching refs:e
12 integer aa, b, c, e, i, k, n local
26 do e = 1, npro ! loop over the elements
28 i = ien(e,aa) ! finds the global equation number or
37 k = sparseloc( row(c), n, ien(e,b) ) + c-1
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
101 do e = 1, npro
103 i = ien(e,aa) !get mapping from aath node of element e to
113 k = sparseloc( row(c), n, ien(e,b) ) + c-1
121 lhsK(t+f,k) = lhsK(t+f,k) + EGmass(e,r+f,s+g)
148 integer aa, b, c, e, i, k, n, n1 local
161 do e = 1, npro
163 i = ien(e,aa) !get mapping from aath node of element e to
173 k = sparseloc( row(c), n, ien(e,b) ) + c-1
178 lhsk(25, k) = lhsk(25, k) + EGmass(e, aa, b)
202 integer aa, b, c, e, i, k, n local
216 do e = 1, npro
218 i = ien(e,aa)
222 k = sparseloc( row(c), n, ien(e,b) ) + c-1
224 lhsS(k) = lhsS(k) + xSebe(e,aa,b)