Lines Matching refs:nNo
41 SUBROUTINE SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
46 INTEGER, INTENT(IN) :: dof, nNo, nnz local
49 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
50 REAL*8, INTENT(IN) :: K(dof*dof,nnz), U(dof,nNo)
51 REAL*8, INTENT(OUT) :: KU(dof,nNo)
58 DO i=1, nNo
64 DO i=1, nNo
72 DO i=1, nNo
84 DO i=1, nNo
98 DO i=1, nNo
110 CALL COMMUV(dof, nNo, commu, cS, KU)
117 SUBROUTINE SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
122 INTEGER, INTENT(IN) :: dof, nNo, nnz local
125 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
126 REAL*8, INTENT(IN) :: K(dof,nnz), U(dof,nNo)
127 REAL*8, INTENT(OUT) :: KU(nNo)
134 DO i=1, nNo
140 DO i=1, nNo
147 DO i=1, nNo
155 DO i=1, nNo
163 DO i=1, nNo
170 CALL COMMUS(nNo, commu, cS, KU)
177 SUBROUTINE SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
182 INTEGER, INTENT(IN) :: dof, nNo, nnz local
185 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
186 REAL*8, INTENT(IN) :: K(dof,nnz), U(nNo)
187 REAL*8, INTENT(OUT) :: KU(dof,nNo)
194 DO i=1, nNo
200 DO i=1, nNo
208 DO i=1, nNo
217 DO i=1, nNo
227 DO i=1, nNo
234 CALL COMMUV(dof, nNo, commu, cS, KU)
241 SUBROUTINE SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr, argument
246 INTEGER, INTENT(IN) :: nNo, nnz local
249 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
250 REAL*8, INTENT(IN) :: K(nnz), U(nNo)
251 REAL*8, INTENT(OUT) :: KU(nNo)
256 DO i=1, nNo
262 CALL COMMUS(nNo, commu, cS, KU)