dbcsr_expand_row_index_2d Subroutine

private pure subroutine dbcsr_expand_row_index_2d(row_p, row_i, nrows, dst_i)

Expands a row_p index

Arguments

Type IntentOptional 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

Source Code

   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