dbcsr_mp_methods Module



Contents


Variables

TypeVisibilityAttributesNameInitial
character(len=*), private, parameter:: moduleN ='dbcsr_mp_methods'

Interfaces

public interface dbcsr_mp_new

  • private subroutine dbcsr_mp_new_grid(mp_env, mp_group, pgrid, mynode, numnodes, myprow, mypcol, source)

    Creates new process grid

    Arguments

    TypeIntentOptionalAttributesName
    type(dbcsr_mp_obj), intent(out) :: mp_env

    multiprocessor environment

    integer, intent(in) :: mp_group

    my processor number

    integer, intent(in), DIMENSION(0:, 0:):: pgrid

    process grid

    integer, intent(in) :: mynode

    my processor number

    integer, intent(in), optional :: numnodes

    total number of processors (processes)

    integer, intent(in), optional :: myprow

    total number of processors (processes)

    integer, intent(in), optional :: mypcol

    total number of processors (processes)

    integer, intent(in), optional :: source

    total number of processors (processes)

  • private subroutine dbcsr_mp_new_group(mp_env, mp_group, pgrid)

    Creates a new dbcsr_mp_obj based on a input template

    Arguments

    TypeIntentOptionalAttributesName
    type(dbcsr_mp_obj), intent(out) :: mp_env
    integer, intent(in) :: mp_group
    integer, optional DIMENSION(:, :), POINTER:: pgrid

    Optional, if not provided group is assumed to be a 2D cartesian communicator


Functions

public function dbcsr_mp_active(mp_env) result(active)

Checks whether this process is part of the message passing environment

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value logical

public pure function dbcsr_mp_get_process(mp_env, prow, pcol) result(process)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env
integer, intent(in) :: prow
integer, intent(in) :: pcol

Return Value integer

public function dbcsr_mp_pgrid(mp_env) result(pgrid)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer,DIMENSION(:, :), POINTER, CONTIGUOUS

public pure function dbcsr_mp_numnodes(mp_env) result(numnodes)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_mynode(mp_env) result(mynode)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_group(mp_env) result(mp_group)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_nprows(mp_env) result(nprows)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_npcols(mp_env) result(npcols)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_myprow(mp_env) result(myprow)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_mypcol(mp_env) result(mypcol)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_has_subgroups(mp_env) result(has_subgroups)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value logical

public pure function dbcsr_mp_my_row_group(mp_env) result(row_group)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer

public pure function dbcsr_mp_my_col_group(mp_env) result(col_group)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(in) :: mp_env

Return Value integer


Subroutines

public subroutine dbcsr_mp_init(mp_env)

Initializes a new process grid

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(out) :: mp_env

private subroutine dbcsr_mp_new_grid(mp_env, mp_group, pgrid, mynode, numnodes, myprow, mypcol, source)

Creates new process grid

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(out) :: mp_env

multiprocessor environment

integer, intent(in) :: mp_group

my processor number

integer, intent(in), DIMENSION(0:, 0:):: pgrid

process grid

integer, intent(in) :: mynode

my processor number

integer, intent(in), optional :: numnodes

total number of processors (processes)

integer, intent(in), optional :: myprow

total number of processors (processes)

integer, intent(in), optional :: mypcol

total number of processors (processes)

integer, intent(in), optional :: source

total number of processors (processes)

private subroutine dbcsr_mp_new_group(mp_env, mp_group, pgrid)

Creates a new dbcsr_mp_obj based on a input template

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(out) :: mp_env
integer, intent(in) :: mp_group
integer, optional DIMENSION(:, :), POINTER:: pgrid

Optional, if not provided group is assumed to be a 2D cartesian communicator

public subroutine dbcsr_mp_grid_setup(mp_env)

Sets up MPI cartesian process grid

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(inout) :: mp_env

multiprocessor environment

public subroutine dbcsr_mp_make_env(mp_env, cart_group, mp_group, nprocs, pgrid_dims)

Creates a sane mp_obj from the given MPI comm that is not a cartesian one (hack)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(out) :: mp_env

Message-passing environment object to create

integer, intent(out) :: cart_group

the created cartesian group (to be freed by the user)

integer, intent(in) :: mp_group

MPI group

integer, intent(in), optional :: nprocs

Number of processes

integer, intent(in), optional DIMENSION(:):: pgrid_dims

Dimensions of MPI group

public pure subroutine dbcsr_mp_hold(mp_env)

Marks another use of the mp_env

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(inout) :: mp_env

multiprocessor environment

public subroutine dbcsr_mp_new_transposed(mp_t, mp)

Transposes a multiprocessor environment

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(out) :: mp_t

transposed multiprocessor environment

type(dbcsr_mp_obj), intent(in) :: mp

original multiprocessor environment