Expands a row_p index
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in), | DIMENSION(1:nrows + 1) | :: | row_p | ||
integer, | intent(out), | DIMENSION(:, :) | :: | row_i | ||
integer, | intent(in) | :: | nrows | |||
integer, | intent(in) | :: | dst_i |
PURE SUBROUTINE dbcsr_expand_row_index_2d(row_p, row_i, nrows, dst_i) !! Expands a row_p index INTEGER, INTENT(IN) :: nrows, dst_i INTEGER, DIMENSION(1:nrows + 1), INTENT(IN) :: row_p INTEGER, DIMENSION(:, :), INTENT(OUT) :: row_i INTEGER :: row DO row = 1, nrows row_i(dst_i, row_p(row) + 1:row_p(row + 1)) = row END DO END SUBROUTINE dbcsr_expand_row_index_2d