dbcsr_iterator_next_1d_block_notrans_d Subroutine

private subroutine dbcsr_iterator_next_1d_block_notrans_d(iterator, row, column, block, block_number, row_size, col_size, row_offset, col_offset)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_iterator_type), intent(inout) :: iterator
integer, intent(out) :: row
integer, intent(out) :: column
real(kind=real_8), DIMENSION(:), POINTER :: block
integer, intent(out), optional :: block_number
integer, intent(out), optional :: row_size
integer, intent(out), optional :: col_size
integer, intent(out), optional :: row_offset
integer, intent(out), optional :: col_offset

Source Code

      SUBROUTINE dbcsr_iterator_next_1d_block_notrans_d (iterator, row, column, block, &
                                                                     block_number, &
                                                                     row_size, col_size, row_offset, col_offset)
         TYPE(dbcsr_iterator_type), INTENT(INOUT)  :: iterator
         INTEGER, INTENT(OUT)                      :: row, column
         REAL(kind=real_8), DIMENSION(:), POINTER            :: block
         INTEGER, INTENT(OUT), OPTIONAL            :: block_number, row_size, &
                                                      col_size, row_offset, &
                                                      col_offset

         LOGICAL                                   :: tr

         CALL dbcsr_iterator_next_block_prv(iterator%prv, row, column, block, &
                                            tr, block_number, row_size, col_size, row_offset, col_offset)
         IF (tr) DBCSR_ABORT("Block is transposed!")
      END SUBROUTINE dbcsr_iterator_next_1d_block_notrans_d