Finalize_EquationParser Subroutine

  subroutine Finalize_EquationParser(parser)
    type(EquationParser),intent(inout) :: parser
    ! Local
    integer :: i

    if(allocated(parser%inFixFormula)) deallocate(parser%inFixFormula)
    if(allocated(parser%equation)) deallocate(parser%equation)
    if(allocated(parser%variableName)) deallocate(parser%variableName)
    if(allocated(parser%indepVars)) then
      do i = 1,parser%nIndepVars
        deallocate(parser%indepVars(i)%value)
      enddo
      deallocate(parser%indepVars)
    endif

    call parser%infix%Finalize()
    call parser%postfix%Finalize()

  endsubroutine Finalize_EquationParser