Lines Matching refs:mynNo
41 SUBROUTINE NSSOLVER(nFaces, gnNo, dof, nNo, nnz, mynNo, commu, argument
47 INTEGER, INTENT(IN) :: nFaces, gnNo, dof, nNo, nnz, mynNo local
76 eps = SQRT(NORMV(nsd, mynNo, commu, Rm)**2D0
77 2 + NORMS( mynNo, commu, Rc)**2D0)
95 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
102 CALL CGRAD(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
109 CALL GMRES(nFaces, nsd, nNo, nnz, mynNo, commu, cS, face,
115 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, nsd, nNo, mynNo, commu,
126 A(j,k) = DOTV(nsd, mynNo, commu, MU(:,:,j), MU(:,:,k))
127 2 + DOTS( mynNo, commu, MP(:,j), MP(:,k))
130 A(k,k) = NORMV(nsd, mynNo, commu, MU(:,:,k))**2D0
131 2 + NORMS( mynNo, commu, MP(:,k))**2D0
132 B(k) = DOTV (nsd, mynNo, commu, MU(:,:,k), Rmi)
133 2 + DOTS ( mynNo, commu, MP(:,k), Rci)
162 ls%Resc = NINT(1D2*(NORMS(mynNo, commu, Rc)/
283 face(faIn)%nS = NORMV(nsd, mynNo, commu, v)**2D0