Lines Matching refs:nNo
41 SUBROUTINE NSSOLVER(nFaces, gnNo, dof, nNo, nnz, mynNo, commu, argument
47 INTEGER, INTENT(IN) :: nFaces, gnNo, dof, nNo, nnz, mynNo local
52 INTEGER, INTENT(IN) :: rowPtr(2,nNo), colPtr(nnz)
54 REAL*8, INTENT(INOUT) :: Ri(dof,nNo)
65 ALLOCATE(Rm(nsd,nNo), Rc(nNo), Rmi(nsd,nNo), Rci(nNo),
66 2 U(nsd,nNo,iB), P(nNo,iB), MU(nsd,nNo,nB), MP(nNo,nB),
95 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
98 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
102 CALL CGRAD(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
105 CALL SPARMULSV(nsd, nNo, nnz, commu, cS,
109 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
112 CALL SPARMULVV(nsd, nNo, nnz, commu, cS,
115 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, nsd, nNo, mynNo, commu,
118 CALL SPARMULSS(nNo, nnz, commu, cS,
121 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
247 DO i=1, nNo
275 IF (.NOT.ALLOCATED(v)) ALLOCATE(v(nsd,nNo))
277 DO a=1, face(faIn)%nNo
286 DO a=1, face(faIn)%nNo