Lines Matching refs:K
42 2 K, U, KU) argument
50 REAL*8, INTENT(IN) :: K(dof*dof,nnz), U(dof,nNo) local
60 KU(1,i) = KU(1,i) + K(1,j)*U(1,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)
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)
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)
104 KU(l,i) = KU(l,i) + SUM(K(s:e,j)*U(:,col))
118 2 K, U, KU) argument
126 REAL*8, INTENT(IN) :: K(dof,nnz), U(dof,nNo) local
136 KU(i) = KU(i) + K(1,j)*U(1,colPtr(j))
143 KU(i) = KU(i) + K(1,j)*U(1,col) + K(2,j)*U(2,col)
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)
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)
165 KU(i) = KU(i) + SUM(K(:,j)*U(:,colPtr(j)))
178 2 K, U, KU) argument
186 REAL*8, INTENT(IN) :: K(dof,nnz), U(nNo) local
196 KU(1,i) = KU(1,i) + K(1,j)*U(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)
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)
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)
229 KU(:,i) = KU(:,i) + K(:,j)*U(colPtr(j))
242 2 K, U, KU) argument
250 REAL*8, INTENT(IN) :: K(nnz), U(nNo) local
258 KU(i) = KU(i) + K(j)*U(colPtr(j))