Finalize_r2fp32Stack Subroutine

public subroutine Finalize_r2fp32Stack(stack)

Arguments

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

Contents

Source Code


Source Code

  subroutine Finalize_r2fp32Stack(stack)
    type(r2fp32Stack),intent(inout) :: stack

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

  endsubroutine Finalize_r2fp32Stack