m_openmpi Module


Variables

Type Visibility Attributes Name Initial
logical, public :: iammaster
integer(kind=MPI_INTEGER_KIND), public :: myid_world
integer(kind=MPI_INTEGER_KIND), public :: numprocs_world
integer(kind=MPI_INTEGER_KIND), public :: numprocs_hydro
integer(kind=MPI_INTEGER_KIND), public :: numprocs_stats
integer(kind=MPI_INTEGER_KIND), public :: numprocs_parts
integer(kind=MPI_INTEGER_KIND), public :: myid
integer(kind=MPI_INTEGER_KIND), public :: numprocs
integer(kind=MPI_INTEGER_KIND), public :: master
integer(kind=MPI_INTEGER_KIND), public :: mpi_err
integer(kind=MPI_INTEGER_KIND), public :: mpi_info
integer(kind=MPI_INTEGER_KIND), public :: mpi_provide
integer(kind=MPI_INTEGER_KIND), public :: id_to
integer(kind=MPI_INTEGER_KIND), public :: id_from
integer(kind=MPI_INTEGER_KIND), public :: tag
integer(kind=MPI_INTEGER_KIND), public :: count
integer(kind=MPI_INTEGER_KIND), public :: id_root_hydro
integer(kind=MPI_INTEGER_KIND), public :: id_root_stats
integer(kind=MPI_INTEGER_KIND), public :: id_root_parts
integer(kind=MPI_INTEGER_KIND), public :: MPI_COMM_TASK
integer(kind=MPI_INTEGER_KIND), public :: MPI_COMM_ROOTS
integer(kind=MPI_INTEGER_KIND), public :: sendtag
integer(kind=MPI_INTEGER_KIND), public :: recvtag
integer(kind=MPI_INTEGER_KIND), public :: request
integer(kind=MPI_INTEGER_KIND), public :: request1
integer(kind=MPI_INTEGER_KIND), public :: request2
integer(kind=MPI_INTEGER_KIND), public :: request3
integer(kind=MPI_INTEGER_KIND), public :: mpi_request
integer(kind=MPI_INTEGER_KIND), public :: id_l
integer(kind=MPI_INTEGER_KIND), public :: id_r
integer(kind=mpi_INTEGER_KIND), public :: mpi_status(MPI_STATUS_SIZE)
integer(kind=MPI_INTEGER_KIND), public :: color
integer(kind=MPI_INTEGER_KIND), public :: key
character(len=5), public :: task
character(len=5), public :: split = "nevah"
character(len=10), public :: run_name_local
logical, public :: task_split = .false.

Subroutines

public subroutine m_openmpi_init()

$ ! The following is put on hold because it looks like a crazy idea

Read more…

Arguments

None

public subroutine m_openmpi_exit()

Arguments

None

public subroutine openmpi_get_command_line()

Arguments

None