Pop_sfp64Stack Subroutine

public subroutine Pop_sfp64Stack(stack, tok)

Arguments

TypeIntentOptionalAttributesName
class(sfp64Stack), intent(inout) :: stack
real(kind=real64), intent(out) :: tok

Contents

Source Code


Source Code

  subroutine Pop_sfp64Stack(stack,tok)
    class(sfp64Stack),intent(inout) :: stack
    real(real64),intent(out)        :: tok

    if(stack%top_index <= 0) then
      print*,"Attempt to pop from empty token stack"
    else
      tok = stack%tokens(stack%top_index)
      stack%top_index = stack%top_index-1
    endif

  endsubroutine Pop_sfp64Stack