| /phasta/svLS/ |
| H A D | CGRAD.f | 41 SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
66 errO = NORMS(mynNo, commu, R)
86 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
97 alpha = errO/DOTS(mynNo, commu, P, SP)
100 err = NORMS(mynNo, commu, R)
117 SUBROUTINE CGRADV(dof, nNo, nnz, mynNo, commu, cS, ls, argument
122 INTEGER, INTENT(IN) :: dof, nNo, nnz, mynNo local
139 err = NORMV(dof, mynNo, commu, R)
156 alpha = errO/DOTV(dof, mynNo, commu, P, KP)
[all …]
|
| H A D | GMRES.f | 41 SUBROUTINE GMRES(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
76 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
83 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
87 err(1) = NORMV(dof, mynNo, commu, u(:,:,1))
106 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
111 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo,
115 h(j,i) = DOTV(dof, mynNo, commu, u(:,:,i+1), u(:,:,j))
118 h(i+1,i) = NORMV(dof, mynNo, commu, u(:,:,i+1))
163 SUBROUTINE GMRESV(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
[all …]
|
| H A D | NSSOLVER.f | 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))
[all …]
|
| H A D | SOLVE.f | 95 CALL NSSOLVER(nFaces, lhs%gnNo, dof, nNo, nnz, lhs%mynNo,
99 CALL GMRESV(nFaces, dof, nNo, nnz, lhs%mynNo, lhs%commu,
103 CALL CGRADS(nNo, nnz, lhs%mynNo, lhs%commu, lhs%cS,
106 CALL CGRADV(dof, nNo, nnz, lhs%mynNo, lhs%commu, lhs%cS,
|
| H A D | ADDBCMUL.f | 41 SUBROUTINE ADDBCMUL(op_Type, nFaces, dof, nNo, mynNo, commu, face, argument
46 INTEGER, INTENT(IN) :: op_type, nFaces, dof, nNo, mynNo local
79 S = coef(faIn)*DOTV(dof, mynNo, commu, v, X)
|
| H A D | LHS.f | 99 lhs%mynNo = nNo
175 lhs%mynNo = lhs%cS(tF)%ptr + lhs%cS(tF)%n - 1
|
| H A D | svLS_STRUCT.h | 130 INTEGER :: mynNo
|