AtomicNumber:

--------------------------------------------------------------------------
   Returns the atomic number.

   Type AtomicNumber for a demo.
--------------------------------------------------------------------------
   Form:
   a = AtomicNumber( r )
--------------------------------------------------------------------------

   ------
   Inputs
   ------
   r         (:}   Ion

   -------
   Outputs
   -------
   a         (1,:)  Atomic numbers

--------------------------------------------------------------------------