% nuc.sty
% davis68@illinois.edu (Neal Davis)
%
% Provides automatic notation for nuclear isotopes.  Isotopes which have Z with more digits than A require special spacing to appear properly.
% Released under LaTeX Project Public License.
%
\ProvidesPackage{nuc}[2011/03/23 v0.1 Nuclear super- and subscripts]
\NeedsTeXFormat{LaTeX2e}[1995/12/01]

\RequirePackage{ifthen}

\newcommand{\n}[1] {\ensuremath{{}^{1}_{0} \textrm{n}}}
\newcommand{\p}[1] {\ensuremath{{}^{1}_{1} \textrm{p}}}
\newcommand{\e}[1] {\ensuremath{\textrm{e}^{-}}}

\renewcommand{\H}[1] {\ensuremath{{}^{#1}_{1} \textrm{H}}}
\newcommand{\He}[1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:2}} {{}^{#1}_2} \textrm{He}}}
\newcommand{\Li}[1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:3}} {{}^{#1}_3} \textrm{Li}}}
\newcommand{\Be}[1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:4}} {{}^{#1}_4} \textrm{Be}}}
\newcommand{\B} [1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:5}} {{}^{#1}_5} \textrm{B}}}
\newcommand{\C} [1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:6}} {{}^{#1}_6} \textrm{C}}}
\newcommand{\N} [1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:7}} {{}^{#1}_7} \textrm{N}}}
\renewcommand{\O} [1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:8}} {{}^{#1}_8} \textrm{O}}}
\newcommand{\F} [1]{\ensuremath{\ifthenelse{#1>9} {{}^{#1}_{\;\:9}} {{}^{#1}_9} \textrm{F}}}
\newcommand{\Ne}[1]{\ensuremath{{}^{#1}_{10} \textrm{Ne}}}
\newcommand{\Na}[1]{\ensuremath{{}^{#1}_{11} \textrm{Na}}}
\newcommand{\Mg}[1]{\ensuremath{{}^{#1}_{12} \textrm{Mg}}}
\newcommand{\Al}[1]{\ensuremath{{}^{#1}_{13} \textrm{Al}}}
\newcommand{\Si}[1]{\ensuremath{{}^{#1}_{14} \textrm{Si}}}
\renewcommand{\P} [1]{\ensuremath{{}^{#1}_{15} \textrm{P}}}
\renewcommand{\S} [1]{\ensuremath{{}^{#1}_{16} \textrm{S}}}
\newcommand{\Cl}[1]{\ensuremath{{}^{#1}_{17} \textrm{Cl}}}
\newcommand{\Ar}[1]{\ensuremath{{}^{#1}_{18} \textrm{Ar}}}
\newcommand{\K} [1]{\ensuremath{{}^{#1}_{19} \textrm{K}}}
\newcommand{\Ca}[1]{\ensuremath{{}^{#1}_{20} \textrm{Ca}}}
\newcommand{\Sc}[1]{\ensuremath{{}^{#1}_{21} \textrm{Sc}}}
\newcommand{\Ti}[1]{\ensuremath{{}^{#1}_{22} \textrm{Ti}}}
\newcommand{\V} [1]{\ensuremath{{}^{#1}_{23} \textrm{V}}}
\newcommand{\Cr}[1]{\ensuremath{{}^{#1}_{24} \textrm{Cr}}}
\newcommand{\Mn}[1]{\ensuremath{{}^{#1}_{25} \textrm{Mn}}}
\newcommand{\Fe}[1]{\ensuremath{{}^{#1}_{26} \textrm{Fe}}}
\newcommand{\Co}[1]{\ensuremath{{}^{#1}_{27} \textrm{Co}}}
\newcommand{\Ni}[1]{\ensuremath{{}^{#1}_{28} \textrm{Ni}}}
\newcommand{\Cu}[1]{\ensuremath{{}^{#1}_{29} \textrm{Cu}}}
\newcommand{\Zn}[1]{\ensuremath{{}^{#1}_{30} \textrm{Zn}}}
\newcommand{\Ga}[1]{\ensuremath{{}^{#1}_{31} \textrm{Ga}}}
\newcommand{\Ge}[1]{\ensuremath{{}^{#1}_{32} \textrm{Ge}}}
\newcommand{\As}[1]{\ensuremath{{}^{#1}_{33} \textrm{As}}}
\newcommand{\Se}[1]{\ensuremath{{}^{#1}_{34} \textrm{Se}}}
\newcommand{\Br}[1]{\ensuremath{{}^{#1}_{35} \textrm{Br}}}
\newcommand{\Kr}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:36}} {{}^{#1}_{36}} \textrm{Kr}}}
\newcommand{\Rb}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:37}} {{}^{#1}_{37}} \textrm{Rb}}}
\newcommand{\Sr}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:38}} {{}^{#1}_{38}} \textrm{Sr}}}
\newcommand{\Y} [1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:39}} {{}^{#1}_{39}} \textrm{Y}}}
\newcommand{\Zr}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:40}} {{}^{#1}_{40}} \textrm{Zr}}}
\newcommand{\Nb}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:41}} {{}^{#1}_{41}} \textrm{Nb}}}
\newcommand{\Mo}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:42}} {{}^{#1}_{42}} \textrm{Mo}}}
\newcommand{\Tc}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:43}} {{}^{#1}_{43}} \textrm{Tc}}}
\newcommand{\Ru}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:44}} {{}^{#1}_{44}} \textrm{Ru}}}
\newcommand{\Rh}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:45}} {{}^{#1}_{45}} \textrm{Rh}}}
\newcommand{\Pd}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:46}} {{}^{#1}_{46}} \textrm{Pd}}}
\newcommand{\Ag}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:47}} {{}^{#1}_{47}} \textrm{Ag}}}
\newcommand{\Cd}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:48}} {{}^{#1}_{48}} \textrm{Cd}}}
\newcommand{\In}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:49}} {{}^{#1}_{49}} \textrm{In}}}
\newcommand{\Sn}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:50}} {{}^{#1}_{50}} \textrm{Sn}}}
\newcommand{\Sb}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:51}} {{}^{#1}_{51}} \textrm{Sb}}}
\newcommand{\Te}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:52}} {{}^{#1}_{52}} \textrm{Te}}}
\newcommand{\I} [1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:53}} {{}^{#1}_{53}} \textrm{I}}}
\newcommand{\Xe}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:54}} {{}^{#1}_{54}} \textrm{Xe}}}
\newcommand{\Cs}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:55}} {{}^{#1}_{55}} \textrm{Cs}}}
\newcommand{\Ba}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:56}} {{}^{#1}_{56}} \textrm{Ba}}}
\newcommand{\La}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:57}} {{}^{#1}_{57}} \textrm{La}}}
\newcommand{\Ce}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:58}} {{}^{#1}_{58}} \textrm{Ce}}}
\renewcommand{\Pr}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:59}} {{}^{#1}_{59}} \textrm{Pr}}}
\newcommand{\Nd}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:60}} {{}^{#1}_{60}} \textrm{Nd}}}
\newcommand{\Pm}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:61}} {{}^{#1}_{61}} \textrm{Pm}}}
\newcommand{\Sm}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:62}} {{}^{#1}_{62}} \textrm{Sm}}}
\newcommand{\Eu}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:63}} {{}^{#1}_{63}} \textrm{Eu}}}
\newcommand{\Gd}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:64}} {{}^{#1}_{64}} \textrm{Gd}}}
\newcommand{\Tb}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:65}} {{}^{#1}_{65}} \textrm{Tb}}}
\newcommand{\Dy}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:66}} {{}^{#1}_{66}} \textrm{Dy}}}
\newcommand{\Ho}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:67}} {{}^{#1}_{67}} \textrm{Ho}}}
\newcommand{\Er}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:68}} {{}^{#1}_{68}} \textrm{Er}}}
\newcommand{\Tm}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:69}} {{}^{#1}_{69}} \textrm{Tm}}}
\newcommand{\Yb}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:70}} {{}^{#1}_{70}} \textrm{Yb}}}
\newcommand{\Lu}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:71}} {{}^{#1}_{71}} \textrm{Lu}}}
\newcommand{\Hf}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:72}} {{}^{#1}_{72}} \textrm{Hf}}}
\newcommand{\Ta}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:73}} {{}^{#1}_{73}} \textrm{Ta}}}
\newcommand{\W} [1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:74}} {{}^{#1}_{74}} \textrm{W}}}
\renewcommand{\Re}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:75}} {{}^{#1}_{75}} \textrm{Re}}}
\newcommand{\Os}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:76}} {{}^{#1}_{76}} \textrm{Os}}}
\newcommand{\Ir}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:77}} {{}^{#1}_{77}} \textrm{Ir}}}
\newcommand{\Pt}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:78}} {{}^{#1}_{78}} \textrm{Pt}}}
\newcommand{\Au}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:79}} {{}^{#1}_{79}} \textrm{Au}}}
\newcommand{\Hg}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:80}} {{}^{#1}_{80}} \textrm{Hg}}}
\newcommand{\Tl}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:81}} {{}^{#1}_{81}} \textrm{Tl}}}
\newcommand{\Pb}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:82}} {{}^{#1}_{82}} \textrm{Pb}}}
\newcommand{\Bi}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:83}} {{}^{#1}_{83}} \textrm{Bi}}}
\newcommand{\Po}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:84}} {{}^{#1}_{84}} \textrm{Po}}}
\newcommand{\At}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:85}} {{}^{#1}_{85}} \textrm{At}}}
\newcommand{\Rn}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:86}} {{}^{#1}_{86}} \textrm{Rn}}}
\newcommand{\Fr}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:87}} {{}^{#1}_{87}} \textrm{Fr}}}
\newcommand{\Ra}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:88}} {{}^{#1}_{88}} \textrm{Ra}}}
\newcommand{\Ac}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:89}} {{}^{#1}_{89}} \textrm{Ac}}}
\newcommand{\Th}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:90}} {{}^{#1}_{90}} \textrm{Th}}}
\newcommand{\Pa}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:91}} {{}^{#1}_{91}} \textrm{Pa}}}
\newcommand{\U} [1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:92}} {{}^{#1}_{92}} \textrm{U}}}
\newcommand{\Np}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:93}} {{}^{#1}_{93}} \textrm{Np}}}
\newcommand{\Pu}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:94}} {{}^{#1}_{94}} \textrm{Pu}}}
\newcommand{\Am}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:95}} {{}^{#1}_{95}} \textrm{Am}}}
\newcommand{\Cm}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:96}} {{}^{#1}_{96}} \textrm{Cm}}}
\newcommand{\Bk}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:97}} {{}^{#1}_{97}} \textrm{Bk}}}
\newcommand{\Cf}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:98}} {{}^{#1}_{98}} \textrm{Cf}}}
\newcommand{\Es}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:99}} {{}^{#1}_{99}} \textrm{Es}}}
\newcommand{\Fm}[1]{\ensuremath{{}^{#1}_100 \textrm{Fm}}}
\newcommand{\Md}[1]{\ensuremath{{}^{#1}_101 \textrm{Md}}}
\newcommand{\No}[1]{\ensuremath{{}^{#1}_102 \textrm{No}}}
\newcommand{\Lr}[1]{\ensuremath{{}^{#1}_103 \textrm{Lr}}}
\newcommand{\Rf}[1]{\ensuremath{{}^{#1}_104 \textrm{Rf}}}
\newcommand{\Db}[1]{\ensuremath{{}^{#1}_105 \textrm{Db}}}
\newcommand{\Sg}[1]{\ensuremath{{}^{#1}_106 \textrm{Sg}}}
\newcommand{\Bh}[1]{\ensuremath{{}^{#1}_107 \textrm{Bh}}}
\newcommand{\Hs}[1]{\ensuremath{{}^{#1}_108 \textrm{Hs}}}
\newcommand{\Mt}[1]{\ensuremath{{}^{#1}_109 \textrm{Mt}}}
\newcommand{\Ds}[1]{\ensuremath{{}^{#1}_110 \textrm{Ds}}}
\newcommand{\Rg}[1]{\ensuremath{{}^{#1}_111 \textrm{Rg}}}
\newcommand{\Cn}[1]{\ensuremath{{}^{#1}_112 \textrm{Cn}}}

% Transfermium wars & historic symbols
\newcommand{\Unq}[1]{\ensuremath{{}^{#1}_104 \textrm{Unq}}}
\newcommand{\Unp}[1]{\ensuremath{{}^{#1}_105 \textrm{Unp}}}
\newcommand{\Unh}[1]{\ensuremath{{}^{#1}_106 \textrm{Unh}}}
\newcommand{\Uns}[1]{\ensuremath{{}^{#1}_107 \textrm{Uns}}}
\newcommand{\Uno}[1]{\ensuremath{{}^{#1}_108 \textrm{Uno}}}
\newcommand{\Une}[1]{\ensuremath{{}^{#1}_109 \textrm{Une}}}
\newcommand{\Uun}[1]{\ensuremath{{}^{#1}_110 \textrm{Uun}}}
\newcommand{\Uuu}[1]{\ensuremath{{}^{#1}_111 \textrm{Uuu}}}
\newcommand{\Uub}[1]{\ensuremath{{}^{#1}_112 \textrm{Uub}}}
\newcommand{\Uut}[1]{\ensuremath{{}^{#1}_113 \textrm{Uut}}}
\newcommand{\Uuq}[1]{\ensuremath{{}^{#1}_114 \textrm{Uuq}}}
\newcommand{\Uup}[1]{\ensuremath{{}^{#1}_115 \textrm{Uup}}}
\newcommand{\Uuh}[1]{\ensuremath{{}^{#1}_116 \textrm{Uuh}}}
\newcommand{\Uus}[1]{\ensuremath{{}^{#1}_117 \textrm{Uus}}}
\newcommand{\Uuo}[1]{\ensuremath{{}^{#1}_118 \textrm{Uuo}}}

\newcommand{\Cb}[1]{\ensuremath{\ifthenelse{#1>99} {{}^{#1}_{\;\:41}} {{}^{#1}_{41}} \textrm{Cb}}}
\newcommand{\Ku}[1]{\ensuremath{{}^{#1}_{104} \textrm{Ku}}}
\newcommand{\Ns}[1]{\ensuremath{{}^{#1}_{105} \textrm{Ns}}}
\newcommand{\Ha}[1]{\ensuremath{{}^{#1}_{105} \textrm{Ha}}}