Wrappers to BLAS calls.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=*), | private, | parameter | :: | moduleN | = | 'dbcsr_blas_operations' |
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
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| 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 |
fills an array with random numbers
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| 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 |