%%
%% This is file `fouridx.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% fouridx.dtx  (with options: `package')
%% 
%%   fouridx package
%% 
%%   Copyright 2008, 2013 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{2.00}
\def\filedate{2013/11/21}
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{fouridx}[\filedate\space v\fileversion\space Four indices]
\newcommand{\fourIdx}[5]{%
   \ensuremath{\mathchoice%
      {{\setbox1=\hbox{$\scriptstyle{#1}$}%
       \setbox2=\hbox{$\scriptstyle{#2}$}%
       \setbox5=\hbox{$\displaystyle{#5}$}%
       \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
       \copy5^{\scriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
             _{\scriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
      }}% display
      {{\setbox1=\hbox{$\scriptstyle{#1}$}%
       \setbox2=\hbox{$\scriptstyle{#2}$}%
       \setbox5=\hbox{$\textstyle{#5}$}%
       \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
       \copy5^{\scriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
             _{\scriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
      }}% text
      {{\setbox1=\hbox{$\scriptscriptstyle{#1}$}%
       \setbox2=\hbox{$\scriptscriptstyle{#2}$}%
       \setbox5=\hbox{$\scriptstyle{#5}$}%
       \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
       \copy5^{\scriptscriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
             _{\scriptscriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
      }}% script
      {{\setbox1=\hbox{$\scriptscriptstyle{#1}$}%
       \setbox2=\hbox{$\scriptscriptstyle{#2}$}%
       \setbox5=\hbox{$\scriptscriptstyle{#5}$}%
       \hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
       \copy5^{\scriptscriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
             _{\scriptscriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
      }}% scriptscript
}}
\endinput
%%
%% End of file `fouridx.sty'.
