Returns the blocked column size of a column This routine is optimized for speed and no checks are performed.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_type), | intent(in) | :: | matrix |
DBCSR matrix |
||
integer, | intent(in) | :: | column |
column number |
blocked row size
PURE FUNCTION dbcsr_blk_column_size(matrix, column) RESULT(column_size)
!! Returns the blocked column size of a column
!! This routine is optimized for speed and no checks are performed.
TYPE(dbcsr_type), INTENT(IN) :: matrix
!! DBCSR matrix
INTEGER, INTENT(IN) :: column
!! column number
INTEGER :: column_size
!! blocked row size
column_size = matrix%col_blk_size%low%data(column)
END FUNCTION dbcsr_blk_column_size