/*  periodic.c - The periodic table program.
	Conceived of by Todd M. Miller
	Authors: Todd M. Miller & Erwin Nijmeijer  Feb, 1992
		Caos/Camm Expert Center, Nijmegen, NL

   Abstract:  This is a simple program for computerized access to the
	  periodic table of the elements.  h,j,k,l move around 
	  the table and the "I"nformation key displays element 
	  specific information.  The program is constructed to be
	  only 1 source file (this file) and to contain all the
	  associated physical data within the source.  

   Portability:  Runs on Ultrix & VMS under Curses
	Under VMS:  cc periodic
		    $ define lnk$library sys$library:vaxccurses
		    $ define lnk$library_1 sys$library:vaxcrtl
		    link periodic
	Under Ultrix 4.2:
		    cc periodic.c -lcursesX -o periodic
And now:
  cc periodic.c display_file.c print_real.c -lcursesX -lm -o periodic

	VERSION 2 - September 23rd, 1992 - Todd M. Miller 
	(element files & significant figures).
*/


#ifdef ultrix
#include <cursesX.h>
#else
#include <stdio.h>
#include <curses.h>
#endif

struct info2 {
  int  Number;      /* Atomic Number */
  char Name[13];    /* Name - American spelling */
  char Symbol[3];
  char MolWeight[10];  /* 55th CRC handbook of chem. and Phys. pg 1 */
  double RMolWt;   /* significant figures in mol. weight */
  int  sigfig;   /* isn't being used */
  char State[7];
  int  Isotopes;     /* Number of isotopes in Mass table */
  char Masswt[23][15];    /* seperate isotope relative percent masses */
  char MassPerc[23][15];   /* Mass percent (character) */
  int  OxidNrs;         /* Number of oxidation states n Oxidstate table */
  int  Oxidstate[10];    /* Seperate oxidation states */
  char Density[10];
  char Boilingpt[10];  /* 55th CRC handbook of chem. and Phys. pg 1 */
  char Meltingpt[10];  /* 55th CRC handbook of chem. and Phys. pg 1 */
  double IonizationE;
  double Atomicrad;
  double Covrad;
  int Ionradnrs;  /* Number of ionic radii in Ionicrad table */
  double Ionicrad[6];
  int Oxidstd[6];
  int Coordnr[6];
  double VDW;
  double Abundance;
} elements[106];


	int Xpos, Ypos;
	int moving = 0;
      /*
         The three last symbols are compressed abbreviations of Resp.
         UNH, UHA, UNO and UNE (whatever that may be)
      */
  int Elements[11][19] =
  {{0,  0, 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0},
   {0,  1,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2},
   {0,  3,  4,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  5,  6,  7,  8,  9, 10},
   {0, 11, 12,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 13, 14, 15, 16, 17, 18},
   {0, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36},
   {0, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54},
   {0, 55, 56, 00, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86},
   {0, 87, 88, 00,0,0,0,0,0,0,  0,  0,  0,  0,  0,  0,  0,  0,  0},
   {0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0},
   {0,  0, 0, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71,000},
   {0,  0, 0, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99,100,101,102,103,000}};
   /* definition of elementpositions in the periodic table */



int coordinates[180][2];
int position[11][19][2];
int max_atoms = 103;

struct base_units {
  char *line;
} units[] = {
  {"                                              "},
  {" +------------------------------------------+ "},
  {" |Quantity           Name           Symbol  | "},
  {" >------------------------------------------< "},
  {" |Length             meter          m       | "},
  {" |Mass               kilogram       kg      | "},
  {" |Time               second         s       | "},
  {" |Temperature        kelvin         K       | "},
  {" |Amount of subs.    mole           mol     | "},
  {" |Electric current   ampere         A       | "},
  {" +------------------------------------------+ "},
  {"                                              "}};

  struct metrix {
    char *prefixes;
  } metric[11] = {
   {"+------------------------------------------------------------------+"},
   {"|                        Metric Prefixes                           |"},
   {"|atto(a)         10 E -18               deka(da)            10 E 1 |" },
   {"|fempto(f)       10 E -15               hecto(h)            10 E 2 |" },
   {"|pico(p)         10 E -12               kilo(k)             10 E 3 |" },
   {"|nano(n)         10 E -9                mega(M)             10 E 6 |" },
   {"|micro(u)        10 E -6                giga(G)             10 E 9 |" },
   {"|milli(m)        10 E -3                tera(T)             10 E 12|"},
   {"|centi(c)        10 E -2                peta(P)             10 E 15|"},
   {"|deci(d)         10 E -1                exa(E)              10 E 18|"},
   {"+------------------------------------------------------------------+"}};


/* Abbreviations for Commonly used constants */

struct abrevs {
  char *line;
} common[24] = {
  {"             Abbreviations for Commonly used Constants           "},
  {"Length                  Angstrom                            nm,pm"},
  {"Mass                    g                                      kg"},
  {"Volume                  ml, cm^3, liter             cm^3,dm^3,m^3"},
  {"Density(D)              g/ml,g/cm^3,g/liter       g/cm^3, kg/dm^3"},
  {"Amount of Substance     mole                                  mol"},
  {"Concentration           mole/liter                       mol/dm^3"},
  {"Temperature             K                                       K"},
  {"Pressure                atm, torr                              Pa"},
  {"Time                    sec,min,h                       s, min, h"},
  {"Speed                   cm/s                                  m/s"},
  {"Frequency(v)            sec^-1                                 Hz"},
  {"Energy                  cal,erg,eV,cm^-1             J, eV, cm^-1"},
  {"Ionization Energy       eV/atom                            kJ/mol"},
  {"Electron affinity       kcal/mole                          kJ/mol"},
  {"Electric charge         esu, columb                             C"},
  {"Electric current        amp                                     A"},
  {"Electric Potential      V                                       V"},
  {"difference                                                       "},
  {"Force                   dyne                                    N"},
  {"Force constant(k)       mdyne/Angstrom                        N/m"},
  {"Dipole moment(u(d))     D                                     C m"},
  {"Molar absorptivity(e)   liter/mole cm                dm^3/mole cm"},
  {"Radioactivity           Ci                                     Bq"}};

struct hlp {
  char *line;
} help[17] = {
  {"          The Periodic Table Program by Todd M. Miller             "},
  {"          CAOS/CAMM, KUN, Nijmegen, NL, February, 1992             "},
  {"                                                                   "},
  {"                   Commands:  {key} - {action}                     "},
  {" a - Abbreviations Table                   n - Numbered Table      "},
  {" b - Basic Metric Units                    o - (future implement.) "},
  {" c - (future implementation)               p - Redraw Symbols Table"},
  {" d - (future implementation)               q - Quit/Exit           "},
  {" e - Periodic Table (Medeleev, 1872)       r - Reference work      "},
  {" f - Periodic Table (Newlands, 1865)       s - (future implement.) "},
  {" g - Draw Group Labels                     t - (future implement.) "},
  {" h - Move left                             u - (future implement.) "},
  {" i - Information on specific element       v - (future implement.) "},
  {" j - Move down                             w - (future implement.) "},
  {" k - Move up                               x - Exit/Quit           "},
  {" l - Move right                            y - (future implement.) "}, 
  {" m - Metrix Prefixes                       z - (future implement.) "}};

struct newlands {
  char *period
  } Newlands[] = {
  {"                                                                       "},
  {" +-------------------------------------------------------------------+ "},
  {" |           Periodic Table of J.A.R. Newlands - 1864-1866           | "},
  {" >-------------------------------------------------------------------< "},
  {" |H          F         Cl        Co,Ni        Br        I       Pt,Ir| "},
  {" |Li         Na        K         Cu           Rb        Cs      Os   | "},
  {" |Be         Mg        Ca        Zn           Sr        Ba,V    Hg   | "},
  {" |B          Al        Cr        Y            Ce,La     Ta      Tl   | "},
  {" |C          Si        Ti        In           Zr        W       Pb   | "},
  {" |N          P         Mn        As           Di,Mo     Nb      Bi   | "},
  {" |O          S         Fe        Se           Rh,Ru     Au      Th   | "},
  {" +-------------------------------------------------------------------+ "},
  {"                                                                       "}};
struct Mendeleev1 {
  char *lines;
} Medeleev[] = {
{"                                                                           "},
{" +-----------------------------------------------------------------------+ "},
{" |                   Medeleev's Periodic Table of 1872                   | "},
{" |Series     I      II     III     IV       V      VI      VII     VIII  | "},
{" |-----------------------------------------------------------------------| "},
{" |  1        H                                                           | "},
{" |  2        Li     Be     B       C        N      O       F             | "},
{" |  3        Na     Mg     Al      Si       P      S       Cl            | "},
{" |  4        K      Ca     ?       Ti       V      Cr      Mn      Fe,Co | "},
{" |                                                                 Ni,Cu | "},
{" |  5       (Cu)    Zn     ?       ?        As     Se      Br            | "},
{" |  6        Rb     Sr    Yt       Zr        Nb     Mo      ?      Ru,Rh | "},
{" |                                                                 Pd,Ag | "},
{" |  7       (Ag)    Cd    In       Sn        Sb     Te      I            | "},
{" |  8        Cs     Ba    Di       Ce                                    | "},
{" |  9                     Er       La        Ta     W              Os,Ir | "},
{" |  10                                                             Pt,Au | "},
{" |  11      (Au)    Hg    Tl       Pb        Bi                          | "},
{" |  12                             Th               U                    | "},
{" +-----------------------------------------------------------------------+ "},
{"                                                                           "}};
                                                                                

WINDOW *mets;
int metrics_displayed = FALSE;   

void
make_coordinates()
{
int x,y,i,j,k;
   x = 2;
   y = 2;
   for(i=0;i < 11;i++) {
	for(j=0;j < 19;j++) {
	  k = Elements[i][j];
	  coordinates[k][0] = y;
	  coordinates[k][1] = x;
	  position[i][j][0] = y;
	  position[i][j][1] = x;
		x = x + 4;
	}
	x = 2;
	y = y + 2;
   }
  return;
}


	
void
  draw_table()
{
  int i;
  
  move(0,19);
  addstr("Electronic Periodic Table of the Elements");
  refresh();
  move(1,20);
  addstr(" Use ? key to obtain key bindings");
  for(i=0;i <= max_atoms;i++) {
    move(coordinates[i][0],coordinates[i][1]);
    addstr(elements[i].Symbol);
  }
  return;
}

void
draw_numbers()
/* This routine draws atomic numbers instead of symbols */
{
int i;
	for(i=1;i <= max_atoms;i++) {
	move(coordinates[i][0],coordinates[i][1]);
	printw("%d",elements[i].Number);
	}
	return;
}

void draw_labels()
/* Some very specific code for drawing the labels on the periodic table */
{
void bold (int i);


  bold(1);
  move(position[0][1][0],position[0][1][1]);
  addstr("I");
  move(position[0][2][0],position[1][2][1]);
  addstr("II");
  move(position[0][4][0],position[2][3][1]);
  addstr("III");
  move(position[0][5][0],position[2][4][1]);
  addstr("IV");
  move(position[0][6][0],position[2][5][1]);
  addstr("Vn");
  move(position[0][7][0],position[2][6][1]);
  addstr("VIn");
  move(position[0][8][0],position[2][7][1]);
  addstr("VII");
  move(position[0][9][0],position[2][8][1]);
  addstr("|- VIII -|");
  move(position[0][10][0],position[2][11][1]);
  addstr("In");
  move(position[0][11][0],position[2][12][1]);
  addstr("IIn");
  move(position[0][12][0],position[2][13][1]);
  addstr("III");
  move(position[0][13][0],position[2][14][1]);
  addstr("IV");
  move(position[0][14][0],position[2][15][1]);
  addstr("V");
  move(position[0][15][0],position[2][16][1]);
  addstr("VI");
  move(position[0][16][0],position[2][17][1]);
  addstr("VII");
  move(position[0][17][0],position[2][18][1]);
  addstr("VIII");
  bold(0);
  return;
}


void
ask_user()
{
void bold (); 		/* terminal Bold attribute on/off (machine specific). */
void bell ();		/* terminal bell (out of curses library) */
char response[80];
int key;
int waitforkey;
int element;
int savex,savey;
int i;
double value;

waitforkey =0;
   while(!moving) {
	element = Elements[Ypos][Xpos];
	move(coordinates[element][0],coordinates[element][1]);
	bold (1);
	addstr(elements[element].Symbol);
	bold (0);
	refresh();
	key = getch(); 
	savex = Xpos;
	savey = Ypos;
	if((key>=65)&&(key <= 90)) key = key - 32;
	switch(key) {

	case 'a': clear();            /* Abbreviations table */
	          for(i=0;i<=23;i++){
		    move(i,3);
		    addstr(common[i]);
		  }
	          refresh();
	          key = getch();
	          clear();
	          draw_table();
	          refresh();
	          break;

        case 'b': for(i=0;i<=11;i++) { /* basic metric standards */
		    move(i+4,16);
		    addstr(units[i]);
		  }
		  refresh();
		  key = getch();
		  clear();
		  draw_table();
		  refresh();
		  break;

        case 'c':
        case 'd': break;

	case 'e': for(i=0;i<=20;i++) { /* Gregor Medeleev's P.T. */
		  move(i+2,2);
		  addstr(Medeleev[i]);
		  }
		  refresh();
		  key = getch();
		  clear();
		  draw_table();
		  refresh();
		  break;

        case 'f': for(i=0;i<=11;i++) {  /* first periodic table */
		  move(i+6,5);
		  addstr(Newlands[i]);
		  }
		  refresh();
		  key = getch();
		  clear();
		  draw_table();
		  refresh();
		  break;



        case 'g': draw_labels();
		refresh();
		break;

	case 'h': Xpos = Xpos - 1;
		if(Xpos == 0){
			Xpos =savex;
			break;
		}
		while(Xpos > 0 & (Elements[Ypos][Xpos] == 0)) {
			Xpos = Xpos -1;
			if(Xpos < 1) {
				bell();
				Xpos = savex;
				break;
			}
		}
		break;

	case 'i': element = Elements[Ypos][Xpos];
	  clear();
	  move(1,32);
	  printw("%s\n",elements[element].Name);
	  printw("Atomic Symbol :       %s\n", elements[element].Symbol);
          printw("Atomic Number : %d\n",elements[element].Number);
	  if(elements[element].Meltingpt != 0) {
	    printw("Melting Point : %s\n",elements[element].Meltingpt);
	  } else {
	    printw("Melting Point : Not available\n");
	  }
	  if(elements[element].Boilingpt != 0) {
	    printw("Boiling Point : %s\n",elements[element].Boilingpt);
	  } else {
	    printw("Boiling Point : Not Available  \n");
	  }
          if(elements[element].Covrad != 0) {
            printw("Covalent Rad. : %f\n",elements[element].Covrad);
          } else {
            printw("Covalent Rad. : Not Available\n");
          }
          if(elements[element].VDW != 0) {
            printw("VDW Radius    : %f\n",elements[element].VDW);
          } else {
            printw("VDW Radius    : Not available\n");
          }
	  refresh();
          move(2,40);
	value = 0.0;
	for(i=0;i <= elements[element].Isotopes;i++) {
/*
		value = value + elements[element].Masswt[i] * 
		    elements[element].Massper[i]/100.00;
*/
	}


	    printw("Atomic Weight    : %s\n",elements[element].MolWeight);

          move(3,40);
            printw("Natural State    : %s\n", elements[element].State);
          move(4,40);
	  if(elements[element].Density != 0) {
	    printw("Denisty          : %s",elements[element].Density);
	  } else {
	    printw("Density          : Not available");
	  }
	  move(5,40);
	  if(elements[element].IonizationE != 0) {
	    printw("Ionization Energy: %f",elements[element].IonizationE);
	  } else {
	    printw("Ionization Energy: Not available");
	  }
          move(6,40);
	  if(elements[element].Atomicrad != 0) {
	    printw("Atomic Radius    : %f",elements[element].Atomicrad);
          } else {
            printw("Atomic Radius    : Not available");
	  }
          move(7,40);
	    printw("Relative Abund.  : %f",elements[element].Abundance);

          move (9,1);
	  if(elements[element].Isotopes > 1) {
	    printw("There are %d naturally occuring isotopes:\n",
		   elements[element].Isotopes);
	  } else if(elements[element].Isotopes != 0) {
	    printw("There is 1 naturally occuring isotope:\n");
	  }
	  refresh();
	  for(i=0; i < elements[element].Isotopes; i++) {
             printw( 
	"%s percent of isotope mass: %s  (a.m.u)\n",
		elements[element].MassPerc[i],
	   elements[element].Masswt[i]);
	  }
	  refresh();
	  if(elements[element].OxidNrs > 1) {
	    printw("\n%s has %d Oxidation states:",elements[element].Name,
		   elements[element].OxidNrs);
	  } else if (elements[element].OxidNrs == 1) {
	    printw("\n%s has 1 Oxidation state: ",elements[element].Name);
	  }
	  for(i=0; i < elements[element].OxidNrs; i++) {
	    printw(" %d",elements[element].Oxidstate[i]);
	    refresh();
	    if(i == (elements[element].OxidNrs-1)) {
	      addstr(".\n\n");
	    } else {
	      addstr(",");
	    }
	    refresh();
	  }
	  refresh();

	  if(elements[element].Ionradnrs != 0) {
	    printw("Ionic state    Coordination Number    Ionic radius\n");
	    for(i = 0; i < elements[element].Ionradnrs; i++) {
	      printw("   %d                %d                  %f\n",
		     elements[element].Oxidstd[i],elements[element].Coordnr[i],
		     elements[element].Ionicrad[i]);
	    }
	  }
	  refresh();
	  key = getch();
	  clear();
	  draw_table();
	  break;
	
	case 'j': Ypos = Ypos + 1;
		if(Ypos > 10) {
			Ypos = savey;
			break;
		}
		while(Ypos < 11 & (Elements[Ypos][Xpos] == 0)) {
			Ypos = Ypos + 1;
			if(Ypos >= 10) {
				bell();
				Ypos = savey;
				break;
			}
		}
		break;

	case 'k': Ypos = Ypos - 1;
		if(Ypos <= 0) {
			Ypos = savey;
			break;
		}
		while(Ypos > 0 & (Elements[Ypos][Xpos] == 0)) {
			Ypos = Ypos - 1;
			if(Ypos < 1) {
				bell();
				Ypos = savey;
				break;
			}
		}
		break;

	case 'l': Xpos = Xpos + 1;
		if(Xpos > 18) {
			Xpos = savex;
			break;
		}
		while((Xpos < 19) && (Elements[Ypos][Xpos] == 0)){
			Xpos = Xpos + 1;
			if(Xpos > 18) {
				bell();
				Xpos = savex;
				break;
			}
		} 
		break;

        case 'm': for(i=0;i<=10;i++) {
	          move(i+6,6);
	          addstr(metric[i]);
	          }
	          refresh();
		  key = getch();
		  clear();
		  draw_table();
 		  refresh();
	          break;


	case 'n': clear();
		  draw_numbers();
		  refresh();
		  break;
	
	case 'o': break;

	case 'p': clear();           /* Redraw table with symbols */
		  draw_table();
		  refresh();
		  break;
        case 'Q':
        case 'q': moving = 1;
		  break;
	case 'r':
		  clear();
		  display_file(elements[element].Name);
		  clear();
		  draw_table();
		  refresh();
		  break;
	case 's': break;
	case 't': 
	/*	clear();
		Density_table(-1,0.0);
		for(i=1;i<100;i++)
			Density_table(i,elements[i].Density);
		refresh();
		sleep(10);
		clear();
		draw_table();
		refresh();  */
		break;
	case 'u': break;
	case 'v': break;
	case 'w': break;

        case 'X':
        case 'x': moving = 1;
		  break;

	case 'y':
	case 'z':

	case ' ':
	case '?':  clear();            /* Help */
	        for(i=0;i<=16;i++){
		  move(i+3,3);
		  addstr(help[i]);
		}
	        refresh();
	        key = getch();
	        clear();
	        draw_table();
	        refresh();
	        break;

 	default: break;

	}
	element = Elements[savey][savex];
	move(coordinates[element][0],coordinates[element][1]);
	bold(0);
	addstr(elements[element].Symbol);
	element = Elements[Ypos][Xpos];
	move(coordinates[element][0],coordinates[element][1]);
	bold(1);
	addstr(elements[element].Symbol);
	bold(0);
	refresh();
   }
	return;
}


void bold(on_off)
int on_off;
{

if(on_off) {
#ifdef vaxc
	setattr(_BOLD);
#else
	attron(A_BOLD);
#endif
/* can't make attron(A_BOLD) work on SUN!! */

} else {
#ifdef vaxc
	clrattr(_BOLD);
#else
	attroff(A_BOLD);
#endif
/* can't make attroff(A_BOLD) work on SUN */

}
	return;
}

void bell()
{
#ifdef ultrix
beep();
#endif
return;
}


void fill_elements()
{


elements[1].Number = 1;
strcpy(elements[1].Name,"Hydrogen");
strcpy(elements[1].Symbol,"H");
strcpy(elements[1].MolWeight ,"1.00079");  /* atomic mass units , sig figs */
elements[1].RMolWt = 1.00079;  /* atomic mass units , sig figs */
elements[1].sigfig = 5; 	  /* sig figs */
strcpy(elements[1].State,"Gas");
elements[1].Isotopes = 2;
strcpy(elements[1].Masswt[0],"1.007825");
strcpy(elements[1].MassPerc[0] , "99.985");
strcpy(elements[1].Masswt[1],"2.0140");
strcpy(elements[1].MassPerc[1] , "0.015");
elements[1].OxidNrs = 2;
elements[1].Oxidstate[0] = 1;
elements[1].Oxidstate[1] = -1;
strcpy(elements[1].Density , "0.08988");
/* elements[1].specheat = 3.410;  cals/gram-celcius */
strcpy(elements[1].Boilingpt , "-252.87");  /* CRC  Celcius */
strcpy(elements[1].Meltingpt , "-259.14");  /*  " */
elements[1].IonizationE = 13.598;
elements[1].Atomicrad = 37.300000;
elements[1].Covrad = 30.000000; /* Angstroms */
elements[1].Ionradnrs = 1;
elements[1].Ionicrad[0] = 21.000000;
elements[1].Oxidstd[0] = -1;
elements[1].Coordnr[0] = 1;
elements[1].VDW = 100.000000;
elements[1].Abundance = 0.880000;
/* discovered = 1766 */ 
elements[2].Number = 2;
strcpy(elements[2].Name,"Helium");
strcpy(elements[2].Symbol,"He");
strcpy(elements[2].MolWeight ,"4.003");
elements[2].RMolWt = 4.003;
elements[2].sigfig = 3;
strcpy(elements[2].State,"Gas");
elements[2].Isotopes = 2;
strcpy(elements[2].Masswt[0], "3.01603");
strcpy(elements[2].MassPerc[0] , "0.00013");
strcpy(elements[2].Masswt[1] , "4.00260");
strcpy(elements[2].MassPerc[1] , "100");
elements[2].OxidNrs = 0;
strcpy(elements[2].Density , "0.170000");
strcpy(elements[2].Meltingpt , "-272.2"); /* celcius */
strcpy(elements[2].Boilingpt ,"-268.934");
elements[2].IonizationE = 24.587000;
elements[2].Atomicrad = 0.000000;
elements[2].Covrad = 0.000000;
elements[2].Ionradnrs = 0;
elements[2].VDW = 140.000000;
elements[2].Abundance = 0.000000;
elements[3].Number = 3;
strcpy(elements[3].Name,"Lithium");
strcpy(elements[3].Symbol,"Li");
strcpy(elements[3].MolWeight ,"6.941");
elements[3].RMolWt = 6.941;
elements[3].sigfig = 3;
strcpy(elements[3].State,"Solid");
elements[3].Isotopes = 2;
strcpy(elements[3].Masswt[0] , "6.01512");
strcpy(elements[3].MassPerc[0] , "7.42");
strcpy(elements[3].Masswt[1] , "7.01600");
strcpy(elements[3].MassPerc[1] , "92.58");
elements[3].OxidNrs = 1;
elements[3].Oxidstate[0] = 1;
strcpy(elements[3].Density , "0.530000");
strcpy(elements[3].Meltingpt , "180.54");
strcpy(elements[3].Boilingpt ,"1347");
elements[3].IonizationE = 5.392000;
elements[3].Atomicrad = 152.000000;
elements[3].Covrad = 123.000000;
elements[3].Ionradnrs = 2;
elements[3].Ionicrad[0] = 59.000000;
elements[3].Oxidstd[0] = 1;
elements[3].Coordnr[0] = 4;
elements[3].Ionicrad[1] = 76.000000;
elements[3].Oxidstd[1] = 1;
elements[3].Coordnr[1] = 6;
elements[3].VDW = 0.000000;
elements[3].Abundance = 0.006000;
elements[4].Number = 4;
strcpy(elements[4].Name,"Beryllium");
strcpy(elements[4].Symbol,"Be");
strcpy(elements[4].MolWeight ,"9.0122");
elements[4].RMolWt =9.0122;
elements[4].sigfig = 4;
strcpy(elements[4].State,"Solid");
elements[4].Isotopes = 1;
strcpy(elements[4].Masswt[0] , "9.01218");
strcpy(elements[4].MassPerc[0] , "100");
elements[4].OxidNrs = 1;
elements[4].Oxidstate[0] = 2;
strcpy(elements[4].Density , "1.850000");
strcpy(elements[4].Meltingpt , "1278.000000");
strcpy(elements[4].Boilingpt ,"2870.0");
elements[4].IonizationE = 9.322000;
elements[4].Atomicrad = 111.300000;
elements[4].Covrad = 89.000000;
elements[4].Ionradnrs = 2;
elements[4].Ionicrad[0] = 27.000000;
elements[4].Oxidstd[0] = 2;
elements[4].Coordnr[0] = 4;
elements[4].Ionicrad[1] = 45.000000;
elements[4].Oxidstd[1] = 2;
elements[4].Coordnr[1] = 5;
elements[4].VDW = 0.000000;
elements[4].Abundance = 0.000500;
elements[5].Number = 5;
strcpy(elements[5].Name,"Boron");
strcpy(elements[5].Symbol,"B");
strcpy(elements[5].MolWeight ,"10.811");
elements[5].RMolWt = 10.811;
elements[5].sigfig = 3;
strcpy(elements[5].State,"Solid");
elements[5].Isotopes = 2;
strcpy(elements[5].Masswt[0] , "10.0129");
strcpy(elements[5].MassPerc[0] , "19.78");
strcpy(elements[5].Masswt[1] , "11.00931");
strcpy(elements[5].MassPerc[1] , "80.22");
elements[5].OxidNrs = 1;
elements[5].Oxidstate[0] = 3;
strcpy(elements[5].Density , "2.460000");
strcpy(elements[5].Meltingpt , "2300.");
strcpy(elements[5].Boilingpt ,"2550"); /* sub */
elements[5].IonizationE = 8.298000;
elements[5].Atomicrad = 79.500000;
elements[5].Covrad = 81.000000;
elements[5].Ionradnrs = 2;
elements[5].Ionicrad[0] = 1.000000;
elements[5].Oxidstd[0] = 3;
elements[5].Coordnr[0] = 3;
elements[5].Ionicrad[1] = 11.000000;
elements[5].Oxidstd[1] = 3;
elements[5].Coordnr[1] = 4;
elements[5].VDW = 0.000000;
elements[5].Abundance = 0.001000;
elements[6].Number = 6;
strcpy(elements[6].Name,"Carbon");
strcpy(elements[6].Symbol,"C");
strcpy(elements[6].MolWeight ,"12.011");
elements[6].RMolWt = 12.011000;
elements[6].sigfig = 3;
strcpy(elements[6].State,"Solid");
elements[6].Isotopes = 2;
strcpy(elements[6].Masswt[0] , "12.000");
strcpy(elements[6].MassPerc[0] , "98.89");
strcpy(elements[6].Masswt[1] , "13.00355");
strcpy(elements[6].MassPerc[1] , "1.11");
elements[6].OxidNrs = 3;
elements[6].Oxidstate[0] = 4;
elements[6].Oxidstate[1] = 2;
elements[6].Oxidstate[2] = -4;
strcpy(elements[6].Density , "3.510000");
strcpy(elements[6].Meltingpt , "3550.000000"); /* aprox */
strcpy(elements[6].Boilingpt ,"4827.0");
elements[6].IonizationE = 11.260000;
elements[6].Atomicrad = 77.200000;
elements[6].Covrad = 77.000000;
elements[6].Ionradnrs = 1;
elements[6].Ionicrad[0] = 15.000000;
elements[6].Oxidstd[0] = 4;
elements[6].Coordnr[0] = 4;
elements[6].VDW = 170.000000;
elements[6].Abundance = 0.090000;
elements[7].Number = 7;
strcpy(elements[7].Name,"Nitrogen");
strcpy(elements[7].Symbol,"N");
strcpy(elements[7].MolWeight ,"14.007");
elements[7].RMolWt = 14.007;
elements[7].sigfig =3;
strcpy(elements[7].State,"Gas");
elements[7].Isotopes = 2;
strcpy(elements[7].Masswt[0] , "14.00307");
strcpy(elements[7].MassPerc[0] , "99.63");
strcpy(elements[7].Masswt[1] , "15.00011");
strcpy(elements[7].MassPerc[1] , "0.37");
elements[7].OxidNrs = 5;
elements[7].Oxidstate[0] = 5;
elements[7].Oxidstate[1] = 4;
elements[7].Oxidstate[2] = 3;
elements[7].Oxidstate[3] = 2;
elements[7].Oxidstate[4] = -3;
strcpy(elements[7].Density , "1.170000");
strcpy(elements[7].Meltingpt , "-209.86");
strcpy(elements[7].Boilingpt ,"-195.8");
elements[7].IonizationE = 14.534000;
elements[7].Atomicrad = 54.900000;
elements[7].Covrad = 70.000000;
elements[7].Ionradnrs = 1;
elements[7].Ionicrad[0] = 146.000000;
elements[7].Oxidstd[0] = -3;
elements[7].Coordnr[0] = 4;
elements[7].VDW = 150.000000;
elements[7].Abundance = 0.030000;
elements[8].Number = 8;
strcpy(elements[8].Name,"Oxygen");
strcpy(elements[8].Symbol,"O");
strcpy(elements[8].MolWeight ,"15.999");
elements[8].RMolWt = 15.999;
elements[8].sigfig =3;
strcpy(elements[8].State,"Gas");
elements[8].Isotopes = 3;
strcpy(elements[8].Masswt[0] , "15.99491");
strcpy(elements[8].MassPerc[0] , "99.759");
strcpy(elements[8].Masswt[1] , "15.99491");
strcpy(elements[8].MassPerc[1] , "0.037");
strcpy(elements[8].Masswt[2] , "15.99491");
strcpy(elements[8].MassPerc[2] , "0.204");
elements[8].OxidNrs = 2;
elements[8].Oxidstate[0] = -2;
elements[8].Oxidstate[1] = -1;
strcpy(elements[8].Density , "1.330000");
strcpy(elements[8].Meltingpt , "-218.4");
strcpy(elements[8].Boilingpt ,"-183.962");
elements[8].IonizationE = 13.618000;
elements[8].Atomicrad = 60.400000;
elements[8].Covrad = 70.000000;
elements[8].Ionradnrs = 1;
elements[8].Ionicrad[0] = 138.000000;
elements[8].Oxidstd[0] = -2;
elements[8].Coordnr[0] = 4;
elements[8].VDW = 140.000000;
elements[8].Abundance = 49.400000;
elements[9].Number = 9;
strcpy(elements[9].Name,"Fluorine");
strcpy(elements[9].Symbol,"F");
strcpy(elements[9].MolWeight ,"18.998");
elements[9].RMolWt = 18.998;
elements[9].sigfig = 3;
strcpy(elements[9].State,"Gas");
elements[9].Isotopes = 1;
strcpy(elements[9].Masswt[0] , "18.99840");
strcpy(elements[9].MassPerc[0] , "100");
elements[9].OxidNrs = 1;
elements[9].Oxidstate[0] = -1;
strcpy(elements[9].Density , "1.580000");
strcpy(elements[9].Meltingpt , "-219.62");
strcpy(elements[9].Boilingpt ,"-188.14");
elements[9].IonizationE = 17.422000;
elements[9].Atomicrad = 70.900000;
elements[9].Ionradnrs = 1;
elements[9].Ionicrad[0] = 133.000000;
elements[9].Oxidstd[0] = -1;
elements[9].Coordnr[0] = 6;
elements[9].VDW = 140.000000;
elements[9].Abundance = 0.030000;
elements[10].Number = 10;
strcpy(elements[10].Name,"Neon");
strcpy(elements[10].Symbol,"Ne");
strcpy(elements[10].MolWeight ,"20.180");
elements[10].RMolWt = 20.180;
elements[10].sigfig = 3;
strcpy(elements[10].State,"Gas");
elements[10].Isotopes = 3;
strcpy(elements[10].Masswt[0] , "19.99244");
strcpy(elements[10].MassPerc[0] , "90.92");
strcpy(elements[10].Masswt[1] , "20.99395");
strcpy(elements[10].MassPerc[1] , "0.257");
strcpy(elements[10].Masswt[2] , "21.99138");
strcpy(elements[10].MassPerc[2] , "8.82");
elements[10].OxidNrs = 0;
strcpy(elements[10].Density , "0.840000");
strcpy(elements[10].Meltingpt , "-248.67");
strcpy(elements[10].Boilingpt ,"-246.048");
elements[10].IonizationE = 21.564000;
elements[10].Atomicrad = 0.000000;
elements[10].Covrad = 0.000000;
elements[10].Ionradnrs = 0;
elements[10].VDW = 150.000000;
elements[10].Abundance = 0.000000;
elements[11].Number = 11;
strcpy(elements[11].Name,"Sodium");
strcpy(elements[11].Symbol,"Na");
strcpy(elements[11].MolWeight ,"22.990");
elements[11].RMolWt =22.990;
elements[11].sigfig = 3;
strcpy(elements[11].State,"Solid");
elements[11].Isotopes = 1;
strcpy(elements[11].Masswt[0] , "22.9898");
strcpy(elements[11].MassPerc[0] , "100");
elements[11].OxidNrs = 1;
elements[11].Oxidstate[0] = 1;
strcpy(elements[11].Density , "0.970000");
strcpy(elements[11].Meltingpt , "97.81"); /* +- 0.03 */
strcpy(elements[11].Boilingpt ,"882.9");
elements[11].IonizationE = 5.139000;
elements[11].Atomicrad = 185.800000;
elements[11].Covrad = 157.000000;
elements[11].Ionradnrs = 2;
elements[11].Ionicrad[0] = 99.000000;
elements[11].Oxidstd[0] = 1;
elements[11].Coordnr[0] = 4;
elements[11].Ionicrad[1] = 102.000000;
elements[11].Oxidstd[1] = 1;
elements[11].Coordnr[1] = 6;
elements[11].VDW = 0.000000;
elements[11].Abundance = 2.640000;
elements[12].Number = 12;
strcpy(elements[12].Name,"Magnesium");
strcpy(elements[12].Symbol,"Mg");
strcpy(elements[12].MolWeight ,"24.305");
elements[12].RMolWt = 24.305;
elements[12].sigfig = 3;
strcpy(elements[12].State,"Solid");
elements[12].Isotopes = 3;
strcpy(elements[12].Masswt[0] , "23.98504");
strcpy(elements[12].MassPerc[0] , "78.70");
strcpy(elements[12].Masswt[1] , "24.98584");
strcpy(elements[12].MassPerc[1] , "10.13");
strcpy(elements[12].Masswt[2] , "25.98259");
strcpy(elements[12].MassPerc[2] , "11.17");
elements[12].OxidNrs = 1;
elements[12].Oxidstate[0] = 2;
strcpy(elements[12].Density , "1.740000");
strcpy(elements[12].Meltingpt , "648.8"); /* +- 0.5 */
strcpy(elements[12].Boilingpt ,"1090");
elements[12].IonizationE = 7.646000;
elements[12].Atomicrad = 159.900000;
elements[12].Covrad = 136.000000;
elements[12].Ionradnrs = 2;
elements[12].Ionicrad[0] = 57.000000;
elements[12].Oxidstd[0] = 2;
elements[12].Coordnr[0] = 4;
elements[12].Ionicrad[1] = 72.000000;
elements[12].Oxidstd[1] = 2;
elements[12].Coordnr[1] = 6;
elements[12].VDW = 0.000000;
elements[12].Abundance = 1.940000;
elements[13].Number = 13;
strcpy(elements[13].Name,"Aluminum");
strcpy(elements[13].Symbol,"Al");
strcpy(elements[13].MolWeight ,"26.982");
elements[13].RMolWt = 26.982;
elements[13].sigfig = 3;
strcpy(elements[13].State,"Solid");
elements[13].Isotopes = 1;
strcpy(elements[13].Masswt[0] , "26.98153");
strcpy(elements[13].MassPerc[0] , "100");
elements[13].OxidNrs = 1;
elements[13].Oxidstate[0] = 3;
strcpy(elements[13].Density , "2.700000");
strcpy(elements[13].Meltingpt , "660.37");
strcpy(elements[13].Boilingpt ,"2467");
elements[13].IonizationE = 5.986000;
elements[13].Atomicrad = 143.200000;
elements[13].Covrad = 125.000000;
elements[13].Ionradnrs = 2;
elements[13].Ionicrad[0] = 39.000000;
elements[13].Oxidstd[0] = 3;
elements[13].Coordnr[0] = 4;
elements[13].Ionicrad[1] = 54.000000;
elements[13].Oxidstd[1] = 3;
elements[13].Coordnr[1] = 6;
elements[13].VDW = 0.000000;
elements[13].Abundance = 7.570000;
elements[14].Number = 14;
strcpy(elements[14].Name,"Silicon");
strcpy(elements[14].Symbol,"Si");
strcpy(elements[14].MolWeight ,"32.064");
elements[14].RMolWt =32.064;
elements[14].sigfig = 3;
strcpy(elements[14].State,"Solid");
elements[14].Isotopes = 3;
strcpy(elements[14].Masswt[0] , "27.97693");
strcpy(elements[14].MassPerc[0] , "92.21");
strcpy(elements[14].Masswt[1] , "28.97649");
strcpy(elements[14].MassPerc[1] , "4.70");
strcpy(elements[14].Masswt[2] , "29.97376");
strcpy(elements[14].MassPerc[2] , "3.09");
elements[14].OxidNrs = 2;
elements[14].Oxidstate[0] = 4;
elements[14].Oxidstate[1] = -4;
strcpy(elements[14].Density , "2.330000");
strcpy(elements[14].Meltingpt , "1410.");
strcpy(elements[14].Boilingpt ,"2355");
elements[14].IonizationE = 8.151000;
elements[14].Atomicrad = 117.600000;
elements[14].Covrad = 117.000000;
elements[14].Ionradnrs = 2;
elements[14].Ionicrad[0] = 26.000000;
elements[14].Oxidstd[0] = 4;
elements[14].Coordnr[0] = 4;
elements[14].Ionicrad[1] = 40.000000;
elements[14].Oxidstd[1] = 4;
elements[14].Coordnr[1] = 6;
elements[14].VDW = 0.000000;
elements[14].Abundance = 25.800000;
elements[15].Number = 15;
strcpy(elements[15].Name,"Phosphorus");
strcpy(elements[15].Symbol,"P");
strcpy(elements[15].MolWeight ,"30.974");
elements[15].RMolWt = 30.974;
elements[15].sigfig = 3;
strcpy(elements[15].State,"Solid");
elements[15].Isotopes = 1;
strcpy(elements[15].Masswt[0] , "30.97376");
strcpy(elements[15].MassPerc[0] , "100");
elements[15].OxidNrs = 3;
elements[15].Oxidstate[0] = 5;
elements[15].Oxidstate[1] = 3;
elements[15].Oxidstate[2] = -3;
strcpy(elements[15].Density , "1.820000");
strcpy(elements[15].Meltingpt , "44.100000"); /* white */
strcpy(elements[15].Boilingpt ,"280");       /* white */
elements[15].IonizationE = 10.486000;
elements[15].Atomicrad = 110.500000;
elements[15].Covrad = 110.000000;
elements[15].Ionradnrs = 2;
elements[15].Ionicrad[0] = 17.000000;
elements[15].Oxidstd[0] = 5;
elements[15].Coordnr[0] = 4;
elements[15].Ionicrad[1] = 44.000000;
elements[15].Oxidstd[1] = 3;
elements[15].Coordnr[1] = 6;
elements[15].VDW = 0.000000;
elements[15].Abundance = 0.090000;
elements[16].Number = 16;
strcpy(elements[16].Name,"Sulfur");
strcpy(elements[16].Symbol,"S");
strcpy(elements[16].MolWeight ,"32.064");
elements[16].RMolWt = 32.064;
elements[16].sigfig = 3;
strcpy(elements[16].State,"Solid");
elements[16].Isotopes = 4;
strcpy(elements[16].Masswt[0] , "31.97207");
strcpy(elements[16].MassPerc[0] , "95.0");
strcpy(elements[16].Masswt[1] , "32.97146");
strcpy(elements[16].MassPerc[1] , "0.76");
strcpy(elements[16].Masswt[2] , "33.96786");
strcpy(elements[16].MassPerc[2] , "4.22");
strcpy(elements[16].Masswt[3] , "35.96709");
strcpy(elements[16].MassPerc[3],"0.014");
elements[16].OxidNrs = 4;
elements[16].Oxidstate[0] = 6;
elements[16].Oxidstate[1] = 4;
elements[16].Oxidstate[2] = 2;
elements[16].Oxidstate[3] = -2;
strcpy(elements[16].Density , "2.060000");
strcpy(elements[16].Meltingpt , "112.8");
strcpy(elements[16].Boilingpt ,"444.674");
elements[16].IonizationE = 10.360000;
elements[16].Atomicrad = 103.500000;
elements[16].Covrad = 104.000000;
elements[16].Ionradnrs = 1;
elements[16].Ionicrad[0] = 184.000000;
elements[16].Oxidstd[0] = -2;
elements[16].Coordnr[0] = 6;
elements[16].VDW = 180.000000;
elements[16].Abundance = 0.050000;
elements[17].Number = 17;
strcpy(elements[17].Name,"Chlorine");
strcpy(elements[17].Symbol,"Cl");
strcpy(elements[17].MolWeight ,"35.453");
elements[17].RMolWt = 35.453;
elements[17].sigfig = 3;
strcpy(elements[17].State,"Gas");
elements[17].Isotopes = 2;
strcpy(elements[17].Masswt[0] , "34.96885");
strcpy(elements[17].MassPerc[0] , "75.53");
strcpy(elements[17].Masswt[1] , "35.453");
strcpy(elements[17].MassPerc[1] , "24.47");
elements[17].OxidNrs = 5;
elements[17].Oxidstate[0] = 7;
elements[17].Oxidstate[1] = 5;
elements[17].Oxidstate[2] = 3;
elements[17].Oxidstate[3] = 1;
elements[17].Oxidstate[4] = -1;
strcpy(elements[17].Density , "2.950000");
strcpy(elements[17].Meltingpt , "-100.98");
strcpy(elements[17].Boilingpt ,"-34.6");
elements[17].IonizationE = 12.967000;
elements[17].Atomicrad = 99.400000;
elements[17].Covrad = 99.000000;
elements[17].Ionradnrs = 1;
elements[17].Ionicrad[0] = 181.000000;
elements[17].Oxidstd[0] = -1;
elements[17].Coordnr[0] = 6;
elements[17].VDW = 180.000000;
elements[17].Abundance = 0.190000;
elements[18].Number = 18;
strcpy(elements[18].Name,"Argon");
strcpy(elements[18].Symbol,"Ar");
strcpy(elements[18].MolWeight ,"39.948");
elements[18].RMolWt = 39.948;
elements[18].sigfig = 3;
strcpy(elements[18].State,"Gas");
elements[18].Isotopes = 3;
strcpy(elements[18].Masswt[0] , "39.948");
strcpy(elements[18].MassPerc[0] , "99.60");
strcpy(elements[18].Masswt[1] , "35.96755");
strcpy(elements[18].MassPerc[1] , "0.337");
strcpy(elements[18].Masswt[2] , "37.96272");
strcpy(elements[18].MassPerc[2] , "0.063");
elements[18].OxidNrs = 0;
strcpy(elements[18].Density , "1.660000");
strcpy(elements[18].Meltingpt , "-189.2");
strcpy(elements[18].Boilingpt ,"-185.7");
elements[18].IonizationE = 15.759000;
elements[18].Atomicrad = 180.000000;
elements[18].Covrad = 0.000000;
elements[18].Ionradnrs = 0;
elements[18].VDW = 0.000000;
elements[18].Abundance = 0.000400;
elements[19].Number = 19;
strcpy(elements[19].Name,"Potassium");
strcpy(elements[19].Symbol,"K");
strcpy(elements[19].MolWeight ,"39.098");
elements[19].RMolWt = 39.098;
elements[19].sigfig = 3;
strcpy(elements[19].State,"Solid");
elements[19].Isotopes = 3;
strcpy(elements[19].Masswt[0] , "39.102");
strcpy(elements[19].MassPerc[0] , "6.88");
strcpy(elements[19].Masswt[1] , "38.96371");
strcpy(elements[19].MassPerc[1] , "93.1");
strcpy(elements[19].Masswt[2] , "39.974");
strcpy(elements[19].MassPerc[2] , "0.00118");
elements[19].OxidNrs = 1;
elements[19].Oxidstate[0] = 1;
strcpy(elements[19].Density , "0.860000");
strcpy(elements[19].Meltingpt , "63.65");
strcpy(elements[19].Boilingpt ,"774");
elements[19].IonizationE = 4.341000;
elements[19].Atomicrad = 227.200000;
elements[19].Covrad = 203.000000;
elements[19].Ionradnrs = 2;
elements[19].Ionicrad[0] = 138.000000;
elements[19].Oxidstd[0] = 1;
elements[19].Coordnr[0] = 6;
elements[19].Ionicrad[1] = 151.000000;
elements[19].Oxidstd[1] = 1;
elements[19].Coordnr[1] = 8;
elements[19].VDW = 0.000000;
elements[19].Abundance = 2.400000;
elements[20].Number = 20;
strcpy(elements[20].Name,"Calcium");
strcpy(elements[20].Symbol,"Ca");
strcpy(elements[20].MolWeight ,"40.08");
elements[20].RMolWt = 40.08;
elements[20].sigfig = 2;
strcpy(elements[20].State,"Solid");
elements[20].Isotopes = 6;
strcpy(elements[20].Masswt[0] , "39.96259");
strcpy(elements[20].MassPerc[0] , "96.947");
strcpy(elements[20].Masswt[1] , "41.95863");
strcpy(elements[20].MassPerc[1] , "0.646");
strcpy(elements[20].Masswt[2] , "43.95549");
strcpy(elements[20].MassPerc[2] , "2.083");
strcpy(elements[20].Masswt[3] , "42.95878");
strcpy(elements[20].MassPerc[3] , "0.135");
strcpy(elements[20].Masswt[4] , "43.95549");
strcpy(elements[20].MassPerc[4] , "0.186");
strcpy(elements[20].Masswt[5] , "47.9524");
strcpy(elements[20].MassPerc[5] , "0.18");
elements[20].OxidNrs = 1;
elements[20].Oxidstate[0] = 2;
strcpy(elements[20].Density , "1.540000");
strcpy(elements[20].Meltingpt , "839.000"); /* +- 2 */
strcpy(elements[20].Boilingpt ,"1484");
elements[20].IonizationE = 6.113000;
elements[20].Atomicrad = 197.400000;
elements[20].Covrad = 174.000000;
elements[20].Ionradnrs = 2;
elements[20].Ionicrad[0] = 100.000000;
elements[20].Oxidstd[0] = 2;
elements[20].Coordnr[0] = 6;
elements[20].Ionicrad[1] = 112.000000;
elements[20].Oxidstd[1] = 2;
elements[20].Coordnr[1] = 8;
elements[20].VDW = 0.000000;
elements[20].Abundance = 3.390000;
elements[21].Number = 21;
strcpy(elements[21].Name,"Scandium");
strcpy(elements[21].Symbol,"Sc");
strcpy(elements[21].MolWeight ,"44.956");
elements[21].RMolWt = 44.956;
elements[21].sigfig = 3;
strcpy(elements[21].State,"Solid");
elements[21].Isotopes = 1;
strcpy(elements[21].Masswt[0] , "44.95592");
strcpy(elements[21].MassPerc[0] , "100");
elements[21].OxidNrs = 1;
elements[21].Oxidstate[0] = 3;
strcpy(elements[21].Density , "2.989"); /* CRC B233 55th ed.
 F.H. Spedding "Properties of the rare earth metals" */
strcpy(elements[21].Meltingpt , "1541."); /* CRC 55 ed, B233 */
strcpy(elements[21].Boilingpt ,"2831");  /* CRC 55 ed, B233 */
elements[21].IonizationE = 6.540000;
elements[21].Atomicrad = 160.600000;
elements[21].Covrad = 144.000000;
elements[21].Ionradnrs = 2;
elements[21].Ionicrad[0] = 75.000000;
elements[21].Oxidstd[0] = 3;
elements[21].Coordnr[0] = 6;
elements[21].Ionicrad[1] = 87.000000;
elements[21].Oxidstd[1] = 3;
elements[21].Coordnr[1] = 8;
elements[21].VDW = 0.000000;
elements[21].Abundance = 0.000500;
elements[22].Number = 22;
strcpy(elements[22].Name,"Titanium");
strcpy(elements[22].Symbol,"Ti");
strcpy(elements[22].MolWeight ,"47.90");
elements[22].RMolWt = 47.90;
elements[22].sigfig = 2;
strcpy(elements[22].State,"Solid");
elements[22].Isotopes = 5;
strcpy(elements[22].Masswt[0] , "45.95263");
strcpy(elements[22].MassPerc[0] , "7.93");
strcpy(elements[22].Masswt[1] , "46.9518");
strcpy(elements[22].MassPerc[1] , "7.28");
strcpy(elements[22].Masswt[2], "47.9");
strcpy(elements[22].MassPerc[2] , "73.94");
strcpy(elements[22].Masswt[3] , "46.94787");
strcpy(elements[22].MassPerc[3] , "5.51");
strcpy(elements[22].Masswt[4] , "49.9448");
strcpy(elements[22].MassPerc[4] , "5.34");
elements[22].OxidNrs = 2;
elements[22].Oxidstate[0] = 4;
elements[22].Oxidstate[1] = 3;
strcpy(elements[22].Density ,"N/A");
strcpy(elements[22].Meltingpt , "1660."); /* +- 10 */
strcpy(elements[22].Boilingpt ,"3287");
elements[22].IonizationE = 6.820000;
elements[22].Atomicrad = 144.800000;
elements[22].Covrad = 132.000000;
elements[22].Ionradnrs = 2;
elements[22].Ionicrad[0] = 42.000000;
elements[22].Oxidstd[0] = 4;
elements[22].Coordnr[0] = 4;
elements[22].Ionicrad[1] = 61.000000;
elements[22].Oxidstd[1] = 4;
elements[22].Coordnr[1] = 6;
elements[22].VDW = 0.000000;
elements[22].Abundance = 0.410000;
elements[23].Number = 23;
strcpy(elements[23].Name,"Vanadium");
strcpy(elements[23].Symbol,"V");
strcpy(elements[23].MolWeight ,"50.942");
elements[23].RMolWt = 50.942;
elements[23].sigfig = 3;
strcpy(elements[23].State,"Solid");
elements[23].Isotopes = 2;
strcpy(elements[23].Masswt[0] , "50.9440");
strcpy(elements[23].MassPerc[0], "99.76");
strcpy(elements[23].Masswt[1] , "49.9472");
strcpy(elements[23].MassPerc[1] , "0.24");
elements[23].OxidNrs = 5;
elements[23].Oxidstate[0] = 5;
elements[23].Oxidstate[1] = 4;
elements[23].Oxidstate[2] = 3;
elements[23].Oxidstate[3] = 2;
elements[23].Oxidstate[4] = 0;
strcpy(elements[23].Density , "4.510000");
strcpy(elements[23].Meltingpt , "1890.");  /* +- 10 */
strcpy(elements[23].Boilingpt ,"3380");
elements[23].IonizationE = 6.740000;
elements[23].Atomicrad = 131.100000;
elements[23].Covrad = 122.000000;
elements[23].Ionradnrs = 2;
elements[23].Ionicrad[0] = 54.000000;
elements[23].Oxidstd[0] = 5;
elements[23].Coordnr[0] = 6;
elements[23].Ionicrad[1] = 79.000000;
elements[23].Oxidstd[1] = 2;
elements[23].Coordnr[1] = 6;
elements[23].VDW = 0.000000;
elements[23].Abundance = 0.010000;
elements[24].Number = 24;
strcpy(elements[24].Name,"Chromium");
strcpy(elements[24].Symbol,"Cr");
strcpy(elements[24].MolWeight ,"51.996");
elements[24].RMolWt = 51.996;
elements[24].sigfig = 3;
strcpy(elements[24].State,"Solid");
elements[24].Isotopes = 4;
strcpy(elements[24].Masswt[0] , "49.9461");
strcpy(elements[24].MassPerc[0] , "4.31");
strcpy(elements[24].Masswt[1] , "51.9405");
strcpy(elements[24].MassPerc[1] , "83.76");
strcpy(elements[24].Masswt[2] , "52.9407");
strcpy(elements[24].MassPerc[2] , "9.55");
strcpy(elements[24].Masswt[3] , "53.9389");
strcpy(elements[24].MassPerc[3] , "2.38");
elements[24].OxidNrs = 4;
elements[24].Oxidstate[0] = 6;
elements[24].Oxidstate[1] = 3;
elements[24].Oxidstate[2] = 2;
elements[24].Oxidstate[3] = 0;
strcpy(elements[24].Density , "7.140000");
strcpy(elements[24].Meltingpt , "1857.");  /* +- 20 */
strcpy(elements[24].Boilingpt ,"2672");
elements[24].IonizationE = 6.766000;
elements[24].Atomicrad = 124.900000;
elements[24].Covrad = 118.000000;
elements[24].Ionradnrs = 2;
elements[24].Ionicrad[0] = 26.000000;
elements[24].Oxidstd[0] = 6;
elements[24].Coordnr[0] = 4;
elements[24].Ionicrad[1] = 61.000000;
elements[24].Oxidstd[1] = 3;
elements[24].Coordnr[1] = 6;
elements[24].VDW = 0.000000;
elements[24].Abundance = 0.020000;
elements[25].Number = 25;
strcpy(elements[25].Name,"Manganese");
strcpy(elements[25].Symbol,"Mn");
strcpy(elements[25].MolWeight ,"54.938");
elements[25].RMolWt = 54.938;
elements[25].sigfig = 3;
strcpy(elements[25].State,"Solid");
elements[25].Isotopes = 1;
strcpy(elements[25].Masswt[0] , "54.9381");
strcpy(elements[25].MassPerc[0] , "100");
elements[25].OxidNrs = 7;
elements[25].Oxidstate[0] = 7;
elements[25].Oxidstate[1] = 6;
elements[25].Oxidstate[2] = 4;
elements[25].Oxidstate[3] = 3;
elements[25].Oxidstate[4] = 2;
elements[25].Oxidstate[5] = 0;
elements[25].Oxidstate[6] = -1;
strcpy(elements[25].Density , "7.440000");
strcpy(elements[25].Meltingpt , "1244."); /* +- 3 */
strcpy(elements[25].Boilingpt ,"1962");
elements[25].IonizationE = 7.435000;
elements[25].Atomicrad = 136.700000;
elements[25].Covrad = 118.000000;
elements[25].Ionradnrs = 2;
elements[25].Ionicrad[0] = 25.000000;
elements[25].Oxidstd[0] = 7;
elements[25].Coordnr[9] = 4;
elements[25].Ionicrad[1] = 83.000000;
elements[25].Oxidstd[1] = 2;
elements[25].Coordnr[1] = 6;
elements[25].VDW = 0.000000;
elements[25].Abundance = 0.090000;
elements[26].Number = 26;
strcpy(elements[26].Name,"Iron");
strcpy(elements[26].Symbol,"Fe");
strcpy(elements[26].MolWeight ,"5.847");
elements[26].RMolWt = 5.847;
elements[26].sigfig = 3;
strcpy(elements[26].State,"Solid");
elements[26].Isotopes = 4;
strcpy(elements[26].Masswt[0] , "53.9396");
strcpy(elements[26].MassPerc[0] , "5.82");
strcpy(elements[26].Masswt[1] , "55.9349");
strcpy(elements[26].MassPerc[1] , "91.66");
strcpy(elements[26].Masswt[2] , "56.9354");
strcpy(elements[26].MassPerc[2] , "2.19");
strcpy(elements[26].Masswt[3] , "57.9333");
strcpy(elements[26].MassPerc[3] , "0.33");
elements[26].OxidNrs = 5;
elements[26].Oxidstate[0] = 6;
elements[26].Oxidstate[1] = 3;
elements[26].Oxidstate[2] = 2;
elements[26].Oxidstate[3] = 0;
elements[26].Oxidstate[4] = -2;
strcpy(elements[26].Density , "7.870000");
strcpy(elements[26].Meltingpt , "1553.");
strcpy(elements[26].Boilingpt ,"2750");
elements[26].IonizationE = 7.870000;
elements[26].Atomicrad = 124.100000;
elements[26].Covrad = 116.000000;
elements[26].Ionradnrs = 2;
elements[26].Ionicrad[0] = 65.000000;
elements[26].Oxidstd[0] = 3;
elements[26].Coordnr[0] = 6;
elements[26].Ionicrad[1] = 78.000000;
elements[26].Oxidstd[1] = 2;
elements[26].Coordnr[1] = 6;
elements[26].VDW = 0.000000;
elements[26].Abundance = 4.700000;
elements[27].Number = 27;
strcpy(elements[27].Name,"Cobalt");
strcpy(elements[27].Symbol,"Co");
strcpy(elements[27].MolWeight ,"58.933");
elements[27].RMolWt = 58.933;
elements[27].sigfig = 3;
strcpy(elements[27].State,"Solid");
elements[27].Isotopes = 1;
strcpy(elements[27].Masswt[0], "59.0");
strcpy(elements[27].MassPerc[0] , "100");
elements[27].OxidNrs = 4;
elements[27].Oxidstate[0] = 3;
elements[27].Oxidstate[1] = 2;
elements[27].Oxidstate[2] = 0;
elements[27].Oxidstate[3] = -1;
strcpy(elements[27].Density , "8.890000");
strcpy(elements[27].Meltingpt , "1495.");
strcpy(elements[27].Boilingpt ,"2870");
elements[27].IonizationE = 7.860000;
elements[27].Atomicrad = 125.300000;
elements[27].Covrad = 116.000000;
elements[27].Ionradnrs = 2;
elements[27].Ionicrad[0] = 61.000000;
elements[27].Oxidstd[0] = 3;
elements[27].Coordnr[0] = 6;
elements[27].Ionicrad[1] = 75.000000;
elements[27].Oxidstd[1] = 2;
elements[27].Coordnr[1] = 6;
elements[27].VDW = 0.000000;
elements[27].Abundance = 0.004000;
elements[28].Number = 28;
strcpy(elements[28].Name,"Nickel");
strcpy(elements[28].Symbol,"Ni");
strcpy(elements[28].MolWeight ,"58.69");
elements[28].RMolWt = 58.69;
elements[28].sigfig = 2;
strcpy(elements[28].State,"Solid");
elements[28].Isotopes = 5;
strcpy(elements[28].Masswt[0] , "57.9353");
strcpy(elements[28].MassPerc[0] , "68.274");
strcpy(elements[28].Masswt[1] , "58.9332");
strcpy(elements[28].MassPerc[1] , "26.095");
strcpy(elements[28].Masswt[2] , "60.9310");
strcpy(elements[28].MassPerc[2] , "1.134");
strcpy(elements[28].Masswt[3] , "61.9283");
strcpy(elements[28].MassPerc[3] , "3.593");
strcpy(elements[28].Masswt[4] , "63.9280");
strcpy(elements[28].MassPerc[4] , "0.904");
elements[28].OxidNrs = 3;
elements[28].Oxidstate[0] = 3;
elements[28].Oxidstate[1] = 2;
elements[28].Oxidstate[2] = 0;
strcpy(elements[28].Density , "8.910000");
strcpy(elements[28].Meltingpt , "1453.");
strcpy(elements[28].Boilingpt ,"2732");
elements[28].IonizationE = 7.635000;
elements[28].Atomicrad = 124.600000;
elements[28].Covrad = 115.000000;
elements[28].Ionradnrs = 2;
elements[28].Ionicrad[0] = 55.000000;
elements[28].Oxidstd[0] = 3;
elements[28].Coordnr[0] = 6;
elements[28].Ionicrad[1] = 69.000000;
elements[28].Oxidstd[1] = 2;
elements[28].Coordnr[1] = 6;
elements[28].VDW = 0.000000;
elements[28].Abundance = 0.010000;
elements[29].Number = 29;
strcpy(elements[29].Name,"Copper");
strcpy(elements[29].Symbol,"Cu");
strcpy(elements[29].MolWeight ,"63.546");
elements[29].RMolWt = 63.546;
elements[29].sigfig = 3;
strcpy(elements[29].State,"Solid");
elements[29].Isotopes = 2;
strcpy(elements[29].Masswt[0] , "62.9298");
strcpy(elements[29].MassPerc[0] , "69.09");
strcpy(elements[29].Masswt[1] , "64.9278");
strcpy(elements[29].MassPerc[1] , "30.91");
elements[29].OxidNrs = 2;
elements[29].Oxidstate[0] = 2;
elements[29].Oxidstate[1] = 1;
strcpy(elements[29].Density , "8.920000");
strcpy(elements[29].Meltingpt , "1083.4");  /* +- 0.2 */
strcpy(elements[29].Boilingpt ,"2567");
elements[29].IonizationE = 7.726000;
elements[29].Atomicrad = 127.800000;
elements[29].Covrad = 117.000000;
elements[29].Ionradnrs = 2;
elements[29].Ionicrad[0] = 57.000000;
elements[29].Oxidstd[0] = 2;
elements[29].Coordnr[0] = 4;
elements[29].Ionicrad[1] = 46.000000;
elements[29].Oxidstd[1] = 1;
elements[29].Coordnr[1] = 2;
elements[29].VDW = 0.000000;
elements[29].Abundance = 0.010000;
elements[30].Number = 30;
strcpy(elements[30].Name,"Zinc");
strcpy(elements[30].Symbol,"Zn");
strcpy(elements[30].MolWeight ,"65.38");
elements[30].RMolWt = 65.38;
elements[30].sigfig = 2;
strcpy(elements[30].State,"Solid");
elements[30].Isotopes = 5;
strcpy(elements[30].Masswt[0] , "63.9291");
strcpy(elements[30].MassPerc[0] , "48.89");
strcpy(elements[30].Masswt[1] , "65.9260");
strcpy(elements[30].MassPerc[1] , "27.81");
strcpy(elements[30].Masswt[2] , "67.9249");
strcpy(elements[30].MassPerc[2] , "4.11");
strcpy(elements[30].Masswt[3] , "67.9249");
strcpy(elements[30].MassPerc[3] , "18.57");
strcpy(elements[30].Masswt[4] , "69.9253");
strcpy(elements[30].MassPerc[4] , "0.62");
elements[30].OxidNrs = 1;
elements[30].Oxidstate[0] = 2;
strcpy(elements[30].Density , "7.140000");
strcpy(elements[30].Meltingpt , "419.58");
strcpy(elements[30].Boilingpt ,"907");
elements[30].IonizationE = 9.394000;
elements[30].Atomicrad = 133.500000;
elements[30].Covrad = 125.000000;
elements[30].Ionradnrs = 2;
elements[30].Ionicrad[0] = 60.000000;
elements[30].Oxidstd[0] = 2;
elements[30].Coordnr[0] = 4;
elements[30].Ionicrad[1] = 73.000000;
elements[30].Oxidstd[1] = 2;
elements[30].Coordnr[1] = 6;
elements[30].VDW = 0.000000;
elements[30].Abundance = 0.010000;
elements[31].Number = 31;
strcpy(elements[31].Name,"Gallium");
strcpy(elements[31].Symbol,"Ga");
strcpy(elements[31].MolWeight ,"65.38");
elements[31].RMolWt = 65.38;
elements[31].sigfig = 2;
strcpy(elements[31].State,"Solid");
elements[31].Isotopes = 2;
strcpy(elements[31].Masswt[0] , "68.9257");
strcpy(elements[31].MassPerc[0] , "60.4");
strcpy(elements[31].Masswt[1] , "70.9249");
strcpy(elements[31].MassPerc[1] , "39.6");
elements[31].OxidNrs = 1;
elements[31].Oxidstate[0] = 3;
strcpy(elements[31].Density , "591.000000");
strcpy(elements[31].Meltingpt , "29.78");
strcpy(elements[31].Boilingpt ,"2403");
elements[31].IonizationE = 5.999000;
elements[31].Atomicrad = 122.100000;
elements[31].Covrad = 125.000000;
elements[31].Ionradnrs = 2;
elements[31].Ionicrad[0] = 47.000000;
elements[31].Oxidstd[0] = 3;
elements[31].Coordnr[0] = 4;
elements[31].Ionicrad[1] = 62.000000;
elements[31].Oxidstd[1] = 3;
elements[31].Coordnr[1] = 6;
elements[31].VDW = 0.000000;
elements[31].Abundance = 0.001000;
elements[32].Number = 32;
strcpy(elements[32].Name,"Germanium");
strcpy(elements[32].Symbol,"Ge");
strcpy(elements[32].MolWeight ,"72.61");
elements[32].RMolWt = 72.61;
elements[32].sigfig = 2;
strcpy(elements[32].State,"Solid");
elements[32].Isotopes = 5;
strcpy(elements[32].Masswt[0] , "69.9243");
strcpy(elements[32].MassPerc[0] , "20.52");
strcpy(elements[32].Masswt[1] , "71.9217");
strcpy(elements[32].MassPerc[1] , "27.43");
strcpy(elements[32].Masswt[2] , "72.9234");
strcpy(elements[32].MassPerc[2] , "7.76");
strcpy(elements[32].Masswt[3] , "73.9219");
strcpy(elements[32].MassPerc[3] , "36.54");
strcpy(elements[32].Masswt[4] , "75.9214");
strcpy(elements[32].MassPerc[4] , "7.76");
elements[32].OxidNrs = 1;
elements[32].Oxidstate[0] = 4;
strcpy(elements[32].Density , "5.320000");
strcpy(elements[32].Meltingpt , "937.4");
strcpy(elements[32].Boilingpt ,"2830");
elements[32].IonizationE = 7.899000;
elements[32].Atomicrad = 122.500000;
elements[32].Covrad = 122.000000;
elements[32].Ionradnrs = 2;
elements[32].Ionicrad[0] = 39.000000;
elements[32].Oxidstd[0] = 4;
elements[32].Coordnr[0] = 4;
elements[32].Ionicrad[1] = 53.000000;
elements[32].Oxidstd[1] = 4;
elements[32].Coordnr[1] = 6;
elements[32].VDW = 0.000000;
elements[32].Abundance = 0.000600;
elements[33].Number = 33;
strcpy(elements[33].Name,"Arsenic");
strcpy(elements[33].Symbol,"As");
strcpy(elements[33].MolWeight ,"74.992");
elements[33].RMolWt = 74.992;
elements[33].sigfig = 3;
strcpy(elements[33].State,"Solid");
elements[33].Isotopes = 1;
strcpy(elements[33].Masswt[0] , "74.9216");
strcpy(elements[33].MassPerc[0] , "100");
elements[33].OxidNrs = 3;
elements[33].Oxidstate[0] = 5;
elements[33].Oxidstate[1] = 3;
elements[33].Oxidstate[2] = -3;
strcpy(elements[33].Density , "5.720000");
strcpy(elements[33].Meltingpt , "817.00"); /* grey @ 28 atm */
strcpy(elements[33].Boilingpt ,"613.0"); /* sub */
elements[33].IonizationE = 9.810000;
elements[33].Atomicrad = 124.500000;
elements[33].Covrad = 121.000000;
elements[33].Ionradnrs = 2;
elements[33].Ionicrad[0] = 34.000000;
elements[33].Oxidstd[0] = 5;
elements[33].Coordnr[0] = 4;
elements[33].Ionicrad[1] = 58.000000;
elements[33].Oxidstd[1] = 3;
elements[33].Coordnr[1] = 6;
elements[33].VDW = 0.000000;
elements[33].Abundance = 0.000600;
elements[34].Number = 34;
strcpy(elements[34].Name,"Selenium");
strcpy(elements[34].Symbol,"Se");
strcpy(elements[34].MolWeight ,"78.96");
elements[34].RMolWt = 78.96;
elements[34].sigfig = 2;
strcpy(elements[34].State,"Solid");
elements[34].Isotopes = 6;
strcpy(elements[34].Masswt[0] , "73.9225");
strcpy(elements[34].MassPerc[0] , "0.87");
strcpy(elements[34].Masswt[1] , "75.9192");
strcpy(elements[34].MassPerc[1] , "9.02");
strcpy(elements[34].Masswt[2] , "76.9199");
strcpy(elements[34].MassPerc[2] , "7.58");
strcpy(elements[34].Masswt[3] , "79.9173");
strcpy(elements[34].MassPerc[3] , "23.52");
strcpy(elements[34].Masswt[4] , "79.9165");
strcpy(elements[34].MassPerc[4] , "49.82");
strcpy(elements[34].Masswt[5] , "79.9167");
strcpy(elements[34].MassPerc[5] , "9.19");
elements[34].OxidNrs = 3;
elements[34].Oxidstate[0] = 6;
elements[34].Oxidstate[1] = 4;
elements[34].Oxidstate[2] = -2;
strcpy(elements[34].Density , "4.820000");
strcpy(elements[34].Meltingpt , "217.");
strcpy(elements[34].Boilingpt ,"684.9"); /* +- 1.0 */
elements[34].IonizationE = 9.752000;
elements[34].Atomicrad = 116.000000;
elements[34].Covrad = 117.000000;
elements[34].Ionradnrs = 2;
elements[34].Ionicrad[0] = 50.000000;
elements[34].Oxidstd[0] = 4;
elements[34].Coordnr[0] = 6;
elements[34].Ionicrad[1] = 198.000000;
elements[34].Oxidstd[1] = -2;
elements[34].Coordnr[1] = 6;
elements[34].VDW = 0.000000;
elements[34].Abundance = 0.000100;
elements[35].Number = 35;
strcpy(elements[35].Name,"Bromine");
strcpy(elements[35].Symbol,"Br");
strcpy(elements[35].MolWeight ,"79.904");
elements[35].RMolWt = 79.904;
elements[35].sigfig = 3;
strcpy(elements[35].State,"Liq");
elements[35].Isotopes = 2;
strcpy(elements[35].Masswt[0] , "78.9183");
strcpy(elements[35].MassPerc[0] , "50.54");
strcpy(elements[35].Masswt[1] , "80.9163");
strcpy(elements[35].MassPerc[1] , "49.46");
elements[35].OxidNrs = 5;
elements[35].Oxidstate[0] = 7;
elements[35].Oxidstate[1] = 5;
elements[35].Oxidstate[2] = 3;
elements[35].Oxidstate[3] = 1;
elements[35].Oxidstate[4] = -1;
strcpy(elements[35].Density , "3.140000");
strcpy(elements[35].Meltingpt , "-7.2");
strcpy(elements[35].Boilingpt ,"58.78");
elements[35].IonizationE = 11.814000;
elements[35].Atomicrad = 114.500000;
elements[35].Covrad = 114.000000;
elements[35].Ionradnrs = 1;
elements[35].Ionicrad[0] = 196.000000;
elements[35].Oxidstd[0] = -1;
elements[35].Coordnr[0] = 6;
elements[35].VDW = 200.000000;
elements[35].Abundance = 0.000600;
elements[36].Number = 36;
strcpy(elements[36].Name,"Krypton");
strcpy(elements[36].Symbol,"Kr");
strcpy(elements[36].MolWeight ,"83.80");
elements[36].RMolWt = 83.80;
elements[36].sigfig = 2;
strcpy(elements[36].State,"Gas");
elements[36].Isotopes = 3;
strcpy(elements[36].Masswt[0] , "77.9204");
strcpy(elements[36].MassPerc[0] , "0.35");
strcpy(elements[36].Masswt[1] , "79.9164");
strcpy(elements[36].MassPerc[1] , "2.27");
strcpy(elements[36].Masswt[2] , "81.9135");
strcpy(elements[36].MassPerc[2] , "97.38");
elements[36].OxidNrs = 1;
elements[36].Oxidstate[0] = 2;
strcpy(elements[36].Density , "3.480000");
strcpy(elements[36].Meltingpt , "-156.6");
strcpy(elements[36].Boilingpt ,"-152.30"); /* +- 0.10 */
elements[36].IonizationE = 13.999000;
elements[36].Atomicrad = 0.000000;
elements[36].Covrad = 0.000000;
elements[36].Ionradnrs = 0;
elements[36].VDW = 190.000000;
elements[36].Abundance = 0.000000;
elements[37].Number = 37;
strcpy(elements[37].Name,"Rubidium");
strcpy(elements[37].Symbol,"Rb");
strcpy(elements[37].MolWeight ,"85.47");
elements[37].RMolWt = 85.47;
elements[37].sigfig = 2;
strcpy(elements[37].State,"Solid");
elements[37].Isotopes = 2;
strcpy(elements[37].Masswt[0],"84.9117");
strcpy(elements[37].MassPerc[0] , "72.15");
strcpy(elements[37].Masswt[1],"86.9056");
strcpy(elements[37].MassPerc[1] , "27.85");
elements[37].OxidNrs = 1;
elements[37].Oxidstate[0] = 1;
strcpy(elements[37].Density , "1.530000");
strcpy(elements[37].Meltingpt , "38.89");
strcpy(elements[37].Boilingpt ,"688");
elements[37].IonizationE = 4.177000;
elements[37].Atomicrad = 247.500000;
elements[37].Covrad = 216.000000;
elements[37].Ionradnrs = 2;
elements[37].Ionicrad[0] = 152.000000;
elements[37].Oxidstd[0] = 1;
elements[37].Coordnr[0] = 6;
elements[37].Ionicrad[1] = 161.000000;
elements[37].Oxidstd[1] = 1;
elements[37].Coordnr[1] = 8;
elements[37].VDW = 0.000000;
elements[37].Abundance = 0.030000;
elements[38].Number = 38;
strcpy(elements[38].Name,"Strontium");
strcpy(elements[38].Symbol,"Sr");
strcpy(elements[38].MolWeight ,"87.956");
elements[38].RMolWt = 87.956;
strcpy(elements[38].State,"Solid");
elements[38].Isotopes = 4;
strcpy(elements[38].Masswt[0],"83.9134");
strcpy(elements[38].MassPerc[0] , "0.56");
strcpy(elements[38].Masswt[1],"85.9094");
strcpy(elements[38].MassPerc[1] , "9.86");
strcpy(elements[38].Masswt[2],"86.9089");
strcpy(elements[38].MassPerc[2] , "7.02");
strcpy(elements[38].Masswt[3],"87.9056");
strcpy(elements[38].MassPerc[3] , "82.56");
elements[38].OxidNrs = 1;
elements[38].Oxidstate[0] = 2;
strcpy(elements[38].Density , "2.630000");
strcpy(elements[38].Meltingpt , "769.");
strcpy(elements[38].Boilingpt ,"1384");
elements[38].IonizationE = 5.695000;
elements[38].Atomicrad = 215.100000;
elements[38].Covrad = 191.000000;
elements[38].Ionradnrs = 2;
elements[38].Ionicrad[0] = 118.000000;
elements[38].Oxidstd[0] = 2;
elements[38].Coordnr[0] = 6;
elements[38].Ionicrad[1] = 126.000000;
elements[38].Oxidstd[1] = 2;
elements[38].Coordnr[1] = 8;
elements[38].VDW = 0.000000;
elements[38].Abundance = 0.010000;
elements[39].Number = 39;
strcpy(elements[39].Name,"Yttrium");
strcpy(elements[39].Symbol,"Y");
strcpy(elements[39].MolWeight ,"88.905");
elements[39].RMolWt = 88.905;
elements[39].sigfig = 3;
strcpy(elements[39].State,"Solid");
elements[39].Isotopes = 1;
strcpy(elements[39].Masswt[0],"88.905");
strcpy(elements[39].MassPerc[0] , "100");
elements[39].OxidNrs = 1;
elements[39].Oxidstate[0] = 3;
strcpy(elements[39].Density , "4.469"); /* CRC 55th ed, b233 */
strcpy(elements[39].Meltingpt , "1522"); /* CRC 55th ed, b233 */
strcpy(elements[39].Boilingpt ,"3338"); /* CRC 55th ed, b233 */
elements[39].IonizationE = 6.380000;
elements[39].Atomicrad = 177.600000;
elements[39].Covrad = 162.000000;
elements[39].Ionradnrs = 1;
elements[39].Ionicrad[0] = 90.000000;
elements[39].Oxidstd[0] = 3;
elements[39].Coordnr[0] = 6;
elements[39].VDW = 0.000000;
elements[39].Abundance = 0.003000;
elements[40].Number = 40;
strcpy(elements[40].Name,"Zirconium");
strcpy(elements[40].Symbol,"Zr");
strcpy(elements[40].MolWeight ,"91.22");
elements[40].RMolWt = 91.22;
strcpy(elements[40].State,"Solid");
elements[40].Isotopes = 5;
strcpy(elements[40].Masswt[0],"89.9043");
strcpy(elements[40].MassPerc[0] , "51.46");
strcpy(elements[40].Masswt[1],"90.9053");
strcpy(elements[40].MassPerc[1] ,"11.23");
strcpy(elements[40].Masswt[2],"91.9046");
strcpy(elements[40].MassPerc[2] , "17.11");
strcpy(elements[40].Masswt[3],"93.9061");
strcpy(elements[40].MassPerc[3] ,"17.40");
strcpy(elements[40].Masswt[4],"95.9082");
strcpy(elements[40].MassPerc[4] ,"2.80");
elements[40].OxidNrs = 1;
elements[40].Oxidstate[0] = 4;
strcpy(elements[40].Density , "6.510000");
strcpy(elements[40].Meltingpt , "1852.00"); /* +- 2 */
strcpy(elements[40].Boilingpt ,"4377");
elements[40].IonizationE = 6.840000;
elements[40].Atomicrad = 159.000000;
elements[40].Covrad = 145.000000;
elements[40].Ionradnrs = 2;
elements[40].Ionicrad[0] = 59.000000;
elements[40].Oxidstd[0] = 4;
elements[40].Coordnr[0] = 4;
elements[40].Ionicrad[1] = 72.000000;
elements[40].Oxidstd[1] = 4;
elements[40].Coordnr[1] = 6;
elements[40].VDW = 0.000000;
elements[40].Abundance = 0.020000;
elements[41].Number = 41;
strcpy(elements[41].Name,"Niobium");
strcpy(elements[41].Symbol,"Nb");
strcpy(elements[41].MolWeight ,"92.906");
elements[41].RMolWt = 92.906;
elements[41].sigfig = 3;
strcpy(elements[41].State,"Solid");
elements[41].Isotopes = 1;
strcpy(elements[41].Masswt[0],"92.9060");
strcpy(elements[41].MassPerc[0],"100");
elements[41].OxidNrs = 2;
elements[41].Oxidstate[0] = 5;
elements[41].Oxidstate[1] = 3;
strcpy(elements[41].Density , "8.580000");
strcpy(elements[41].Meltingpt , "2468."); /* +- 10 */
strcpy(elements[41].Boilingpt ,"4742");
elements[41].IonizationE = 6.880000;
elements[41].Atomicrad = 142.900000;
elements[41].Covrad = 134.000000;
elements[41].Ionradnrs = 2;
elements[41].Ionicrad[0] = 64.000000;
elements[41].Oxidstd[0] = 5;
elements[41].Coordnr[0] = 6;
elements[41].Ionicrad[1] = 72.000000;
elements[41].Oxidstd[1] = 3;
elements[41].Coordnr[1] = 6;
elements[41].VDW = 0.000000;
elements[41].Abundance = 0.002000;
elements[42].Number = 42;
strcpy(elements[42].Name,"Molybdenum");
strcpy(elements[42].Symbol,"Mo");
strcpy(elements[42].MolWeight ,"95.94");
elements[42].RMolWt = 95.94;
strcpy(elements[42].State,"Solid");
elements[42].Isotopes = 7;
strcpy(elements[42].Masswt[0],"91.9063");
strcpy(elements[42].MassPerc[0] , "15.84");
strcpy(elements[42].Masswt[1],"93.9047");
strcpy(elements[42].MassPerc[1] , "9.04");
strcpy(elements[42].Masswt[2],"94.90584");
strcpy(elements[42].MassPerc[2] , "15.72");
strcpy(elements[42].Masswt[3],"95.9046");
strcpy(elements[42].MassPerc[3] , "16.53");
strcpy(elements[42].Masswt[4],"96.9058");
strcpy(elements[42].MassPerc[4] , "9.46");
strcpy(elements[42].Masswt[5],"97.9055");
strcpy(elements[42].MassPerc[5] , "23.78");
strcpy(elements[42].Masswt[6],"99.9076");
strcpy(elements[42].MassPerc[6] , "9.63");
elements[42].OxidNrs = 6;
elements[42].Oxidstate[0] = 6;
elements[42].Oxidstate[1] = 5;
elements[42].Oxidstate[2] = 4;
elements[42].Oxidstate[3] = 3;
elements[42].Oxidstate[4] = 2;
elements[42].Oxidstate[5] = 0;
strcpy(elements[42].Density , "10.280000");
strcpy(elements[42].Meltingpt , "2617.");
strcpy(elements[42].Boilingpt ,"4612");
elements[42].IonizationE = 7.099000;
elements[42].Atomicrad = 136.300000;
elements[42].Covrad = 130.000000;
elements[42].Ionradnrs = 2;
elements[42].Ionicrad[0] = 59.000000;
elements[42].Oxidstd[0] = 6;
elements[42].Coordnr[0] = 6;
elements[42].Ionicrad[1] = 61.000000;
elements[42].Oxidstd[1] = 5;
elements[42].Coordnr[1] = 6;
elements[42].VDW = 0.000000;
elements[42].Abundance = 0.001000;
elements[43].Number = 43;
strcpy(elements[43].Name,"Technetium");
strcpy(elements[43].Symbol,"Tc");
strcpy(elements[43].MolWeight ,"98.00");
elements[43].RMolWt = 98.00;
elements[43].sigfig = 2;
strcpy(elements[43].State,"Solid");
elements[43].Isotopes = 1;
strcpy(elements[43].Masswt[0],"98.00");
strcpy(elements[43].MassPerc[0] , "100");
elements[43].OxidNrs = 1;
elements[43].Oxidstate[0] = 7;
strcpy(elements[43].Density , "11.490000");
strcpy(elements[43].Meltingpt , "2172.");
strcpy(elements[43].Boilingpt ,"4877");
elements[43].IonizationE = 7.280000;
elements[43].Atomicrad = 135.200000;
elements[43].Covrad = 127.000000;
elements[43].Ionradnrs = 1;
elements[43].Ionicrad[0] = 56.000000;
elements[43].Oxidstd[0] = 7;
elements[43].Coordnr[0] = 6;
elements[43].VDW = 0.000000;
elements[43].Abundance = 0.000000;
elements[44].Number = 44;
strcpy(elements[44].Name,"Ruthenium");
strcpy(elements[44].Symbol,"Ru");
strcpy(elements[44].MolWeight ,"101.07");
elements[44].RMolWt = 101.07;
strcpy(elements[44].State,"Solid");
elements[44].Isotopes = 7;
strcpy(elements[44].Masswt[0],"95.9076");
strcpy(elements[44].MassPerc[0] , "5.51");
strcpy(elements[44].Masswt[1],"97.9055");
strcpy(elements[44].MassPerc[1] , "1.87");
strcpy(elements[44].Masswt[2],"98.9061");
strcpy(elements[44].MassPerc[2] , "12.72");
strcpy(elements[44].Masswt[3],"99.9030");
strcpy(elements[44].MassPerc[3] , "12.62");
strcpy(elements[44].Masswt[4],"101.07");
strcpy(elements[44].MassPerc[4] , "17.07");
strcpy(elements[44].Masswt[5],"101.9037");
strcpy(elements[44].MassPerc[5] , "31.61");
strcpy(elements[44].Masswt[6],"103.9055");
strcpy(elements[44].MassPerc[6] , "18.58");
elements[44].OxidNrs = 7;
elements[44].Oxidstate[0] = 8;
elements[44].Oxidstate[1] = 6;
elements[44].Oxidstate[2] = 4;
elements[44].Oxidstate[3] = 3;
elements[44].Oxidstate[4] = 2;
elements[44].Oxidstate[5] = 0;
elements[44].Oxidstate[6] = -2;
strcpy(elements[44].Density , "12.450000");
strcpy(elements[44].Meltingpt , "2310.");
strcpy(elements[44].Boilingpt ,"3900");
elements[44].IonizationE = 7.370000;
elements[44].Atomicrad = 132.500000;
elements[44].Covrad = 125.000000;
elements[44].Ionradnrs = 2;
elements[44].Ionicrad[0] = 62.000000;
elements[44].Oxidstd[0] = 4;
elements[44].Coordnr[0] = 6;
elements[44].Ionicrad[1] = 68.000000;
elements[44].Oxidstd[1] = 3;
elements[44].Coordnr[1] = 6;
elements[44].VDW = 0.000000;
elements[44].Abundance = 0.000002;
elements[45].Number = 45;
strcpy(elements[45].Name,"Rhodium");
strcpy(elements[45].Symbol,"Rh");
strcpy(elements[45].MolWeight ,"102.91");
elements[45].RMolWt = 102.91;
elements[45].sigfig = 2;
strcpy(elements[45].State,"Solid");
elements[45].Isotopes = 1;
strcpy(elements[45].Masswt[0],"102.9048");
strcpy(elements[45].MassPerc[0] , "100");
elements[45].OxidNrs = 6;
elements[45].Oxidstate[0] = 5;
elements[45].Oxidstate[1] = 4;
elements[45].Oxidstate[2] = 3;
elements[45].Oxidstate[3] = 2;
elements[45].Oxidstate[4] = 1;
elements[45].Oxidstate[5] = 0;
strcpy(elements[45].Density,"12.41");
strcpy(elements[45].Meltingpt , "1966");  /* +- 3 */
strcpy(elements[45].Boilingpt ,"3727"); /* +- 100 */
elements[45].IonizationE = 7.460000;
elements[45].Atomicrad = 134.500000;
elements[45].Covrad = 125.000000;
elements[45].Ionradnrs = 2;
elements[45].Ionicrad[0] = 55.000000;
elements[45].Oxidstd[0] = 5;
elements[45].Coordnr[0] = 6;
elements[45].Ionicrad[1] = 67.000000;
elements[45].Oxidstd[1] = 3;
elements[45].Coordnr[1] = 6;
elements[45].VDW = 0.000000;
elements[45].Abundance = 0.000000;
elements[46].Number = 46;
strcpy(elements[46].Name,"Palladium");
strcpy(elements[46].Symbol,"Pd");
strcpy(elements[46].MolWeight ,"106.4");
elements[46].sigfig = 1;
strcpy(elements[46].State,"Solid");
elements[46].Isotopes = 6;
strcpy(elements[46].Masswt[0],"101.9049");
strcpy(elements[46].MassPerc[0] , "0.96");
strcpy(elements[46].Masswt[1],"103.9036");
strcpy(elements[46].MassPerc[1] , "10.97");
strcpy(elements[46].Masswt[2],"104.9046");
strcpy(elements[46].MassPerc[2] , "22.23");
strcpy(elements[46].Masswt[3],"105.9032");
strcpy(elements[46].MassPerc[3] , "27.33");
strcpy(elements[46].Masswt[4],"107.90389");
strcpy(elements[46].MassPerc[4] , "26.71");
strcpy(elements[46].Masswt[5],"106.4");
strcpy(elements[46].MassPerc[5] , "11.81");
elements[46].OxidNrs = 3;
elements[46].Oxidstate[0] = 4;
elements[46].Oxidstate[1] = 2;
elements[46].Oxidstate[2] = 0;
strcpy(elements[46].Density , "12.020000");
strcpy(elements[46].Meltingpt , "1552.");
strcpy(elements[46].Boilingpt ,"3140");
elements[46].IonizationE = 8.340000;
elements[46].Atomicrad = 137.600000;
elements[46].Covrad = 128.000000;
elements[46].Ionradnrs = 2;
elements[46].Ionicrad[0] = 64.000000;
elements[46].Oxidstd[0] = 2;
elements[46].Coordnr[0] = 4;
elements[46].Ionicrad[1] = 86.000000;
elements[46].Oxidstd[1] = 2;
elements[46].Coordnr[1] = 6;
elements[46].VDW = 0.000000;
elements[46].Abundance = 0.000001;
elements[47].Number = 47;
strcpy(elements[47].Name,"Silver");
strcpy(elements[47].Symbol,"Ag");
strcpy(elements[47].MolWeight ,"107.87");
elements[47].RMolWt = 107.87;
strcpy(elements[47].State,"Solid");
elements[47].Isotopes = 2;
strcpy(elements[47].Masswt[0],"106.90509");
strcpy(elements[47].MassPerc[0] , "51.82");
strcpy(elements[47].Masswt[1],"108.9047");
strcpy(elements[47].MassPerc[1] , "48.18");
elements[47].OxidNrs = 2;
elements[47].Oxidstate[0] = 2;
elements[47].Oxidstate[1] = 1;
strcpy(elements[47].Density , "10.490000");
strcpy(elements[47].Meltingpt , "961.93");
strcpy(elements[47].Boilingpt ,"2212");
elements[47].IonizationE = 7.576000;
elements[47].Atomicrad = 144.500000;
elements[47].Covrad = 134.000000;
elements[47].Ionradnrs = 2;
elements[47].Ionicrad[0] = 79.000000;
elements[47].Oxidstd[0] = 2;
elements[47].Coordnr[0] = 4;
elements[47].Ionicrad[1] = 67.000000;
elements[47].Oxidstd[1] = 1;
elements[47].Coordnr[1] = 2;
elements[47].VDW = 0.000000;
elements[47].Abundance = 0.000010;
elements[48].Number = 48;
strcpy(elements[48].Name,"Cadmium");
strcpy(elements[48].Symbol,"Cd");
strcpy(elements[48].MolWeight ,"112.41");
elements[48].RMolWt = 112.41;
strcpy(elements[48].State,"Solid");
elements[48].Isotopes = 8;
strcpy(elements[48].Masswt[0],"105.907");
strcpy(elements[48].MassPerc[0] ,"1.22");
strcpy(elements[48].Masswt[1],"107.9040");
strcpy(elements[48].MassPerc[1] ,"0.88");
strcpy(elements[48].Masswt[2],"109.9030");
strcpy(elements[48].MassPerc[2] ,"12.39");
strcpy(elements[48].Masswt[3],"110.9042");
strcpy(elements[48].MassPerc[3] ,"12.75");
strcpy(elements[48].Masswt[4],"111.9028");
strcpy(elements[48].MassPerc[4] ,"24.07");
strcpy(elements[48].Masswt[5],"112.9046");
strcpy(elements[48].MassPerc[5] ,"12.26");
strcpy(elements[48].Masswt[6],"113.9036");
strcpy(elements[48].MassPerc[6] ,"28.86");
strcpy(elements[48].Masswt[7],"115.9050");
strcpy(elements[48].MassPerc[7] ,"7.58");
elements[48].OxidNrs = 1;
elements[48].Oxidstate[0] = 2;
strcpy(elements[48].Density , "8.640000");
strcpy(elements[48].Meltingpt , "320.9");
strcpy(elements[48].Boilingpt ,"765");
elements[48].IonizationE = 8.993000;
elements[48].Atomicrad = 148.900000;
elements[48].Covrad = 141.000000;
elements[48].Ionradnrs = 2;
elements[48].Ionicrad[0] = 78.000000;
elements[48].Oxidstd[0] = 2;
elements[48].Coordnr[0] = 4;
elements[48].Ionicrad[1] = 95.000000;
elements[48].Oxidstd[1] = 2;
elements[48].Coordnr[1] = 6;
elements[48].VDW = 0.000000;
elements[48].Abundance = 0.000030;
elements[49].Number = 49;
strcpy(elements[49].Name,"Indium");
strcpy(elements[49].Symbol,"In");
strcpy(elements[49].MolWeight ,"114.82");
elements[49].RMolWt = 114.82;
strcpy(elements[49].State,"Solid");
elements[49].Isotopes = 2;
strcpy(elements[49].Masswt[0],"112.9043");
strcpy(elements[49].MassPerc[0] , "4.28");
strcpy(elements[49].Masswt[1],"114.9041");
strcpy(elements[49].MassPerc[1] , "95.72");
elements[49].OxidNrs = 1;
elements[49].Oxidstate[0] = 3;
strcpy(elements[49].Density , "7.310000");
strcpy(elements[49].Meltingpt , "156.61");
strcpy(elements[49].Boilingpt ,"2080");
elements[49].IonizationE = 5.786000;
elements[49].Atomicrad = 162.600000;
elements[49].Covrad = 150.000000;
elements[49].Ionradnrs = 2;
elements[49].Ionicrad[0] = 62.000000;
elements[49].Oxidstd[0] = 3;
elements[49].Coordnr[0] = 4;
elements[49].Ionicrad[1] = 80.000000;
elements[49].Oxidstd[1] = 3;
elements[49].Coordnr[1] = 6;
elements[49].VDW = 0.000000;
elements[49].Abundance = 0.000010;
elements[50].Number = 50;
strcpy(elements[50].Name,"Tin");
strcpy(elements[50].Symbol,"Sn");
strcpy(elements[50].MolWeight ,"118.69");
elements[50].RMolWt = 118.69;
strcpy(elements[50].State,"Solid");
elements[50].Isotopes = 9;
strcpy(elements[50].Masswt[0],"111.9040");
strcpy(elements[50].MassPerc[0] , "0.96");
strcpy(elements[50].Masswt[1],"113.9030");
strcpy(elements[50].MassPerc[1] , "0.66");
strcpy(elements[50].Masswt[2],"114.9035");
strcpy(elements[50].MassPerc[2] , "0.35");
strcpy(elements[50].Masswt[3],"115.9021");
strcpy(elements[50].MassPerc[3] , "14.30");
strcpy(elements[50].Masswt[4],"116.9031");
strcpy(elements[50].MassPerc[4] , "7.61");
strcpy(elements[50].Masswt[5],"117.9018");
strcpy(elements[50].MassPerc[5] , "24.03");
strcpy(elements[50].Masswt[6],"118.9034");
strcpy(elements[50].MassPerc[6] , "8.58");
strcpy(elements[50].Masswt[7],"121.9034");
strcpy(elements[50].MassPerc[7] , "4.72");
strcpy(elements[50].Masswt[8],"123.9052");
strcpy(elements[50].MassPerc[8] , "5.94");
elements[50].OxidNrs = 2;
elements[50].Oxidstate[0] = 4;
elements[50].Oxidstate[1] = 2;
strcpy(elements[50].Density , "7.29");
strcpy(elements[50].Meltingpt , "231.9681");
strcpy(elements[50].Boilingpt ,"2270");
elements[50].IonizationE = 7.344000;
elements[50].Atomicrad = 140.500000;
elements[50].Covrad = 140.000000;
elements[50].Ionradnrs = 2;
elements[50].Ionicrad[0] = 55.000000;
elements[50].Oxidstd[0] = 4;
elements[50].Coordnr[0] = 4;
elements[50].Ionicrad[1] = 69.000000;
elements[50].Oxidstd[1] = 4;
elements[50].Coordnr[1] = 6;
elements[50].VDW = 0.000000;
elements[50].Abundance = 0.001000;
elements[51].Number = 51;
strcpy(elements[51].Name,"Antimony");
strcpy(elements[51].Symbol,"Sb");
strcpy(elements[51].MolWeight ,"121.175");
elements[51].RMolWt = 121.175;
elements[51].sigfig = 32;
strcpy(elements[51].State,"Solid");
elements[51].Isotopes = 2;
strcpy(elements[51].Masswt[0],"120.9038");
strcpy(elements[51].MassPerc[0] , "57.25");
strcpy(elements[51].Masswt[1],"122.9041");
strcpy(elements[51].MassPerc[1] , "42.75");
elements[51].OxidNrs = 3;
elements[51].Oxidstate[0] = 5;
elements[51].Oxidstate[1] = 3;
elements[51].Oxidstate[2] = -3;
strcpy(elements[51].Density , "6.690000");
strcpy(elements[51].Meltingpt , "630.74");
strcpy(elements[51].Boilingpt ,"1750");
elements[51].IonizationE = 8.641000;
elements[51].Atomicrad = 145.000000;
elements[51].Covrad = 141.000000;
elements[51].Ionradnrs = 2;
elements[51].Ionicrad[0] = 60.000000;
elements[51].Oxidstd[0] = 5;
elements[51].Coordnr[0] = 6;
elements[51].Ionicrad[1] = 76.000000;
elements[51].Oxidstd[1] = 3;
elements[51].Coordnr[1] = 6;
elements[51].VDW = 0.000000;
elements[51].Abundance = 0.000100;
elements[52].Number = 52;
strcpy(elements[52].Name,"Tellurium");
strcpy(elements[52].Symbol,"Te");
strcpy(elements[52].MolWeight ,"127.60");
elements[52].RMolWt = 127.60;
elements[52].sigfig = 2;
strcpy(elements[52].State,"Solid");
elements[52].Isotopes = 8;
strcpy(elements[52].Masswt[0],"119.9045");
strcpy(elements[52].MassPerc[0] , "0.089");
strcpy(elements[52].Masswt[1],"121.9030");
strcpy(elements[52].MassPerc[1] , "2.46");
strcpy(elements[52].Masswt[2],"122.9042");
strcpy(elements[52].MassPerc[2] , "0.87");
strcpy(elements[52].Masswt[3],"123.9028");
strcpy(elements[52].MassPerc[3] , "6.61");
strcpy(elements[52].Masswt[4],"124.9044");
strcpy(elements[52].MassPerc[4] , "6.99");
strcpy(elements[52].Masswt[5],"125.9032");
strcpy(elements[52].MassPerc[5] , "18.71");
strcpy(elements[52].Masswt[6],"127.9047");
strcpy(elements[52].MassPerc[6] , "31.79");
strcpy(elements[52].Masswt[7],"129.9067");
strcpy(elements[52].MassPerc[7] , "34.48");
elements[52].OxidNrs = 3;
elements[52].Oxidstate[0] = 6;
elements[52].Oxidstate[1] = 4;
elements[52].Oxidstate[2] = -2;
strcpy(elements[52].Density , "6.250000");
strcpy(elements[52].Meltingpt , "449.5");  /* +- 0.3 */
strcpy(elements[52].Boilingpt ,"989.8"); /* +- 3.8 */
elements[52].IonizationE = 9.009000;
elements[52].Atomicrad = 143.200000;
elements[52].Covrad = 137.000000;
elements[52].Ionradnrs = 2;
elements[52].Ionicrad[0] = 97.000000;
elements[52].Oxidstd[0] = 4;
elements[52].Coordnr[0] = 6;
elements[52].Ionicrad[1] = 221.000000;
elements[52].Oxidstd[1] = -2;
elements[52].Coordnr[1] = 6;
elements[52].VDW = 0.000000;
elements[52].Abundance = 0.000001;
elements[53].Number = 53;
strcpy(elements[53].Name,"Iodine");
strcpy(elements[53].Symbol,"I");
strcpy(elements[53].MolWeight ,"126.90");
elements[53].RMolWt = 126.90;
elements[53].sigfig = 2;
strcpy(elements[53].State,"Solid");
elements[53].Isotopes = 1;
strcpy(elements[53].Masswt[0], "126.9004");
strcpy(elements[53].MassPerc[0] , "100");
elements[53].OxidNrs = 4;
elements[53].Oxidstate[0] = 7;
elements[53].Oxidstate[1] = 5;
elements[53].Oxidstate[2] = 1;
elements[53].Oxidstate[3] = -1;
strcpy(elements[53].Density , "4.940000");
strcpy(elements[53].Meltingpt , "113.5");
strcpy(elements[53].Boilingpt ,"184.35");
elements[53].IonizationE = 10.451000;
elements[53].Atomicrad = 133.100000;
elements[53].Covrad = 133.000000;
elements[53].Ionradnrs = 1;
elements[53].Ionicrad[0] = 220.000000;
elements[53].Oxidstd[0] = -1;
elements[53].Coordnr[0] = 6;
elements[53].VDW = 220.000000;
elements[53].Abundance = 0.000006;
elements[54].Number = 54;
strcpy(elements[54].Name,"Xenon");
strcpy(elements[54].Symbol,"Xe");
strcpy(elements[54].MolWeight ,"131.29");
elements[54].RMolWt = 131.29;
elements[54].sigfig = 2;
strcpy(elements[54].State,"Gas");
elements[54].Isotopes = 9;
strcpy(elements[54].Masswt[0],"123.9061");
strcpy(elements[54].MassPerc[0] , "0.096");
strcpy(elements[54].Masswt[1],"125.9042");
strcpy(elements[54].MassPerc[1] , "0.090");
strcpy(elements[54].Masswt[2],"127.9035");
strcpy(elements[54].MassPerc[2] , "1.92");
strcpy(elements[54].Masswt[3],"128.9048");
strcpy(elements[54].MassPerc[3] , "26.44");
strcpy(elements[54].Masswt[4],"129.9035");
strcpy(elements[54].MassPerc[4] , "4.08");
strcpy(elements[54].Masswt[5],"130.9051");
strcpy(elements[54].MassPerc[5] , "21.18");
strcpy(elements[54].Masswt[6],"131.9042");
strcpy(elements[54].MassPerc[6] , "26.89");
strcpy(elements[54].Masswt[7],"133.9054");
strcpy(elements[54].MassPerc[7] , "10.44");
strcpy(elements[54].Masswt[8],"135.9072");
strcpy(elements[54].MassPerc[8] , "8.87");
elements[54].OxidNrs = 3;
elements[54].Oxidstate[0] = 2;
elements[54].Oxidstate[1] = 4;
elements[54].Oxidstate[2] = 6;
strcpy(elements[54].Density , "5.490000");
strcpy(elements[54].Meltingpt , "-111.9");
strcpy(elements[54].Boilingpt ,"-107.100000");  /* +- 3 */
elements[54].IonizationE = 12.130000;
elements[54].Atomicrad = 210.000000;
elements[54].Covrad = 0.000000;
elements[54].Ionradnrs = 0;
elements[54].VDW = 0.000000;
elements[54].Abundance = 0.000000;
elements[55].Number = 55;
strcpy(elements[55].Name,"Cesium");
strcpy(elements[55].Symbol,"Cs");
strcpy(elements[55].MolWeight ,"132.91");
elements[55].RMolWt = 132.91;
elements[55].sigfig = 2;
strcpy(elements[55].State,"Solid");
elements[55].Isotopes = 1;
strcpy(elements[55].Masswt[0],"133.9051");
strcpy(elements[55].MassPerc[0] , "100");
elements[55].OxidNrs = 1;
elements[55].Oxidstate[0] = 1;
strcpy(elements[55].Density , "1.900000");
strcpy(elements[55].Meltingpt , "28.40");  /* +- 0.01 */
strcpy(elements[55].Boilingpt ,"678.4");
elements[55].IonizationE = 3.894000;
elements[55].Atomicrad = 265.500000;
elements[55].Covrad = 253.000000;
elements[55].Ionradnrs = 2;
elements[55].Ionicrad[0] = 167.000000;
elements[55].Oxidstd[0] = 1;
elements[55].Coordnr[0] = 6;
elements[55].Ionicrad[1] = 174.000000;
elements[55].Oxidstd[1] = 1;
elements[55].Coordnr[1] = 8;
elements[55].VDW = 0.000000;
elements[55].Abundance = 0.000600;
elements[56].Number = 56;
strcpy(elements[56].Name,"Barium");
strcpy(elements[56].Symbol,"Ba");
strcpy(elements[56].MolWeight ,"137.33");
elements[56].RMolWt = 137.33;
elements[56].sigfig = 2;
strcpy(elements[56].State,"Solid");
elements[56].Isotopes = 7;
strcpy(elements[56].Masswt[0], "129.9062");
strcpy(elements[56].MassPerc[0] , "0.101");
strcpy(elements[56].Masswt[1], "131.9057");
strcpy(elements[56].MassPerc[1] , "0.097");
strcpy(elements[56].Masswt[2], "133.9043");
strcpy(elements[56].MassPerc[2] , "2.42");
strcpy(elements[56].Masswt[3], "134.9056");
strcpy(elements[56].MassPerc[3] , "6.59");
strcpy(elements[56].Masswt[4], "135.9044");
strcpy(elements[56].MassPerc[4] , "7.81");
strcpy(elements[56].Masswt[5], "135.9044");
strcpy(elements[56].MassPerc[5] , "11.32");
strcpy(elements[56].Masswt[6], "137.9050");
strcpy(elements[56].MassPerc[6] , "71.66");
elements[56].OxidNrs = 1;
elements[56].Oxidstate[0] = 2;
strcpy(elements[56].Density , "3.650000");
strcpy(elements[56].Meltingpt , "725.");
strcpy(elements[56].Boilingpt ,"1640");
elements[56].IonizationE = 5.212000;
elements[56].Atomicrad = 217.400000;
elements[56].Covrad = 198.000000;
elements[56].Ionradnrs = 2;
elements[56].Ionicrad[0] = 135.000000;
elements[56].Oxidstd[0] = 2;
elements[56].Coordnr[0] = 6;
elements[56].Ionicrad[1] = 142.000000;
elements[56].Oxidstd[1] = 2;
elements[56].Coordnr[1] = 8;
elements[56].VDW = 0.0000;00;
elements[56].Abundance = 0.030000;
elements[57].Number = 57;
strcpy(elements[57].Name,"Lanthanum");
strcpy(elements[57].Symbol,"La");
strcpy(elements[57].MolWeight ,"138.92");
elements[57].RMolWt = 138.92;
strcpy(elements[57].State,"Solid");
elements[57].Isotopes = 2;
strcpy(elements[57].Masswt[0],"137.9068");
strcpy(elements[57].MassPerc[0] , "0.089");
strcpy(elements[57].Masswt[1],"138.9061");
strcpy(elements[57].MassPerc[2] , "99.911");
elements[57].OxidNrs = 1;
elements[57].Oxidstate[0] = 3;
strcpy(elements[57].Density , "6.145"); /* CRC 55th ed, b233 */
strcpy(elements[57].Meltingpt , "921");  /* CRC 55th ed, b233 */
strcpy(elements[57].Boilingpt ,"3457"); /* CRC 55th ed, b233 */
elements[57].IonizationE = 5.577000;
elements[57].Atomicrad = 187.000000;
elements[57].Covrad = 169.000000;
elements[57].Ionradnrs = 2;
elements[57].Ionicrad[0] = 103.000000;
elements[57].Oxidstd[0] = 3;
elements[57].Coordnr[0] = 6;
elements[57].Ionicrad[1] = 116.000000;
elements[57].Oxidstd[1] = 3;
elements[57].Coordnr[1] = 8;
elements[57].VDW = 0.000000;
elements[57].Abundance = 0.002000;
elements[58].Number = 58;
strcpy(elements[58].Name,"Cerium");
strcpy(elements[58].Symbol,"Ce");
strcpy(elements[58].MolWeight ,"140.12");
elements[58].RMolWt = 140.12;
elements[58].sigfig = 2;
strcpy(elements[58].State,"Solid");
elements[58].Isotopes = 4;
strcpy(elements[58].Masswt[0],"140.23");
strcpy(elements[58].MassPerc[0] , "0.0193");
strcpy(elements[58].Masswt[1],"137.9057");
strcpy(elements[58].MassPerc[1] , "0.250");
strcpy(elements[58].Masswt[2],"139.9053");
strcpy(elements[58].MassPerc[2] , "88.48");
strcpy(elements[58].Masswt[3],"141.9090");
strcpy(elements[58].MassPerc[3] , "11.07");
elements[58].OxidNrs = 2;
elements[58].Oxidstate[0] = 4;
elements[58].Oxidstate[1] = 3;
/* elements[58].num_density = 2; */
strcpy(elements[58].Density , "6.767");  /* CRC 55th ed, b233 */
/* strcpy(elements[58].Density[1], "6.657"); */
strcpy(elements[58].Meltingpt , "799");  /* CRC 55th ed, b233 */
strcpy(elements[58].Boilingpt ,"3426");  /* CRC 55th ed, b233 */
elements[58].IonizationE = 5.470000;
elements[58].Atomicrad = 182.500000;
elements[58].Covrad = 165.000000;
elements[58].Ionradnrs = 2;
elements[58].Ionicrad[0] = 87.000000;
elements[58].Oxidstd[0] = 4;
elements[58].Coordnr[0] = 6;
elements[58].Ionicrad[1] = 99.000000;
elements[58].Oxidstd[1] = 3;
elements[58].Coordnr[1] = 6;
elements[58].VDW = 0.000000;
elements[58].Abundance = 0.004000;
elements[59].Number = 59;
strcpy(elements[59].Name,"Praseodymium");;
strcpy(elements[59].Symbol,"Pr");;
strcpy(elements[59].MolWeight ,"140.91");
elements[59].RMolWt = 140.91;
elements[59].sigfig = 2;
strcpy(elements[59].State,"Solid");;
elements[59].Isotopes = 1;
strcpy(elements[59].Masswt[0],"140.9074");
strcpy(elements[59].MassPerc[0] ,"100");
elements[59].OxidNrs = 2;
elements[59].Oxidstate[0] = 4;
elements[59].Oxidstate[1] = 3;
strcpy(elements[59].Density , "6.773");  /* CRC 55th ed, b233 */
strcpy(elements[59].Meltingpt , "931"); /* CRC 55th ed, b233 */
strcpy(elements[59].Boilingpt ,"3512");  /* CRC 55th ed, b233 */
elements[59].IonizationE = 5.420000;
elements[59].Atomicrad = 182.000000;
elements[59].Covrad = 165.000000;
elements[59].Ionradnrs = 2;
elements[59].Ionicrad[0] = 85.000000;
elements[59].Oxidstd[0] = 4;
elements[59].Coordnr[0] = 6;
elements[59].Ionicrad[1] = 99.000000;
elements[59].Oxidstd[1] = 3;
elements[59].Coordnr[1] = 6;
elements[59].VDW = 0.000000;
elements[59].Abundance = 0.0;00500;
elements[60].Number = 60;
strcpy(elements[60].Name,"Neodymium");
strcpy(elements[60].Symbol,"Nd");
strcpy(elements[60].MolWeight ,"144.24");
elements[60].RMolWt = 144.24;
strcpy(elements[60].State,"Solid");
elements[60].Isotopes = 7;
strcpy(elements[60].Masswt[0],"141.9075");
strcpy(elements[60].MassPerc[0] , "27.11");
strcpy(elements[60].Masswt[1],"142.9096");
strcpy(elements[60].MassPerc[1] , "12.17");
strcpy(elements[60].Masswt[2],"143.9099");
strcpy(elements[60].MassPerc[2] , "23.85");
strcpy(elements[60].Masswt[3],"144.9122");
strcpy(elements[60].MassPerc[3] , "8.30");
strcpy(elements[60].Masswt[4],"145.9127");
strcpy(elements[60].MassPerc[4] , "17.62");
strcpy(elements[60].Masswt[5],"147.9165");
strcpy(elements[60].MassPerc[5] , "5.73");
strcpy(elements[60].Masswt[6],"149.9207");
strcpy(elements[60].MassPerc[6] , "5.62");
elements[60].OxidNrs = 1;
elements[60].Oxidstate[0] = 3;
strcpy(elements[60].Density , "7.007"); /* CRC 55th ed. B233 */
strcpy(elements[60].Meltingpt , "1021"); /* CRC 55th ed. B233 */
strcpy(elements[60].Boilingpt ,"3068"); /* CRC 55th ed. B233 */
elements[60].IonizationE = 5.490000;
elements[60].Atomicrad = 181.400000;
elements[60].Covrad = 164.000000;
elements[60].Ionradnrs = 2;
elements[60].Ionicrad[0] = 98.000000;
elements[60].Oxidstd[0] = 3;
elements[60].Coordnr[0] = 6;
elements[60].Ionicrad[1] = 116.000000;
elements[60].Oxidstd[1] = 3;
elements[60].Coordnr[1] = 9;
elements[60].VDW = 0.000000;
elements[60].Abundance = 0.002000;
elements[61].Number = 61;
strcpy(elements[61].Name,"Promethium");
strcpy(elements[61].Symbol,"Pm");
strcpy(elements[61].MolWeight ,"145.00");
elements[61].RMolWt = 145.00;
elements[61].sigfig = 2;
strcpy(elements[61].State,"Solid");
elements[61].Isotopes = 1;
strcpy(elements[61].Masswt[0], "145");
strcpy(elements[61].MassPerc[0] , "100");
elements[61].OxidNrs = 1;
elements[61].Oxidstate[0] = 3;
strcpy(elements[61].Density , "N/A"); /* CRC 55th ed. B233 */
strcpy(elements[61].Meltingpt , "1168"); /* CRC 55th ed. B233 */
strcpy(elements[61].Boilingpt ,"2700 (est.)");  /* est. CRC 55th ed. B233 */
elements[61].IonizationE = 5.550000;
elements[61].Atomicrad = 0.000000;
elements[61].Covrad = 163.000000;
elements[61].Ionradnrs = 2;
elements[61].Ionicrad[0] = 97.000000;
elements[61].Oxidstd[0] = 3;
elements[61].Coordnr[0] = 6;
elements[61].Ionicrad[1] = 114.000000;
elements[61].Oxidstd[1] = 3;
elements[61].Coordnr[1] = 9;
elements[61].VDW = 0.000000;
elements[61].Abundance = 0.000000;
elements[62].Number = 62;
strcpy(elements[62].Name,"Samarium");
strcpy(elements[62].Symbol,"Sm");
strcpy(elements[62].MolWeight ,"150.36");
elements[62].RMolWt = 150.36;
elements[62].sigfig = 2;
strcpy(elements[62].State,"Solid");
elements[62].Isotopes = 7;
strcpy(elements[62].Masswt[0] , "143.9117");
strcpy(elements[62].MassPerc[0] , "3.09");
strcpy(elements[62].Masswt[1] , "146.9146");
strcpy(elements[62].MassPerc[1] , "14.97");
strcpy(elements[62].Masswt[2] , "147.9146");
strcpy(elements[62].MassPerc[2] , "11.24");
strcpy(elements[62].Masswt[3] , "148.9169");
strcpy(elements[62].MassPerc[3] , "13.82");
strcpy(elements[62].Masswt[4] , "149.9170");
strcpy(elements[62].MassPerc[4] , "7.44");
strcpy(elements[62].Masswt[5] , "151.9195");
strcpy(elements[62].MassPerc[5] , "26.72");
strcpy(elements[62].Masswt[6] , "153.9117");
strcpy(elements[62].MassPerc[6] , "22.71");
elements[62].OxidNrs = 2;
elements[62].Oxidstate[0] = 3;
elements[62].Oxidstate[1] = 2;
strcpy(elements[62].Density , "7.52"); /* CRC 55th ed B233 */
strcpy(elements[62].Meltingpt , "1077");  /* CRC 55th ed B233 */
strcpy(elements[62].Boilingpt ,"1791"); /* CRC 55th ed B233 */
elements[62].IonizationE = 5.630000;
elements[62].Atomicrad = 0.000000;
elements[62].Covrad = 162.000000;
elements[62].Ionradnrs = 3;
elements[62].Ionicrad[0] = 96.000000;
elements[62].Oxidstd[0] = 3;
elements[62].Coordnr[0] = 6;
elements[62].Ionicrad[1] = 113.000000;
elements[62].Oxidstd[1] = 3;
elements[62].Coordnr[1] = 9;
elements[62].Ionicrad[2] = 132.000000;
elements[62].Oxidstd[2] = 2;
elements[62].Coordnr[2] = 9;
elements[62].VDW = 0.000000;
elements[62].Abundance = 0.000600;
elements[63].Number = 63;
strcpy(elements[63].Name,"Europium");
strcpy(elements[63].Symbol,"Eu");
strcpy(elements[63].MolWeight ,"151.97");
elements[63].RMolWt = 151.97;
elements[63].sigfig = 2;
strcpy(elements[63].State,"Solid");
elements[63].Isotopes = 2;
strcpy(elements[63].Masswt[0],"150.9196");
strcpy(elements[63].MassPerc[0] , "47.82");
strcpy(elements[63].Masswt[0],"152.9209");
strcpy(elements[63].MassPerc[0] , "52.18");
elements[63].OxidNrs = 2;
elements[63].Oxidstate[0] = 3;
elements[63].Oxidstate[1] = 2;
strcpy(elements[63].Density , "5.243"); /* CRC 55th ed B233 */
strcpy(elements[63].Meltingpt , "822");  /* CRC 55th ed B233 */
strcpy(elements[63].Boilingpt ,"1597");  /* CRC 55th ed B233 */
elements[63].IonizationE = 5.670000;
elements[63].Atomicrad = 199.500000;
elements[63].Covrad = 185.000000;
elements[63].Ionradnrs = 2;
elements[63].Ionicrad[0] = 95.000000;
elements[63].Oxidstd[0] = 3;
elements[63].Coordnr[0] = 6;
elements[63].Ionicrad[1] = 117.000000;
elements[63].Oxidstd[1] = 2;
elements[63].Coordnr[1] = 6;
elements[63].VDW = 0.000000;
elements[63].Abundance = 0.0;00010;
elements[64].Number = 64;
strcpy(elements[64].Name,"Gadolinium");
strcpy(elements[64].Symbol,"Gd");
strcpy(elements[64].MolWeight ,"157.25");
elements[64].RMolWt = 157.25;
elements[64].sigfig = 2;
strcpy(elements[64].State,"Solid");
elements[64].Isotopes = 7;
strcpy(elements[64].Masswt[0] , "151.9195");
strcpy(elements[64].MassPerc[0] , "0.200");
strcpy(elements[64].Masswt[1] , "153.9207");
strcpy(elements[64].MassPerc[1] , "2.15");
strcpy(elements[64].Masswt[2] , "154.9226");
strcpy(elements[64].MassPerc[2] , "14.73");
strcpy(elements[64].Masswt[3] , "155.9221");
strcpy(elements[64].MassPerc[3] , "20.47");
strcpy(elements[64].Masswt[4] , "156.9339");
strcpy(elements[64].MassPerc[4] , "15.68");
strcpy(elements[64].Masswt[5] , "157.9241");
strcpy(elements[64].MassPerc[5] , "25.87");
strcpy(elements[64].Masswt[6] , "159.9271");
strcpy(elements[64].MassPerc[6] , "21.90");
elements[64].OxidNrs = 1;
elements[64].Oxidstate[0] = 3;
strcpy(elements[64].Density , "7.900"); /* CRC 55th ed B233 */
strcpy(elements[64].Meltingpt , "1313"); /* CRC 55th ed B233 */
strcpy(elements[64].Boilingpt ,"3266"); /* CRC 55th ed B233 */
elements[64].IonizationE = 6.140000;
elements[64].Atomicrad = 178.700000;
elements[64].Covrad = 161.000000;
elements[64].Ionradnrs = 2;
elements[64].Ionicrad[0] = 94.000000;
elements[64].Oxidstd[0] = 3;
elements[64].Coordnr[0] = 6;
elements[64].Ionicrad[1] = 111.000000;
elements[64].Oxidstd[1] = 3;
elements[64].Coordnr[1] = 9;
elements[64].VDW = 0.000000;
elements[64].Abundance = 0.000600;
elements[65].Number = 65;
strcpy(elements[65].Name,"Terbium");
strcpy(elements[65].Symbol,"Tb");
strcpy(elements[65].MolWeight ,"158.924");
elements[65].RMolWt = 158.924;
elements[65].sigfig = 3;
strcpy(elements[65].State,"Solid");
elements[65].Isotopes = 1;
strcpy(elements[65].Masswt[0],"159.9250");
strcpy(elements[65].MassPerc[0] , "100");
elements[65].OxidNrs = 2;
elements[65].Oxidstate[0] = 4;
elements[65].Oxidstate[1] = 3;
strcpy(elements[65].Density , "8.229");  /* CRC 55th ed B233 */
strcpy(elements[65].Meltingpt , "1356");   /* CRC 55th ed B233 */
strcpy(elements[65].Boilingpt ,"3123");   /* CRC 55th ed B233 */
elements[65].IonizationE = 5.850000;
elements[65].Atomicrad = 176.300000;
elements[65].Covrad = 159.000000;
elements[65].Ionradnrs = 2;
elements[65].Ionicrad[0] = 92.000000;
elements[65].Oxidstd[0] = 3;
elements[65].Coordnr[0] = 6;
elements[65].Ionicrad[1] = 110.000000;
elements[65].Oxidstd[1] = 3;
elements[65].Coordnr[1] = 9;
elements[65].VDW = 0.000000;
elements[65].Abundance = 0.000090;
elements[66].Number = 66;
strcpy(elements[66].Name,"Dysprosium");
strcpy(elements[66].Symbol,"Dy");
strcpy(elements[66].MolWeight ,"162.5");
elements[66].RMolWt = 162.5;
strcpy(elements[66].State,"Solid");
elements[66].Isotopes = 7;
strcpy(elements[66].Masswt[0],"155.9238");
strcpy(elements[66].MassPerc[0] , "0.052");
strcpy(elements[66].Masswt[1],"157.9240");
strcpy(elements[66].MassPerc[1] , "0.090");
strcpy(elements[66].Masswt[2],"159.9248");
strcpy(elements[66].MassPerc[2] , "2.29");
strcpy(elements[66].Masswt[3],"160.9266");
strcpy(elements[66].MassPerc[3] , "18.88");
strcpy(elements[66].Masswt[4],"161.9265");
strcpy(elements[66].MassPerc[4] , "25.53");
strcpy(elements[66].Masswt[5],"162.9284");
strcpy(elements[66].MassPerc[5] , "24.97");
strcpy(elements[66].Masswt[6],"163.9288");
strcpy(elements[66].MassPerc[6] , "28.18");
elements[66].OxidNrs = 1;
elements[66].Oxidstate[0] = 3;
strcpy(elements[66].Density , "8.550");  /* CRC 55th ed B233 */
strcpy(elements[66].Meltingpt , "1356");  /* CRC 55th ed B233 */
strcpy(elements[66].Boilingpt ,"2562");  /* CRC 55th ed B233 */
elements[66].IonizationE = 5.930000;
elements[66].Atomicrad = 175.200000;
elements[66].Covrad = 159.000000;
elements[66].Ionradnrs = 2;
elements[66].Ionicrad[0] = 91.000000;
elements[66].Oxidstd[0] = 3;
elements[66].Coordnr[0] = 6;
elements[66].Ionicrad[1] = 108.000000;
elements[66].Oxidstd[1] = 3;
elements[66].Coordnr[1] = 9;
elements[66].VDW = 0.000000;
elements[66].Abundance = 0.000400;
elements[67].Number = 67;
strcpy(elements[67].Name,"Holmium");
strcpy(elements[67].Symbol,"Ho");
strcpy(elements[67].MolWeight ,"164.930");
elements[67].RMolWt = 164.930;
strcpy(elements[67].State,"Solid");
elements[67].Isotopes = 1;
strcpy(elements[67].Masswt[0],"164.9303");
strcpy(elements[67].MassPerc[0] , "100");
elements[67].OxidNrs = 1;
elements[67].Oxidstate[0] = 3;
strcpy(elements[67].Density , "8.795"); /* CRC 55th ed B233 */
strcpy(elements[67].Meltingpt , "1474"); /* CRC 55th ed B233 */
strcpy(elements[67].Boilingpt ,"2695"); /* CRC 55th ed B233 */
elements[67].IonizationE = 6.020000;
elements[67].Atomicrad = 174.300000;
elements[67].Covrad = 158.000000;
elements[67].Ionradnrs = 2;
elements[67].Ionicrad[0] = 90.000000;
elements[67].Oxidstd[0] = 3;
elements[67].Coordnr[0] = 6;
elements[67].Ionicrad[1] = 107.000000;
elements[67].Oxidstd[1] = 3;
elements[67].Coordnr[1] = 9;
elements[67].VDW = 0.000000;
elements[67].Abundance = 0.000100;
elements[68].Number = 68;
strcpy(elements[68].Name,"Erbium");
strcpy(elements[68].Symbol,"Er");
strcpy(elements[68].MolWeight ,"167.26");
elements[68].RMolWt = 167.26;
elements[68].sigfig = 2;
strcpy(elements[68].State,"Solid");
elements[68].Isotopes = 6;
strcpy(elements[68].Masswt[0], "161.9288");
strcpy(elements[68].MassPerc[0] ,"0.136");
strcpy(elements[68].Masswt[1], "163.9293");
strcpy(elements[68].MassPerc[1] ,"1.56");
strcpy(elements[68].Masswt[2], "165.9304");
strcpy(elements[68].MassPerc[2] ,"33.41");
strcpy(elements[68].Masswt[3], "166.9320");
strcpy(elements[68].MassPerc[3] ,"22.94");
strcpy(elements[68].Masswt[4], "167.9324");
strcpy(elements[68].MassPerc[4] ,"27.07");
strcpy(elements[68].Masswt[5], "169.9355");
strcpy(elements[68].MassPerc[5] ,"14.88");
elements[68].OxidNrs = 1;
elements[68].Oxidstate[0] = 3;
strcpy(elements[68].Density , "9.066");  /* CRC 55th ed B233 */
strcpy(elements[68].Meltingpt , "1529");  /* CRC 55th ed B233 */
strcpy(elements[68].Boilingpt ,"2863");    /* CRC 55th ed B233 */
elements[68].IonizationE = 6.100000;
elements[68].Atomicrad = 173.400000;
elements[68].Covrad = 157.000000;
elements[68].Ionradnrs = 2;
elements[68].Ionicrad[0] = 89.000000;
elements[68].Oxidstd[0] = 3;
elements[68].Coordnr[0] = 6;
elements[68].Ionicrad[1] = 106.000000;
elements[68].Oxidstd[1] = 3;
elements[68].Coordnr[1] = 9;
elements[68].VDW = 0.000000;
elements[68].Abundance = 0.000200;
elements[69].Number = 69;
strcpy(elements[69].Name,"Thulium");
strcpy(elements[69].Symbol,"Tm");
strcpy(elements[69].MolWeight ,"169.934");
elements[69].RMolWt = 169.934;
elements[69].sigfig = 3;
strcpy(elements[69].State,"Solid");
elements[69].Isotopes = 1;
strcpy(elements[69].Masswt[0] , "168.9344");
strcpy(elements[69].MassPerc[0] , "100");
elements[69].OxidNrs = 2;
elements[69].Oxidstate[0] = 3;
elements[69].Oxidstate[1] = 2;
strcpy(elements[69].Density , "9.321");    /* CRC 55th ed B233 */
strcpy(elements[69].Meltingpt , "1545");    /* CRC 55th ed B233 */
strcpy(elements[69].Boilingpt ,"1947");    /* CRC 55th ed B233 */
elements[69].IonizationE = 6.180000;
elements[69].Atomicrad = 172.400000;
elements[69].Covrad = 156.000000;
elements[69].Ionradnrs = 2;
elements[69].Ionicrad[0] = 88.000000;
elements[69].Oxidstd[0] = 3;
elements[69].Coordnr[0] = 6;
elements[69].Ionicrad[1] = 105.000000;
elements[69].Oxidstd[1] = 3;
elements[69].Coordnr[1] = 9;
elements[69].VDW = 0.0000;00;
elements[69].Abundance = 0.000020;
elements[70].Number = 70;
strcpy(elements[70].Name,"Ytterbium");
strcpy(elements[70].Symbol,"Yb");;
strcpy(elements[70].MolWeight ,"173.04");
elements[70].RMolWt = 173.04;
elements[70].sigfig = 2;
strcpy(elements[70].State,"Solid");
elements[70].Isotopes = 7;
strcpy(elements[70].Masswt[0], "167.9339");
strcpy(elements[70].MassPerc[0] , "0.135");
strcpy(elements[70].Masswt[1], "169.9349");
strcpy(elements[70].MassPerc[1] , "3.03");
strcpy(elements[70].Masswt[2], "170.9365");
strcpy(elements[70].MassPerc[2] , "14.31");
strcpy(elements[70].Masswt[3], "171.9366");
strcpy(elements[70].MassPerc[3] , "21.82");
strcpy(elements[70].Masswt[4], "172.9383");
strcpy(elements[70].MassPerc[4] , "16.13");
strcpy(elements[70].Masswt[5], "173.9390");
strcpy(elements[70].MassPerc[5] , "31.84");
strcpy(elements[70].Masswt[6], "175.9427");
strcpy(elements[70].MassPerc[6] , "12.73");
elements[70].OxidNrs = 2;
elements[70].Oxidstate[0] = 32;
elements[70].Oxidstate[1] = 2;
strcpy(elements[70].Density , "6.965");   /* CRC 55th ed B233 */
strcpy(elements[70].Meltingpt , "819");    /* CRC 55th ed B233 */
strcpy(elements[70].Boilingpt ,"1194");   /* CRC 55th ed B233 */
elements[70].IonizationE = 6.254000;
elements[70].Atomicrad = 194.000000;
elements[70].Covrad = 174.000000;
elements[70].Ionradnrs = 2;
elements[70].Ionicrad[0] = 87.000000;
elements[70].Oxidstd[0] = 3;
elements[70].Coordnr[0] = 6;
elements[70].Ionicrad[1] = 104.000000;
elements[70].Oxidstd[1] = 3;
elements[70].Coordnr[1] = 9;
elements[70].VDW = 0.0000;00;
elements[70].Abundance = 0.000020;
elements[71].Number = 71;
strcpy(elements[71].Name,"Lutetium");
strcpy(elements[71].Symbol,"Lu");;
strcpy(elements[71].MolWeight ,"174.97");
elements[71].RMolWt = 174.97;
elements[71].sigfig = 2;
strcpy(elements[71].State,"Solid");
elements[71].Isotopes = 2;
strcpy(elements[71].Masswt[0] ,"174.9409");
strcpy(elements[71].MassPerc[0] , "97.41");
strcpy(elements[71].Masswt[1] ,"178.49");
strcpy(elements[71].MassPerc[1] , "2.59");
elements[71].OxidNrs = 1;
elements[71].Oxidstate[0] = 3;
strcpy(elements[71].Density , "9.840");  /* CRC 55th ed B233 */
strcpy(elements[71].Meltingpt , "1663");   /* CRC 55th ed B233 */
strcpy(elements[71].Boilingpt ,"3395");  /* CRC 55th ed B233 */
elements[71].IonizationE = 5.426000;
elements[71].Atomicrad = 171.800000;
elements[71].Covrad = 156.000000;
elements[71].Ionradnrs = 2;
elements[71].Ionicrad[0] = 86.000000;
elements[71].Oxidstd[0] = 3;
elements[71].Coordnr[0] = 6;
elements[71].Ionicrad[1] = 103.000000;
elements[71].Oxidstd[1] = 3;
elements[71].Coordnr[1] = 9;
elements[71].VDW = 0.000000;
elements[71].Abundance = 0.000070;
elements[72].Number = 72;
strcpy(elements[72].Name,"Hafnium");
strcpy(elements[72].Symbol,"Hf");
strcpy(elements[72].MolWeight ,"178.49");
elements[72].RMolWt = 178.49;
elements[72].sigfig = 2;
strcpy(elements[72].State,"Solid");
elements[72].Isotopes = 6;
strcpy(elements[72].Masswt[0] ,"173.9403");
strcpy(elements[72].MassPerc[0] , "0.18");
strcpy(elements[72].Masswt[1] ,"175.94165");
strcpy(elements[72].MassPerc[1] , "5.20");
strcpy(elements[72].Masswt[2] ,"176.9435");
strcpy(elements[72].MassPerc[2] , "18.50");
strcpy(elements[72].Masswt[3] ,"177.9439");
strcpy(elements[72].MassPerc[3] , "27.14");
strcpy(elements[72].Masswt[4] ,"178.9460");
strcpy(elements[72].MassPerc[4] , "13.75");
strcpy(elements[72].Masswt[5] ,"179.9468");
strcpy(elements[72].MassPerc[5] , "35.24");
elements[72].OxidNrs = 1;
elements[72].Oxidstate[0] = 4;
strcpy(elements[72].Density , "13.310000");
strcpy(elements[72].Meltingpt , "2227.0");  /* +- 20 */
strcpy(elements[72].Boilingpt ,"4602");
elements[72].IonizationE = 7.000000;
elements[72].Atomicrad = 156.400000;
elements[72].Covrad = 144.000000;
elements[72].Ionradnrs = 2;
elements[72].Ionicrad[0] = 71.000000;
elements[72].Oxidstd[0] = 4;
elements[72].Coordnr[0] = 4;
elements[72].Ionicrad[1] = 76.000000;
elements[72].Oxidstd[1] = 4;
elements[72].Coordnr[1] = 6;
elements[72].VDW = 0.000000;
elements[72].Abundance = 0.000400;
elements[73].Number = 73;
strcpy(elements[73].Name,"Tantalum");
strcpy(elements[73].Symbol,"Ta");
strcpy(elements[73].MolWeight ,"180.948");
elements[73].RMolWt = 180.948;
elements[73].sigfig = 3;
strcpy(elements[73].State,"Solid");;
elements[73].Isotopes = 2;
strcpy(elements[73].Masswt[0] , "179.9415");
strcpy(elements[73].MassPerc[0] , "0.0123");
strcpy(elements[73].Masswt[1] , "180.9480");
strcpy(elements[73].MassPerc[1] , "99.988");
elements[73].OxidNrs = 1;
elements[73].Oxidstate[0] = 5;
strcpy(elements[73].Density , "16.680000");
strcpy(elements[73].Meltingpt , "2996");
strcpy(elements[73].Boilingpt ,"5425"); /* +- 100 */
elements[73].IonizationE = 7.890000;
elements[73].Atomicrad = 143.000000;
elements[73].Covrad = 134.000000;
elements[73].Ionradnrs = 2;
elements[73].Ionicrad[0] = 64.000000;
elements[73].Oxidstd[0] = 5;
elements[73].Coordnr[0] = 6;
elements[73].Ionicrad[1] = 74.000000;
elements[73].Oxidstd[1] = 5;
elements[73].Coordnr[1] = 8;
elements[73].VDW = 0.000000;
elements[73].Abundance = 0.000800;
elements[74].Number = 74;
strcpy(elements[74].Name,"Tungsten");
strcpy(elements[74].Symbol,"W");
strcpy(elements[74].MolWeight ,"183.85");
elements[74].RMolWt = 183.85;
elements[74].sigfig = 2;
strcpy(elements[74].State,"Solid");
elements[74].Isotopes = 5;
strcpy(elements[74].Masswt[0], "179.9470");
strcpy(elements[74].MassPerc[0] ,"0.14");
strcpy(elements[74].Masswt[1], "181.9483");
strcpy(elements[74].MassPerc[1] ,"26.41");
strcpy(elements[74].Masswt[2], "182.9503");
strcpy(elements[74].MassPerc[2] ,"14.40");
strcpy(elements[74].Masswt[3], "183.9510");
strcpy(elements[74].MassPerc[3] ,"30.64");
strcpy(elements[74].Masswt[4], "185.9543");
strcpy(elements[74].MassPerc[4] ,"28.41");
elements[74].OxidNrs = 6;
elements[74].Oxidstate[0] = 6;
elements[74].Oxidstate[1] = 5;
elements[74].Oxidstate[2] = 4;
elements[74].Oxidstate[3] = 3;
elements[74].Oxidstate[4] = 2;
elements[74].Oxidstate[5] = 0;
strcpy(elements[74].Density , "19.260000");
strcpy(elements[74].Meltingpt , "3410.");  /* +- 20 */
strcpy(elements[74].Boilingpt ,"5660");
elements[74].IonizationE = 7.980000;
elements[74].Atomicrad = 137.000000;
elements[74].Covrad = 130.000000;
elements[74].Ionradnrs = 2;
elements[74].Ionicrad[0] = 60.000000;
elements[74].Oxidstd[0] = 6;
elements[74].Coordnr[0] = 6;
elements[74].Ionicrad[1] = 66.000000;
elements[74].Oxidstd[1] = 4;
elements[74].Coordnr[1] = 6;
elements[74].VDW = 0.000000;
elements[74].Abundance = 0.006000;
elements[75].Number = 75;
strcpy(elements[75].Name,"Rhenium");
strcpy(elements[75].Symbol,"Re");
strcpy(elements[75].MolWeight ,"186.2");
elements[75].RMolWt = 186.2;
elements[75].sigfig = 1;
strcpy(elements[75].State,"Solid");;
elements[75].Isotopes = 2;
strcpy(elements[75].Masswt[0], "184.9530");
strcpy(elements[75].MassPerc[0] , "37.500");
strcpy(elements[75].Masswt[1], "186.9560");
strcpy(elements[75].MassPerc[1] , "62.500");
elements[75].OxidNrs = 5;
elements[75].Oxidstate[0] = 7;
elements[75].Oxidstate[1] = 6;
elements[75].Oxidstate[2] = 4;
elements[75].Oxidstate[3] = 2;
elements[75].Oxidstate[4] = -2;
strcpy(elements[75].Density , "21.030000");
strcpy(elements[75].Meltingpt , "3180.");
strcpy(elements[75].Boilingpt ,"5627"); /* estimated */
elements[75].IonizationE = 7.880000;
elements[75].Atomicrad = 137.100000;
elements[75].Covrad = 128.000000;
elements[75].Ionradnrs = 2;
elements[75].Ionicrad[0] = 53.000000;
elements[75].Oxidstd[0] = 7;
elements[75].Coordnr[0] = 6;
elements[75].Ionicrad[1] = 63.000000;
elements[75].Oxidstd[1] = 4;
elements[75].Coordnr[1] = 6;
elements[75].VDW = 0.000000;
elements[75].Abundance = 0.000000;
elements[76].Number = 76;
strcpy(elements[76].Name,"Osmium");
strcpy(elements[76].Symbol,"Os");
strcpy(elements[76].MolWeight ,"190.2");
elements[76].RMolWt = 190.2;
elements[76].sigfig = 1;
strcpy(elements[76].State,"Solid");;
elements[76].Isotopes = 7;
strcpy(elements[76].Masswt[0] ,"183.9526");
strcpy(elements[76].MassPerc[0] , "0.018");
strcpy(elements[76].Masswt[1] ,"185.9539");
strcpy(elements[76].MassPerc[1] , "1.59");
strcpy(elements[76].Masswt[2] ,"186.9560");
strcpy(elements[76].MassPerc[2] , "1.64");
strcpy(elements[76].Masswt[3] ,"187.9560");
strcpy(elements[76].MassPerc[3] , "13.3");
strcpy(elements[76].Masswt[4] ,"188.9586");
strcpy(elements[76].MassPerc[4] , "16.1");
strcpy(elements[76].Masswt[5] ,"189.9586");
strcpy(elements[76].MassPerc[5] , "26.4");
strcpy(elements[76].Masswt[6] ,"192.2");
strcpy(elements[76].MassPerc[6] , "39.952");
elements[76].OxidNrs = 7;
elements[76].Oxidstate[0] = 8;
elements[76].Oxidstate[1] = 6;
elements[76].Oxidstate[2] = 4;
elements[76].Oxidstate[3] = 3;
elements[76].Oxidstate[4] = 2;
elements[76].Oxidstate[5] = 0;
elements[76].Oxidstate[6] = -2;
strcpy(elements[76].Density , "22.610000");
strcpy(elements[76].Meltingpt , "3045.");  /* +- 30 */
strcpy(elements[76].Boilingpt ,"5027"); /* +- 100 */
elements[76].IonizationE = 8.700000;
elements[76].Atomicrad = 133.800000;
elements[76].Covrad = 126.000000;
elements[76].Ionradnrs = 2;
elements[76].Ionicrad[0] = 39.000000;
elements[76].Oxidstd[0] = 8;
elements[76].Coordnr[0] = 4;
elements[76].Ionicrad[1] = 63.000000;
elements[76].Oxidstd[1] = 4;
elements[76].Coordnr[1] = 6;
elements[76].VDW = 0.000000;
elements[76].Abundance = 0.0;00001;
elements[77].Number = 77;
strcpy(elements[77].Name,"Iridium");
strcpy(elements[77].Symbol,"Ir");
strcpy(elements[77].MolWeight ,"192.2");
elements[77].RMolWt = 192.2;
elements[77].sigfig = 1;
strcpy(elements[77].State,"Solid");;
elements[77].Isotopes = 2;
strcpy(elements[77].Masswt[0] , "190.9609");
strcpy(elements[77].MassPerc[0] , "37.4");
strcpy(elements[77].Masswt[0] , "192.9633");
strcpy(elements[77].MassPerc[0] , "62.6");
elements[77].OxidNrs = 7;
elements[77].Oxidstate[0] = 6;
elements[77].Oxidstate[1] = 4;
elements[77].Oxidstate[2] = 3;
elements[77].Oxidstate[3] = 2;
elements[77].Oxidstate[4] = 1;
elements[77].Oxidstate[5] = 0;
elements[77].Oxidstate[6] = -1;
strcpy(elements[77].Density , "22.650000");
strcpy(elements[77].Meltingpt , "2410.");
strcpy(elements[77].Boilingpt ,"4130");
elements[77].IonizationE = 9.100000;
elements[77].Atomicrad = 135.700000;
elements[77].Covrad = 127.000000;
elements[77].Ionradnrs = 2;
elements[77].Ionicrad[0] = 63.000000;
elements[77].Oxidstd[0] = 4;
elements[77].Coordnr[0] = 6;
elements[77].Ionicrad[1] = 68.000000;
elements[77].Oxidstd[1] = 3;
elements[77].Coordnr[1] = 6;
elements[77].VDW = 0.000000;
elements[77].Abundance = 0.000000;
elements[78].Number = 78;
strcpy(elements[78].Name,"Platinum");
strcpy(elements[78].Symbol,"Pt");;
strcpy(elements[78].MolWeight ,"195.09");
elements[78].RMolWt = 195.09;
elements[78].sigfig = 1;
strcpy(elements[78].State,"Solid");
elements[78].Isotopes = 6;
strcpy(elements[78].Masswt[0] , "189.960");
strcpy(elements[78].MassPerc[0] , "0.0127");
strcpy(elements[78].Masswt[1] , "191.9614");
strcpy(elements[78].MassPerc[1] , "0.78");
strcpy(elements[78].Masswt[2] , "193.9628");
strcpy(elements[78].MassPerc[2] , "32.9");
strcpy(elements[78].Masswt[3] , "194.9648");
strcpy(elements[78].MassPerc[3] , "33.8");
strcpy(elements[78].Masswt[4] , "195.9650");
strcpy(elements[78].MassPerc[4] , "25.3");
strcpy(elements[78].Masswt[5] , "197.9675");
strcpy(elements[78].MassPerc[5] , "7.21");
elements[78].OxidNrs = 3;
elements[78].Oxidstate[0] = 4;
elements[78].Oxidstate[1] = 2;
elements[78].Oxidstate[2] = 0;
strcpy(elements[78].Density , "21.450000");
strcpy(elements[78].Meltingpt , "1772.");
strcpy(elements[78].Boilingpt ,"3827"); /* +- 100 */
elements[78].IonizationE = 9.000000;
elements[78].Atomicrad = 137.300000;
elements[78].Covrad = 130.000000;
elements[78].Ionradnrs = 2;
elements[78].Ionicrad[0] = 63.000000;
elements[78].Oxidstd[0] = 4;
elements[78].Coordnr[0] = 6;
elements[78].Ionicrad[1] = 60.000000;
elements[78].Oxidstd[1] = 2;
elements[78].Coordnr[1] = 4;
elements[78].VDW = 0.000000;
elements[78].Abundance = 0.000000;
elements[79].Number = 79;
strcpy(elements[79].Name,"Gold");
strcpy(elements[79].Symbol,"Au");;
strcpy(elements[79].MolWeight ,"196.197");
elements[79].RMolWt = 196.197;
elements[79].sigfig = 3;
strcpy(elements[79].State,"Solid");
elements[79].Isotopes = 1;
strcpy(elements[79].Masswt[0] , "196.9666");
strcpy(elements[79].MassPerc[0] , "100");
elements[79].OxidNrs = 2;
elements[79].Oxidstate[0] = 3;
elements[79].Oxidstate[1] = 1;
strcpy(elements[79].Density , "19.320000");
strcpy(elements[79].Meltingpt , "1064.43");
strcpy(elements[79].Boilingpt ,"2807");
elements[79].IonizationE = 9.255000;
elements[79].Atomicrad = 144.200000;
elements[79].Covrad = 134.000000;
elements[79].Ionradnrs = 2;
elements[79].Ionicrad[0] = 68.000000;
elements[79].Oxidstd[0] = 3;
elements[79].Coordnr[0] = 4;
elements[79].Ionicrad[1] = 137.000000;
elements[79].Oxidstd[1] = 1;
elements[79].Coordnr[1] = 6;
elements[79].VDW = 0.000000;
elements[79].Abundance = 0.000000;
elements[80].Number = 80;
strcpy(elements[80].Name,"Mercury");
strcpy(elements[80].Symbol,"Hg");
strcpy(elements[80].MolWeight ,"200.59");
elements[80].RMolWt = 200.59;
elements[80].sigfig = 2;
strcpy(elements[80].State,"Liq");
elements[80].Isotopes = 7;
strcpy(elements[80].Masswt[0] , "195.9658");
strcpy(elements[80].MassPerc[0] , "0.146");
strcpy(elements[80].Masswt[1] , "197.9668");
strcpy(elements[80].MassPerc[1] , "10.02");
strcpy(elements[80].Masswt[2] , "198.9683");
strcpy(elements[80].MassPerc[2] , "16.84");
strcpy(elements[80].Masswt[3] , "199.9683");
strcpy(elements[80].MassPerc[3] , "23.13");
strcpy(elements[80].Masswt[4] , "200.9703");
strcpy(elements[80].MassPerc[4] , "13.22");
strcpy(elements[80].Masswt[5] , "201.9706");
strcpy(elements[80].MassPerc[5] , "29.80");
strcpy(elements[80].Masswt[6] , "203.9735");
strcpy(elements[80].MassPerc[6] , "6.85");
elements[80].OxidNrs = 2;
elements[80].Oxidstate[0] = 2;
elements[80].Oxidstate[1] = 1;
strcpy(elements[80].Density , "13.550000");
strcpy(elements[80].Meltingpt , "-38.87");
strcpy(elements[80].Boilingpt ,"356.58");
elements[80].IonizationE = 10.437000;
elements[80].Atomicrad = 150.300000;
elements[80].Covrad = 144.000000;
elements[80].Ionradnrs = 2;
elements[80].Ionicrad[0] = 96.000000;
elements[80].Oxidstd[0] = 2;
elements[80].Coordnr[0] = 4;
elements[80].Ionicrad[1] = 119.000000;
elements[80].Oxidstd[1] = 1;
elements[80].Coordnr[1] = 4;
elements[80].VDW = 0.000000;
elements[80].Abundance = 0.000040;
elements[81].Number = 81;
strcpy(elements[81].Name,"Thallium");
strcpy(elements[81].Symbol,"Tl");
strcpy(elements[81].MolWeight ,"204.37");
elements[81].RMolWt = 204.37;
elements[81].sigfig = 2;
strcpy(elements[81].State,"Solid");
elements[81].Isotopes = 2;
strcpy(elements[81].Masswt[0], "202.9723");
strcpy(elements[81].MassPerc[0] , "29.50");
strcpy(elements[81].Masswt[0], "204.9745");
strcpy(elements[81].MassPerc[0] , "70.50");
elements[81].OxidNrs = 2;
elements[81].Oxidstate[0] = 3;
elements[81].Oxidstate[1] = 1;
strcpy(elements[81].Density , "11.650000");
strcpy(elements[81].Meltingpt , "303.5");
strcpy(elements[81].Boilingpt ,"1457"); /* +- 10 */
elements[81].IonizationE = 6.108000;
elements[81].Atomicrad = 170.000000;
elements[81].Covrad = 155.000000;
elements[81].Ionradnrs = 2;
elements[81].Ionicrad[0] = 89.000000;
elements[81].Oxidstd[0] = 3;
elements[81].Coordnr[0] = 6;
elements[81].Ionicrad[1] = 150.000000;
elements[81].Oxidstd[1] = 1;
elements[81].Coordnr[1] = 6;
elements[81].VDW = 0.000000;
elements[81].Abundance = 0.000030;
elements[82].Number = 82;
strcpy(elements[82].Name,"Lead");
strcpy(elements[82].Symbol,"Pb");
strcpy(elements[82].MolWeight ,"207.19");
elements[82].RMolWt = 207.19;
elements[82].sigfig = 2;
strcpy(elements[82].State,"Solid");
elements[82].Isotopes = 4;
strcpy(elements[82].Masswt[0], "203.973");
strcpy(elements[82].MassPerc[0] , "1.48");
strcpy(elements[82].Masswt[1], "205.9745");
strcpy(elements[82].MassPerc[1] , "23.6");
strcpy(elements[82].Masswt[2], "206.9759");
strcpy(elements[82].MassPerc[2] , "22.6");
strcpy(elements[82].Masswt[3], "207.9766");
strcpy(elements[82].MassPerc[3] , "52.3");
elements[82].OxidNrs = 2;
elements[82].Oxidstate[0] = 4;
elements[82].Oxidstate[1] = 2;
strcpy(elements[82].Density , "11.340000");
strcpy(elements[82].Meltingpt , "327.502");
strcpy(elements[82].Boilingpt ,"1740");
elements[82].IonizationE = 6.108000;
elements[82].Atomicrad = 175.000000;
elements[82].Covrad = 154.000000;
elements[82].Ionradnrs = 2;
elements[82].Ionicrad[0] = 78.000000;
elements[82].Oxidstd[0] = 4;
elements[82].Coordnr[0] = 6;
elements[82].Ionicrad[1] = 119.000000;
elements[82].Oxidstd[1] = 2;
elements[82].Coordnr[1] = 6;
elements[82].VDW = 0.000000;
elements[82].Abundance = 0.002000;
elements[83].Number = 83;
strcpy(elements[83].Name,"Bismuth");
strcpy(elements[83].Symbol,"Bi");
strcpy(elements[83].MolWeight ,"208.980");
elements[83].RMolWt = 208.980;
elements[83].sigfig = 3;
strcpy(elements[83].State,"Solid");
elements[83].Isotopes = 1;
strcpy(elements[83].Masswt[0] , "208.9804");
strcpy(elements[83].MassPerc[0] , "100");
elements[83].OxidNrs = 2;
elements[83].Oxidstate[0] = 5;
elements[83].Oxidstate[1] = 3;
strcpy(elements[83].Density , "9.800000");
strcpy(elements[83].Meltingpt , "271.3");
strcpy(elements[83].Boilingpt ,"560"); /* +- 5 */
elements[83].IonizationE = 7.289000;
elements[83].Atomicrad = 154.500000;
elements[83].Covrad = 146.000000;
elements[83].Ionradnrs = 2;
elements[83].Ionicrad[0] = 76.000000;
elements[83].Oxidstd[0] = 5;
elements[83].Coordnr[0] = 6;
elements[83].Ionicrad[1] = 117.000000;
elements[83].Oxidstd[1] = 3;
elements[83].Coordnr[1] = 6;
elements[83].VDW = 0.000000;
elements[83].Abundance = 0.000020;
elements[84].Number = 84;
strcpy(elements[84].Name,"Polonium");
strcpy(elements[84].Symbol,"Po");
strcpy(elements[84].MolWeight ,"209.0");
elements[84].RMolWt = 209.0;
elements[84].sigfig = 1;
strcpy(elements[84].State,"Solid");
elements[84].Isotopes = 1;
strcpy(elements[84].Masswt[0] , "209");
strcpy(elements[84].MassPerc[0] , "100");
elements[84].OxidNrs = 3;
elements[84].Oxidstate[0] = 6;
elements[84].Oxidstate[1] = 4;
elements[84].Oxidstate[2] = 2;
strcpy(elements[84].Density , "9.200000");
strcpy(elements[84].Meltingpt , "254.");
strcpy(elements[84].Boilingpt ,"962");
elements[84].IonizationE = 8.420000;
elements[84].Atomicrad = 167.300000;
elements[84].Covrad = 146.000000;
elements[84].Ionradnrs = 2;
elements[84].Ionicrad[0] = 67.000000;
elements[84].Oxidstd[0] = 6;
elements[84].Coordnr[0] = 6;
elements[84].Ionicrad[1] = 94.000000;
elements[84].Oxidstd[1] = 4;
elements[84].Coordnr[1] = 6;
elements[84].VDW = 0.000000;
elements[84].Abundance = 0.000000;
elements[85].Number = 85;
strcpy(elements[85].Name,"Astatine");
strcpy(elements[85].Symbol,"At");
strcpy(elements[85].MolWeight ,"210.0");
elements[85].RMolWt = 210.0;
elements[85].sigfig = 1;
strcpy(elements[85].State,"Solid");
elements[85].Isotopes = 1;
strcpy(elements[85].Masswt[0] ,"210");
strcpy(elements[85].MassPerc[0] , "100");
elements[85].OxidNrs = 5;
elements[85].Oxidstate[0] = 7;
elements[85].Oxidstate[1] = 5;
elements[85].Oxidstate[2] = 3;
elements[85].Oxidstate[3] = 1;
elements[85].Oxidstate[4] = -1;
strcpy(elements[85].Density , "0.000000");
strcpy(elements[85].Meltingpt , "302.");
strcpy(elements[85].Boilingpt ,"337");
elements[85].IonizationE = 9.500000;
elements[85].Atomicrad = 0.000000;
elements[85].Covrad = 145.000000;
elements[85].Ionradnrs = 1;
elements[85].Ionicrad[0] = 62.000000;
elements[85].Oxidstd[0] = 7;
elements[85].Coordnr[0] = 6;
elements[85].VDW = 0.000000;
elements[85].Abundance = 0.000000;
elements[86].Number = 86;
strcpy(elements[86].Name,"Radon");
strcpy(elements[86].Symbol,"Rn");
strcpy(elements[86].MolWeight ,"222.0");
elements[86].RMolWt = 222.0;
elements[86].sigfig = 1;
strcpy(elements[86].State,"Gas");
elements[86].Isotopes = 1;
strcpy(elements[86].Masswt[0],"222");
strcpy(elements[86].MassPerc[0] , "100");
elements[86].OxidNrs = 2;
elements[86].Oxidstate[0] = 2;
elements[86].Oxidstate[1] = 0;
strcpy(elements[86].Density , "9.230000");
strcpy(elements[86].Meltingpt , "-71.");
strcpy(elements[86].Boilingpt ,"-61.8");
elements[86].IonizationE = 10.748000;
elements[86].Atomicrad = 0.000000;
elements[86].Covrad = 0.000000;
elements[86].Ionradnrs = 0;
elements[86].VDW = 0.000000;
elements[86].Abundance = 0.000000;
elements[87].Number = 87;
strcpy(elements[87].Name,"Francium");
strcpy(elements[87].Symbol,"Fr");
strcpy(elements[87].MolWeight ,"223.0");
elements[87].RMolWt = 223.0;
elements[87].sigfig = 1;
strcpy(elements[87].State,"Solid");
elements[87].Isotopes = 1;
strcpy(elements[87].Masswt[0], "223");
strcpy(elements[87].MassPerc[0], "100");
elements[87].OxidNrs = 1;
elements[87].Oxidstate[0] = 1;
strcpy(elements[87].Density , "0.000000");
strcpy(elements[87].Meltingpt , "27.");
strcpy(elements[87].Boilingpt ,"677");
elements[87].IonizationE = 4.000000;
elements[87].Atomicrad = 0.000000;
elements[87].Covrad = 0.000000;
elements[87].Ionradnrs = 1;
elements[87].Ionicrad[0] = 180.000000;
elements[87].Oxidstd[0] = 1;
elements[87].Coordnr[0] = 6;
elements[87].VDW = 0.000000;
elements[87].Abundance = 0.000000;
elements[88].Number = 88;
strcpy(elements[88].Name,"Radium");
strcpy(elements[88].Symbol,"Ra");
strcpy(elements[88].MolWeight ,"226.0");
elements[88].RMolWt = 226.0;
elements[88].sigfig = 1;
strcpy(elements[88].State,"Solid");
elements[88].Isotopes = 1;
strcpy(elements[88].Masswt[0] ,"226");
strcpy(elements[88].MassPerc[0] , "100");
elements[88].OxidNrs = 1;
elements[88].Oxidstate[0] = 2;
strcpy(elements[88].Density , "5.500000");
strcpy(elements[88].Meltingpt , "700.");
strcpy(elements[88].Boilingpt ,"1140");
elements[88].IonizationE = 5.279000;
elements[88].Atomicrad = 0.000000;
elements[88].Covrad = 0.000000;
elements[88].Ionradnrs = 2;
elements[88].Ionicrad[0] = 148.000000;
elements[88].Oxidstd[0] = 2;
elements[88].Coordnr[0] = 8;
elements[88].Ionicrad[1] = 170.000000;
elements[88].Oxidstd[1] = 2;
elements[88].Coordnr[1] = 12;
elements[88].VDW = 0.000000;
elements[88].Abundance = 0.000000;
elements[89].Number = 89;
strcpy(elements[89].Name,"Actinium");
strcpy(elements[89].Symbol,"Ac");
strcpy(elements[89].MolWeight ,"227.028");
elements[89].RMolWt = 227.028;
elements[89].sigfig = 3;
strcpy(elements[89].State,"Solid");
elements[89].Isotopes = 1;
strcpy(elements[89].Masswt[0],"227");
strcpy(elements[89].MassPerc[0],"100");
elements[89].OxidNrs = 1;
elements[89].Oxidstate[0] = 3;
strcpy(elements[89].Density,"10.070000");
strcpy(elements[89].Meltingpt , "1050.");
strcpy(elements[86].Boilingpt ,"3200"); /* +- 300 */
elements[89].IonizationE = 6.900000;
elements[89].Atomicrad = 187.800000;
elements[89].Covrad = 0.000000;
elements[89].Ionradnrs = 1;
elements[89].Ionicrad[0] = 112.000000;
elements[89].Oxidstd[0] = 3;
elements[89].Coordnr[0] = 6;
elements[89].VDW = 0.000000;
elements[89].Abundance = 0.000000;
elements[90].Number = 90;
strcpy(elements[90].Name,"Thorium");
strcpy(elements[90].Symbol,"Th");
strcpy(elements[90].MolWeight ,"204.37");
elements[90].RMolWt = 204.37;
elements[90].sigfig = 2;
strcpy(elements[90].State,"Solid");
elements[90].Isotopes = 1;
strcpy(elements[90].Masswt[0],"232");
strcpy(elements[90].MassPerc[0] , "100");
elements[90].OxidNrs = 1;
elements[90].Oxidstate[0] = 4;
strcpy(elements[90].Density , "11.720000");
strcpy(elements[90].Meltingpt , "1750.");
strcpy(elements[90].Boilingpt ,"4790"); /* Approx */
elements[90].IonizationE = 6.950000;
elements[90].Atomicrad = 179.800000;
elements[90].Covrad = 165.000000;
elements[90].Ionradnrs = 2;
elements[90].Ionicrad[0] = 94.000000;
elements[90].Oxidstd[0] = 4;
elements[90].Coordnr[0] = 6;
elements[90].Ionicrad[1] = 105.000000;
elements[90].Oxidstd[1] = 4;
elements[90].Coordnr[1] = 8;
elements[90].VDW = 0.000000;
elements[90].Abundance = 0.001000;
elements[91].Number = 91;
strcpy(elements[91].Name,"Protactinium");
strcpy(elements[91].Symbol,"Pa");
strcpy(elements[91].MolWeight ,"231.0");
elements[91].RMolWt = 231.0;
elements[91].sigfig = 1;
strcpy(elements[91].State,"Solid");
elements[91].Isotopes = 1;
strcpy(elements[91].Masswt[0] ,"231");
strcpy(elements[91].MassPerc[0] ,"100");
elements[91].OxidNrs = 2;
elements[91].Oxidstate[0] = 5;
elements[91].Oxidstate[1] = 4;
strcpy(elements[91].Density , "15.370000");
strcpy(elements[91].Meltingpt , "1554.000000");
elements[91].IonizationE = 0.000000;
elements[91].Atomicrad = 156.100000;
elements[91].Covrad = 0.000000;
elements[91].Ionradnrs = 1;
elements[91].Ionicrad[0] = 78.000000;
elements[91].Oxidstd[0] = 5;
elements[91].Coordnr[0] = 6;
elements[91].VDW = 0.000000;
elements[91].Abundance = 9.0;
elements[92].Number = 92;
strcpy(elements[92].Name,"Uranium");
strcpy(elements[92].Symbol,"U");
strcpy(elements[92].MolWeight ,"238.03");
elements[92].RMolWt = 238.03;
elements[92].sigfig = 2;
strcpy(elements[92].State,"Solid");
elements[92].Isotopes = 3;
strcpy(elements[92].Masswt[0],"234");
strcpy(elements[92].MassPerc[0] , "0.005000");
strcpy(elements[92].Masswt[1],"235");
strcpy(elements[92].MassPerc[1] , "0.720000");
strcpy(elements[92].Masswt[2],"238");
strcpy(elements[92].MassPerc[2] , "99.275000");
elements[92].OxidNrs = 4;
elements[92].Oxidstate[0] = 6;
elements[92].Oxidstate[1] = 5;
elements[92].Oxidstate[2] = 4;
elements[92].Oxidstate[3] = 3;
strcpy(elements[92].Density , "18.970000");
strcpy(elements[92].Meltingpt , "1132.3"); /* +- .8 */
strcpy(elements[92].Boilingpt ,"3818");
elements[92].IonizationE = 6.080000;
elements[92].Atomicrad = 138.500000;
elements[92].Covrad = 142.000000;
elements[92].Ionradnrs = 2;
elements[92].Ionicrad[0] = 73.000000;
elements[92].Oxidstd[0] = 6;
elements[92].Coordnr[0] = 6;
elements[92].Ionicrad[1] = 89.000000;
elements[92].Oxidstd[1] = 4;
elements[92].Coordnr[1] = 6;
elements[92].VDW = 0.000000;
elements[92].Abundance = 0.0;00300;
elements[93].Number = 93;
strcpy(elements[93].Name,"Neptunium");
strcpy(elements[93].Symbol,"Np");
strcpy(elements[93].MolWeight ,"237.05");
elements[93].RMolWt = 237.05;
elements[93].sigfig = 2;
strcpy(elements[93].State,"Solid");;
elements[93].Isotopes = 1;
strcpy(elements[93].Masswt[0],"237");
strcpy(elements[93].MassPerc[0] , "100");
elements[93].OxidNrs = 4;
elements[93].Oxidstate[0] = 6;
elements[93].Oxidstate[1] = 5;
elements[93].Oxidstate[2] = 4;
elements[93].Oxidstate[3] = 3;
strcpy(elements[93].Density , "20.480000");
strcpy(elements[93].Meltingpt , "640.");  /* +- 1 */
strcpy(elements[93].Boilingpt ,"3902");
elements[93].IonizationE = 0.000000;
elements[93].Atomicrad = 130.000000;
elements[93].Covrad = 0.000000;
elements[93].Ionradnrs = 3;
elements[93].Ionicrad[0] = 72.000000;
elements[93].Oxidstd[0] = 6;
elements[93].Coordnr[0] = 6;
elements[93].Ionicrad[1] = 75.000000;
elements[93].Oxidstd[1] = 5;
elements[93].Coordnr[1] = 6;
elements[93].Ionicrad[2] = 101.000000;
elements[93].Oxidstd[2] = 3;
elements[93].Coordnr[2] = 6;
elements[93].VDW = 0.0000;00;
elements[93].Abundance = 0.000000;
elements[94].Number = 94;
strcpy(elements[94].Name,"Plutonium");
strcpy(elements[94].Symbol,"Pu");;
strcpy(elements[94].MolWeight ,"244.0");
elements[94].RMolWt = 244.0;
elements[94].sigfig = 1;
strcpy(elements[94].State,"Solid");
elements[94].Isotopes = 1;
strcpy(elements[94].Masswt[0],"244");
strcpy(elements[94].MassPerc[0] , "100");
elements[94].OxidNrs = 4;
elements[94].Oxidstate[0] = 6;
elements[94].Oxidstate[1] = 5;
elements[94].Oxidstate[2] = 4;
elements[94].Oxidstate[3] = 3;
strcpy(elements[94].Density , "19.7400");
strcpy(elements[94].Meltingpt , "641.");
strcpy(elements[94].Boilingpt ,"3232");
elements[94].IonizationE = 5.800000;
elements[94].Atomicrad = 151.300000;
elements[94].Covrad = 0.000000;
elements[94].Ionradnrs = 3;
elements[94].Ionicrad[0] = 72.000000;
elements[94].Oxidstd[0] = 6;
elements[94].Coordnr[0] = 6;
elements[94].Ionicrad[1] = 86.000000;
elements[94].Oxidstd[1] = 4;
elements[94].Coordnr[1] = 6;
elements[94].Ionicrad[2] = 100.000000;
elements[94].Oxidstd[2] = 3;
elements[94].Coordnr[2] = 6;
elements[94].VDW = 0.000000;
elements[94].Abundance = 0.000000;
elements[95].Number = 95;
strcpy(elements[95].Name,"Americium");
strcpy(elements[95].Symbol,"Am");;
strcpy(elements[95].MolWeight ,"243.0");
elements[95].RMolWt = 243.0;
elements[95].sigfig = 1;
strcpy(elements[95].State,"Solid");
elements[95].Isotopes = 1;
strcpy(elements[95].Masswt[0],"243");
strcpy(elements[95].MassPerc[0] , "100.000000");
elements[95].OxidNrs = 4;
elements[95].Oxidstate[0] = 6;
elements[95].Oxidstate[1] = 5;
elements[95].Oxidstate[2] = 4;
elements[95].Oxidstate[3] = 3;
strcpy(elements[95].Density ,"13.67");
strcpy(elements[95].Meltingpt , "994."); /* +- 4 */
strcpy(elements[95].Boilingpt ,"2607");
elements[95].IonizationE = 6.000000;
elements[95].Atomicrad = 0.000000;
elements[95].Covrad = 0.000000;
elements[95].Ionradnrs = 2;
elements[95].Ionicrad[0] = 85.000000;
elements[95].Oxidstd[0] = 4;
elements[95].Coordnr[0] = 6;
elements[95].Ionicrad[1] = 98.000000;
elements[95].Oxidstd[1] = 3;
elements[95].Coordnr[1] = 6;
elements[95].VDW = 0.000000;
elements[95].Abundance = 0.000000;
elements[96].Number = 96;
strcpy(elements[96].Name,"Curium");
strcpy(elements[96].Symbol,"Cm");
strcpy(elements[96].MolWeight ,"245.0");
elements[96].RMolWt = 245.0;
elements[96].sigfig = 1;
strcpy(elements[96].State,"Solid");
elements[96].Isotopes = 1;
strcpy(elements[96].Masswt[0],"247");
strcpy(elements[96].MassPerc[0] , "100");
elements[96].OxidNrs = 2;
elements[96].Oxidstate[0] = 4;
elements[96].Oxidstate[1] = 3;
strcpy(elements[96].Density , "13.510000");
strcpy(elements[96].Meltingpt , "1340.");  /* +- 40 */
elements[96].IonizationE = 0.000000;
elements[96].Atomicrad = 0.000000;
elements[96].Covrad = 0.000000;
elements[96].Ionradnrs = 2;
elements[96].Ionicrad[0] = 85.000000;
elements[96].Oxidstd[0] = 4;
elements[96].Coordnr[0] = 6;
elements[96].Ionicrad[1] = 97.000000;
elements[96].Oxidstd[1] = 3;
elements[96].Coordnr[1] = 6;
elements[96].VDW = 0.000000;
elements[96].Abundance = 0.000000;
elements[97].Number = 97;
strcpy(elements[97].Name,"Berkelium");
strcpy(elements[97].Symbol,"Bk");
strcpy(elements[97].MolWeight ,"247.0");
elements[97].RMolWt = 247.0;
elements[97].sigfig = 1;
strcpy(elements[97].State,"Solid");
elements[97].Isotopes = 1;
strcpy(elements[97].Masswt[0] , "247");
strcpy(elements[97].MassPerc[0] , "100");
elements[97].OxidNrs = 2;
elements[97].Oxidstate[0] = 4;
elements[97].Oxidstate[1] = 3;
strcpy(elements[97].Density , "13.250000");
strcpy(elements[97].Meltingpt , "986.");
elements[97].IonizationE = 0.000000;
elements[97].Atomicrad = 0.000000;
elements[97].Covrad = 0.000000;
elements[97].Ionradnrs = 2;
elements[97].Ionicrad[0] = 83.000000;
elements[97].Oxidstd[0] = 4;
elements[97].Coordnr[0] = 6;
elements[97].Ionicrad[1] = 96.000000;
elements[97].Oxidstd[1] = 3;
elements[97].Coordnr[1] = 6;
elements[97].VDW = 0.000000;
elements[97].Abundance = 0.000000;
elements[98].Number = 98;
strcpy(elements[98].Name,"Californium");;
strcpy(elements[98].Symbol,"Cf");
strcpy(elements[98].MolWeight ,"249.0");
elements[98].RMolWt = 249.0;
elements[98].sigfig = 1;
strcpy(elements[98].State,"Solid");
elements[98].Isotopes = 1;
strcpy(elements[98].Masswt[0],"251");
strcpy(elements[98].MassPerc[0] , "100.000000");
elements[98].OxidNrs = 2;
elements[98].Oxidstate[0] = 4;
elements[98].Oxidstate[1] = 3;
strcpy(elements[98].Density , "15.100000");
strcpy(elements[98].Boilingpt , "N/A");
strcpy(elements[98].Meltingpt , "900.0000");
elements[98].IonizationE = 0.000000;
elements[98].Atomicrad = 0.000000;
elements[98].Covrad = 0.000000;
elements[98].Ionradnrs = 2;
elements[98].Ionicrad[0] = 82.000000;
elements[98].Oxidstd[0] = 4;
elements[98].Coordnr[0] = 6;
elements[98].Ionicrad[1] = 95.000000;
elements[98].Oxidstd[1] = 3;
elements[98].Coordnr[1] = 6;
elements[98].VDW = 0.000000;
elements[98].Abundance = 0.000000;
elements[99].Number = 99;
strcpy(elements[99].Name,"Einsteinium");
strcpy(elements[99].Symbol,"Es");
strcpy(elements[99].MolWeight ,"254.0");
elements[99].RMolWt = 254.0;
elements[99].sigfig = 1;
strcpy(elements[99].State,"Solid");
elements[99].Isotopes = 1;
strcpy(elements[99].Masswt[0],"252");
strcpy(elements[99].MassPerc[0] , "100");
elements[99].OxidNrs = 1;
elements[99].Oxidstate[0] = 3;
strcpy(elements[99].Density , "0.000000");
elements[99].IonizationE = 0.000000;
elements[99].Atomicrad = 0.000000;
elements[99].Covrad = 0.000000;
elements[99].Ionradnrs = 0;
elements[99].VDW = 0.000000;
elements[99].Abundance = 0.000000;
elements[100].Number = 100;
strcpy(elements[100].Name,"Fermium");
strcpy(elements[100].Symbol,"Fm");
strcpy(elements[100].MolWeight ,"252.0");
elements[100].RMolWt = 252.0;
elements[100].sigfig = 1;
strcpy(elements[100].State,"Solid");
elements[100].Isotopes = 1;
strcpy(elements[100].Masswt[0],"257");
strcpy(elements[100].MassPerc[0] , "100");
elements[100].OxidNrs = 1;
elements[100].Oxidstate[0] = 3;
strcpy(elements[100].Density , "0.000000");
elements[100].IonizationE = 0.000000;
elements[100].Atomicrad = 0.000000;
elements[100].Covrad = 0.000000;
elements[100].Ionradnrs = 0;
elements[100].VDW = 0.000000;
elements[100].Abundance = 0.000000;
elements[101].Number = 101;
strcpy(elements[101].Name,"Mendelevium");
strcpy(elements[101].Symbol,"Md");
strcpy(elements[101].MolWeight ,"256.0");
elements[101].RMolWt = 256.0;
elements[101].sigfig = 1;
strcpy(elements[101].State,"Solid");
elements[101].Isotopes = 1;
strcpy(elements[101].Masswt[0],"258");
strcpy(elements[101].MassPerc[0] , "100");
elements[101].OxidNrs = 1;
elements[101].Oxidstate[0] = 3;
strcpy(elements[101].Density , "0.000000");
elements[101].IonizationE = 0.000000;
elements[101].Atomicrad = 0.000000;
elements[101].Covrad = 0.000000;
elements[101].Ionradnrs = 0;
elements[101].VDW = 0.000000;
elements[101].Abundance = 0.000000;
elements[102].Number = 102;
strcpy(elements[102].Name,"Nobelium");
strcpy(elements[102].Symbol,"No");
strcpy(elements[102].MolWeight ,"254.0");
elements[102].RMolWt = 254.0;
elements[102].sigfig = 1;
strcpy(elements[102].State,"Solid");
elements[102].Isotopes = 1;
strcpy(elements[102].Masswt[0],"259");
strcpy(elements[102].MassPerc[0] , "100");
elements[102].OxidNrs = 2;
elements[102].Oxidstate[0] = 3;
elements[102].Oxidstate[1] = 2;
strcpy(elements[102].Density , "0.000000");
elements[102].IonizationE = 0.000000;
elements[102].Atomicrad = 0.000000;
elements[102].Covrad = 0.000000;
elements[102].Ionradnrs = 1;
elements[102].Ionicrad[0] = 110.000000;
elements[102].Oxidstd[0] = 2;
elements[102].Coordnr[0] = 6;
elements[102].VDW = 0.000000;
elements[102].Abundance = 0.000000;
elements[103].Number = 103;
strcpy(elements[103].Name,"Lawrencium");
strcpy(elements[103].Symbol,"Lr");
strcpy(elements[103].MolWeight ,"257");
elements[103].RMolWt = 257;
elements[103].sigfig = 1;
strcpy(elements[103].State,"Solid");
elements[103].Isotopes = 1;
strcpy(elements[103].Masswt[0],"260");
strcpy(elements[103].MassPerc[0] , "100");
elements[103].OxidNrs = 1;
elements[103].Oxidstate[0] = 3;
strcpy(elements[103].Density,"N/A");
elements[103].IonizationE = 0.000000;
elements[103].Atomicrad = 0.000000;
elements[103].Covrad = 0.000000;
elements[103].Ionradnrs = 0;
elements[103].VDW = 0.000000;
elements[103].Abundance = 0.000000;
elements[104].Number = 104;
strcpy(elements[104].Name,"Unnilquadium");
strcpy(elements[104].Symbol,"Unq");
strcpy(elements[104].MolWeight , "N/A");
elements[104].RMolWt = 0.0;
elements[104].sigfig = 1;
strcpy(elements[104].State,"Solid");
elements[104].Isotopes = 1;
strcpy(elements[104].Masswt[0],"261");
strcpy(elements[104].MassPerc[0] , "100");
elements[104].OxidNrs = 0;
strcpy(elements[104].Density , "0.000000");
elements[104].IonizationE = 0.000000;
elements[104].Atomicrad = 0.000000;
elements[104].Covrad = 0.000000;
elements[104].Ionradnrs = 0;
elements[104].VDW = 0.000000;
elements[104].Abundance = 0.000000;
elements[105].Number = 105;
strcpy(elements[105].Name,"Unnilpentium");
strcpy(elements[105].Symbol,"Unp");
elements[105].RMolWt = 0.0;
elements[105].sigfig = 1;
strcpy(elements[105].State,"Solid");
elements[105].Isotopes = 1;
strcpy(elements[105].Masswt[0],"262");
strcpy(elements[105].MassPerc[0] , "100");
elements[105].OxidNrs = 0;
strcpy(elements[105].Density , "0.000000");
elements[105].IonizationE = 0.000000;
elements[105].Atomicrad = 0.000000;
elements[105].Covrad = 0.000000;
elements[105].Ionradnrs = 0;
elements[105].VDW = 0.000000;
elements[105].Abundance = 0.000000;
elements[106].Number = 106;
strcpy(elements[106].Name,"Unnilhexium");
strcpy(elements[106].Symbol,"Unh");
elements[106].RMolWt = 0.0;
elements[106].sigfig = 1;
strcpy(elements[106].State,"Solid");
elements[106].Isotopes = 1;
strcpy(elements[106].Masswt[0],"263");
strcpy(elements[106].MassPerc[0] , "100");
elements[106].OxidNrs = 0;
strcpy(elements[106].Density , "0.000000");
elements[106].IonizationE = 0.000000;
elements[106].Atomicrad = 0.000000;
elements[106].Covrad = 0.000000;
elements[106].Ionradnrs = 0;
elements[106].VDW = 0.000000;
elements[106].Abundance = 0.000000;

return;
}


main()
{
 int element;
initscr();
nonl();
#ifndef vaxc
cbreak();
#else
crmode();
#endif
noecho();
refresh();
fill_elements();
make_coordinates();
draw_table();
Xpos=1;
Ypos=1;
ask_user();
refresh();
endwin();
exit(0);
}