cernchemsym.sty

%%
%% This is file `cernchemsym.sty',
%% It is based on Mats Dahlgren's `chemsym.sty'
%% 
%% All element names start with \E 
%% 
\NeedsTeXFormat{LaTeX2e}[1996/12/01]
\ProvidesPackage{cernchemsym}[2005/10/19 v.1.0 Chemical symbols]

%%% Code adapted from Heiko Bauke's isotope.sty 

%   Examples of use:
%
%   \Isotope{Ra} 
%   \Isotope[228]{Ra} 
%   \Isotope[228][88]{Ra}
% 
\newcommand*{\Isotopestyle}{\mathrm}
\newcommand*{\Isotope@atomicnumber}{}
\newcommand*{\Isotope@nuclearnumber}{}
\newcommand*{\Isotope}[1][]{%
  \begingroup%
  \renewcommand{\Isotope@nuclearnumber}{#1}%
  \Isotope@two}%
  \newcommand{\Isotope@two}[2][]{%
  \renewcommand{\Isotope@atomicnumber}{#1}%
  {\m@th%
  \settowidth\@tempdimb{\ensuremath{%
    \scriptstyle\Isotopestyle{\Isotope@nuclearnumber}}}%
  \settowidth\@tempdimc{\ensuremath{%
    \scriptstyle\Isotopestyle{\Isotope@atomicnumber}}}%
  \ifdim\@tempdimb<\@tempdimc\@tempdimb=\@tempdimc\fi%
  \ensuremath{{}%
    ^{\makebox[\@tempdimb][r]{\ensuremath{%
       \scriptstyle\Isotopestyle{\Isotope@nuclearnumber}}}}%
    _{\makebox[\@tempdimb][r]{\ensuremath{%
       \scriptstyle\Isotopestyle{\Isotope@atomicnumber}}}}%
    \Isotopestyle{#2}}%
  }%
  \endgroup%
}%

\newcommand*{\EAc}{\Isotope{Ac}}
\newcommand*{\EAg}{\Isotope{Ag}}
\newcommand*{\EAl}{\Isotope{Al}}
\newcommand*{\EAm}{\Isotope{Am}}
\newcommand*{\EAr}{\Isotope{Ar}}
\newcommand*{\EAs}{\Isotope{As}}
\newcommand*{\EAt}{\Isotope{At}}
\newcommand*{\EAu}{\Isotope{Au}}
\newcommand*{\EB}{\Isotope{B}}
\newcommand*{\EBa}{\Isotope{Ba}}
\newcommand*{\EBe}{\Isotope{Be}}
\newcommand*{\EBh}{\Isotope{Bh}}
\newcommand*{\EBi}{\Isotope{Bi}}
\newcommand*{\EBk}{\Isotope{Bk}}
\newcommand*{\EBr}{\Isotope{Br}}
\newcommand*{\EBu}{\Isotope{Bu}}
\newcommand*{\EC}{\Isotope{C}}
\newcommand*{\ECa}{\Isotope{Ca}}
\newcommand*{\ECd}{\Isotope{Cd}}
\newcommand*{\ECe}{\Isotope{Ce}}
\newcommand*{\ECf}{\Isotope{Cf}}
\newcommand*{\ECl}{\Isotope{Cl}}
\newcommand*{\ECm}{\Isotope{Cm}}
\newcommand*{\ECo}{\Isotope{Co}}
\newcommand*{\ECr}{\Isotope{Cr}}
\newcommand*{\ECs}{\Isotope{Cs}}
\newcommand*{\ECu}{\Isotope{Cu}}
\newcommand*{\ED}{\Isotope{D}}
\newcommand*{\EDb}{\Isotope{Db}}
\newcommand*{\EDy}{\Isotope{Dy}}
\newcommand*{\EEr}{\Isotope{Er}}
\newcommand*{\EEs}{\Isotope{Es}}
\newcommand*{\EEt}{\Isotope{Et}}
\newcommand*{\EEu}{\Isotope{Eu}}
\newcommand*{\EF}{\Isotope{F}}
\newcommand*{\EFe}{\Isotope{Fe}}
\newcommand*{\EFm}{\Isotope{Fm}}
\newcommand*{\EFr}{\Isotope{Fr}}
\newcommand*{\EGa}{\Isotope{Ga}}
\newcommand*{\EGd}{\Isotope{Gd}}
\newcommand*{\EGe}{\Isotope{Ge}}
\newcommand*{\EH}{\Isotope{H}} 
\newcommand*{\EHe}{\Isotope{He}}
\newcommand*{\EHf}{\Isotope{Hf}}
\newcommand*{\EHg}{\Isotope{Hg}}
\newcommand*{\EHn}{\Isotope{Hn}}
\newcommand*{\EHo}{\Isotope{Ho}}
\newcommand*{\EI}{\Isotope{I}}
\newcommand*{\EIn}{\Isotope{In}}
\newcommand*{\EIr}{\Isotope{Ir}}
\newcommand*{\EJl}{\Isotope{Jl}}
\newcommand*{\EK}{\Isotope{K}}
\newcommand*{\EKr}{\Isotope{Kr}}
\newcommand*{\ELa}{\Isotope{La}}
\newcommand*{\ELi}{\Isotope{Li}}
\newcommand*{\ELr}{\Isotope{Lr}}
\newcommand*{\ELu}{\Isotope{Lu}}
\newcommand*{\EMd}{\Isotope{Md}}
\newcommand*{\EMe}{\Isotope{Me}}
\newcommand*{\EMg}{\Isotope{Mg}}
\newcommand*{\EMn}{\Isotope{Mn}}
\newcommand*{\EMo}{\Isotope{Mo}}
\newcommand*{\EMt}{\Isotope{Mt}}
\newcommand*{\EN}{\Isotope{N}}
\newcommand*{\ENa}{\Isotope{Na}}
\newcommand*{\ENb}{\Isotope{Nb}}
\newcommand*{\ENd}{\Isotope{Nd}}
\newcommand*{\ENe}{\Isotope{Ne}}
\newcommand*{\ENi}{\Isotope{Ni}}
\newcommand*{\ENo}{\Isotope{No}}
\newcommand*{\ENp}{\Isotope{Np}}
\newcommand*{\EO}{\Isotope{O}}
\newcommand*{\EOs}{\Isotope{Os}}
\newcommand*{\EP}{\Isotope{P}}
\newcommand*{\EPa}{\Isotope{Pa}}
\newcommand*{\EPb}{\Isotope{Pb}}
\newcommand*{\EPd}{\Isotope{Pd}}
\newcommand*{\EPm}{\Isotope{Pm}}
\newcommand*{\EPo}{\Isotope{Po}}
\newcommand*{\EPr}{\Isotope{Pr}} 
\newcommand*{\EPt}{\Isotope{Pt}}
\newcommand*{\EPu}{\Isotope{Pu}}
\newcommand*{\ERa}{\Isotope{Ra}}
\newcommand*{\ERb}{\Isotope{Rb}}
\newcommand*{\ERe}{\Isotope{Re}} 
\newcommand*{\ERf}{\Isotope{Rf}}
\newcommand*{\ERh}{\Isotope{Rh}}
\newcommand*{\ERn}{\Isotope{Rn}}
\newcommand*{\ERu}{\Isotope{Ru}}
\newcommand*{\ES}{\Isotope{S}}
\newcommand*{\ESb}{\Isotope{Sb}}
\newcommand*{\ESc}{\Isotope{Sc}}
\newcommand*{\ESe}{\Isotope{Se}}
\newcommand*{\ESi}{\Isotope{Si}}
\newcommand*{\ESm}{\Isotope{Sm}}
\newcommand*{\ESn}{\Isotope{Sn}}
\newcommand*{\ESr}{\Isotope{Sr}}
\newcommand*{\ETa}{\Isotope{Ta}}
\newcommand*{\ETb}{\Isotope{Tb}}
\newcommand*{\ETc}{\Isotope{Tc}}
\newcommand*{\ETe}{\Isotope{Te}}
\newcommand*{\ETh}{\Isotope{Th}}
\newcommand*{\ETi}{\Isotope{Ti}}
\newcommand*{\ETl}{\Isotope{Tl}}
\newcommand*{\ETm}{\Isotope{Tm}}
\newcommand*{\EU}{\Isotope{U}}
\newcommand*{\EV}{\Isotope{V}}
\newcommand*{\EW}{\Isotope{W}}
\newcommand*{\EXe}{\Isotope{Xe}}
\newcommand*{\EY}{\Isotope{Y}}
\newcommand*{\EYb}{\Isotope{Yb}}
\newcommand*{\EZn}{\Isotope{Zn}}
\newcommand*{\EZr}{\Isotope{Zr}}

\endinput
  \def\sprscrpt#1{\ensuremath{^{#1}}}
  \def\sbscrpt#1{\ensuremath{_{#1}}}
  \catcode`\^ \active
  \catcode`\_ \active
  \let^=\sprscrpt
  \let_=\sbscrpt
\@ifundefined{cd@t}{%
\let\cd@t=\cdot
\def\cdot{\ensuremath{\cd@t}}}{}
\newcommand{\nsrrm}[1]{\ensuremath{\mathrm{#1}}}
\newcommand{\nsrrms}[2][0.1]{\ensuremath{\mathrm{#2}\kern #1em}}
\newcommand{\kemtkn}[1]{\@ifnextchar_{\nsrrm{#1}}{\@ifnextchar^{\nsrrm{#1}}%
  {\@ifnextchar){\nsrrm{#1}}{\@ifnextchar({\nsrrm{#1}}%
  {\@ifnextchar]{\nsrrm{#1}}{\@ifnextchar[{\nsrrm{#1}}{\nsrrms{#1}}}}}}}}
\newcommand{\EAc}{\protect\kemtkn{Ac}}
\newcommand{\EAg}{\protect\kemtkn{Ag}}
\newcommand{\EAl}{\protect\kemtkn{Al}}
\newcommand{\EAm}{\protect\kemtkn{Am}}
\newcommand{\EAr}{\protect\kemtkn{Ar}}
\newcommand{\EAs}{\protect\kemtkn{As}}
\newcommand{\EAt}{\protect\kemtkn{At}}
\newcommand{\EAu}{\protect\kemtkn{Au}}
\newcommand{\EB}{\protect\kemtkn{B}}
\newcommand{\EBa}{\protect\kemtkn{Ba}}
\newcommand{\EBe}{\protect\kemtkn{Be}}
\newcommand{\EBh}{\protect\kemtkn{Bh}}
\newcommand{\EBi}{\protect\kemtkn{Bi}}
\newcommand{\EBk}{\protect\kemtkn{Bk}}
\newcommand{\EBr}{\protect\kemtkn{Br}}
\newcommand{\EBu}{\protect\kemtkn{Bu}}
\newcommand{\EC}{\protect\kemtkn{C}}
\newcommand{\ECa}{\protect\kemtkn{Ca}}
\newcommand{\ECd}{\protect\kemtkn{Cd}}
\newcommand{\ECe}{\protect\kemtkn{Ce}}
\newcommand{\ECf}{\protect\kemtkn{Cf}}
\newcommand{\ECl}{\protect\kemtkn{Cl}}
\newcommand{\ECm}{\protect\kemtkn{Cm}}
\newcommand{\ECo}{\protect\kemtkn{Co}}
\newcommand{\ECr}{\protect\kemtkn{Cr}}
\newcommand{\ECs}{\protect\kemtkn{Cs}}
\newcommand{\ECu}{\protect\kemtkn{Cu}}
\newcommand{\ED}{\protect\kemtkn{D}}
\newcommand{\EDb}{\protect\kemtkn{Db}}
\newcommand{\EDy}{\protect\kemtkn{Dy}}
\newcommand{\EEr}{\protect\kemtkn{Er}}
\newcommand{\EEs}{\protect\kemtkn{Es}}
\newcommand{\EEt}{\protect\kemtkn{Et}}
\newcommand{\EEu}{\protect\kemtkn{Eu}}
\newcommand{\EF}{\protect\kemtkn{F}}
\newcommand{\EFe}{\protect\kemtkn{Fe}}
\newcommand{\EFm}{\protect\kemtkn{Fm}}
\newcommand{\EFr}{\protect\kemtkn{Fr}}
\newcommand{\EGa}{\protect\kemtkn{Ga}}
\newcommand{\EGd}{\protect\kemtkn{Gd}}
\newcommand{\EGe}{\protect\kemtkn{Ge}}
\newcommand{\EH}{\protect\kemtkn{H}} 
\newcommand{\EHe}{\protect\kemtkn{He}}
\newcommand{\EHf}{\protect\kemtkn{Hf}}
\newcommand{\EHg}{\protect\kemtkn{Hg}}
\newcommand{\EHn}{\protect\kemtkn{Hn}}
\newcommand{\EHo}{\protect\kemtkn{Ho}}
\newcommand{\EI}{\protect\kemtkn{I}}
\newcommand{\EIn}{\protect\kemtkn{In}}
\newcommand{\EIr}{\protect\kemtkn{Ir}}
\newcommand{\EJl}{\protect\kemtkn{Jl}}
\newcommand{\EK}{\protect\kemtkn{K}}
\newcommand{\EKr}{\protect\kemtkn{Kr}}
\newcommand{\ELa}{\protect\kemtkn{La}}
\newcommand{\ELi}{\protect\kemtkn{Li}}
\newcommand{\ELr}{\protect\kemtkn{Lr}}
\newcommand{\ELu}{\protect\kemtkn{Lu}}
\newcommand{\EMd}{\protect\kemtkn{Md}}
\newcommand{\EMe}{\protect\kemtkn{Me}}
\newcommand{\EMg}{\protect\kemtkn{Mg}}
\newcommand{\EMn}{\protect\kemtkn{Mn}}
\newcommand{\EMo}{\protect\kemtkn{Mo}}
\newcommand{\EMt}{\protect\kemtkn{Mt}}
\newcommand{\EN}{\protect\kemtkn{N}}
\newcommand{\ENa}{\protect\kemtkn{Na}}
\newcommand{\ENb}{\protect\kemtkn{Nb}}
\newcommand{\ENd}{\protect\kemtkn{Nd}}
\newcommand{\ENe}{\protect\kemtkn{Ne}}
\newcommand{\ENi}{\protect\kemtkn{Ni}}
\newcommand{\ENo}{\protect\kemtkn{No}}
\newcommand{\ENp}{\protect\kemtkn{Np}}
\newcommand{\EO}{\protect\kemtkn{O}}
\newcommand{\EOs}{\protect\kemtkn{Os}}
\newcommand{\EP}{\protect\kemtkn{P}}
\newcommand{\EPa}{\protect\kemtkn{Pa}}
\newcommand{\EPb}{\protect\kemtkn{Pb}}
\newcommand{\EPd}{\protect\kemtkn{Pd}}
\newcommand{\EPm}{\protect\kemtkn{Pm}}
\newcommand{\EPo}{\protect\kemtkn{Po}}
\newcommand{\EPr}{\protect\kemtkn{Pr}} 
\newcommand{\EPt}{\protect\kemtkn{Pt}}
\newcommand{\EPu}{\protect\kemtkn{Pu}}
\newcommand{\ERa}{\protect\kemtkn{Ra}}
\newcommand{\ERb}{\protect\kemtkn{Rb}}
\newcommand{\ERe}{\protect\kemtkn{Re}} 
\newcommand{\ERf}{\protect\kemtkn{Rf}}
\newcommand{\ERh}{\protect\kemtkn{Rh}}
\newcommand{\ERn}{\protect\kemtkn{Rn}}
\newcommand{\ERu}{\protect\kemtkn{Ru}}
\newcommand{\ES}{\protect\kemtkn{S}}
\newcommand{\ESb}{\protect\kemtkn{Sb}}
\newcommand{\ESc}{\protect\kemtkn{Sc}}
\newcommand{\ESe}{\protect\kemtkn{Se}}
\newcommand{\ESi}{\protect\kemtkn{Si}}
\newcommand{\ESm}{\protect\kemtkn{Sm}}
\newcommand{\ESn}{\protect\kemtkn{Sn}}
\newcommand{\ESr}{\protect\kemtkn{Sr}}
\newcommand{\ETa}{\protect\kemtkn{Ta}}
\newcommand{\ETb}{\protect\kemtkn{Tb}}
\newcommand{\ETc}{\protect\kemtkn{Tc}}
\newcommand{\ETe}{\protect\kemtkn{Te}}
\newcommand{\ETh}{\protect\kemtkn{Th}}
\newcommand{\ETi}{\protect\kemtkn{Ti}}
\newcommand{\ETl}{\protect\kemtkn{Tl}}
\newcommand{\ETm}{\protect\kemtkn{Tm}}
\newcommand{\EU}{\protect\kemtkn{U}}
\newcommand{\EV}{\protect\kemtkn{V}}
\newcommand{\EW}{\protect\kemtkn{W}}
\newcommand{\EXe}{\protect\kemtkn{Xe}}
\newcommand{\EY}{\protect\kemtkn{Y}}
\newcommand{\EYb}{\protect\kemtkn{Yb}}
\newcommand{\EZn}{\protect\kemtkn{Zn}}
\newcommand{\EZr}{\protect\kemtkn{Zr}}


\endinput
%%
%% End of file `chemsym.sty'.