stlstackintmodule Module Reference

Data Types
type	stlstackint
	A derived type representing a stack of integers. More...

Functions/Subroutines
subroutine	init (this, capacity)
subroutine	push (this, newValue)
subroutine	pop (this)
integer(i4b) function	top (this)
integer(i4b) function	size (this)
subroutine	destroy (this)

Function/Subroutine Documentation

destroy()

subroutine stlstackintmodule::destroy ( class(stlstackint), intent(inout)  this )

private

Definition at line 79 of file STLStackInt.f90.

    class(STLStackInt), intent(inout) :: this
 
    call this%stack%destroy()
 

init()

subroutine stlstackintmodule::init ( class(stlstackint), intent(inout)  this, integer(i4b), intent(in), optional  capacity  )

private

Definition at line 27 of file STLStackInt.f90.

    class(STLStackInt), intent(inout) :: this
    integer(I4B), intent(in), optional :: capacity ! the initial capacity, when given
 
    ! init the vector
    if (present(capacity)) then
      call this%stack%init(capacity)
    else
      call this%stack%init()
    end if
 

pop()

subroutine stlstackintmodule::pop ( class(stlstackint), intent(inout)  this )

private

Definition at line 48 of file STLStackInt.f90.

    class(STLStackInt), intent(inout) :: this
 
    if (this%stack%size == 0) then
      write (*, *) 'STLStackInt exception: cannot pop an empty stack'
      call ustop()
    end if
    this%stack%size = this%stack%size - 1
 

Here is the call graph for this function:

push()

subroutine stlstackintmodule::push ( class(stlstackint), intent(inout)  this, integer(i4b)  newValue  )

private

Definition at line 40 of file STLStackInt.f90.

    class(STLStackInt), intent(inout) :: this
    integer(I4B) :: newValue
 
    call this%stack%push_back(newvalue)
 

size()

integer(i4b) function stlstackintmodule::size ( class(stlstackint), intent(in)  this )

private

Definition at line 71 of file STLStackInt.f90.

    class(STLStackInt), intent(in) :: this
    integer(I4B) :: size_value
 
    size_value = this%stack%size
 

top()

integer(i4b) function stlstackintmodule::top ( class(stlstackint), intent(in)  this )

private

Definition at line 59 of file STLStackInt.f90.

    class(STLStackInt), intent(in) :: this
    integer(I4B) :: top_value
 
    if (this%stack%size == 0) then
      write (*, *) 'STLStackInt exception: cannot get top of an empty stack'
      call ustop()
    end if
    top_value = this%stack%at(this%stack%size)
 

Here is the call graph for this function: