dbcsr_iterator_next_2d_block_c Subroutine

private subroutine dbcsr_iterator_next_2d_block_c(iterator, row, column, block, transposed, 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
complex(kind=real_4), DIMENSION(:, :), POINTER:: block
logical, intent(out) :: transposed
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_c (iterator, row, column, block, &
                                                             transposed, 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_4), DIMENSION(:, :), POINTER        :: block
         LOGICAL, INTENT(OUT)                     :: transposed
         INTEGER, INTENT(OUT), OPTIONAL           :: block_number, row_size, &
                                                     col_size, row_offset, &
                                                     col_offset

         CALL dbcsr_iterator_next_block_prv(iterator%prv, row, column, block, transposed, &
                                            block_number, row_size, col_size, row_offset, col_offset)
      END SUBROUTINE dbcsr_iterator_next_2d_block_c