collections_mod::c_pop_real Interface Reference

Pops a double precision real element off the stack or queue. More...

Private Member Functions
real(kind=default_precision) function	stack_pop_real (specificstack)
	Pops an element off the stack (LIFO). Converts between precision and from int. More...
real(kind=default_precision) function	queue_pop_real (specificqueue)
	Pops the queue element off the head of the queue (FIFO). Converts between precision and from int. More...

Detailed Description

Pops a double precision real element off the stack or queue.

This has a time complexity of O(1)

Parameters

collection

The specific stack or queue involved

Returns

Double precision real element which has been popped off the collection or raises and error if none is found

Definition at line 185 of file collections.F90.

Member Function/Subroutine Documentation

queue_pop_real()

real(kind=default_precision) function collections_mod::c_pop_real::queue_pop_real ( type(queue_type), intent(inout)  specificqueue )

private

Pops the queue element off the head of the queue (FIFO). Converts between precision and from int.

Do not call directly from external module, this is called via the appropriate interface

Parameters

specificqueue

The specific queue involved

Returns

Double precision real element at head of the queue or raises an error if there is none

Definition at line 2592 of file collections.F90.

    type(queue_type), intent(inout) :: specificqueue
    real(kind=DEFAULT_PRECISION) :: queue_pop_real

    class(*), pointer :: generic

    generic=>queue_pop_generic(specificqueue)
    if (.not. associated(generic)) call log_log(log_error, "Can not pop real from queue")
    select type(vr=>generic)
    type is (real(kind=default_precision))
      queue_pop_real=vr
    type is (real)
      queue_pop_real=conv_single_real_to_double(vr)
    type is (integer)  
      queue_pop_real=conv_single_real_to_double(conv_to_real(vr))
    end select

stack_pop_real()

real(kind=default_precision) function collections_mod::c_pop_real::stack_pop_real ( type(stack_type), intent(inout)  specificstack )

private

Pops an element off the stack (LIFO). Converts between precision and from int.

Do not call directly from external module, this is called via the appropriate interface

Parameters

specificstack

The specific stack involved

Returns

Double precision real data of the last element added to the stack or raises an error if none is found

Definition at line 2296 of file collections.F90.

    type(stack_type), intent(inout) :: specificstack
    real(kind=DEFAULT_PRECISION) :: stack_pop_real

    class(*), pointer :: generic

    generic=>stack_pop_generic(specificstack)
    if (.not. associated(generic)) call log_log(log_error, "Can not pop real from stack")
    select type(vr=>generic)
    type is (real(kind=default_precision))
      stack_pop_real=vr
    type is (real)
      stack_pop_real=conv_single_real_to_double(vr)
    type is (integer)  
      stack_pop_real=conv_single_real_to_double(conv_to_real(vr))
    end select

---

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