dbcsr_iterator_next_2d_block_notrans_s Subroutine

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

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_iterator_type), intent(inout) :: iterator
integer, intent(out) :: row
integer, intent(out) :: column
real(kind=real_4), 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

Contents


Source Code

      SUBROUTINE dbcsr_iterator_next_2d_block_notrans_s (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_4), 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_2d_block_notrans_s