dbcsr_tas_util Module

often used utilities for tall-and-skinny matrices



Contents


Variables

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

Interfaces

public interface swap

  • private subroutine swap_i8(arr)

    Arguments

    TypeIntentOptionalAttributesName
    integer(kind=int_8), intent(inout), DIMENSION(2):: arr
  • private subroutine swap_i(arr)

    Arguments

    TypeIntentOptionalAttributesName
    integer, intent(inout), DIMENSION(2):: arr

public interface array_eq

  • private pure function array_eq_i8(arr1, arr2)

    Arguments

    TypeIntentOptionalAttributesName
    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

    TypeIntentOptionalAttributesName
    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

TypeIntentOptionalAttributesName
integer, intent(in) :: mp_comm

Return Value type(dbcsr_mp_obj)

private pure function array_eq_i(arr1, arr2)

Arguments

TypeIntentOptionalAttributesName
integer, intent(in), DIMENSION(:):: arr1
integer, intent(in), DIMENSION(:):: arr2

Return Value logical

private pure function array_eq_i8(arr1, arr2)

Arguments

TypeIntentOptionalAttributesName
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

TypeIntentOptionalAttributesName
integer(kind=int_8), intent(inout), DIMENSION(2):: arr

private subroutine swap_i(arr)

Arguments

TypeIntentOptionalAttributesName
integer, intent(inout), DIMENSION(2):: arr

public subroutine index_unique(index_in, index_out)

Get all unique elements in index_in

Arguments

TypeIntentOptionalAttributesName
integer, intent(in), DIMENSION(:, :):: index_in
integer, intent(out), ALLOCATABLE, DIMENSION(:, :):: index_out

public subroutine invert_transpose_flag(trans_flag)

Arguments

TypeIntentOptionalAttributesName
character(len=1), intent(inout) :: trans_flag