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 |