Searched refs:KU (Results 1 – 1 of 1) sorted by relevance
| /phasta/svLS/ |
| H A D | SPARMUL.f | 42 2 K, U, KU) argument
51 REAL*8, INTENT(OUT) :: KU(dof,nNo) local
55 KU = 0D0
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)
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)
87 KU(1,i) = KU(1,i) + K(1 ,j)*U(1,col) + K(2 ,j)*U(2,col)
[all …]
|