dbcsr_blas_operations Module

Wrappers to BLAS calls.



Contents


Variables

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

Subroutines

public subroutine set_larnv_seed(irow, nrow, icol, ncol, ival, iseed)

generate a seed respecting the lapack constraints, - values between 0..4095 (2**12-1) - iseed(4) odd also try to avoid iseed that are zero. Have but with a unique 2D mapping (irow,icol), and a 'mini-seed' ival

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: irow

1..nrow nrow 1..ncol ncol mini-seed

integer, intent(in) :: nrow

1..nrow nrow 1..ncol ncol mini-seed

integer, intent(in) :: icol

1..nrow nrow 1..ncol ncol mini-seed

integer, intent(in) :: ncol

1..nrow nrow 1..ncol ncol mini-seed

integer, intent(in) :: ival

1..nrow nrow 1..ncol ncol mini-seed

integer, intent(out) :: iseed(4)

a lapack compatible seed

public subroutine dbcsr_lapack_larnv(idist, iseed, n, x)

fills an array with random numbers

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: idist

type of distribution (1..3, see lapack docs)

integer, intent(inout), DIMENSION(:):: iseed

requires each int to be in the range 0..2**12, and the iseed(4) odd

integer, intent(in) :: n
type(dbcsr_data_obj), intent(inout) :: x