Lines Matching refs:j
53 INTEGER i, j, l, col, s, e local
59 DO j=rowPtr(1,i), rowPtr(2,i)
60 KU(1,i) = KU(1,i) + K(1,j)*U(1,colPtr(j))
65 DO j=rowPtr(1,i), rowPtr(2,i)
66 col = colPtr(j)
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)
73 DO j=rowPtr(1,i), rowPtr(2,i)
74 col = colPtr(j)
75 KU(1,i) = KU(1,i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
76 2 + K(3,j)*U(3,col)
77 KU(2,i) = KU(2,i) + K(4,j)*U(1,col) + K(5,j)*U(2,col)
78 2 + K(6,j)*U(3,col)
79 KU(3,i) = KU(3,i) + K(7,j)*U(1,col) + K(8,j)*U(2,col)
80 2 + K(9,j)*U(3,col)
85 DO j=rowPtr(1,i), rowPtr(2,i)
86 col = colPtr(j)
87 KU(1,i) = KU(1,i) + K(1 ,j)*U(1,col) + K(2 ,j)*U(2,col)
88 2 + K(3 ,j)*U(3,col) + K(4 ,j)*U(4,col)
89 KU(2,i) = KU(2,i) + K(5 ,j)*U(1,col) + K(6 ,j)*U(2,col)
90 2 + K(7 ,j)*U(3,col) + K(8 ,j)*U(4,col)
91 KU(3,i) = KU(3,i) + K(9 ,j)*U(1,col) + K(10,j)*U(2,col)
92 2 + K(11,j)*U(3,col) + K(12,j)*U(4,col)
93 KU(4,i) = KU(4,i) + K(13,j)*U(1,col) + K(14,j)*U(2,col)
94 2 + K(15,j)*U(3,col) + K(16,j)*U(4,col)
99 DO j=rowPtr(1,i), rowPtr(2,i)
100 col = colPtr(j)
104 KU(l,i) = KU(l,i) + SUM(K(s:e,j)*U(:,col))
129 INTEGER i, j, col local
135 DO j=rowPtr(1,i), rowPtr(2,i)
136 KU(i) = KU(i) + K(1,j)*U(1,colPtr(j))
141 DO j=rowPtr(1,i), rowPtr(2,i)
142 col = colPtr(j)
143 KU(i) = KU(i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
148 DO j=rowPtr(1,i), rowPtr(2,i)
149 col = colPtr(j)
150 KU(i) = KU(i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
151 2 + K(3,j)*U(3,col)
156 DO j=rowPtr(1,i), rowPtr(2,i)
157 col = colPtr(j)
158 KU(i) = KU(i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
159 2 + K(3,j)*U(3,col) + K(4,j)*U(4,col)
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
195 DO j=rowPtr(1,i), rowPtr(2,i)
196 KU(1,i) = KU(1,i) + K(1,j)*U(colPtr(j))
201 DO j=rowPtr(1,i), rowPtr(2,i)
202 col = colPtr(j)
203 KU(1,i) = KU(1,i) + K(1,j)*U(col)
204 KU(2,i) = KU(2,i) + K(2,j)*U(col)
209 DO j=rowPtr(1,i), rowPtr(2,i)
210 col = colPtr(j)
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)
218 DO j=rowPtr(1,i), rowPtr(2,i)
219 col = colPtr(j)
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)
228 DO j=rowPtr(1,i), rowPtr(2,i)
229 KU(:,i) = KU(:,i) + K(:,j)*U(colPtr(j))
253 INTEGER i, j local
257 DO j=rowPtr(1,i), rowPtr(2,i)
258 KU(i) = KU(i) + K(j)*U(colPtr(j))