tem_comm_env_init_empty Subroutine

public subroutine tem_comm_env_init_empty(proc)

Initialize a debug environment for just one process without envoking MPI

Arguments

Type IntentOptional Attributes Name
type(tem_comm_env_type) :: proc

The process communicator type

Contents

Source Code

tem_comm_env_init_empty

Source Code

  subroutine tem_comm_env_init_empty( proc )
    ! ---------------------------------------------------------------------------
    !> The process communicator type
    type( tem_comm_env_type ) :: proc
    ! ---------------------------------------------------------------------------

    ! Init MPI rank, size and root
    proc%comm = 0
    proc%rank = 0
    proc%comm_size = 0
    proc%root = 0
    proc%isRoot = .false.

  end subroutine tem_comm_env_init_empty