dbcsr_iterator_blocks_left Function

public pure function dbcsr_iterator_blocks_left(iterator) result(blocks_left)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_iterator_type), intent(in) :: iterator

Return Value logical


Source Code

   PURE FUNCTION dbcsr_iterator_blocks_left(iterator) RESULT(blocks_left)
      TYPE(dbcsr_iterator_type), INTENT(IN)              :: iterator
      LOGICAL                                            :: blocks_left

      blocks_left = dbcsr_iterator_blocks_left_prv(iterator%prv)
   END FUNCTION dbcsr_iterator_blocks_left