| /phasta/svLS/ |
| H A D | INCOMMU.f | 41 SUBROUTINE COMMUV(dof, nNo, commu, cS, R) argument
47 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
62 i = cS(i)%ptr + cS(i)%n - 1
67 IF (cS(i)%tag .NE. 0) THEN
68 s = cS(i)%ptr
69 e = s + cS(i)%n - 1
71 CALL MPI_IRECV(rTmp(:,s:e), cS(i)%n*dof, mpreal, i-1,
72 2 cS(i)%tag, comm, cS(i)%req, ierr)
74 CALL MPI_ISEND(R(:,s:e), cS(i)%n*dof, mpreal, i-1,
75 2 cS(i)%tag, comm, cS(i)%req, ierr)
[all …]
|
| H A D | LHS.f | 76 2 lhs%map(nNo), lhs%cS(nTasks), lhs%face(nFaces))
145 lhs%cS(1)%ptr = 1
147 lhs%cS(i)%n = 0
148 lhs%cS(i)%ptr = j
150 lhs%cS(i)%ptr = lhs%cS(i-1)%ptr + lhs%cS(i-1)%n
156 lhs%cS(i)%n = lhs%cS(i)%n + 1
167 lhs%cS(i)%tag = nTasks*i + tF
169 lhs%cS(i)%tag = nTasks*tF + i
171 IF (lhs%cS(i)%n .EQ. 0) lhs%cS(i)%tag = 0
174 lhs%cS(tF)%tag = 0
[all …]
|
| H A D | CGRAD.f | 41 SUBROUTINE CGRAD(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
48 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
81 CALL SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
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
124 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
153 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
176 SUBROUTINE CGRADS(nNo, nnz, mynNo, commu, cS, ls, argument
183 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
[all …]
|
| H A D | SOLVE.f | 89 CALL COMMUV(dof, nNo, lhs%commu, lhs%cS, R)
90 CALL PRECOND(nFaces, dof, nNo, nnz, lhs%commu, lhs%cS,
96 2 lhs%commu, lhs%cS, lhs%face, ls, lhs%rowPtr, lhs%colPtr,
100 2 lhs%cS, lhs%face, ls%RI, lhs%rowPtr, lhs%colPtr, Val, R)
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 | SPARMUL.f | 41 SUBROUTINE SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
48 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
110 CALL COMMUV(dof, nNo, commu, cS, KU)
117 SUBROUTINE SPARMULVS(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
124 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
170 CALL COMMUS(nNo, commu, cS, KU)
177 SUBROUTINE SPARMULSV(dof, nNo, nnz, commu, cS, rowPtr, colPtr, argument
184 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
234 CALL COMMUV(dof, nNo, commu, cS, KU)
241 SUBROUTINE SPARMULSS(nNo, nnz, commu, cS, rowPtr, colPtr, argument
[all …]
|
| H A D | NSSOLVER.f | 42 2 cS, face, ls, rowPtr, colPtr, Val, Ri) argument
49 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
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,
118 CALL SPARMULSS(nNo, nnz, commu, cS,
121 CALL SPARMULVS(nsd, nNo, nnz, commu, cS,
|
| H A D | GMRES.f | 41 SUBROUTINE GMRES(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
48 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
73 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
103 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
163 SUBROUTINE GMRESV(nFaces, dof, nNo, nnz, mynNo, commu, cS, face, argument
170 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
203 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
213 CALL SPARMULVV(dof, nNo, nnz, commu, cS, rowPtr, colPtr,
|
| H A D | PRECOND.f | 41 SUBROUTINE PRECOND(nFaces, dof, nNo, nnz, commu, cS, face, argument
48 TYPE(svLS_cSType), INTENT(IN) :: cS(commu%nTasks) local
91 CALL COMMUV(dof, nNo, commu, cS, W)
|
| H A D | BC.f | 103 CALL COMMUV(dof, lhs%nNo, lhs%commu, lhs%cS, v)
|
| H A D | svLS_STRUCT.h | 140 TYPE(svLS_cSType), ALLOCATABLE :: cS(:)
|