Lines Matching refs:i
53 INTEGER i, j, l, col, s, e local
58 DO i=1, nNo
59 DO j=rowPtr(1,i), rowPtr(2,i)
60 KU(1,i) = KU(1,i) + K(1,j)*U(1,colPtr(j))
64 DO i=1, nNo
65 DO j=rowPtr(1,i), rowPtr(2,i)
67 KU(1,i) = KU(1,i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
68 KU(2,i) = KU(2,i) + K(3,j)*U(1,col) + K(4,j)*U(2,col)
72 DO i=1, nNo
73 DO j=rowPtr(1,i), rowPtr(2,i)
75 KU(1,i) = KU(1,i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
77 KU(2,i) = KU(2,i) + K(4,j)*U(1,col) + K(5,j)*U(2,col)
79 KU(3,i) = KU(3,i) + K(7,j)*U(1,col) + K(8,j)*U(2,col)
84 DO i=1, nNo
85 DO j=rowPtr(1,i), rowPtr(2,i)
87 KU(1,i) = KU(1,i) + K(1 ,j)*U(1,col) + K(2 ,j)*U(2,col)
89 KU(2,i) = KU(2,i) + K(5 ,j)*U(1,col) + K(6 ,j)*U(2,col)
91 KU(3,i) = KU(3,i) + K(9 ,j)*U(1,col) + K(10,j)*U(2,col)
93 KU(4,i) = KU(4,i) + K(13,j)*U(1,col) + K(14,j)*U(2,col)
98 DO i=1, nNo
99 DO j=rowPtr(1,i), rowPtr(2,i)
104 KU(l,i) = KU(l,i) + SUM(K(s:e,j)*U(:,col))
129 INTEGER i, j, col local
134 DO i=1, nNo
135 DO j=rowPtr(1,i), rowPtr(2,i)
136 KU(i) = KU(i) + K(1,j)*U(1,colPtr(j))
140 DO i=1, nNo
141 DO j=rowPtr(1,i), rowPtr(2,i)
143 KU(i) = KU(i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
147 DO i=1, nNo
148 DO j=rowPtr(1,i), rowPtr(2,i)
150 KU(i) = KU(i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
155 DO i=1, nNo
156 DO j=rowPtr(1,i), rowPtr(2,i)
158 KU(i) = KU(i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
163 DO i=1, nNo
164 DO j=rowPtr(1,i), rowPtr(2,i)
165 KU(i) = KU(i) + SUM(K(:,j)*U(:,colPtr(j)))
189 INTEGER i, j, col local
194 DO i=1, nNo
195 DO j=rowPtr(1,i), rowPtr(2,i)
196 KU(1,i) = KU(1,i) + K(1,j)*U(colPtr(j))
200 DO i=1, nNo
201 DO j=rowPtr(1,i), rowPtr(2,i)
203 KU(1,i) = KU(1,i) + K(1,j)*U(col)
204 KU(2,i) = KU(2,i) + K(2,j)*U(col)
208 DO i=1, nNo
209 DO j=rowPtr(1,i), rowPtr(2,i)
211 KU(1,i) = KU(1,i) + K(1,j)*U(col)
212 KU(2,i) = KU(2,i) + K(2,j)*U(col)
213 KU(3,i) = KU(3,i) + K(3,j)*U(col)
217 DO i=1, nNo
218 DO j=rowPtr(1,i), rowPtr(2,i)
220 KU(1,i) = KU(1,i) + K(1,j)*U(col)
221 KU(2,i) = KU(2,i) + K(2,j)*U(col)
222 KU(3,i) = KU(3,i) + K(3,j)*U(col)
223 KU(4,i) = KU(4,i) + K(4,j)*U(col)
227 DO i=1, nNo
228 DO j=rowPtr(1,i), rowPtr(2,i)
229 KU(:,i) = KU(:,i) + K(:,j)*U(colPtr(j))
253 INTEGER i, j local
256 DO i=1, nNo
257 DO j=rowPtr(1,i), rowPtr(2,i)
258 KU(i) = KU(i) + K(j)*U(colPtr(j))