src/ESRLib/CubicSys.cc
/* These constructors set up a new cubic system.  There are few ways to make
   a Cubic System:
 
         Input Arguments                   Resulting System
      ---------------------    -------------------------------------------
               -               Empty Cubic System, No J (J=0)
            symbol             Cubic System With Specified Ion (e.g. Ce3+)

    The destructor here does nothing except delete the ion index because the
    ions list, although using some small amount of memory, must remain until
    all Cubic Systems in a  program are deleted.  This will not be done
    until program completion.                                                */
These constructors set up a new cubic system.  There are few ways to make
a Cubic System.

Input Arguments                   Resulting System

Empty Cubic System, No J (J=0)
symbol             Cubic System With Specified Ion

The destructor here does nothing except delete the ion index because the
ions list, although using some small amount of memory, must remain until
all Cubic Systems in a  program are deleted.  This will not be done
until program completion.
These constructors set up a new cubic system . There are few ways to make a Cubic System . Input Arguments Resulting System Empty Cubic System No J ( J = 0 ) symbol Cubic System With Specified Ion The destructor here does nothing except delete the ion index because the ions list although using some small amount of memory must remain until all Cubic Systems in a program are deleted . This will not be done until program completion .
CubicSys::CubicSys()
  {
  MagIon Cerium("Ce3+");		
  if(!CubicIons) SetIonList(); 		
  Ion = seek(Cerium);			
  if(Ion < 0) CubicFatal(2, "Ce3+"); 	
  }
CubicSys :: CubicSys ( ) { MagIon Cerium ( " " ) ; if ( ! CubicIons ) SetIonList ( ) ; Ion = seek ( Cerium ) ; if ( Ion < 0 ) CubicFatal ( 2 , " " ) ; }
These constructors set up a new cubic system.
These constructors set up a new cubic system .
// Set mock default ion, Ce3+ // If ions list is empty, must set // Get index in ions list for Ce // If no Ce3+, FATAL ERROR!