/**
 *  @file ThermoPhase.cpp
 * Definition file for class ThermoPhase, the base class for phases with
 * thermodynamic properties
 * (see class \link Cantera::ThermoPhase ThermoPhase\endlink).
 */

/*
 *  $Author$
 *  $Date$
 *  $Revision$
 *
 *  Copyright 2002 California Institute of Technology
 *
 */

// turn off warnings under Windows
#ifdef WIN32
#pragma warning(disable:4786)
#pragma warning(disable:4503)
#endif

#include "ThermoPhase.h"
#include <iomanip>

//@{
#ifndef MAX
#define MAX(x,y)    (( (x) > (y) ) ? (x) : (y))
#endif
//@}

using namespace std;

namespace Cantera {

  //! Constructor. Note that ThermoPhase is meant to be used as
  //! a base class, so this constructor should not be called
  //! explicitly.
  ThermoPhase::ThermoPhase() :
    Phase(), 
    m_spthermo(0), m_speciesData(0),
    m_index(-1), 
    m_phi(0.0), 
    m_hasElementPotentials(false),
    m_chargeNeutralityNecessary(false),
    m_ssConvention(cSS_CONVENTION_TEMPERATURE)
  {
  }

  ThermoPhase::~ThermoPhase() 
  {
    for (int k = 0; k < m_kk; k++) {
      if (m_speciesData[k]) {
        delete m_speciesData[k];
        m_speciesData[k] = 0;
      }
    }
    delete m_spthermo;
    m_spthermo = 0;
  }

  /**
   * Copy Constructor for the ThermoPhase object. 
   *
   * Currently, this is implemented, but not tested. If called it will
   * throw an exception until fully tested.
   */
  ThermoPhase::ThermoPhase(const ThermoPhase &right)  :
    Phase(),
    m_spthermo(0), 
    m_speciesData(0),
    m_index(-1),
    m_phi(0.0), 
    m_hasElementPotentials(false),
    m_chargeNeutralityNecessary(false),
    m_ssConvention(cSS_CONVENTION_TEMPERATURE)
  {
    /*
     * Call the assignment operator
     */
    *this = operator=(right);
  }
  
  /*
   * operator=()
   *
   *  Note this stuff will not work until the underlying phase
   *  has a working assignment operator
   */
  ThermoPhase& ThermoPhase::
  operator=(const ThermoPhase &right) {
    /*
     * Check for self assignment.
     */
    if (this == &right) return *this;

    /*
     * We need to destruct first
     */
    for (int k = 0; k < m_kk; k++) {
      if (m_speciesData[k]) {
        delete m_speciesData[k];
        m_speciesData[k] = 0;
      }
    }
    if (m_spthermo) {
      delete m_spthermo;
    }

    /*
     * Call the base class assignment operator
     */
    (void)Phase::operator=(right);

    /*
     * Pointer to the species thermodynamic property manager
     * We own this, so we need to do a deep copy
     */
    m_spthermo = (right.m_spthermo)->duplMyselfAsSpeciesThermo();

    /*
     * Do a deep copy of species Data, because we own this
     */
    m_speciesData.resize(m_kk); 
    for (int k = 0; k < m_kk; k++) {
      m_speciesData[k] = new XML_Node(*(right.m_speciesData[k]));
    }
      
    m_index = right.m_index;
    m_phi = right.m_phi;
    m_lambdaRRT = right.m_lambdaRRT;
    m_hasElementPotentials = right.m_hasElementPotentials;
    m_chargeNeutralityNecessary = right.m_chargeNeutralityNecessary;
    m_ssConvention = right.m_ssConvention;
    return *this;
  }

  /*
   * Duplication routine for objects which inherit from 
   * ThermoPhase.
   *
   *  This virtual routine can be used to duplicate thermophase objects
   *  inherited from ThermoPhase even if the application only has
   *  a pointer to ThermoPhase to work with.
   * 
   *  Currently, this is not fully implemented. If called, an
   *  exception will be called by the ThermoPhase copy constructor.
   */
  ThermoPhase *ThermoPhase::duplMyselfAsThermoPhase() const {
    ThermoPhase* tp = new ThermoPhase(*this);
    return tp;
  }

  int ThermoPhase::activityConvention() const {
    return cAC_CONVENTION_MOLAR;
  }

  int ThermoPhase::standardStateConvention() const {
    return m_ssConvention;
  }

  doublereal ThermoPhase::logStandardConc(int k) const {
    return log(standardConcentration(k));
  }

  void ThermoPhase::getActivities(doublereal* a) const {
    getActivityConcentrations(a);
    int nsp = nSpecies();
    int k;
    for (k = 0; k < nsp; k++) a[k] /= standardConcentration(k);
  }

  void ThermoPhase::getLNActivityCoefficients(doublereal *const lnac) const {
    getActivityCoefficients(lnac);
    for (int k = 0; k < m_kk; k++) {
       lnac[k] = std::log(lnac[k]);
    }
  }

  void ThermoPhase::setState_TPX(doublereal t, doublereal p, 
				 const doublereal* x) {
    setMoleFractions(x); setTemperature(t); setPressure(p);
  }

  void ThermoPhase::setState_TPX(doublereal t, doublereal p, 
				 compositionMap& x) {
    setMoleFractionsByName(x); setTemperature(t); setPressure(p);
  }

  void ThermoPhase::setState_TPX(doublereal t, doublereal p, 
				 const std::string& x) {
    compositionMap xx;
    int kk = nSpecies();
    for (int k = 0; k < kk; k++) xx[speciesName(k)] = -1.0;
    try {
      parseCompString(x, xx);
    }
    catch (CanteraError) {
      throw CanteraError("setState_TPX",
			 "Unknown species in composition map: "+ x);
    }
    setMoleFractionsByName(xx); setTemperature(t); setPressure(p);
  }        

  void ThermoPhase::setState_TPY(doublereal t, doublereal p, 
				 const doublereal* y) {
    setMassFractions(y); setTemperature(t); setPressure(p);
  }

  void ThermoPhase::setState_TPY(doublereal t, doublereal p, 
				 compositionMap& y) {
    setMassFractionsByName(y); setTemperature(t); setPressure(p);
  }
        
  void ThermoPhase::setState_TPY(doublereal t, doublereal p, 
				 const std::string& y) {
    compositionMap yy;
    int kk = nSpecies();
    for (int k = 0; k < kk; k++) yy[speciesName(k)] = -1.0;
    try {
      parseCompString(y, yy);
    }
    catch (CanteraError) {
      throw CanteraError("setState_TPY",
			 "Unknown species in composition map: "+ y);
    }
    setMassFractionsByName(yy); setTemperature(t); setPressure(p);
  }

  void ThermoPhase::setState_TP(doublereal t, doublereal p) {
    setTemperature(t); setPressure(p);
  }

  void ThermoPhase::setState_PX(doublereal p, doublereal* x) {
    setMoleFractions(x); setPressure(p);
  }

  void ThermoPhase::setState_PY(doublereal p, doublereal* y) {
    setMassFractions(y); setPressure(p);
  }

  void ThermoPhase::setState_HP(doublereal Htarget, doublereal p, 
				doublereal dTtol) {
    setState_HPorUV(Htarget, p, dTtol, false);
  }

  void ThermoPhase::setState_UV(doublereal u, doublereal v, 
				doublereal dTtol) {
    setState_HPorUV(u, v, dTtol, true);
  }

  // Do the convergence work
  /*
   *  We assume here that H at constant P is a monotonically increasing
   *  function of T.
   *  We assume here that U at constant V is a monotonically increasing
   *  function of T.
   *  
   *  Note, the value of dTtol may become important for some applications
   *  where numerical jacobians are being calculated.
   */
  void ThermoPhase::setState_HPorUV(doublereal Htarget, doublereal p, 
				    doublereal dTtol, bool doUV) {
    doublereal dt;
    doublereal Hmax = 0.0, Hmin = 0.0;;
    doublereal v = 0.0;

    // Assign the specific volume or pressure and make sure it's positive
    if (doUV) {
      v = p;
      if (v < 1.0E-300) {
	throw CanteraError("setState_HPorUV (UV)",
			   "Input specific volume is too small or negative. v = " + fp2str(v));
      }
      setDensity(1.0/v);
    } else {
      if (p < 1.0E-300) {
	throw CanteraError("setState_HPorUV (HP)",
			   "Input pressure is too small or negative. p = " + fp2str(p));
      }
      setPressure(p);
    }
    double Tmax = maxTemp() + 0.1;
    double Tmin = minTemp() - 0.1;

    // Make sure we are within the temperature bounds at the start
    // of the iteration
    double Tnew = temperature();
    double Tinit = Tnew;
    if (Tnew > Tmax) {
      Tnew = Tmax - 1.0;
      if (doUV) {
	setTemperature(Tnew);
      } else {
	setState_TP(Tnew, p);
      }
    }
    if (Tnew < Tmin) {
      Tnew = Tmin + 1.0;
      if (doUV) {
	setTemperature(Tnew);
      } else {
	setState_TP(Tnew, p);
      }
    }

    double Hnew = 0.0;
    double Cpnew = 0.0;
    if (doUV) {
      Hnew = intEnergy_mass();
      Cpnew = cv_mass();
    } else {
      Hnew = enthalpy_mass();
      Cpnew = cp_mass();
    }
    double Htop = Hnew;
    double Ttop = Tnew;
    double Hbot = Hnew;
    double Tbot = Tnew;
    double Told = Tnew;
    double Hold = Hnew;

    bool ignoreBounds = false;
    // Unstable phases are those for which
    // cp < 0.0. These are possible for cases where
    // we have passed the spinodal curve.
    bool unstablePhase = false;
    // Counter indicating the last temperature point where the
    // phase was unstable
    double Tunstable = -1.0;
    bool unstablePhaseNew = false;
   

    // Newton iteration
    for (int n = 0; n < 500; n++) {
      Told = Tnew;
      Hold = Hnew;
      double cpd = Cpnew;
      if (cpd < 0.0) {
	unstablePhase = true;
	Tunstable = Tnew;
      }
      dt = (Htarget - Hold)/cpd;

      // limit step size to 100 K
      if (dt > 100.0)       dt =  100.0;
      else if (dt < -100.0) dt = -100.0; 

      // Calculate the new T
      Tnew = Told + dt;

      // Limit the step size so that we are convergent
      // This is the step that makes it different from a 
      // Newton's algorithm
      if (dt > 0.0) {
	if (!unstablePhase) {
	  if (Htop > Htarget) {
	    if (Tnew > (0.75 * Ttop + 0.25 * Told)) {
	      dt = 0.75 * (Ttop - Told);
	      Tnew = Told + dt;
	    }
	  }
	} else {
	  if (Hbot < Htarget) {
	    if (Tnew < (0.75 * Tbot + 0.25 * Told)) {
	      dt = 0.75 * (Tbot - Told);
	      Tnew = Told + dt;
	    }
	  }
	}
      } else {
	if (!unstablePhase) {
	  if (Hbot < Htarget) {
	    if (Tnew < (0.75 * Tbot + 0.25 * Told)) {
	      dt = 0.75 * (Tbot - Told);
	      Tnew = Told + dt;
	    }
	  }
	} else {
	  if (Htop > Htarget) {
	    if (Tnew > (0.75 * Ttop + 0.25 * Told)) {
	      dt = 0.75 * (Ttop - Told);
	      Tnew = Told + dt;
	    }
	  }
	}
      }
      // Check Max and Min values
      if (Tnew > Tmax) {
	if (!ignoreBounds) {
	  if (doUV) {
	    setTemperature(Tmax);
	    Hmax = intEnergy_mass();
	  } else {
	    setState_TP(Tmax, p);
	    Hmax = enthalpy_mass();
	  }
	  if (Hmax >= Htarget) {
	    if (Htop < Htarget) {
	      Ttop = Tmax;
	      Htop = Hmax;
	    }
	  } else {
	    Tnew = Tmax + 1.0;
	    ignoreBounds = true;
	  }
	}
      }
      if (Tnew < Tmin) {
	if (!ignoreBounds) {
	  if (doUV) {
	    setTemperature(Tmin);
	    Hmin = intEnergy_mass();
	  } else {
	    setState_TP(Tmin, p);
	    Hmin = enthalpy_mass();
	  }
	  if (Hmin <= Htarget) {
	    if (Hbot > Htarget) {
	      Tbot = Tmin;
	      Hbot = Hmin;
	    }
	  } else {
	    Tnew = Tmin - 1.0;
	    ignoreBounds = true;
	  }
	}
      }
 
      // Try to keep phase within its region of stability
      // -> Could do a lot better if I calculate the
      //    spinodal value of H.
      for (int its = 0; its < 10; its++) {
	Tnew = Told + dt;
	if (doUV) {
	  setTemperature(Tnew);
	  Hnew = intEnergy_mass();
	  Cpnew = cv_mass();
	} else {
	  setState_TP(Tnew, p);
	  Hnew = enthalpy_mass();
	  Cpnew = cp_mass();
	}
	if (Cpnew < 0.0) {
	  unstablePhaseNew = true;
	  Tunstable = Tnew;
	} else {
	  unstablePhaseNew = false;
	  break;
	}
	if (unstablePhase == false) {
	  if (unstablePhaseNew == true) {
	    dt *= 0.25;
	  }
	}
      }

      if (Hnew == Htarget) {
	return;
      } else if (Hnew > Htarget) {
	if ((Htop < Htarget) || (Hnew < Htop)) {
	  Htop = Hnew;
	  Ttop = Tnew;
	} 
      } else if (Hnew < Htarget) {
	if ((Hbot > Htarget) || (Hnew > Hbot)) {
	  Hbot = Hnew;
	  Tbot = Tnew;
	}
      }
      // Convergence in H
      double Herr = Htarget - Hnew;
      double acpd = MAX(fabs(cpd), 1.0E-5);
      double denom = MAX(fabs(Htarget), acpd * dTtol);
      double HConvErr = fabs((Herr)/denom);
      if (HConvErr < 0.00001 *dTtol) {
	return;
      }
      if (fabs(dt) < dTtol) {
	return;
      }

    }
    // We are here when there hasn't been convergence
    /*
     * Formulate a detailed error message, since questions seem to
     * arise often about the lack of convergence.
     */
    string ErrString =  "No convergence in 500 iterations\n";
    if (doUV) {
      ErrString += "\tTarget Internal Energy  = " + fp2str(Htarget) + "\n";
      ErrString += "\tCurrent Specific Volume = " + fp2str(v) + "\n";
      ErrString += "\tStarting Temperature    = " + fp2str(Tinit) + "\n";
      ErrString += "\tCurrent Temperature     = " + fp2str(Tnew) + "\n";
      ErrString += "\tCurrent Internal Energy = " + fp2str(Hnew) + "\n";
      ErrString += "\tCurrent Delta T         = " + fp2str(dt) + "\n";
    } else {
      ErrString += "\tTarget Enthalpy         = " + fp2str(Htarget) + "\n";
      ErrString += "\tCurrent Pressure        = " + fp2str(p) + "\n";
      ErrString += "\tStarting Temperature    = " + fp2str(Tinit) + "\n";
      ErrString += "\tCurrent Temperature     = " + fp2str(Tnew) + "\n";
      ErrString += "\tCurrent Enthalpy        = " + fp2str(Hnew) + "\n";
      ErrString += "\tCurrent Delta T         = " + fp2str(dt) + "\n";
    }
    if (unstablePhase) {
      ErrString += "\t  - The phase became unstable (Cp < 0) T_unstable_last = "
	+ fp2str(Tunstable) + "\n";
    }
    if (doUV) {
      throw CanteraError("setState_HPorUV (UV)", ErrString);
    } else {
      throw CanteraError("setState_HPorUV (HP)", ErrString);
    }
  }

  void ThermoPhase::setState_SP(doublereal Starget, doublereal p, 
				doublereal dTtol) {
    setState_SPorSV(Starget, p, dTtol, false);
  }

  void ThermoPhase::setState_SV(doublereal Starget, doublereal v, 
				doublereal dTtol) {
    setState_SPorSV(Starget, v, dTtol, true);
  }

  // Do the convergence work for fixed entropy situations
  /*
   *  We assume here that S at constant P is a monotonically increasing
   *  function of T.
   *  We assume here that S at constant V is a monotonically increasing
   *  function of T.
   *  
   *  Note, the value of dTtol may become important for some applications
   *  where numerical jacobians are being calculated.
   */
  void ThermoPhase::setState_SPorSV(doublereal Starget, doublereal p, 
				    doublereal dTtol, bool doSV) {
    doublereal v = 0.0;
    doublereal dt;
    if (doSV) {
      v = p;
      if (v < 1.0E-300) {
	throw CanteraError("setState_SPorSV (SV)",
			   "Input specific volume is too small or negative. v = " + fp2str(v));
      }
      setDensity(1.0/v); 
    } else {
      if (p < 1.0E-300) {
	throw CanteraError("setState_SPorSV (SP)",
			   "Input pressure is too small or negative. p = " + fp2str(p));
      }
      setPressure(p);
    }
    double Tmax = maxTemp() + 0.1;
    double Tmin = minTemp() - 0.1;

    // Make sure we are within the temperature bounds at the start
    // of the iteration
    double Tnew = temperature();
    double Tinit = Tnew;
    if (Tnew > Tmax) {
      Tnew = Tmax - 1.0;
      if (doSV) {
	setTemperature(Tnew);
      } else {
	setState_TP(Tnew, p);
      }
    }
    if (Tnew < Tmin) {
      Tnew = Tmin + 1.0;
      if (doSV) {
	setTemperature(Tnew);
      } else {
	setState_TP(Tnew, p);
      }
    }

    double Snew = entropy_mass();
    double Cpnew = 0.0;
    if (doSV) {
      Cpnew = cv_mass();
    } else {
      Cpnew = cp_mass();
    }

    double Stop = Snew;
    double Ttop = Tnew;
    double Sbot = Snew;
    double Tbot = Tnew;
    double Told = Tnew;
    double Sold = Snew;

    bool ignoreBounds = false;
    // Unstable phases are those for which
    // Cp < 0.0. These are possible for cases where
    // we have passed the spinodal curve.
    bool unstablePhase = false;
    double Tunstable = -1.0;
    bool unstablePhaseNew = false;
   

    // Newton iteration
    for (int n = 0; n < 500; n++) {
      Told = Tnew;
      Sold = Snew;
      double cpd = Cpnew;
      if (cpd < 0.0) {
	unstablePhase = true;
	Tunstable = Tnew;
      }
      dt = (Starget - Sold)*Told/cpd;

      // limit step size to 200 K
      if (dt > 100.0)       dt =  100.0;
      else if (dt < -100.0) dt = -100.0; 
      Tnew = Told + dt;
      // Limit the step size so that we are convergent
      if (dt > 0.0) {
	if (!unstablePhase) {
	  if (Stop > Starget) {
	    if (Tnew > Ttop) {
	      dt = 0.75 * (Ttop - Told);
	      Tnew = Told + dt;
	    }
	  }
	} else {
	  if (Sbot < Starget) {
	    if (Tnew < Tbot) {
	      dt = 0.75 * (Tbot - Told);
	      Tnew = Told + dt;
	    }
	  }
	}
      } else {
	if (!unstablePhase) {
	  if (Sbot < Starget) {
	    if (Tnew < Tbot) {
	      dt = 0.75 * (Tbot - Told);
	      Tnew = Told + dt;
	    }
	  }
	} else {
	  if (Stop > Starget) {
	    if (Tnew > Ttop) {
	      dt = 0.75 * (Ttop - Told);
	      Tnew = Told + dt;
	    }
	  }
	}
      }
      // Check Max and Min values
      if (Tnew > Tmax) {
	if (!ignoreBounds) {
	  if (doSV) {
	    setTemperature(Tmax);
	  } else {
	    setState_TP(Tmax, p);
	  }
	  double Smax = entropy_mass();
	  if (Smax >= Starget) {
	    if (Stop < Starget) {
	      Ttop = Tmax;
	      Stop = Smax;
	    }
	  } else {
	    Tnew = Tmax + 1.0;
	    ignoreBounds = true;
	  }
	}
      }
      if (Tnew < Tmin) {
	if (!ignoreBounds) {
	  if (doSV) {
	    setTemperature(Tmin);
	  } else {
	    setState_TP(Tmin, p);
	  }
	  double Smin = enthalpy_mass();
	  if (Smin <= Starget) {
	    if (Sbot > Starget) {
	      Sbot = Tmin;
	      Sbot = Smin;
	    }
	  } else {
	    Tnew = Tmin - 1.0;
	    ignoreBounds = true;
	  }
	}
      }
 
      // Try to keep phase within its region of stability
      // -> Could do a lot better if I calculate the
      //    spinodal value of H.
      for (int its = 0; its < 10; its++) {
	Tnew = Told + dt;
	if (doSV) {
	  setTemperature(Tnew);
	  Cpnew = cv_mass();
	} else {
	  setState_TP(Tnew, p);
	  Cpnew = cp_mass();
	}
	Snew = entropy_mass();
	if (Cpnew < 0.0) {
	  unstablePhaseNew = true;
	  Tunstable = Tnew;
	} else {
	  unstablePhaseNew = false;
	  break;
	}
	if (unstablePhase == false) {
	  if (unstablePhaseNew == true) {
	    dt *= 0.25;
	  }
	}
      }

      if (Snew == Starget) {
	return;
      } else if (Snew > Starget) {
	if ((Stop < Starget) || (Snew < Stop)) {
	  Stop = Snew;
	  Ttop = Tnew;
	} 
      } else if (Snew < Starget) {
	if ((Sbot > Starget) || (Snew > Sbot)) {
	  Sbot = Snew;
	  Tbot = Tnew;
	}
      }
      // Convergence in S
      double Serr = Starget - Snew;
      double acpd = MAX(fabs(cpd), 1.0E-5);
      double denom = MAX(fabs(Starget), acpd * dTtol);
      double SConvErr = fabs((Serr * Tnew)/denom);
      if (SConvErr < 0.00001 *dTtol) {
	return;
      }
      if (fabs(dt) < dTtol) {
	return;
      }
    }
    // We are here when there hasn't been convergence
    /*
     * Formulate a detailed error message, since questions seem to
     * arise often about the lack of convergence.
     */
    string ErrString =  "No convergence in 500 iterations\n";
    if (doSV) {
      ErrString += "\tTarget Entropy          = " + fp2str(Starget) + "\n";
      ErrString += "\tCurrent Specific Volume = " + fp2str(v) + "\n";
      ErrString += "\tStarting Temperature    = " + fp2str(Tinit) + "\n";
      ErrString += "\tCurrent Temperature     = " + fp2str(Tnew) + "\n";
      ErrString += "\tCurrent Entropy          = " + fp2str(Snew) + "\n";
      ErrString += "\tCurrent Delta T         = " + fp2str(dt) + "\n";
    } else {
      ErrString += "\tTarget Entropy          = " + fp2str(Starget) + "\n";
      ErrString += "\tCurrent Pressure        = " + fp2str(p) + "\n";
      ErrString += "\tStarting Temperature    = " + fp2str(Tinit) + "\n";
      ErrString += "\tCurrent Temperature     = " + fp2str(Tnew) + "\n";
      ErrString += "\tCurrent Entropy         = " + fp2str(Snew) + "\n";
      ErrString += "\tCurrent Delta T         = " + fp2str(dt) + "\n";
    }
    if (unstablePhase) {
      ErrString += "\t  - The phase became unstable (Cp < 0) T_unstable_last = "
	+ fp2str(Tunstable) + "\n";
    }
    if (doSV) {
      throw CanteraError("setState_SPorSV (SV)", ErrString);
    } else {
      throw CanteraError("setState_SPorSV (SP)", ErrString);
    }
  }

  doublereal ThermoPhase::err(std::string msg) const {
    throw CanteraError("ThermoPhase","Base class method "
		       +msg+" called. Equation of state type: "+int2str(eosType()));
    return 0.0;
  }

  /*
   * Returns the units of the standard and general concentrations
   * Note they have the same units, as their divisor is 
   * defined to be equal to the activity of the kth species
   * in the solution, which is unitless.
   *
   * This routine is used in print out applications where the
   * units are needed. Usually, MKS units are assumed throughout
   * the program and in the XML input files. 
   *
   * On return uA contains the powers of the units (MKS assumed)
   * of the standard concentrations and generalized concentrations
   * for the kth species.
   *
   * The base %ThermoPhase class assigns thedefault quantities
   * of (kmol/m3).
   * Inherited classes are responsible for overriding the default 
   * values if necessary.
   *
   *  uA[0] = kmol units - default  = 1
   *  uA[1] = m    units - default  = -nDim(), the number of spatial
   *                                dimensions in the Phase class.
   *  uA[2] = kg   units - default  = 0;
   *  uA[3] = Pa(pressure) units - default = 0;
   *  uA[4] = Temperature units - default = 0;
   *  uA[5] = time units - default = 0
   */
  void ThermoPhase::getUnitsStandardConc(double *uA, int k, int sizeUA) const {
    for (int i = 0; i < sizeUA; i++) {
      if (i == 0) uA[0] = 1.0;
      if (i == 1) uA[1] = -nDim();
      if (i == 2) uA[2] = 0.0;
      if (i == 3) uA[3] = 0.0;
      if (i == 4) uA[4] = 0.0;
      if (i == 5) uA[5] = 0.0;
    }
  }

  /*
   * initThermoFile():
   *
   * Initialization of a phase using an xml file.
   *
   * This routine is a precursor to initThermoXML(XML_Node*)
   * routine, which does most of the work. 
   *
   * @param infile XML file containing the description of the
   *        phase
   *
   * @param id  Optional parameter identifying the name of the
   *            phase. If none is given, the first XML
   *            phase element will be used.
   */
  void ThermoPhase::initThermoFile(std::string inputFile, std::string id) {

    if (inputFile.size() == 0) {
      throw CanteraError("ThermoPhase::initThermoFile",
			 "input file is null");
    }
    string path = findInputFile(inputFile);
    ifstream fin(path.c_str());
    if (!fin) {
      throw CanteraError("initThermoFile","could not open "
			 +path+" for reading.");
    }
    /*
     * The phase object automatically constructs an XML object.
     * Use this object to store information.
     */
    XML_Node &phaseNode_XML = xml();
    XML_Node *fxml = new XML_Node();
    fxml->build(fin);
    XML_Node *fxml_phase = findXMLPhase(fxml, id);
    if (!fxml_phase) {
      throw CanteraError("ThermoPhase::initThermo",
			 "ERROR: Can not find phase named " +
			 id + " in file named " + inputFile);
    }
    fxml_phase->copy(&phaseNode_XML);	
    initThermoXML(*fxml_phase, id);
    delete fxml;
  }

  /*
   *   Import and initialize a ThermoPhase object
   *
   *   This function is called from importPhase() 
   *   after the elements and the
   *   species are initialized with default ideal solution
   *   level data.
   *
   * @param phaseNode This object must be the phase node of a
   *             complete XML tree
   *             description of the phase, including all of the
   *             species data. In other words while "phase" must
   *             point to an XML phase object, it must have
   *             sibling nodes "speciesData" that describe
   *             the species in the phase.
   * @param id   ID of the phase. If nonnull, a check is done
   *             to see if phaseNode is pointing to the phase
   *             with the correct id. 
   */
  void ThermoPhase::initThermoXML(XML_Node& phaseNode, std::string id) {
 
    /*
     * and sets the state
     */
    if (phaseNode.hasChild("state")) {
      XML_Node& stateNode = phaseNode.child("state");
      setStateFromXML(stateNode);
    }
    setReferenceComposition(0);
  }

  void ThermoPhase::setReferenceComposition(const doublereal *const x) {
    xMol_Ref.resize(m_kk);
    if (x) {
      for (int k = 0; k < m_kk; k++) {
        xMol_Ref[k] = x[k];
      }
    } else {
      getMoleFractions(DATA_PTR(xMol_Ref));
    }
    double sum = -1.0;
    for (int k = 0; k < m_kk; k++) {
      sum += xMol_Ref[k];
    }
    if (fabs(sum) > 1.0E-11) {
      throw CanteraError("ThermoPhase::setReferenceComposition",
                         "input mole fractions don't sum to 1.0");
    }

  }

  void ThermoPhase::getReferenceComposition( doublereal *const x) const {
    for (int k = 0; k < m_kk; k++) {
      x[k] = xMol_Ref[k];
    }
  }
  
  /*
   * Initialize. 
   *
   * This method is provided to allow
   * subclasses to perform any initialization required after all
   * species have been added. For example, it might be used to
   * resize internal work arrays that must have an entry for
   * each species.  The base class implementation does nothing,
   * and subclasses that do not require initialization do not
   * need to overload this method.  When importing a CTML phase
   * description, this method is called just prior to returning
   * from function importPhase.
   *
   * @see importCTML.cpp
   */
  void ThermoPhase::initThermo() {
    // Check to see that there is at least one species defined in the phase
    if (m_kk <= 0) {
      throw CanteraError("ThermoPhase::initThermo()",
			 "Number of species is less than or equal to zero");
    }
    xMol_Ref.resize(m_kk, 0.0);
  }
  //====================================================================================================================
  void ThermoPhase::installSlavePhases(Cantera::XML_Node* phaseNode) {

  }
 //====================================================================================================================
  void ThermoPhase::saveSpeciesData(const int k, const XML_Node* const data) {
    if ((int) m_speciesData.size() < (k + 1)) {
      m_speciesData.resize(k+1, 0);
    }
    m_speciesData[k] = new XML_Node(*data);
  }
  //====================================================================================================================
  // Return a pointer to the XML tree containing the species
  // data for this phase.
  const std::vector<const XML_Node *> & ThermoPhase::speciesData() const { 
    if ((int) m_speciesData.size() != m_kk) {
      throw CanteraError("ThermoPhase::speciesData",
			 "m_speciesData is the wrong size");
    }
    return m_speciesData;
  }

  /*
   * Set the thermodynamic state.
   */
  void ThermoPhase::setStateFromXML(const XML_Node& state) {
    string comp = getChildValue(state,"moleFractions");
    if (comp != "") 
      setMoleFractionsByName(comp);
    else {
      comp = getChildValue(state,"massFractions");
      if (comp != "") 
	setMassFractionsByName(comp);
    }
    if (state.hasChild("temperature")) {
      double t = getFloat(state, "temperature", "temperature");
      setTemperature(t);
    }
    if (state.hasChild("pressure")) {
      double p = getFloat(state, "pressure", "pressure");
      setPressure(p);
    }
    if (state.hasChild("density")) {
      double rho = getFloat(state, "density", "density");
      setDensity(rho);
    }
  }

  /*
   * Called by function 'equilibrate' in ChemEquil.h to transfer
   * the element potentials to this object after every successful
   *  equilibration routine.
   * The element potentials are storred in their dimensionless
   * forms, calculated by dividing by RT.
   *    @param lambda vector containing the element potentials.
   *           Length = nElements. Units are Joules/kmol.
   */
  void ThermoPhase::setElementPotentials(const vector_fp& lambda) {
    doublereal rrt = 1.0/(GasConstant* temperature());
    int mm = nElements();
    if (lambda.size() < (size_t) mm) {
      throw CanteraError("setElementPotentials", "lambda too small");
    }
    if (!m_hasElementPotentials) {
      m_lambdaRRT.resize(mm);
    }
    for (int m = 0; m < mm; m++) {
      m_lambdaRRT[m] = lambda[m] * rrt;
    }
    m_hasElementPotentials = true;
  }

  /*
   * Returns the storred element potentials.
   * The element potentials are retrieved from their storred
   * dimensionless forms by multiplying by RT.
   * @param lambda Vector containing the element potentials.
   *        Length = nElements. Units are Joules/kmol.
   */
  bool ThermoPhase::getElementPotentials(doublereal* lambda) const {
    doublereal rt = GasConstant* temperature();
    int mm = nElements();
    if (m_hasElementPotentials) {
      for (int m = 0; m < mm; m++) {
	lambda[m] =  m_lambdaRRT[m] * rt;
      }
    }
    return (m_hasElementPotentials);
  }

  /*
   * Format a summary of the mixture state for output.
   */           
  std::string ThermoPhase::report(bool show_thermo) const {
    char p[800];
    string s = "";
    try {
      if (name() != "") {
	sprintf(p, " \n  %s:\n", name().c_str());
	s += p;
      }
      sprintf(p, " \n       temperature    %12.6g  K\n", temperature());
      s += p;
      sprintf(p, "          pressure    %12.6g  Pa\n", pressure());
      s += p;
      sprintf(p, "           density    %12.6g  kg/m^3\n", density());
      s += p;
      sprintf(p, "  mean mol. weight    %12.6g  amu\n", meanMolecularWeight());
      s += p;

      doublereal phi = electricPotential();
      if (phi != 0.0) {
	sprintf(p, "         potential    %12.6g  V\n", phi);
	s += p;
      }
      if (show_thermo) {
        sprintf(p, " \n");
        s += p;
        sprintf(p, "                          1 kg            1 kmol\n");
        s += p;
        sprintf(p, "                       -----------      ------------\n");
        s += p;
        sprintf(p, "          enthalpy    %12.6g     %12.4g     J\n", 
		enthalpy_mass(), enthalpy_mole());
        s += p;
        sprintf(p, "   internal energy    %12.6g     %12.4g     J\n", 
		intEnergy_mass(), intEnergy_mole());
        s += p;
        sprintf(p, "           entropy    %12.6g     %12.4g     J/K\n", 
		entropy_mass(), entropy_mole());
        s += p;
        sprintf(p, "    Gibbs function    %12.6g     %12.4g     J\n", 
		gibbs_mass(), gibbs_mole());
        s += p;
        sprintf(p, " heat capacity c_p    %12.6g     %12.4g     J/K\n", 
		cp_mass(), cp_mole());
        s += p;
        try {
	  sprintf(p, " heat capacity c_v    %12.6g     %12.4g     J/K\n", 
		  cv_mass(), cv_mole());
	  s += p;
        }
        catch(CanteraError) {
	  sprintf(p, " heat capacity c_v    <not implemented>       \n");
	  s += p;
        }
      }

      int kk = nSpecies();
      array_fp x(kk);
      array_fp y(kk);
      array_fp mu(kk);
      getMoleFractions(&x[0]);
      getMassFractions(&y[0]);
      getChemPotentials(&mu[0]);
      doublereal rt = GasConstant * temperature(); 
      int k;
      //if (th.nSpecies() > 1) {

      if (show_thermo) {
	sprintf(p, " \n                           X     "
		"            Y          Chem. Pot. / RT    \n");
	s += p;
	sprintf(p, "                     -------------     "
		"------------     ------------\n");
	s += p;
	for (k = 0; k < kk; k++) {
	  if (x[k] > SmallNumber) {
	    sprintf(p, "%18s   %12.6g     %12.6g     %12.6g\n", 
		    speciesName(k).c_str(), x[k], y[k], mu[k]/rt);
	  }
	  else {
	    sprintf(p, "%18s   %12.6g     %12.6g     \n", 
		    speciesName(k).c_str(), x[k], y[k]);
	  }
	  s += p;
	}
      }
      else {
	sprintf(p, " \n                           X"
		"Y\n");
	s += p;
	sprintf(p, "                     -------------"
		"     ------------\n");
	s += p;
	for (k = 0; k < kk; k++) {
	  sprintf(p, "%18s   %12.6g     %12.6g\n", 
		  speciesName(k).c_str(), x[k], y[k]);
	  s += p;
	}
      }
    }
    //}
    catch (CanteraError) {
      ;
    }
    return s;
  }

  /*
   * Format a summary of the mixture state for output.
   */           
  void ThermoPhase::reportCSV(std::ofstream& csvFile) const {

    csvFile.precision(3);
    int tabS = 15;
    int tabM = 30;
    int tabL = 40;
    try {
      if (name() != "") {
	csvFile << "\n"+name()+"\n\n";
      }
      csvFile << setw(tabL) << "temperature (K) =" << setw(tabS) << temperature() << endl;
      csvFile << setw(tabL) << "pressure (Pa) =" << setw(tabS) << pressure() << endl;
      csvFile << setw(tabL) << "density (kg/m^3) =" << setw(tabS) << density() << endl;
      csvFile << setw(tabL) << "mean mol. weight (amu) =" << setw(tabS) << meanMolecularWeight() << endl;
      csvFile << setw(tabL) << "potential (V) =" << setw(tabS) << electricPotential() << endl;   
      csvFile << endl;
      
      csvFile << setw(tabL) << "enthalpy (J/kg) = " << setw(tabS) << enthalpy_mass() << setw(tabL) 
	      << "enthalpy (J/kmol) = " << setw(tabS) << enthalpy_mole() << endl;
      csvFile << setw(tabL) << "internal E (J/kg) = " << setw(tabS) << intEnergy_mass() << setw(tabL)
	      << "internal E (J/kmol) = " << setw(tabS) << intEnergy_mole() << endl;
      csvFile << setw(tabL) << "entropy (J/kg) = " << setw(tabS) << entropy_mass() << setw(tabL) 
	      << "entropy (J/kmol) = " << setw(tabS) << entropy_mole() << endl;
      csvFile << setw(tabL) << "Gibbs (J/kg) = " << setw(tabS) << gibbs_mass() << setw(tabL) 
	      << "Gibbs (J/kmol) = " << setw(tabS) << gibbs_mole() << endl;
      csvFile << setw(tabL) << "heat capacity c_p (J/K/kg) = " << setw(tabS) << cp_mass() 
	      << setw(tabL) << "heat capacity c_p (J/K/kmol) = " << setw(tabS) << cp_mole() << endl;
      csvFile << setw(tabL) << "heat capacity c_v (J/K/kg) = " << setw(tabS) << cv_mass() 
	      << setw(tabL) << "heat capacity c_v (J/K/kmol) = " << setw(tabS) << cv_mole() << endl;
     
      csvFile.precision(8);

      int kk = nSpecies();
      doublereal *x    = new doublereal[kk];
      doublereal *y    = new doublereal[kk];
      doublereal *mu   = new doublereal[kk];
      doublereal *a    = new doublereal[kk];
      doublereal *ac   = new doublereal[kk];
      doublereal *hbar = new doublereal[kk];
      doublereal *sbar = new doublereal[kk];
      doublereal *ubar = new doublereal[kk];
      doublereal *cpbar= new doublereal[kk];
      doublereal *vbar = new doublereal[kk];
      std::vector<std::string> pNames;
      std::vector<doublereal *> data;

      getMoleFractions(x);
      pNames.push_back("X");
      data.push_back(x);
      try{
	getMassFractions(y);
	pNames.push_back("Y");
	data.push_back(y);
      }
      catch (CanteraError) {;}
      try{
	getChemPotentials(mu);
	pNames.push_back("Chem. Pot (J/kmol)");
	data.push_back(mu);
      }
      catch (CanteraError) {;}
      try{
	getActivities(a);
	pNames.push_back("Activity");
	data.push_back(a);
      }
      catch (CanteraError) {;}
      try{
	getActivityCoefficients(ac);
	pNames.push_back("Act. Coeff.");
	data.push_back(ac);
      }
      catch (CanteraError) {;}
      try{
	getPartialMolarEnthalpies(hbar);
	pNames.push_back("Part. Mol Enthalpy (J/kmol)");
	data.push_back(hbar);
      }
      catch (CanteraError) {;}
      try{
	getPartialMolarEntropies(sbar);
	pNames.push_back("Part. Mol. Entropy (J/K/kmol)");
	data.push_back(sbar);
      }
      catch (CanteraError) {;}
      try{
	getPartialMolarIntEnergies(ubar);
	pNames.push_back("Part. Mol. Energy (J/kmol)");
	data.push_back(ubar);
      }
      catch (CanteraError) {;}
      try{
	getPartialMolarCp(cpbar);
	pNames.push_back("Part. Mol. Cp (J/K/kmol");
	data.push_back(cpbar);
      }
      catch (CanteraError) {;}
      try{
	getPartialMolarVolumes(vbar);
	pNames.push_back("Part. Mol. Cv (J/K/kmol)");
	data.push_back(vbar);
      }
      catch (CanteraError) {;}

      csvFile << endl << setw(tabS) << "Species,";
      for ( int i = 0; i < (int)pNames.size(); i++ ){
	csvFile << setw(tabM) << pNames[i] << ",";
      }
      csvFile << endl;
      /*
      csvFile.fill('-');
      csvFile << setw(tabS+(tabM+1)*pNames.size()) << "-\n";
      csvFile.fill(' ');
      */
      for (int k = 0; k < kk; k++) {
	csvFile << setw(tabS) << speciesName(k) + ",";
	if (x[k] > SmallNumber) {
	  for (int i = 0; i < (int)pNames.size(); i++) {
	    csvFile << setw(tabM) << data[i][k] << ",";
	  }
	  csvFile << endl;
	} else {
	  for (int i = 0; i < (int)pNames.size(); i++) {
	    csvFile << setw(tabM) << 0 << ",";
	  }
	  csvFile << endl;
	}
      }
      delete [] x;
      delete [] y;
      delete [] mu;
      delete [] a;
      delete [] ac;
      delete [] hbar;
      delete [] sbar;
      delete [] ubar;
      delete [] cpbar;
      delete [] vbar;
      
    }
    catch (CanteraError) {
      ;
    }
  }

 
}