% This package provides the \spacegroup{} command
% Returns the (short) spacegroup name given the spacegroup number
% https://en.wikipedia.org/wiki/List_of_space_groups
% http://merkel.texture.rocks/Various/spacegroup.php?lang=en

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{spacegroup}[2023/01/11 spacegroup]
\RequirePackage{ifthen}

\newcommand{\@ub}[1]{\ensuremath{\bar{#1}}}

% preletter, afterletter et al. could perhaps be turned into package options?
% https://en.wikibooks.org/wiki/LaTeX/Creating_Packages
% https://tex.stackexchange.com/questions/6240/why-do-latex-internal-commands-have-an-in-them
\newcommand{\@preltr}{}
\newcommand{\@afterltr}{}
\newcommand{\@precap}{}
\newcommand{\@aftercap}{\hspace{0.2pt}}

\newcommand{\@ltr}[1]{%
	\ifthenelse{\equal{#1}{a}}{\@preltr\ensuremath{a}\@afterltr}{%
	\ifthenelse{\equal{#1}{b}}{\@preltr\ensuremath{b}\@afterltr}{%
	\ifthenelse{\equal{#1}{c}}{\@preltr\ensuremath{c}\@afterltr}{%
	\ifthenelse{\equal{#1}{d}}{\@preltr\ensuremath{d}\@afterltr}{%
	\ifthenelse{\equal{#1}{e}}{\@preltr\ensuremath{e}\@afterltr}{%
	\ifthenelse{\equal{#1}{m}}{\@preltr\ensuremath{m}\@afterltr}{%
	\ifthenelse{\equal{#1}{n}}{\@preltr\ensuremath{n}\@afterltr}{%
	No letter}}}}}}}%
}
\newcommand{\@Caps}[1]{%
	\ifthenelse{\equal{#1}{A}}{\@precap\ensuremath{A}\@aftercap}{%
	\ifthenelse{\equal{#1}{C}}{\@precap\ensuremath{C}\@aftercap}{%
	\ifthenelse{\equal{#1}{F}}{\@precap\ensuremath{F}\@aftercap}{%
	\ifthenelse{\equal{#1}{I}}{\@precap\ensuremath{I}\@aftercap}{%
	\ifthenelse{\equal{#1}{P}}{\@precap\ensuremath{P}\@aftercap}{%
	\ifthenelse{\equal{#1}{R}}{\@precap\ensuremath{R}\@aftercap}{%
	No letter}}}}}}%
}

%=====================
\newcommand{\spacegroup}[1]{%
   % Triclinic
   \ifthenelse{\equal{#1}{1}}{\ensuremath{\@Caps{P}1}}{%
   \ifthenelse{\equal{#1}{2}}{\ensuremath{\@Caps{P}\@ub{1}}}{%
   % Monoclinic
   \ifthenelse{\equal{#1}{3}}{\ensuremath{\@Caps{P}2}}{%
   \ifthenelse{\equal{#1}{4}}{\ensuremath{\@Caps{P}2_1}}{%
   \ifthenelse{\equal{#1}{5}}{\ensuremath{\@Caps{C}2}}{%
   \ifthenelse{\equal{#1}{6}}{\ensuremath{\@Caps{P}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{7}}{\ensuremath{\@Caps{P}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{8}}{\ensuremath{\@Caps{C}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{9}}{\ensuremath{\@Caps{C}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{10}}{\ensuremath{\@Caps{P}2/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{11}}{\ensuremath{\@Caps{P}2_1/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{12}}{\ensuremath{\@Caps{C}2/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{13}}{\ensuremath{\@Caps{P}2/\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{14}}{\ensuremath{\@Caps{P}2_1/\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{15}}{\ensuremath{\@Caps{C}2/\@ltr{c}}}{%
   % Orthorhombic
   \ifthenelse{\equal{#1}{16}}{\ensuremath{\@Caps{P}222}}{%
   \ifthenelse{\equal{#1}{17}}{\ensuremath{\@Caps{P}222_1}}{%
   \ifthenelse{\equal{#1}{18}}{\ensuremath{\@Caps{P}2_12_12}}{%
   \ifthenelse{\equal{#1}{19}}{\ensuremath{\@Caps{P}2_12_12_1}}{%
   \ifthenelse{\equal{#1}{20}}{\ensuremath{\@Caps{C}222_1}}{%
   \ifthenelse{\equal{#1}{21}}{\ensuremath{\@Caps{C}222}}{%
   \ifthenelse{\equal{#1}{22}}{\ensuremath{\@Caps{F}222}}{%
   \ifthenelse{\equal{#1}{23}}{\ensuremath{\@Caps{I}222}}{%
   \ifthenelse{\equal{#1}{24}}{\ensuremath{\@Caps{I}2_12_12_1}}{%
   \ifthenelse{\equal{#1}{25}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{26}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{c}2_1}}{%
   \ifthenelse{\equal{#1}{27}}{\ensuremath{\@Caps{P}\@ltr{c}\@ltr{c}2}}{%
   \ifthenelse{\equal{#1}{28}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{a}2}}{%
   \ifthenelse{\equal{#1}{29}}{\ensuremath{\@Caps{P}\@ltr{c}\@ltr{a}2_1}}{%
   \ifthenelse{\equal{#1}{30}}{\ensuremath{\@Caps{P}\@ltr{n}\@ltr{c}2}}{%
   \ifthenelse{\equal{#1}{31}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{n}2_1}}{%
   \ifthenelse{\equal{#1}{32}}{\ensuremath{\@Caps{P}\@ltr{b}\@ltr{a}2}}{%
   \ifthenelse{\equal{#1}{33}}{\ensuremath{\@Caps{P}\@ltr{n}2_1}}{%
   \ifthenelse{\equal{#1}{34}}{\ensuremath{\@Caps{P}\@ltr{n}\@ltr{n}2}}{%
   \ifthenelse{\equal{#1}{35}}{\ensuremath{\@Caps{C}\@ltr{m}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{36}}{\ensuremath{\@Caps{C}\@ltr{m}\@ltr{c}2_1}}{%
   \ifthenelse{\equal{#1}{37}}{\ensuremath{\@Caps{C}\@ltr{c}\@ltr{c}2}}{%
   \ifthenelse{\equal{#1}{38}}{\ensuremath{\@Caps{A}\@ltr{m}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{39}}{\ensuremath{\@Caps{A}\@ltr{e}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{40}}{\ensuremath{\@Caps{A}\@ltr{m}\@ltr{a}2}}{%
   \ifthenelse{\equal{#1}{41}}{\ensuremath{\@Caps{A}\@ltr{e}\@ltr{a}2}}{%
   \ifthenelse{\equal{#1}{42}}{\ensuremath{\@Caps{F}\@ltr{m}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{43}}{\ensuremath{\@Caps{F}\@ltr{d}\@ltr{d}2}}{%
   \ifthenelse{\equal{#1}{44}}{\ensuremath{\@Caps{I}\@ltr{m}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{45}}{\ensuremath{\@Caps{I}\@ltr{b}\@ltr{a}2}}{%
   \ifthenelse{\equal{#1}{46}}{\ensuremath{\@Caps{I}\@ltr{m}\@ltr{a}2}}{%
   \ifthenelse{\equal{#1}{47}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{48}}{\ensuremath{\@Caps{P}\@ltr{n}\@ltr{n}\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{49}}{\ensuremath{\@Caps{P}\@ltr{c}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{50}}{\ensuremath{\@Caps{P}\@ltr{b}\@ltr{a}\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{51}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{m}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{52}}{\ensuremath{\@Caps{P}\@ltr{n}\@ltr{n}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{53}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{n}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{54}}{\ensuremath{\@Caps{P}\@ltr{c}\@ltr{c}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{55}}{\ensuremath{\@Caps{P}\@ltr{b}\@ltr{a}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{56}}{\ensuremath{\@Caps{P}\@ltr{c}\@ltr{c}\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{57}}{\ensuremath{\@Caps{P}\@ltr{b}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{58}}{\ensuremath{\@Caps{P}\@ltr{n}\@ltr{n}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{59}}{\ensuremath{\@Caps{P}\@ltr{m}\@ltr{m}\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{60}}{\ensuremath{\@Caps{P}\@ltr{b}\@ltr{c}\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{61}}{\ensuremath{\@Caps{P}\@ltr{b}\@ltr{c}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{62}}{\ensuremath{\@Caps{P}\@ltr{n}\@ltr{m}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{63}}{\ensuremath{\@Caps{C}\@ltr{m}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{64}}{\ensuremath{\@Caps{C}\@ltr{m}\@ltr{c}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{65}}{\ensuremath{\@Caps{C}\@ltr{m}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{66}}{\ensuremath{\@Caps{C}\@ltr{c}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{67}}{\ensuremath{\@Caps{C}\@ltr{m}\@ltr{m}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{68}}{\ensuremath{\@Caps{C}\@ltr{c}\@ltr{c}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{69}}{\ensuremath{\@Caps{F}\@ltr{m}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{70}}{\ensuremath{\@Caps{F}\@ltr{d}\@ltr{d}\@ltr{d}}}{%
   \ifthenelse{\equal{#1}{71}}{\ensuremath{\@Caps{I}\@ltr{m}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{72}}{\ensuremath{\@Caps{I}\@ltr{b}\@ltr{a}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{73}}{\ensuremath{\@Caps{I}\@ltr{b}\@ltr{c}\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{74}}{\ensuremath{\@Caps{I}\@ltr{m}\@ltr{m}\@ltr{a}}}{%
   % Tetragonal
   \ifthenelse{\equal{#1}{75}}{\ensuremath{\@Caps{P}4}}{%
   \ifthenelse{\equal{#1}{76}}{\ensuremath{\@Caps{P}4_1}}{%
   \ifthenelse{\equal{#1}{77}}{\ensuremath{\@Caps{P}4_2}}{%
   \ifthenelse{\equal{#1}{78}}{\ensuremath{\@Caps{P}4_3}}{%
   \ifthenelse{\equal{#1}{79}}{\ensuremath{\@Caps{I}4}}{%
   \ifthenelse{\equal{#1}{80}}{\ensuremath{\@Caps{I}4_1}}{%
   \ifthenelse{\equal{#1}{81}}{\ensuremath{\@Caps{P}\@ub{4}}}{%
   \ifthenelse{\equal{#1}{82}}{\ensuremath{\@Caps{I}\@ub{4}}}{%
   \ifthenelse{\equal{#1}{83}}{\ensuremath{\@Caps{P}4/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{84}}{\ensuremath{\@Caps{P}4_2/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{85}}{\ensuremath{\@Caps{P}4/\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{86}}{\ensuremath{\@Caps{P}4_2/\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{87}}{\ensuremath{\@Caps{I}4/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{88}}{\ensuremath{\@Caps{I}4_1/\@ltr{a}}}{%
   \ifthenelse{\equal{#1}{89}}{\ensuremath{\@Caps{P}422}}{%
   \ifthenelse{\equal{#1}{90}}{\ensuremath{\@Caps{P}42_12}}{%
   \ifthenelse{\equal{#1}{91}}{\ensuremath{\@Caps{P}4_122}}{%
   \ifthenelse{\equal{#1}{92}}{\ensuremath{\@Caps{P}4_12_12}}{%
   \ifthenelse{\equal{#1}{93}}{\ensuremath{\@Caps{P}4_222}}{%
   \ifthenelse{\equal{#1}{94}}{\ensuremath{\@Caps{P}4_22_12}}{%
   \ifthenelse{\equal{#1}{95}}{\ensuremath{\@Caps{P}4_322}}{%
   \ifthenelse{\equal{#1}{96}}{\ensuremath{\@Caps{P}4_32_12}}{%
   \ifthenelse{\equal{#1}{97}}{\ensuremath{\@Caps{I}422}}{%
   \ifthenelse{\equal{#1}{98}}{\ensuremath{\@Caps{I}4_122}}{%
   \ifthenelse{\equal{#1}{99}}{\ensuremath{\@Caps{P}4\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{100}}{\ensuremath{\@Caps{P}4\@ltr{b}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{101}}{\ensuremath{\@Caps{P}4_2\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{102}}{\ensuremath{\@Caps{P}4_2\@ltr{n}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{103}}{\ensuremath{\@Caps{P}4\@ltr{c}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{104}}{\ensuremath{\@Caps{P}4\@ltr{n}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{105}}{\ensuremath{\@Caps{P}4_2\@ltr{m}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{106}}{\ensuremath{\@Caps{P}4_2\@ltr{b}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{107}}{\ensuremath{\@Caps{I}4\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{108}}{\ensuremath{\@Caps{I}4\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{109}}{\ensuremath{\@Caps{I}4_1\@ltr{m}\@ltr{d}}}{%
   \ifthenelse{\equal{#1}{110}}{\ensuremath{\@Caps{I}4_1\@ltr{c}\@ltr{d}}}{%
   \ifthenelse{\equal{#1}{111}}{\ensuremath{\@Caps{P}\@ub{4}2\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{112}}{\ensuremath{\@Caps{P}\@ub{4}2\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{113}}{\ensuremath{\@Caps{P}\@ub{4}2_1\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{114}}{\ensuremath{\@Caps{P}\@ub{4}2_1\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{115}}{\ensuremath{\@Caps{P}\@ub{4}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{116}}{\ensuremath{\@Caps{P}\@ub{4}\@ltr{c}2}}{%
   \ifthenelse{\equal{#1}{117}}{\ensuremath{\@Caps{P}\@ub{4}\@ltr{b}2}}{%
   \ifthenelse{\equal{#1}{118}}{\ensuremath{\@Caps{P}\@ub{4}\@ltr{n}2}}{%
   \ifthenelse{\equal{#1}{119}}{\ensuremath{\@Caps{I}\@ub{4}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{120}}{\ensuremath{\@Caps{I}\@ub{4}\@ltr{c}2}}{%
   \ifthenelse{\equal{#1}{121}}{\ensuremath{\@Caps{I}\@ub{4}2\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{122}}{\ensuremath{\@Caps{I}\@ub{4}2\@ltr{d}}}{%
   \ifthenelse{\equal{#1}{123}}{\ensuremath{\@Caps{P}4/\@ltr{m}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{124}}{\ensuremath{\@Caps{P}4/\@ltr{m}\@ltr{m}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{125}}{\ensuremath{\@Caps{P}4/\@ltr{n}\@ltr{b}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{126}}{\ensuremath{\@Caps{P}4/\@ltr{n}\@ltr{n}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{127}}{\ensuremath{\@Caps{P}4/\@ltr{m}\@ltr{b}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{128}}{\ensuremath{\@Caps{P}4/\@ltr{m}\@ltr{n}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{129}}{\ensuremath{\@Caps{P}4/\@ltr{n}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{130}}{\ensuremath{\@Caps{P}4/\@ltr{n}\@ltr{c}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{131}}{\ensuremath{\@Caps{P}4_2/\@ltr{m}\@ltr{m}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{132}}{\ensuremath{\@Caps{P}4_2/\@ltr{m}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{133}}{\ensuremath{\@Caps{P}4_2/\@ltr{n}\@ltr{b}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{134}}{\ensuremath{\@Caps{P}4_2/\@ltr{n}\@ltr{n}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{135}}{\ensuremath{\@Caps{P}4_2/\@ltr{m}\@ltr{b}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{136}}{\ensuremath{\@Caps{P}4_2/\@ltr{m}\@ltr{n}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{137}}{\ensuremath{\@Caps{P}4_2/\@ltr{n}\@ltr{m}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{138}}{\ensuremath{\@Caps{P}4_2/\@ltr{n}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{139}}{\ensuremath{\@Caps{I}4/\@ltr{m}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{140}}{\ensuremath{\@Caps{I}4/\@ltr{m}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{141}}{\ensuremath{\@Caps{I}4_1/\@ltr{a}\@ltr{m}\@ltr{d}}}{%
   \ifthenelse{\equal{#1}{142}}{\ensuremath{\@Caps{I}4_1/\@ltr{a}\@ltr{c}\@ltr{d}}}{%
   % Trigonal
   \ifthenelse{\equal{#1}{143}}{\ensuremath{\@Caps{P}3}}{%
   \ifthenelse{\equal{#1}{144}}{\ensuremath{\@Caps{P}3_1}}{%
   \ifthenelse{\equal{#1}{145}}{\ensuremath{\@Caps{P}3_2}}{%
   \ifthenelse{\equal{#1}{146}}{\ensuremath{\@Caps{R}3}}{%
   \ifthenelse{\equal{#1}{147}}{\ensuremath{\@Caps{P}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{148}}{\ensuremath{\@Caps{R}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{149}}{\ensuremath{\@Caps{P}312}}{%
   \ifthenelse{\equal{#1}{150}}{\ensuremath{\@Caps{P}321}}{%
   \ifthenelse{\equal{#1}{151}}{\ensuremath{\@Caps{P}3_112}}{%
   \ifthenelse{\equal{#1}{152}}{\ensuremath{\@Caps{P}3_121}}{%
   \ifthenelse{\equal{#1}{153}}{\ensuremath{\@Caps{P}3_212}}{%
   \ifthenelse{\equal{#1}{154}}{\ensuremath{\@Caps{P}3_221}}{%
   \ifthenelse{\equal{#1}{155}}{\ensuremath{\@Caps{R}32}}{%
   \ifthenelse{\equal{#1}{156}}{\ensuremath{\@Caps{P}3\@ltr{m}1}}{%
   \ifthenelse{\equal{#1}{157}}{\ensuremath{\@Caps{P}31\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{158}}{\ensuremath{\@Caps{P}3\@ltr{c}1}}{%
   \ifthenelse{\equal{#1}{159}}{\ensuremath{\@Caps{P}31\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{160}}{\ensuremath{\@Caps{R}3\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{161}}{\ensuremath{\@Caps{R}3\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{162}}{\ensuremath{\@Caps{P}\@ub{3}1\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{163}}{\ensuremath{\@Caps{P}\@ub{3}1\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{164}}{\ensuremath{\@Caps{P}\@ub{3}\@ltr{m}1}}{%
   \ifthenelse{\equal{#1}{165}}{\ensuremath{\@Caps{P}\@ub{3}\@ltr{c}1}}{%
   \ifthenelse{\equal{#1}{166}}{\ensuremath{\@Caps{R}\@ub{3}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{167}}{\ensuremath{\@Caps{R}\@ub{3}\@ltr{c}}}{%
   % Hexagonal
   \ifthenelse{\equal{#1}{168}}{\ensuremath{\@Caps{P}6}}{%
   \ifthenelse{\equal{#1}{169}}{\ensuremath{\@Caps{P}6_1}}{%
   \ifthenelse{\equal{#1}{170}}{\ensuremath{\@Caps{P}6_5}}{%
   \ifthenelse{\equal{#1}{171}}{\ensuremath{\@Caps{P}6_2}}{%
   \ifthenelse{\equal{#1}{172}}{\ensuremath{\@Caps{P}6_4}}{%
   \ifthenelse{\equal{#1}{173}}{\ensuremath{\@Caps{P}6_3}}{%
   \ifthenelse{\equal{#1}{174}}{\ensuremath{\@Caps{P}\@ub{6}}}{%
   \ifthenelse{\equal{#1}{175}}{\ensuremath{\@Caps{P}6/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{176}}{\ensuremath{\@Caps{P}6_3/\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{177}}{\ensuremath{\@Caps{P}622}}{%
   \ifthenelse{\equal{#1}{178}}{\ensuremath{\@Caps{P}6_122}}{%
   \ifthenelse{\equal{#1}{179}}{\ensuremath{\@Caps{P}6_522}}{%
   \ifthenelse{\equal{#1}{180}}{\ensuremath{\@Caps{P}6_222}}{%
   \ifthenelse{\equal{#1}{181}}{\ensuremath{\@Caps{P}6_422}}{%
   \ifthenelse{\equal{#1}{182}}{\ensuremath{\@Caps{P}6_322}}{%
   \ifthenelse{\equal{#1}{183}}{\ensuremath{\@Caps{P}6\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{184}}{\ensuremath{\@Caps{P}6\@ltr{c}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{185}}{\ensuremath{\@Caps{P}6_2\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{186}}{\ensuremath{\@Caps{P}6_3\@ltr{m}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{187}}{\ensuremath{\@Caps{P}\@ub{6}\@ltr{m}2}}{%
   \ifthenelse{\equal{#1}{188}}{\ensuremath{\@Caps{P}\@ub{6}\@ltr{c}2}}{%
   \ifthenelse{\equal{#1}{189}}{\ensuremath{\@Caps{P}\@ub{6}2\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{190}}{\ensuremath{\@Caps{P}\@ub{6}2\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{191}}{\ensuremath{\@Caps{P}6/\@ltr{m}\@ltr{m}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{192}}{\ensuremath{\@Caps{P}6/\@ltr{m}\@ltr{c}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{193}}{\ensuremath{\@Caps{P}6_3/\@ltr{m}\@ltr{c}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{194}}{\ensuremath{\@Caps{P}6_3/\@ltr{m}\@ltr{m}\@ltr{c}}}{%
   % Cubic
   \ifthenelse{\equal{#1}{195}}{\ensuremath{\@Caps{P}23}}{%
   \ifthenelse{\equal{#1}{196}}{\ensuremath{\@Caps{F}23}}{%
   \ifthenelse{\equal{#1}{197}}{\ensuremath{\@Caps{I}23}}{%
   \ifthenelse{\equal{#1}{198}}{\ensuremath{\@Caps{P}2_13}}{%
   \ifthenelse{\equal{#1}{199}}{\ensuremath{\@Caps{I}2_13}}{%
   \ifthenelse{\equal{#1}{200}}{\ensuremath{\@Caps{P}\@ltr{m}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{201}}{\ensuremath{\@Caps{P}\@ltr{n}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{202}}{\ensuremath{\@Caps{F}\@ltr{m}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{203}}{\ensuremath{\@Caps{F}\@ltr{d}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{204}}{\ensuremath{\@Caps{I}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{205}}{\ensuremath{\@Caps{P}\@ltr{a}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{206}}{\ensuremath{\@Caps{I}\@ltr{a}\@ub{3}}}{%
   \ifthenelse{\equal{#1}{207}}{\ensuremath{\@Caps{P}432}}{%
   \ifthenelse{\equal{#1}{208}}{\ensuremath{\@Caps{P}4_232}}{%
   \ifthenelse{\equal{#1}{209}}{\ensuremath{\@Caps{F}432}}{%
   \ifthenelse{\equal{#1}{210}}{\ensuremath{\@Caps{F}4_132}}{%
   \ifthenelse{\equal{#1}{211}}{\ensuremath{\@Caps{I}432}}{%
   \ifthenelse{\equal{#1}{212}}{\ensuremath{\@Caps{P}4_332}}{%
   \ifthenelse{\equal{#1}{213}}{\ensuremath{\@Caps{P}4_132}}{%
   \ifthenelse{\equal{#1}{214}}{\ensuremath{\@Caps{I}4_132}}{%
   \ifthenelse{\equal{#1}{215}}{\ensuremath{\@Caps{P}\@ub{4}3\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{216}}{\ensuremath{\@Caps{F}\@ub{4}3\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{217}}{\ensuremath{\@Caps{I}\@ub{4}3\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{218}}{\ensuremath{\@Caps{P}\@ub{4}3\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{219}}{\ensuremath{\@Caps{F}\@ub{4}3\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{220}}{\ensuremath{\@Caps{I}\@ub{4}3\@ltr{d}}}{%
   \ifthenelse{\equal{#1}{221}}{\ensuremath{\@Caps{P}\@ltr{m}\@ub{3}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{222}}{\ensuremath{\@Caps{P}\@ltr{n}\@ub{3}\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{223}}{\ensuremath{\@Caps{P}\@ltr{m}\@ub{3}\@ltr{n}}}{%
   \ifthenelse{\equal{#1}{224}}{\ensuremath{\@Caps{P}\@ltr{n}\@ub{3}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{225}}{\ensuremath{\@Caps{F}\@ltr{m}\@ub{3}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{226}}{\ensuremath{\@Caps{F}\@ltr{m}\@ub{3}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{227}}{\ensuremath{\@Caps{F}\@ltr{d}\@ub{3}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{228}}{\ensuremath{\@Caps{F}\@ltr{d}\@ub{3}\@ltr{c}}}{%
   \ifthenelse{\equal{#1}{229}}{\ensuremath{\@Caps{I}\@ltr{m}\@ub{3}\@ltr{m}}}{%
   \ifthenelse{\equal{#1}{230}}{\ensuremath{\@Caps{I}\@ltr{a}\@ub{3}\@ltr{d}}}{%
   $<$err$>$
   }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}%50
   }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}%50
   }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}%50
   }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}%50
   }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}%30

\endinput
