/*-------------------------------------------------------------------------
| The software accompanies the paper                                      |
|                                                                         |
| Classes and Objects of Chemical Thermodynamics in Object-Oriented       |
| Programming. 2. A Class of Chemical Species                             |
|                                                                         |
| E.B. Rudnyi                                                             |
| E-mail: rudnyi@comp.chem.msu.su                                         |
| Homepages: http://www.chem.msu.su/~rudnyi/welcome.html                  |
|                                                                         |
| presented at Second Electronic Computational Chemistry Conference,      |
| November 1995, http://hackberry.chem.niu.edu/ECCC2/                     |
--------------------------------------------------------------------------*/

#include <fstream.h>
#include <iomanip.h>
#include "func_tp.h"
#include "memtst.h"

void print_func_Tp(func_Tp& t)
{
  if (t)
    cout << "function is " << endl << t << "; " << endl
         << "current errno " << t.errno
         << ", number of characters " << t.len() << endl << endl;
  else
    cout << "function is not determined" << endl << endl;
}

int main() {
  memory test;
  func_Tp a, b, c;
  ifstream in("func_tp.dat");
  in >> a >> b >> c;
  print_func_Tp(a);
  print_func_Tp(b);
  print_func_Tp(c);
  cout << "press RETURN to continue" << endl;
  cin.get();
  cout << endl;
  global::p = 1.;
  for (global::T = 500; global::T < 8001; global::T += 500)
    cout << setw(10) << global::T
         << setw(15) << a()
         << setw(15) << b()
         << setw(15) << c() << endl;
  return 0;
}