redistribute Module


Variables

Type Visibility Attributes Name Initial
integer, public :: gather_count = 0
integer, public :: scatter_count = 0
real, public, save :: time_redist(2) = 0.

Interfaces

public interface gather

  • private subroutine c_redist_22(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine r_redist_22(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
    real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine i_redist_22(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    integer, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
    integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine l_redist_22(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    logical, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
    logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine c_redist_32(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine r_redist_32(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine i_redist_32(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    integer, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine l_redist_32(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    logical, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine c_redist_42(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine r_redist_42(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
    real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine i_redist_42(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    integer, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
    integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine l_redist_42(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    logical, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
    logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine c_redist_23(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):) :: to_here

  • private subroutine c_redist_34(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: to_here

  • private subroutine r_redist_34(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    real, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: to_here

  • private subroutine c_redist_33(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):) :: to_here

  • private subroutine c_redist_35(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: to_here

  • private subroutine r_redist_35(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
    real, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: to_here

public interface scatter

  • private subroutine c_redist_12(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%from_low(1):) :: from_here
    complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine r_redist_12(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%from_low(1):) :: from_here
    real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine i_redist_12(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    integer, intent(in), dimension(r%from_low(1):) :: from_here
    integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine l_redist_12(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    logical, intent(in), dimension(r%from_low(1):) :: from_here
    logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

  • private subroutine c_redist_22_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

  • private subroutine r_redist_22_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    real, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

  • private subroutine i_redist_22_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    integer, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    integer, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

  • private subroutine l_redist_22_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    logical, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    logical, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

  • private subroutine c_redist_32_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine r_redist_32_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine i_redist_32_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    integer, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    integer, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine l_redist_32_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    logical, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    logical, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine c_redist_42_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

  • private subroutine r_redist_42_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

  • private subroutine i_redist_42_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    integer, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    integer, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

  • private subroutine l_redist_42_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    logical, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
    logical, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

  • private subroutine c_redist_33_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):) :: from_here
    complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine c_redist_34_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: from_here
    complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine r_redist_34_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: from_here
    real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine c_redist_35_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    complex, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: from_here
    complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

  • private subroutine r_redist_35_inv(r, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: r
    real, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: from_here
    real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

public interface measure_gather

  • private subroutine measure_gather_32(map, gin, gout)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: map
    complex, intent(in), dimension(:, :, :) :: gin
    complex, intent(out), dimension(:, :) :: gout

  • private subroutine measure_gather_33(map, gin, gout)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: map
    complex, intent(in), dimension(:, :, :) :: gin
    complex, intent(out), dimension(:, :, :) :: gout

  • private subroutine measure_gather_22(map, gin, gout)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: map
    complex, intent(in), dimension(:, :) :: gin
    complex, intent(out), dimension(:, :) :: gout

public interface measure_scatter

  • private subroutine measure_scatter_23(map, gin, gout)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: map
    complex, intent(in), dimension(:, :) :: gin
    complex, intent(out), dimension(:, :, :) :: gout

  • private subroutine measure_scatter_33(map, gin, gout)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: map
    complex, intent(in), dimension(:, :, :) :: gin
    complex, intent(out), dimension(:, :, :) :: gout

  • private subroutine measure_scatter_22(map, gin, gout)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: map
    complex, intent(in), dimension(:, :) :: gin
    complex, intent(out), dimension(:, :) :: gout

public interface fill

  • private subroutine c_fill_2(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    complex, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
    complex, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

  • private subroutine c_fill_3(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    complex, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
    complex, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

  • private subroutine c_fill_4(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    complex, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
    complex, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

  • private subroutine r_fill_2(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    real, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
    real, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

  • private subroutine r_fill_3(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    real, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
    real, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

  • private subroutine r_fill_4(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    real, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
    real, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

  • private subroutine i_fill_2(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    integer, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
    integer, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

  • private subroutine i_fill_3(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    integer, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
    integer, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

  • private subroutine i_fill_4(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    integer, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
    integer, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

  • private subroutine l_fill_2(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    logical, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
    logical, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

  • private subroutine l_fill_3(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    logical, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
    logical, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

  • private subroutine l_fill_4(f, from_here, to_here)

    Arguments

    Type IntentOptional Attributes Name
    type(redist_type), intent(inout) :: f
    logical, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
    logical, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

Derived Types

type, private ::  index_map

Components

Type Visibility Attributes Name Initial
integer, public :: nn
integer, public, dimension(:), pointer :: k => null()
integer, public, dimension(:), pointer :: l => null()
integer, public, dimension(:), pointer :: m => null()
integer, public, dimension(:), pointer :: n => null()
integer, public, dimension(:), pointer :: o => null()

type, public ::  redist_type

Components

Type Visibility Attributes Name Initial
integer, private, dimension(5) :: to_low
integer, private, dimension(5) :: from_low
integer, private, dimension(5) :: to_high
integer, private, dimension(5) :: from_high
type(index_map), private, dimension(:), pointer :: to => null()
type(index_map), private, dimension(:), pointer :: from => null()
complex, private, dimension(:), pointer :: complex_buff => null()
real, private, dimension(:), pointer :: real_buff => null()
integer, private, dimension(:), pointer :: integer_buff => null()
logical, private, dimension(:), pointer :: logical_buff => null()
character(len=3), private :: redistname = ""

type, public ::  index_list_type

Components

Type Visibility Attributes Name Initial
integer, public, dimension(:), pointer :: first => null()
integer, public, dimension(:), pointer :: second => null()
integer, public, dimension(:), pointer :: third => null()
integer, public, dimension(:), pointer :: fourth => null()
integer, public, dimension(:), pointer :: fifth => null()

Subroutines

public subroutine set_redist_character_type(r, chartype)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
character(len=3), intent(in) :: chartype

public subroutine init_redist(r, char, to_low, to_high, to_list, from_low, from_high, from_list, ierr)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
character(len=1), intent(in) :: char
integer, intent(in), dimension(:) :: to_low
integer, intent(in), dimension(:) :: to_high
type(index_list_type), intent(in), dimension(0:nproc - 1) :: to_list
integer, intent(in), dimension(:) :: from_low
integer, intent(in), dimension(:) :: from_high
type(index_list_type), intent(in), dimension(0:nproc - 1) :: from_list
integer, intent(out), optional :: ierr

public subroutine init_fill(f, char, to_low, to_list, from_low, from_list, ierr)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(out) :: f
character(len=1), intent(in) :: char
integer, intent(in), dimension(:) :: to_low
type(index_list_type), intent(in), dimension(0:nproc - 1) :: to_list
integer, intent(in), dimension(:) :: from_low
type(index_list_type), intent(in), dimension(0:nproc - 1) :: from_list
integer, intent(out), optional :: ierr

public subroutine delete_redist(r)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r

public subroutine delete_list(list)

Arguments

Type IntentOptional Attributes Name
type(index_list_type), intent(inout), dimension(0:nproc - 1) :: list

private subroutine c_redist_12(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_22(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_22_old_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_22_mpi_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_22_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

private subroutine c_redist_22_inv_old_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

private subroutine c_redist_22_inv_mpi_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

private subroutine c_redist_32(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_32_old_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_32_mpi_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_32_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine c_redist_32_inv_old_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine c_redist_32_inv_mpi_copy(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine c_redist_42(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine c_redist_42_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

private subroutine c_redist_23(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):) :: to_here

private subroutine c_redist_34(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: to_here

private subroutine c_redist_34_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine r_redist_34(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
real, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: to_here

private subroutine r_redist_34_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):) :: from_here
real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine c_redist_35(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: to_here

private subroutine r_redist_35(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
real, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: to_here

private subroutine c_redist_35_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine r_redist_35_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):, r%to_low(4):, r%to_low(5):) :: from_here
real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine r_redist_12(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%from_low(1):) :: from_here
real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine r_redist_22(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine r_redist_22_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
real, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

private subroutine r_redist_32(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine r_redist_32_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine r_redist_42(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
real, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine r_redist_42_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
real, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
real, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

private subroutine i_redist_12(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in), dimension(r%from_low(1):) :: from_here
integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine i_redist_22(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine i_redist_22_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
integer, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

private subroutine i_redist_32(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine i_redist_32_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
integer, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine i_redist_42(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
integer, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine i_redist_42_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
integer, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
integer, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

private subroutine l_redist_12(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
logical, intent(in), dimension(r%from_low(1):) :: from_here
logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine l_redist_22(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
logical, intent(in), dimension(r%from_low(1):, r%from_low(2):) :: from_here
logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine l_redist_22_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
logical, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
logical, intent(inout), dimension(r%from_low(1):, r%from_low(2):) :: to_here

private subroutine l_redist_32(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
logical, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine l_redist_32_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
logical, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
logical, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine l_redist_42(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
logical, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: from_here
logical, intent(inout), dimension(r%to_low(1):, r%to_low(2):) :: to_here

private subroutine l_redist_42_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
logical, intent(in), dimension(r%to_low(1):, r%to_low(2):) :: from_here
logical, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):, r%from_low(4):) :: to_here

private subroutine c_redist_33(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: from_here
complex, intent(inout), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):) :: to_here

private subroutine c_redist_33_inv(r, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: r
complex, intent(in), dimension(r%to_low(1):, r%to_low(2):, r%to_low(3):) :: from_here
complex, intent(inout), dimension(r%from_low(1):, r%from_low(2):, r%from_low(3):) :: to_here

private subroutine c_fill_2(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
complex, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
complex, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

private subroutine c_fill_3(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
complex, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
complex, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

private subroutine c_fill_4(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
complex, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
complex, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

private subroutine r_fill_2(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
real, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
real, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

private subroutine r_fill_3(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
real, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
real, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

private subroutine r_fill_4(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
real, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
real, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

private subroutine i_fill_2(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
integer, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
integer, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

private subroutine i_fill_3(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
integer, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
integer, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

private subroutine i_fill_4(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
integer, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
integer, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

private subroutine l_fill_2(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
logical, intent(in), dimension(f%from_low(1):, f%from_low(2):) :: from_here
logical, intent(inout), dimension(f%to_low(1):, f%to_low(2):) :: to_here

private subroutine l_fill_3(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
logical, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):) :: from_here
logical, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):) :: to_here

private subroutine l_fill_4(f, from_here, to_here)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: f
logical, intent(in), dimension(f%from_low(1):, f%from_low(2):, f%from_low(3):, f%from_low(4):) :: from_here
logical, intent(inout), dimension(f%to_low(1):, f%to_low(2):, f%to_low(3):, f%to_low(4):) :: to_here

public subroutine report_map_property(r)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(in) :: r

private subroutine measure_gather_32(map, gin, gout)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: map
complex, intent(in), dimension(:, :, :) :: gin
complex, intent(out), dimension(:, :) :: gout

private subroutine measure_scatter_23(map, gin, gout)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: map
complex, intent(in), dimension(:, :) :: gin
complex, intent(out), dimension(:, :, :) :: gout

private subroutine measure_gather_33(map, gin, gout)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: map
complex, intent(in), dimension(:, :, :) :: gin
complex, intent(out), dimension(:, :, :) :: gout

private subroutine measure_scatter_33(map, gin, gout)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: map
complex, intent(in), dimension(:, :, :) :: gin
complex, intent(out), dimension(:, :, :) :: gout

private subroutine measure_gather_22(map, gin, gout)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: map
complex, intent(in), dimension(:, :) :: gin
complex, intent(out), dimension(:, :) :: gout

private subroutine measure_scatter_22(map, gin, gout)

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: map
complex, intent(in), dimension(:, :) :: gin
complex, intent(out), dimension(:, :) :: gout