Lines Matching refs:nNo
41 SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
51 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
53 REAL*8, INTENT(INOUT) :: R(nNo)
61 ALLOCATE(X(nNo), P(nNo), SP(nNo), DGP(nNo), GP(dof,nNo),
62 2 unCondU(dof,nNo))
81 CALL SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
86 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
90 CALL SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
93 CALL SPARMULSS( nNo, nnz, commu, cS, rowPtr, colPtr,
117 SUBROUTINE CGRADV(dof, nNo, nnz, mynNo, commu, cS, ls, argument
122 INTEGER, INTENT(IN) :: dof, nNo, nnz, mynNo local
126 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
128 REAL*8, INTENT(INOUT) :: R(dof,nNo)
135 ALLOCATE(P(dof,nNo), KP(dof,nNo), X(dof,nNo))
153 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
176 SUBROUTINE CGRADS(nNo, nnz, mynNo, commu, cS, ls, argument
181 INTEGER, INTENT(IN) :: nNo, nnz, mynNo local
185 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
187 REAL*8, INTENT(INOUT) :: R(nNo)
194 ALLOCATE(P(nNo), KP(nNo), X(nNo))
212 CALL SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr, K, P, KP)