Returns the blocked row size of a row 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) | :: | row |
row number |
blocked row size
PURE FUNCTION dbcsr_blk_row_size(matrix, row) RESULT(row_size)
!! Returns the blocked row size of a row
!! This routine is optimized for speed and no checks are performed.
TYPE(dbcsr_type), INTENT(IN) :: matrix
!! DBCSR matrix
INTEGER, INTENT(IN) :: row
!! row number
INTEGER :: row_size
!! blocked row size
row_size = matrix%row_blk_size%low%data(row)
END FUNCTION dbcsr_blk_row_size