Searched refs:eachproc (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | mpitools.f | 6 subroutine drvAllreduce ( eachproc, result, m ) argument
11 dimension eachproc(m), result(m)
21 call MPI_ALLREDUCE ( eachproc, result, m,
29 result = eachproc
39 subroutine drvAllreducesclr ( eachproc, result ) argument
52 call MPI_ALLREDUCE ( eachproc, result, 1,
60 result = eachproc
70 subroutine drvAllreduceMaxInt ( eachproc, result ) argument
75 integer :: eachproc, result local
85 call MPI_ALLREDUCE ( eachproc, result, 1,
[all …]
|
| /phasta/phSolver/compressible/ |
| H A D | rstat.f | 25 real*8 resnrm(2), totres(2), eachproc(2) local
101 eachproc(1)=sum(rtmp(:,1))
102 eachproc(2)=sum(rtmp(:,2))
103 call drvAllReduce (eachproc,resnrm,2)
|