MPI_wrapper Module


Uses


Contents

Variables

Derived Types

Subroutines


Variables

Type Visibility Attributes Name Initial
type(timer), public, save :: Sync_Time
integer(kind=MPIArg), public, parameter :: MpiDetInt = MPI_INTEGER8
integer, public, parameter :: root = 0
integer, public :: iProcIndex
integer, public :: nNodes
integer, public :: iIndexInNode
integer, public :: iNodeIndex
type(CommI), public :: Node
logical, public :: bNodeRoot
integer, public, allocatable :: CommNodes(:)
integer(kind=MPIArg), public, allocatable :: GroupNodes(:)
integer(kind=MPIArg), public, allocatable :: GroupNodesDum(:)
integer(kind=MPIArg), public, allocatable :: CommNodesDum(:)
type(CommI), public, allocatable :: Nodes(:)
integer, public, allocatable :: ProcNode(:)
integer, public, allocatable :: NodeRoots(:)
integer, public, allocatable :: NodeLengths(:)
integer(kind=MPIArg), public :: CommGlobal
integer(kind=MPIArg), public :: GroupRoots
integer(kind=MPIArg), public :: CommRoot
integer(kind=MPIArg), public :: mpi_comm_inter
integer(kind=MPIArg), public :: mpi_comm_intra
integer(kind=MPIArg), public :: iProcIndex_inter
integer(kind=MPIArg), public :: iProcIndex_intra
integer(kind=MPIArg), public :: mpiInfoNull
type(CommI), public :: Roots

Derived Types

type, public ::  CommI

Components

Type Visibility Attributes Name Initial
integer, public :: n

Subroutines

public subroutine GetComm(Comm, Node, rt, tMe)

Arguments

Type IntentOptional Attributes Name
integer(kind=MPIArg), intent(out) :: Comm
type(CommI), intent(in), optional :: Node
integer(kind=MPIArg), intent(out), optional :: rt
logical, intent(in), optional :: tMe

public subroutine MPIErr(iunit, err)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iunit
integer, intent(in) :: err

public subroutine MPIBarrier(err, Node, tTimeIn)

Arguments

Type IntentOptional Attributes Name
integer, intent(out) :: err
type(CommI), intent(in), optional :: Node
logical, intent(in), optional :: tTimeIn

public subroutine MPIGroupIncl(grp, n, rnks, ogrp, ierr)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: grp
integer, intent(in) :: n
integer, intent(in) :: rnks(:)
integer(kind=MPIArg), intent(out) :: ogrp
integer, intent(out) :: ierr

public subroutine MPICommcreate(comm, group, ncomm, ierr)

Arguments

Type IntentOptional Attributes Name
integer(kind=MPIArg), intent(in) :: comm
integer(kind=MPIArg), intent(in) :: group
integer(kind=MPIArg), intent(out) :: ncomm
integer, intent(out) :: ierr

public subroutine MPICommGroup(comm, grp, ierr)

Arguments

Type IntentOptional Attributes Name
integer(kind=MPIArg), intent(in) :: comm
integer(kind=MPIArg), intent(out) :: grp
integer, intent(out) :: ierr

public subroutine MPIGather_hack(v, ret, nchar, nprocs, ierr, Node)

Arguments

Type IntentOptional Attributes Name
character(len=nchar), target :: v
character(len=nchar), target :: ret(nprocs)
integer, intent(in) :: nchar
integer, intent(in) :: nprocs
integer, intent(out) :: ierr
type(CommI), intent(in), optional :: Node

public subroutine MPIAllreduceRt(rt, nrt, comm, ierr)

Arguments

Type IntentOptional Attributes Name
integer(kind=MPIArg), intent(in) :: rt
integer(kind=MPIArg), intent(out) :: nrt
integer(kind=MPIArg), intent(in) :: comm
integer(kind=MPIArg), intent(out) :: ierr