| /phasta/svLS/ |
| H A D | SOLVE.f | 50 INTEGER, INTENT(IN), OPTIONAL :: incL(lhs%nFaces)
51 REAL*8, INTENT(IN), OPTIONAL :: res(lhs%nFaces)
54 INTEGER faIn, a, nNo, nnz, nFaces local
59 nFaces = lhs%nFaces
61 IF (lhs%nFaces .NE. 0) THEN
64 DO faIn=1, lhs%nFaces
73 DO faIn=1, lhs%nFaces
90 CALL PRECOND(nFaces, dof, nNo, nnz, lhs%commu, lhs%cS,
95 CALL NSSOLVER(nFaces, lhs%gnNo, dof, nNo, nnz, lhs%mynNo,
99 CALL GMRESV(nFaces, dof, nNo, nnz, lhs%mynNo, lhs%commu,
|
| 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
48 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces)
56 ALLOCATE(coef(nFaces))
67 DO faIn=1, nFaces
|
| 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
49 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces)
76 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
83 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
106 CALL ADDBCMUL(BCOP_TYPE_ADD, nFaces, dof, nNo, mynNo, commu,
111 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo,
163 SUBROUTINE GMRESV(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
168 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz, mynNo local
171 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces)
[all …]
|
| H A D | LHS.f | 42 2 rowPtr, colPtr, nFaces) argument
50 INTEGER, INTENT(IN) :: nFaces local
69 lhs%nFaces = nFaces
76 2 lhs%map(nNo), lhs%cS(nTasks), lhs%face(nFaces))
283 DO faIn = 1, lhs%nFaces
297 lhs%nFaces = 0
308 2 rowPtr, colPtr, nFaces) argument
316 INTEGER, INTENT(IN) :: nFaces local
321 2 rowPtr, colPtr, nFaces)
|
| 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
50 TYPE(svLS_faceType), INTENT(INOUT) :: face(nFaces)
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,
272 DO faIn=1, nFaces
317 DO j=1, nFaces
|
| H A D | dummy_prototypes.f | 53 2 gNodes, rowPtr, colPtr, nFaces) argument
60 INTEGER, INTENT(IN) :: nFaces local
106 REAL*8, INTENT(IN), OPTIONAL :: res(lhs%nFaces)
|
| H A D | PRECOND.f | 41 SUBROUTINE PRECOND(nFaces, dof, nNo, nnz, commu, cS, face, argument
46 INTEGER, INTENT(IN) :: nFaces, dof, nNo, nnz local
49 TYPE(svLS_faceType), INTENT(INOUT) :: face(nFaces)
104 DO faIn=1, nFaces
212 DO faIn=1, nFaces
|
| H A D | svLS_API.h | 52 2 gNodes, rowPtr, colPtr, nFaces)
59 INTEGER, INTENT(IN) :: nFaces
102 INTEGER, INTENT(IN), OPTIONAL :: incL(lhs%nFaces)
103 REAL*8, INTENT(IN), OPTIONAL :: res(lhs%nFaces)
|
| 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
49 TYPE(svLS_faceType), INTENT(IN) :: face(nFaces)
86 CALL ADDBCMUL(BCOP_TYPE_PRE, nFaces, dof, nNo, mynNo, commu,
|
| H A D | BC.f | 55 IF (faIn .GT. lhs%nFaces) THEN
57 2 "face:", lhs%nFaces, ">", faIn
|
| H A D | svLS_API_c.h | 47 …mmuType *commu, int *gnNo, int *nNo, int *nnz, int *gNodes, int *rowPtr, int *colPtr, int *nFaces);
|
| H A D | svLS_STRUCT.h | 128 INTEGER :: nFaces = 0
|