dbcsr_iterator_next_1d_block_d Subroutine

private subroutine dbcsr_iterator_next_1d_block_d(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
real(kind=real_8), 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_1d_block_d (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
         REAL(kind=real_8), 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_1d_block_d