dbcsr_tas_util Module

often used utilities for tall-and-skinny matrices


Uses


Variables

Type Visibility Attributes Name Initial
character(len=*), private, parameter :: moduleN = 'dbcsr_tas_util'

Interfaces

public interface swap

  • private subroutine swap_i8(arr)

    Arguments

    Type IntentOptional Attributes Name
    integer(kind=int_8), intent(inout), DIMENSION(2) :: arr

  • private subroutine swap_i(arr)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(inout), DIMENSION(2) :: arr

public interface array_eq

  • private pure function array_eq_i8(arr1, arr2)

    Arguments

    Type IntentOptional Attributes Name
    integer(kind=int_8), intent(in), DIMENSION(:) :: arr1
    integer(kind=int_8), intent(in), DIMENSION(:) :: arr2

    Return Value logical

  • private pure function array_eq_i(arr1, arr2)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in), DIMENSION(:) :: arr1
    integer, intent(in), DIMENSION(:) :: arr2

    Return Value logical


Functions

public function dbcsr_mp_environ(mp_comm)

Create a dbcsr mp environment from communicator

Arguments

Type IntentOptional Attributes Name
type(mp_comm_type), intent(in) :: mp_comm

Return Value type(dbcsr_mp_obj)

private pure function array_eq_i(arr1, arr2)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), DIMENSION(:) :: arr1
integer, intent(in), DIMENSION(:) :: arr2

Return Value logical

private pure function array_eq_i8(arr1, arr2)

Arguments

Type IntentOptional Attributes Name
integer(kind=int_8), intent(in), DIMENSION(:) :: arr1
integer(kind=int_8), intent(in), DIMENSION(:) :: arr2

Return Value logical


Subroutines

private subroutine swap_i8(arr)

Arguments

Type IntentOptional Attributes Name
integer(kind=int_8), intent(inout), DIMENSION(2) :: arr

private subroutine swap_i(arr)

Arguments

Type IntentOptional Attributes Name
integer, intent(inout), DIMENSION(2) :: arr

public subroutine index_unique(index_in, index_out)

Get all unique elements in index_in

Arguments

Type IntentOptional Attributes Name
integer, intent(in), DIMENSION(:, :) :: index_in
integer, intent(out), ALLOCATABLE, DIMENSION(:, :) :: index_out

public subroutine invert_transpose_flag(trans_flag)

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(inout) :: trans_flag