mpl_allgather_mod.F90

Go to the documentation of this file.

MODULE mpl_allgather_mod

!**** MPL_ALLGATHER Send data to all processes

!     Purpose.
!     --------
!     Send a message to all processes from a buffer.
!     The data may be REAL*4, REAL*8,or INTEGER, one dimensional array
!                     REAL*4,or REAL*8, two dimensional array
!                  or INTEGER scalar

!**   Interface.
!     ----------
!        CALL MPL_ALLGATHER

!        Input required arguments :
!        -------------------------
!           PSENDBUF -  buffer containing message
!                       (can be type REAL*4, REAL*8 or INTEGER)
!           PRECVBUF -  buffer containing message
!                       (can be type REAL*4, REAL*8 or INTEGER)
!           KRECVCOUNTS-number of elements received from each process

!        Input optional arguments :
!        -------------------------
!           KCOMM    -  Communicator number if different from MPI_COMM_WORLD 
!                       or from that established as the default 
!                       by an MPL communicator routine
!           KMP_TYPE -  buffering type (see MPL_BUFFER_METHOD)
!                       overrides value provided to MPL_BUFFER_METHOD
!           KRECVDISPL -displacements in PRECVBUF at which to place 
!                       the incoming data
!           CDSTRING -  Character string for ABORT messages
!                       used when KERROR is not provided

!        Output required arguments :
!        -------------------------
!           none

!        Output optional arguments :
!        -------------------------
!           KREQUEST -  Communication request
!                       required when buffering type is non-blocking
!           KERROR   -  return error code.     If not supplied, 
!                       MPL_ALLGATHER aborts when an error is detected.
!     Author.
!     -------
!        D.Dent, M.Hamrud     ECMWF

!     Modifications.
!     --------------
!        Original: 2000-11-23
!        M.Hamrud     : 2014-10-22 : Add nonblocking option
!      F. Vana  05-Mar-2015  Support for single precision

!     ------------------------------------------------------------------

USE parkind1  ,ONLY : jpim

USE mpl_mpif
USE mpl_data_module
USE mpl_message_mod
USE mpl_send_mod
USE mpl_recv_mod
USE mpl_barrier_mod

IMPLICIT NONE

PRIVATE

INTEGER(KIND=JPIM) :: ir,isendcount,irecvcount,icomm,ierror
LOGICAL :: llabort=.true.
INTEGER(KIND=JPIM) :: itag
LOGICAL :: llbarrier
INTEGER(KIND=JPIM) :: imaxmsg,jk,imypair,ichunks,ists,istr,jmess,ilens,iens,iount,imp_type
INTEGER(KIND=JPIM) :: ilimit,ibarrfreq,idum

PUBLIC mpl_allgather

CONTAINS

SUBROUTINE mpl_allgather()
RETURN
END SUBROUTINE mpl_allgather
END MODULE mpl_allgather_mod