collections_mod::c_next_generic Interface Reference

Private Member Functions
class(*) function, pointer	iterator_get_next_generic (iterator)
	Returns the next generic referenced by the iterator and advanced it, or null if it has reached the end of iteration. More...

Detailed Description

Definition at line 610 of file collections.F90.

Member Function/Subroutine Documentation

iterator_get_next_generic()

class(*) function, pointer collections_mod::c_next_generic::iterator_get_next_generic ( type(iterator_type), intent(inout)  iterator )

private

Returns the next generic referenced by the iterator and advanced it, or null if it has reached the end of iteration.

Parameters

iterator

The iterator of which to access and advance the next element

Returns

The next generic or null if none is found

Definition at line 3295 of file collections.F90.

    type(iterator_type), intent(inout) :: iterator
    class(*), pointer :: iterator_get_next_generic

    integer :: i
    
    if (associated(iterator%next_item)) then
      iterator_get_next_generic=>iterator%next_item%data
      iterator%next_item=>iterator%next_item%next
      if (.not. associated(iterator%next_item) .and. associated(iterator%hash_structure) .and. &
           iterator%hash_ptr .le. size(iterator%hash_structure)) then
        do i=iterator%hash_ptr, size(iterator%hash_structure)
          if (iterator%hash_structure(i)%size .gt. 0) then
            iterator%next_item=>iterator%hash_structure(i)%head
            exit
          end if          
        end do
        iterator%hash_ptr=i+1
      end if      
    else
      iterator_get_next_generic=>null()
    end if

---

The documentation for this interface was generated from the following file:

• /nfs/a277/earlcd/dev/monc/svn-git/monc/model_core/src/utils/collections.F90