Returns whether there any blocks left in the iterator.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_iterator), | intent(in) | :: | iterator |
the iterator |
PURE FUNCTION dbcsr_iterator_blocks_left(iterator) RESULT(blocks_left)
!! Returns whether there any blocks left in the iterator.
TYPE(dbcsr_iterator), INTENT(IN) :: iterator
!! the iterator
LOGICAL :: blocks_left
blocks_left = iterator%pos .NE. 0
END FUNCTION dbcsr_iterator_blocks_left