| /phasta/svLS/ |
| H A D | INCOMMU.f | 72 2 cS(i)%tag, comm, cS(i)%req, ierr) 75 2 cS(i)%tag, comm, cS(i)%req, ierr) 83 CALL MPI_WAIT(cS(i)%req, stat, ierr) 108 CALL MPI_WAIT(cS(i)%req, stat, ierr) 110 2 cS(i)%tag, comm, cS(i)%req, ierr) 113 2 cS(i)%tag, comm, cS(i)%req, ierr) 120 CALL MPI_WAIT(cS(i)%req, stat, ierr) 160 2 cS(i)%tag, comm, cS(i)%req, ierr) 163 2 cS(i)%tag, comm, cS(i)%req, ierr) 171 CALL MPI_WAIT(cS(i)%req, stat, ierr) [all …]
|
| H A D | svLS_STRUCT.h | 105 ! Commu req 106 INTEGER req
|
| /phasta/phSolver/common/ |
| H A D | commuInt.f | 34 integer stat(MPI_STATUS_SIZE, 2*maxtask), req(2*maxtask) local 115 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 122 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 146 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 150 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 158 call MPI_WAITALL(m, req, stat, ierr)
|
| H A D | commu.f | 34 integer stat(MPI_STATUS_SIZE, 2*maxtask), req(2*maxtask) local 160 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 179 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 213 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 229 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 249 call MPI_WAITALL(m, req, stat, ierr)
|
| /phasta/M2N/src/ |
| H A D | commu.f | 34 integer stat(MPI_STATUS_SIZE, 2*maxtask), req(2*maxtask) local 150 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 161 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 187 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 195 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 207 call MPI_WAITALL(m, req, stat, ierr)
|
| /phasta/M2NFixBnd/src/ |
| H A D | commuMax.f | 34 integer stat(MPI_STATUS_SIZE, 2*maxtask), req(2*maxtask) local 154 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 165 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 191 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 199 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 211 call MPI_WAITALL(m, req, stat, ierr)
|
| /phasta/AcuStat/src/ |
| H A D | commuMax.f | 34 integer stat(MPI_STATUS_SIZE, 2*maxtask), req(2*maxtask) local 153 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 164 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 190 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 198 & iother, itag, MPI_COMM_WORLD, req(m), ierr) 210 call MPI_WAITALL(m, req, stat, ierr)
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 34 integer :: stat(MPI_STATUS_SIZE,redun*numpe),req(redun*numpe) local 142 & iother,itag,MPI_COMM_WORLD,req(m),ierr) 144 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr) 148 & iother,itag,MPI_COMM_WORLD,req(m),ierr) 150 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr) 161 call MPI_WAITALL(m,req,stat,ierr) 206 & iother,itag,MPI_COMM_WORLD,req(m),ierr) 208 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr) 212 & iother,itag,MPI_COMM_WORLD,req(m),ierr) 214 & iother,itag,MPI_COMM_WORLD,req(m+1),ierr) [all …]
|