mpl_mygatherv_mod.F90

Go to the documentation of this file.

MODULE mpl_mygatherv_mod

USE parkind1  ,ONLY : jprd, jpim

USE mpl_mpif
USE mpl_data_module
USE mpl_message_mod

IMPLICIT NONE
PRIVATE
PUBLIC mpl_mygatherv

LOGICAL :: llabort=.true.

CONTAINS

! ------------------------------------------------------------------
SUBROUTINE mpl_mygatherv(PSEND,KSEND,PRECV,KRECV,KDISPL,KROOT,KCOMM)


#ifdef USE_8_BYTE_WORDS
  USE mpi4to8, ONLY : &
    mpi_gatherv => mpi_gatherv8
#endif


REAL(KIND=JPRD), INTENT(IN)  :: PSEND(:)
REAL(KIND=JPRD), INTENT(OUT) :: PRECV(:)
INTEGER(KIND=JPIM), INTENT(IN) :: KSEND, KRECV(:), KDISPL(:)
INTEGER(KIND=JPIM), INTENT(IN) :: KROOT, KCOMM
INTEGER(KIND=JPIM) :: IERR

CALL mpi_gatherv(psend,ksend,int(mpi_real8), &
               & precv,krecv,kdispl,int(mpi_real8),kroot-1,kcomm,ierr)

IF (ierr/=0) CALL mpl_message(ierr,'MPL_MYGATHERV',ldabort=llabort)

END SUBROUTINE mpl_mygatherv
! ------------------------------------------------------------------

END MODULE mpl_mygatherv_mod