Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_iterator_type), | intent(inout) | :: | iterator | |||
integer, | intent(out) | :: | row | |||
integer, | intent(out) | :: | column | |||
complex(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 |
SUBROUTINE dbcsr_iterator_next_2d_block_notrans_z (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
COMPLEX(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_2d_block_notrans_z