Pop_r4fp32Stack Subroutine

  1. FEQParse_FloatStacks.f90
  2. FEQParse_FloatStacks
  3. Pop_r4fp32Stack

public subroutine Pop_r4fp32Stack(stack, tok)

Arguments

TypeIntentOptionalAttributesName
class(r4fp32Stack), intent(inout) :: stack
real(kind=real32), intent(out) :: tok(:,:,:,:)

Contents

Source Code

Pop_r4fp32Stack

Source Code

  subroutine Pop_r4fp32Stack(stack,tok)
    class(r4fp32Stack),intent(inout) :: stack
    real(real32),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_r4fp32Stack