Push_sfp64Stack Subroutine

  1. FEQParse_FloatStacks.f90
  2. FEQParse_FloatStacks
  3. Push_sfp64Stack

public subroutine Push_sfp64Stack(stack, tok)

Arguments

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

Contents

Source Code

Push_sfp64Stack

Source Code

  subroutine Push_sfp64Stack(stack,tok)
    class(sfp64Stack),intent(inout) :: stack
    real(real64),intent(in)         :: tok

    stack%top_index = stack%top_index+1
    stack%tokens(stack%top_index) = tok

  endsubroutine Push_sfp64Stack