Finalize_r3fp64Stack Subroutine

  1. FEQParse_FloatStacks.f90
  2. FEQParse_FloatStacks
  3. Finalize_r3fp64Stack

public subroutine Finalize_r3fp64Stack(stack)

Arguments

TypeIntentOptionalAttributesName
type(r3fp64Stack), intent(inout) :: stack

Contents

Source Code

Finalize_r3fp64Stack

Source Code

  subroutine Finalize_r3fp64Stack(stack)
    type(r3fp64Stack),intent(inout) :: stack

    if(allocated(stack%tokens)) deallocate(stack%tokens)

  endsubroutine Finalize_r3fp64Stack