Construct_sfp32Stack Subroutine

  1. FEQParse_FloatStacks.f90
  2. FEQParse_FloatStacks
  3. Construct_sfp32Stack

public subroutine Construct_sfp32Stack(stack, N)

Arguments

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

Contents

Source Code

Construct_sfp32Stack

Source Code

  subroutine Construct_sfp32Stack(stack,N)
    class(sfp32Stack),intent(out) :: stack
    integer,intent(in)            :: N

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

  endsubroutine Construct_sfp32Stack