mpl_comm_split_mod.F90

Go to the documentation of this file.

MODULE mpl_comm_split_mod

!**** *MPL_COMM_SPLIT* - Split a communicator

!     Author. 
!     ------- 
!      Philippe Marguinaud *METEO FRANCE*
!      Original : 11-09-2012


USE parkind1, ONLY : jpim 

IMPLICIT NONE

PRIVATE
PUBLIC mpl_comm_split

CONTAINS 

SUBROUTINE mpl_comm_split (KCOMM, KCOLOR, KKEY, KNEWCOMM, KERROR, CDSTRING)
INTEGER (KIND=JPIM), INTENT (IN)  :: KCOMM
INTEGER (KIND=JPIM), INTENT (IN)  :: KCOLOR
INTEGER (KIND=JPIM), INTENT (IN)  :: KKEY
INTEGER (KIND=JPIM), INTENT (OUT) :: KNEWCOMM
INTEGER (KIND=JPIM), INTENT (OUT) :: KERROR
CHARACTER (LEN=*), OPTIONAL, INTENT (IN) :: CDSTRING


CALL mpi_comm_split (kcomm, kcolor, kkey, knewcomm, kerror)

END SUBROUTINE mpl_comm_split

END MODULE mpl_comm_split_mod