dbcsr_expand_row_index Subroutine

public pure subroutine dbcsr_expand_row_index(row_p, row_i, nrows, nblks)

Expands a row_p index

Arguments

Type IntentOptional Attributes Name
integer, intent(in), DIMENSION(1:nrows + 1) :: row_p
integer, intent(out), DIMENSION(1:nblks) :: row_i
integer, intent(in) :: nrows
integer, intent(in) :: nblks

Source Code

   PURE SUBROUTINE dbcsr_expand_row_index(row_p, row_i, nrows, nblks)
      !! Expands a row_p index
      INTEGER, INTENT(IN)                                   :: nrows, nblks
      INTEGER, DIMENSION(1:nrows + 1), INTENT(IN)           :: row_p
      INTEGER, DIMENSION(1:nblks), INTENT(OUT)              :: row_i

      INTEGER                                               :: row

      DO row = 1, nrows
         row_i(row_p(row) + 1:row_p(row + 1)) = row
      END DO
   END SUBROUTINE dbcsr_expand_row_index