collections_mod::c_next_real Interface Reference

Private Member Functions
real(kind=default_precision) function	iterator_get_next_real (iterator)
	Returns the next real (double precision) referenced by the iterator and advanced it, or an error if it has reached the end of iteration. More...

Detailed Description

Definition at line 598 of file collections.F90.

Member Function/Subroutine Documentation

iterator_get_next_real()

real(kind=default_precision) function collections_mod::c_next_real::iterator_get_next_real ( type(iterator_type), intent(inout)  iterator )

private

Returns the next real (double precision) referenced by the iterator and advanced it,
or an error if it has reached the end of iteration.

Parameters

iterator

The iterator of which to access and advance the next element

Returns

The next double precision real, conversion between single and integers is done automatically

Definition at line 3231 of file collections.F90.

    type(iterator_type), intent(inout) :: iterator
 
    class(*), pointer :: generic
 
    generic=>iterator_get_next_generic(iterator)
    if (associated(generic)) then
      select type(vr=>generic)
      type is (real(kind=default_precision))
        iterator_get_next_real=vr
      type is (real)
        iterator_get_next_real=conv_single_real_to_double(vr)
      type is (integer)  
        iterator_get_next_real=conv_single_real_to_double(conv_to_real(vr))
      end select
    else
      call log_log(log_error, "Can not get next real in iterator as iterator has reached end of collection")
    end if

---

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

• model_core/src/utils/collections.F90