Construct_sfp64Stack Subroutine

  1. FEQParse_FloatStacks.f90
  2. FEQParse_FloatStacks
  3. Construct_sfp64Stack

public subroutine Construct_sfp64Stack(stack, N)

Arguments

TypeIntentOptionalAttributesName
class(sfp64Stack), intent(out) :: stack
integer, intent(in) :: N

Contents

Source Code

Construct_sfp64Stack

Source Code

  subroutine Construct_sfp64Stack(stack,N)
    class(sfp64Stack),intent(out) :: stack
    integer,intent(in)            :: N

    allocate(stack%tokens(1:N))
    stack%top_index = 0

  endsubroutine Construct_sfp64Stack