%% %% This is file `fouridx.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% fouridx.dtx (with options: `package') %% %% fouridx package %% %% Copyright 2008 Stefan Karrmann %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN %% archives in directory macros/latex/base/lppl.txt; either %% version 1 of the License, or any later version. %% %% S.Karrmann at web.de %% \def\fileversion{1.00} \def\filedate{2008/03/27} \NeedsTeXFormat{LaTeX2e}[1995/12/01] \ProvidesPackage{fouridx}[\filedate\space v\fileversion\space Four indices] \newcommand{\fourIdx}[5]{% \setbox1=\hbox{\ensuremath{^{#1}}}% \setbox2=\hbox{\ensuremath{_{#2}}}% \setbox5=\hbox{\ensuremath{#5}}% \hspace{\ifnum\wd1>\wd2\wd1\else\wd2\fi}% \ensuremath{\copy5^{\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}% _{\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}% }} \endinput %% %% End of file `fouridx.sty'.