| 99 |
|
module procedure mpi_allreduce_int_2d |
| 100 |
|
module procedure mpi_allreduce_dp |
| 101 |
|
module procedure mpi_allreduce_dp_1d |
| 102 |
< |
module procedure mpi_allreduce_dp_2d |
| 102 |
> |
module procedure mpi_allreduce_dp_2d |
| 103 |
> |
module procedure mpi_allreduce_logical |
| 104 |
> |
module procedure mpi_allreduce_logical_1d |
| 105 |
|
end interface |
| 106 |
|
|
| 107 |
|
! interface mpi_reduce |
| 509 |
|
CALL MPI_ALLREDUCE(SENDBUF, RECVBUF, COUNT, DATATYPE, OP, & |
| 510 |
|
COMM, IERROR) |
| 511 |
|
END SUBROUTINE MPI_ALLREDUCE_DP_2D |
| 512 |
+ |
|
| 513 |
+ |
|
| 514 |
+ |
SUBROUTINE MPI_ALLREDUCE_LOGICAL(SENDBUF, RECVBUF, COUNT, DATATYPE, & |
| 515 |
+ |
OP, COMM, IERROR) |
| 516 |
+ |
LOGICAL :: SENDBUF, RECVBUF |
| 517 |
+ |
INTEGER COUNT, DATATYPE, OP, COMM, IERROR |
| 518 |
+ |
EXTERNAL MPI_ALLREDUCE |
| 519 |
+ |
CALL MPI_ALLREDUCE(SENDBUF, RECVBUF, COUNT, DATATYPE, OP, & |
| 520 |
+ |
COMM, IERROR) |
| 521 |
+ |
END SUBROUTINE MPI_ALLREDUCE_LOGICAL |
| 522 |
+ |
|
| 523 |
+ |
|
| 524 |
+ |
SUBROUTINE MPI_ALLREDUCE_LOGICAL_1D(SENDBUF, RECVBUF, COUNT, DATATYPE, & |
| 525 |
+ |
OP, COMM, IERROR) |
| 526 |
+ |
LOGICAL, dimension(:) :: SENDBUF, RECVBUF |
| 527 |
+ |
INTEGER COUNT, DATATYPE, OP, COMM, IERROR |
| 528 |
+ |
EXTERNAL MPI_ALLREDUCE |
| 529 |
+ |
CALL MPI_ALLREDUCE(SENDBUF, RECVBUF, COUNT, DATATYPE, OP, & |
| 530 |
+ |
COMM, IERROR) |
| 531 |
+ |
end SUBROUTINE MPI_ALLREDUCE_LOGICAL_1D |
| 532 |
+ |
|
| 533 |
|
!-----------------END MPI_ALLREDUCE--------------------------> |
| 534 |
|
|
| 535 |
|
!----------------BEGIN MPI_REDUCE_SCATTER |
