/*-------------------------------------------------------------------------
| 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 <iostream.h>
#include <iomanip.h>
#include "species.h"
#include "memtst.h"

void print_elem(elem& t)
{
  cout << "element" << setw(4-t.len()) << t << ", massa is " << setw(7)
       << t.mass() << ", number of characters " << t.len() << endl;
}

int main() {
  memory test;
  elem a;
  elem b = "Se";
  elem c = b;
  a = "B";
  print_elem(a);
  print_elem(b);
  print_elem(c);
  a = elem::Kr;
  print_elem(a);
  cout << "press RETURN to continue" << endl;
  cin.get();
  for (elem::elements i = elem::e; i <= elem::Fr; i++) {
    a = i;
    cout << setw(4-a.len()) << a << setw(9) << a.mass();
    if (i % 6 == 0)
      cout << endl;
  }
  cout << endl;
  do
  {
    cout << endl << "enter two elements ";
    cin >> a >> b;
    print_elem(a);
    print_elem(b);
    cout << "(first < second) is " << (a < b) << endl;
    cout << "(first = second) is " << (a == b) << endl;
    cout << "(first > second) is " << (a > b) << endl;
  }
  while (a && b);
  return 0;
}