dbcsr_iterator_blocks_left Function

public pure function dbcsr_iterator_blocks_left(iterator) result(blocks_left)

Returns whether there any blocks left in the iterator.

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_iterator), intent(in) :: iterator

the iterator

Return Value logical


Contents


Source Code

   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