rm physe, license noinfo c.1992 plain format for physics

git-svn-id: svn://tug.org/texlive/trunk@21878 c570f23f-e606-0410-a88d-b1316a301751

3 files changed, 0 insertions, 2136 deletions

diff --git a/Master/texmf-dist/tex/physe/base/physe.tex b/Master/texmf-dist/tex/physe/base/physe.tex
deleted file mode 100644
index d1aa5803d26..00000000000
--- a/Master/texmf-dist/tex/physe/base/physe.tex
+++ /dev/null
@@ -1,2024 +0,0 @@
-%FORMAT plaine   % use PLAINE format
-%***  this is file PHYSE as of 11.02.86  ***
-% \input physorg  % macros for physics papers
-%***  this is file PHYSORG as of 14.03.86  ***
-%***  PHYSORG  Version 1.00  ***
-
-\message{Preloading the phys format:}
-
-% I make @ signs act like letters, temporarily, to avoid conflict
-% with user-defined control sequences in certain cases.
-
-\catcode`\@=11
-
-\chardef\f@ur=4
-\chardef\l@tter=11
-\chardef\@ther=12
-\toksdef\toks@i=1 % global only
-\toksdef\toks@ii=2
-\newtoks\emptyt@ks % permanently empty token list register
-
-\def\glet{\global\let}
-\def\gz@#1{\global#1\z@}
-\def\gm@ne#1{\global#1\m@ne}
-\def\g@ne#1{\global\advance#1\@ne}
-
-\def\@height{height}       % save token space
-\def\@depth{depth}         %   (5 or 6 tokens at the cost
-\def\@width{width}         %    of one macro expansion)
-
-\def\@plus{plus}           % save
-\def\@minus{minus}         %   token space
-
-\message{macros for text,}
-
-% \input physmain
-
-%***  this is file PHYSMAIN as of 07.03.86  ***
-%***  macros for text  ***
-
-% allow the construction `\loop ... \if... ... \else ... \repeat'
-\def\loop#1\repeat{\def\iter@te{#1\expandafter\iter@te \fi}\iter@te
-  \let\iter@te\undefined}
-\let\iterate=\undefined
-
-\def\par{\ifhmode \unpenalty\unskip \fi \endgraf}
-\def\lb{\hfil\break}
-\def\endpage{\par \vfil \eject}
-\def\superendpage{\par \vfil \supereject}
-
-%***  allow change of \catcodes's inside \leftline, ...
-
-\let\plainleftline=\leftline       % rename \leftline from PLAIN
-\let\plainrightline=\rightline     % rename \rightline from PLAIN
-\let\plaincenterline=\centerline   % rename \centerline from PLAIN
-
-\def\leftline{\@line\hsize\empty\hss}
-\def\rightline{\@line\hsize\hss\empty}
-\def\centerline{\@line\hsize\hss\hss}
-
-\let\plainrlap=\rlap   % rename \rlap from PLAIN
-\let\plainllap=\llap   % rename \llap from PLAIN
-
-\def\rlap{\@line\z@\empty\hss}
-\def\llap{\@line\z@\hss\empty}
-
-\def\lftline{\@line\hsize\empty\hfil}
-\def\rtline{\@line\hsize\hfil\empty}
-\def\ctrline{\@line\hsize\hfil\hfil}
-
-\def\@line#1#2#3{\hbox to#1\bgroup#2\let\n@xt#3%
-  \afterassignment\@@line \setbox\z@\hbox}
-\def\@@line{\aftergroup\@@@line}
-\def\@@@line{\unhbox\z@ \n@xt\egroup}
-
-\def\after@arg#1{\bgroup\aftergroup#1\afterassignment\after@@arg\@eat}
-\def\after@@arg{\ifcat\bgroup\noexpand\n@xt\else \n@xt\egroup \fi}
-\def\@eat{\let\n@xt= } % eat one token
-\def\eat#1{}           % eat one argument
-\def\@eat@#1{\@eat}    % eat one argument and one token
-
-%***  phantom and smash  ***
-
-\def\begin@{\ifmmode \expandafter\mathpalette\expandafter\math@ \else
-  \expandafter\make@ \fi}
-\def\make@#1{\setbox\z@\hbox{#1}\fin@}
-\def\math@#1#2{\setbox\z@\hbox{$\m@th#1{#2}$}\fin@}
-
-\def\ph@nt{\let\fin@\finph@nt \begin@}
-\let\makeph@nt=\undefined
-\let\mathph@nt=\undefined
-
-\newif\ift@ \newif\ifb@
-\def\topsmash{\t@true\b@false\sm@sh}
-\def\botsmash{\t@false\b@true\sm@sh}
-\def\smash{\t@true\b@true\sm@sh}
-\def\sm@sh{\let\fin@\finsm@sh \begin@}
-\let\makesm@sh=\undefined
-\let\mathsm@sh=\undefined
-\def\finsm@sh{\ift@\ht\z@\z@\fi \ifb@\dp\z@\z@\fi \box\z@}
-
-%***  boxit  ***
-
-\newdimen\boxitsep   \boxitsep=5pt
-
-\def\boxit{\fboxit{.4}}
-\def\fboxit#1#2{\hbox{\vrule \@width#1\p@
-    \vtop{\vbox{\hrule \@height#1\p@ \vskip\boxitsep
-        \hbox{\hskip\boxitsep #2\hskip\boxitsep}}%
-      \vskip\boxitsep \hrule \@height#1\p@}\vrule \@width#1\p@}}
-
-%***  active characters `:,`; and `^^M  ***
-
-\begingroup
-  \catcode`\:=\active
-  \lccode`\*=`\\ \lowercase{\gdef:{*}}   %   `: -> `\
-  \catcode`\;=\active
-  \lccode`\* `\% \lowercase{\gdef;{*}}   %   `; -> `%
-  \catcode`\^^M=\active \glet^^M=\space  %   `^^M -> \space
-\endgroup
-
-%***  comment  ***
-
-\begingroup
-  \catcode`\:=\active
-  \outer\gdef\comment{\begingroup
-    \catcode`\\\@ther \catcode`\%\@ther \catcode`\^^M\@ther
-    \catcode`\{\@ther \catcode`\}\@ther \catcode`\#\@ther
-    \wlog{* input between `:comment' and `:endcomment' ignored *}
-    \c@mment}
-\endgroup
-{\lccode`\:=`\\ \lccode`\;=`\^^M
-  \lowercase{\gdef\c@mment#1;{\c@@mment:endcomment*}}}
-\def\c@@mment#1#2*#3{\if #1#3\ifx @#2@ \let\n@xt\endgroup \else
-  \def\n@xt{\c@@mment#2*}\fi \else \def\n@xt{\c@mment#3}\fi \n@xt}
-\let\endcomment=\relax   % avoid errmessage for unmatched \endcomment
-
-\message{date and time,}
-
-%***  language  ***
-
-\newcount\langu@ge
-
-\outer\def\english{\gm@ne\langu@ge}
-\outer\def\german{\gz@\langu@ge}
-
-\def\case@language#1{\ifcase\expandafter\langu@ge #1\fi}
-\def\case@abbr#1{{\let\nodot\n@dot\case@language{#1}.~}}
-\def\n@dot{\expandafter\eat}
-\let\nodot=\empty
-
-%***  date and time  ***
-
-\def\themonth{\xdef\themonth{\noexpand\case@language
-  {\ifcase\month \or Jannuar\or Februar\or M\noexpand\"arz\or April\or
-  Mai\or Juni\or Juli\or August\or September\or Oktober\or November\or
-  Dezember\fi
-  \noexpand\else
-  \ifcase\month \or January\or February\or March\or April\or May\or
-  June\or July\or August\or September\or October\or November\or
-  December\fi}}\themonth}
-
-\def\thedate{\case@language{\else\themonth\ }\number\day
-  \case@language{.\ \themonth \else ,} \number\year}
-
-\def\date{\number\day.\,\number\month.\,\number\year}
-
-%***  \thetime is defined twice, once if this file is read
-
-\count@\time \divide\count@60 \edef\thetime{\the\count@ :}
-\multiply\count@-60\advance\count@\time
-\edef\thetime{\thetime \ifnum10>\count@ 0\fi \the\count@}
-
-%     and once if a dump file is loaded  ***
-
-\everyjob={%
-  \count@\time \divide\count@60 \edef\thetime{\the\count@ :}%
-  \multiply\count@-60\advance\count@\time
-  \edef\thetime{\thetime \ifnum10>\count@ 0\fi \the\count@}%
-  \everyjob{}}
-%***  end of file PHYSMAIN  ***
-
-\message{spacing, fonts and sizes,}
-
-% \input physfont
-%***  this is file PHYSFONT as of 14.03.86  ***
-%***  spacing parameters  ***
-
-\newskip\refbetweenskip   \newskip\chskiptamount
-\newskip\chskiplamount   \newskip\secskipamount
-\newskip\footnotebaselineskip   \newskip\interfootnoteskip
-
-\newdimen\chapstretch   \chapstretch=2.5cm
-\newcount\chappenalty   \chappenalty=-800
-\newdimen\sectstretch   \sectstretch=2cm
-\newcount\sectpenalty   \sectpenalty=-400
-
-\def\chskipt{\chapbreak \vskip\chskiptamount}
-\def\chskipl{\nobreak \vskip\chskiplamount}
-\def\unchskip{\vskip-\chskiplamount}
-\def\secskipt{\sectbreak \vskip\secskipamount}
-\def\chapbreak{\vskip\z@\@plus\chapstretch \penalty\chappenalty
-  \vskip\z@\@plus-\chapstretch}
-\def\sectbreak{\vskip\z@\@plus\sectstretch \penalty\sectpenalty
-  \vskip\z@\@plus-\sectstretch}
-
-%***  fonts  ***
-
-%***  load am... or cm... fonts according to PLAIN's selection  ***
-
-\begingroup \lccode`\*=`\r
-  \lowercase{\def\n@xt#1*#2@{#1}
-    \xdef\font@sel{\expandafter\n@xt\fontname\tenrm*@}}\endgroup
-
-\message{loading \font@sel\space fonts,}
-
-\font\twelverm=\font@sel r10 scaled \magstep1 % roman text
-%\font\tenrm=\font@sel r10 % already defined in PLAIN
-\font\ninerm=\font@sel r9
-\font\eightrm=\font@sel r8
-%\font\sevenrm=\font@sel r7 % already defined in PLAIN
-\font\sixrm=\font@sel r6
-%\font\fiverm=\font@sel r5 % already defined in PLAIN
-
-\font\twelvei=\font@sel mi10 scaled\magstep1
-  \skewchar\twelvei='177 % math italic
-%\font\teni=\font@sel mi10 % already defined in PLAIN
-\font\ninei=\font@sel mi9    \skewchar\ninei='177
-\font\eighti=\font@sel mi8   \skewchar\eighti='177
-%\font\seveni=\font@sel mi7 % already defined in PLAIN
-\font\sixi=\font@sel mi6   \skewchar\sixi='177
-%\font\fivei=\font@sel mi5 % already defined in PLAIN
-
-\font\twelvesy=\font@sel sy10 scaled \magstep1
-  \skewchar\twelvesy='60 % math symbols
-%\font\tensy=\font@sel sy10 % already defined in PLAIN
-\font\ninesy=\font@sel sy9    \skewchar\ninesy='60
-\font\eightsy=\font@sel sy8   \skewchar\eightsy='60
-%\font\sevensy=\font@sel sy7 % already defined in PLAIN
-\font\sixsy=\font@sel sy6   \skewchar\sixsy='60
-%\font\fivesy=\font@sel sy5 % already defined in PLAIN
-
-%\font\tenex=\font@sel ex10 % math extension already defined in PLAIN
-
-%\font\preloaded=\font@sel ss10 % sans serif
-%\font\preloaded=\font@sel ssq8
-
-%\font\preloaded=\font@sel ssi10 % sans serif italic
-%\font\preloaded=\font@sel ssqi8
-
-\font\twelvebf=\font@sel bx10 scaled \magstep1 % boldface extended
-%\font\tenbf=\font@sel bx10 % already defined in PLAIN
-\font\ninebf=\font@sel bx9
-\font\eightbf=\font@sel bx8
-%\font\sevenbf=\font@sel bx7 % already defined in PLAIN
-\font\sixbf=\font@sel bx6
-%\font\fivebf=\font@sel bx5 % already defined in PLAIN
-
-\font\twelvett=\font@sel tt10 scaled \magstep1 % typewriter
-%\font\tentt=\font@sel tt10 % typewriter already defined in PLAIN
-%\font\preloaded=\font@sel tt9
-\font\eighttt=\font@sel tt8
-
-%\font\preloaded=\font@sel sltt10 % slanted typewriter
-
-\font\twelvesl=\font@sel sl10 scaled \magstep1 % slanted roman
-%\font\tensl=\font@sel sl10 % already defined in PLAIN
-\font\ninesl=\font@sel sl9
-\font\eightsl=\font@sel sl8
-\let\sixsl=\eightsl % there is no sl6 font
-\let\fivesl=\sixsl % there is no sl5 font
-
-\font\twelveit=\font@sel ti10 scaled \magstep1 % text italic
-%\font\tenit=\font@sel ti10 % already defined in PLAIN
-\font\nineit=\font@sel ti9
-\font\eightit=\font@sel ti8
-\font\sevenit=\font@sel ti7
-\let\sixit=\sevenit % there is no ti6 font
-\let\fiveit=\sixit % there is no ti5 font
-
-%\font\preloaded=\font@sel u10 % unslanted text italic
-
-%\font\preloaded=\font@sel bi10 % bold math italic
-%\font\preloaded=\font@sel bsy10 % bold math symbols
-
-\font\twelvecsc=\font@sel csc10 scaled \magstep1 % caps and small caps
-\font\tencsc=\font@sel csc10
-\let\eightcsc=\tencsc % there is no csc8 font
-
-%\font\preloaded=\font@sel ssbx10 % sans serif bold extended
-
-%\font\preloaded=\font@sel dunh10 % Dunhill style
-
-%\font\preloaded=\font@sel r7 scaled \magstep4 % for titles
-%\font\preloaded=\font@sel tt10 scaled \magstep2
-%\font\preloaded=\font@sel ssbx10 scaled \magstep2
-
-%\font\preloaded=manfnt % METAFONT logo and dragon curve
-                        % and special symbols
-
-%***  sizes  ***
-
-\def\twelvepoint{\twelve@point
-  \let\normal@spacing\twelve@spacing \set@spacing}
-\def\tenpoint{\ten@point
-  \let\normal@spacing\ten@spacing \set@spacing}
-\def\eightpoint{\eight@point
-  \let\normal@spacing\eight@spacing \set@spacing}
-
-\def\rm{\fam\z@ \@fam}
-\def\mit{\fam\@ne}
-\def\oldstyle{\mit \@fam}
-\def\cal{\fam\tw@}
-\def\it{\fam\itfam \@fam}
-\def\sl{\fam\slfam \@fam}
-\def\bf{\fam\bffam \@fam}
-\def\tt{\fam\ttfam \@fam}
-\def\caps{\@caps}
-\def\@fam{\the\textfont\fam}
-
-%***  fonts for sizes  ***
-
-\def\twelve@point{\set@fonts twelve ten eight }
-\def\ten@point{\set@fonts ten eight six }
-\def\eight@point{\set@fonts eight six five }
-
-\def\set@fonts#1 #2 #3 {\textfont\ttfam\csname#1tt\endcsname
-  \edef\n@xt{\csname#1csc\endcsname}%
-    \expandafter\let\expandafter\@caps\n@xt
-  \def\n@xt##1##2{\textfont##1\csname#1##2\endcsname
-    \scriptfont##1\csname#2##2\endcsname
-    \scriptscriptfont##1\csname#3##2\endcsname}%
-  \set@@fonts}
-\def\set@@fonts{\n@xt0{rm}\n@xt1i\n@xt2{sy}%
-  \textfont3\tenex \scriptfont3\tenex \scriptscriptfont3\tenex
-  \n@xt\itfam{it}\n@xt\slfam{sl}\n@xt\bffam{bf}\rm}
-
-%***  spacing for sizes  ***
-
-\def\singlespace{\chardef\@spacing\z@ \set@spacing}
-\def\doublespace{\chardef\@spacing\@ne \set@spacing}
-\def\triplespace{\chardef\@spacing\tw@ \set@spacing}
-\chardef\@spacing=1   %  \doublespace
-
-\def\set@spacing{\toks@\expandafter{\spacing@names @}%
-  \expandafter\set@@spacing\normal@spacing \normalbaselines}
-\def\set@@spacing{\expandafter\set@@@spacing\the\toks@\@@}
-\def\set@@@spacing#1#2\@@{\ifx #1@\else\toks@{#2}%
-  \expandafter\set@@@@spacing\expandafter#1\fi}
-\def\set@@@@spacing#1#2+#3*{#1#3\multiply#1\@spacing
-  \advance#1#2\set@@spacing}
-
-\def\normalbaselines{\lineskip\normallineskip
-  \setbaselineskip\normalbaselineskip
-  \lineskiplimit\normallineskiplimit}
-
-\def\setbaselineskip{\afterassignment\set@strut \baselineskip}
-\def\set@strut{\setbox\strutbox\spacer\z@\baselineskip}
-
-\def\spacer{\hbox\bgroup \afterassignment\x@spacer \dimen@}
-\def\x@spacer{\ifdim\dimen@=\z@\else \hskip\dimen@ \fi
-  \afterassignment\y@spacer \dimen@}
-\def\y@spacer{\setbox\z@\hbox{$\vcenter{\vskip\dimen@}$}%
-  \vrule \@height\ht\z@ \@depth\dp\z@ \@width\z@ \egroup}
-
-\def\spacing@names{%  list of all variable spacing parameters
-  \normalbaselineskip
-  \normallineskip
-  \normallineskiplimit
-  \footnotebaselineskip
-  \interfootnoteskip
-  \parskip
-  \refbetweenskip
-  \abovedisplayskip
-  \belowdisplayskip
-  \abovedisplayshortskip
-  \belowdisplayshortskip
-  \chskiptamount
-  \chskiplamount
-  \secskipamount
-  }
-
-\def\twelve@spacing{%  parameters and increments for twelvepoint
-  14\p@              +5\p@        *%\normalbaselineskip
-  \p@                +\z@         *%\normallineskip
-  \z@                +\z@         *%\normallineskiplimit
-  14\p@              +\p@         *%\footnotebaselineskip
-  20\p@              +\z@         *%\interfootnoteskip
-  5\p@\@plus\p@      +-2\p@       *%\parskip
-  \z@                +6\p@        *%\refbetweenskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    4\p@\@plus3\p@\@minus5\p@     *%\abovedisplayskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    4\p@\@plus3\p@\@minus5\p@     *%\belowdisplayskip
-  \p@\@plus2\p@\@minus\p@    +%
-    4\p@\@plus3\p@\@minus2\p@     *%\abovedisplayshortskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    \p@\@plus2\p@\@minus2\p@      *%\belowdisplayshortskip
-  20\p@\@plus5\p@    +\z@         *%\chskiptamount
-  5.5\p@             +\z@         *%\chskiplamount
-  6\p@\@plus2\p@     +\z@         *%\secskipamount
-  }
-
-\def\ten@spacing{%  parameters and increments for tenpoint
-  11\p@              +4.5\p@      *%\normalbaselineskip
-  \p@                +\z@         *%\normallineskip
-  \z@                +\z@         *%\normallineskiplimit
-  12\p@              +\p@         *%\footnotebaselineskip
-  16\p@              +\z@         *%\interfootnoteskip
-  5\p@\@plus\p@      +-2\p@       *%\parskip
-  \z@                +5\p@        *%\refbetweenskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    4\p@\@plus3\p@\@minus5\p@     *%\abovedisplayskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    4\p@\@plus3\p@\@minus5\p@     *%\belowdisplayskip
-  \p@\@plus2\p@\@minus\p@    +%
-    4\p@\@plus3\p@\@minus2\p@     *%\abovedisplayshortskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    \p@\@plus2\p@\@minus2\p@      *%\belowdisplayshortskip
-  20\p@\@plus5\p@    +\z@         *%\chskiptamount
-  5.5\p@             +\z@         *%\chskiplamount
-  6\p@\@plus2\p@     +\z@         *%\secskipamount
-  }
-
-\def\eight@spacing{%  parameters and increments for eightpoint
-  9\p@               +3.5\p@      *%\normalbaselineskip
-  \p@                +\z@         *%\normallineskip
-  \z@                +\z@         *%\normallineskiplimit
-  10\p@              +\p@         *%\footnotebaselineskip
-  14\p@              +\z@         *%\interfootnoteskip
-  5\p@\@plus\p@      +-2\p@       *%\parskip
-  \z@                +5\p@        *%\refbetweenskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    4\p@\@plus3\p@\@minus5\p@     *%\abovedisplayskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    4\p@\@plus3\p@\@minus5\p@     *%\belowdisplayskip
-  \p@\@plus2\p@\@minus\p@    +%
-    4\p@\@plus3\p@\@minus2\p@     *%\abovedisplayshortskip
-  8\p@\@plus2\p@\@minus3\p@  +%
-    \p@\@plus2\p@\@minus2\p@      *%\belowdisplayshortskip
-  20\p@\@plus5\p@    +\z@         *%\chskiptamount
-  5.5\p@             +\z@         *%\chskiplamount
-  6\p@\@plus2\p@     +\z@         *%\secskipamount
-  }
-
-\twelvepoint
-
-%***  macros for sizes  ***
-
-\def\large{\par \bgroup \twelvepoint \after@arg\@size}
-\def\medium{\par \bgroup \tenpoint \after@arg\@size}
-\def\small{\par \bgroup \eightpoint \after@arg\@size}
-\def\@size{\par \egroup}
-
-\def\LARGE#1{{\twelve@point #1}}
-\def\MEDIUM#1{{\ten@point #1}}
-\def\SMALL#1{{\eight@point #1}}
-%***  end of file PHYSFONT  ***
-
-\message{texts, headings and styles,}
-
-% \input phystext
-%***  this is file PHYSTEXT as of 06.03.86  ***
-%***  texts and headings  ***
-
-\def\submittextone{Zur Ver\"offentlichung in\else Submitted to}
-\def\submittexttwo{ eingereicht\else}
-\def\abstracthead{Zusammenfassung\else Abstract}
-\def\ackhead{Danksagung\else Acknowledgements}
-\def\appendixhead{Anhang\else Appendix}
-\def\eqabbr{Gl\else eq}
-\def\eqsabbr{Gln\else eqs}
-\def\figpref{Abb\else Fig}
-\def\fighead{Abbildungen\else Figure captions}
-\def\figabbr{Bild\nodot\else Fig}
-\def\tabpref{Tab\else Tab}
-\def\tabhead{Tabellen\else Table captions}
-\let\tababbr=\tabpref
-\def\refpref{Lit\else Ref}
-\def\refhead{Literaturverzeichnis\else References}
-\def\refabbr{???\else Ref}
-\def\refsabbr{????\else Refs}
-\def\tocpref{Inh\else Toc}
-\def\tochead{Inhaltsverzeichnis\else Table of contents}
-\def\footpref{Anm\else Foot}
-\def\foothead{Anmerkungen\else Footnotes}
-\def\prfhead{Beweis\else Proof}
-
-%***  styles  ***
-
-\def\UPPERCASE#1{\edef\n@xt{#1}\uppercase\expandafter{\n@xt}}
-
-\let\headlinestyle=\twelverm
-\let\footlinestyle=\twelverm
-\let\pagestyle=\twelverm       % page numbers
-\let\titlestyle=\bf            % title of paper, chapters, appendices
-\let\authorstyle=\caps
-\let\addressstyle=\sl
-\let\sectstyle=\caps           % section titles
-\def\secsstyle{\sectstyle}
-\def\secssstyle{\secsstyle}
-\def\secsssstyle{\secssstyle}
-\def\subsecstyle#1{\hbox{$\underline{\hbox{#1}}$\enskip}\ignorespaces}
-\let\headstyle=\UPPERCASE      % headlines for list of figure capts. etc
-\let\captionstyle=\it          % figure and table captions
-\let\journalstyle=\sl
-\let\volumestyle=\bf
-\let\figstyle=\empty           % list of figure captions
-\def\figindent{to4em}
-\def\figbreak{\goodbreak \vskip\refbetweenskip}
-\let\tabstyle=\empty           % list of table captions
-\let\tabindent=\figindent
-\let\tabbreak=\figbreak
-\let\refstyle=\empty           % list of references
-\let\refindent=\figindent
-\def\namrefindent{2em}
-\def\refbreak{\filbreak \vskip\refbetweenskip}
-\let\tocstyle=\empty           % table of contents
-\let\tocindent=\empty
-\let\tocbreak=\refbreak
-\let\footstyle=\empty          % (list of) footnotes
-\let\footindent=\figindent
-\let\footbreak=\figbreak
-\let\stmttitlestyle=\bf        % mathematical statements
-\let\stmtstyle=\sl
-\let\prftitlestyle=\caps
-\let\prfstyle=\sl
-
-%***  user exits  ***                    % called before
-
-\def\skipuserexit{\setbox\z@\box\@cclv}  % page is not printed
-\def\shipuserexit{\unvbox\@cclv}         % page is printed
-
-\def\chapuserexit{\sectuserexit}         % chapter title
-\def\appuserexit{\chapuserexit}          % appendix title
-\def\sectuserexit{\secsuserexit}         % section title
-\def\secsuserexit{\secssuserexit}        % subsection title
-\def\secssuserexit{\secsssuserexit}      % subsubsection title
-\let\secsssuserexit=\relax               % subsubsubsection title
-%***  end of file PHYSTEXT  ***
-
-\message{page numbers and output,}
-
-% \input physpage
-%***  this is file PHYSPAGE as of 13.03.86  ***
-%***  page numbers and pagesel  ***
-
-\newcount\firstp@ge   \firstp@ge=-10000
-\newcount\lastp@ge   \lastp@ge=10000
-\outer\def\pagesel#1#2{\global\firstp@ge#1 \global\lastp@ge#2
-  \wlog{(* pages #1-#2 selected for printing,
-  others will be skipped *)}}
-
-\newbox\pageb@x
-
-\outer\def\toppagenum{\glet\page@tbn T%
-  \glet\headb@x\pageb@x \glet\footb@x\voidb@x}
-\outer\def\botpagenum{\glet\page@tbn B%
-  \glet\headb@x\voidb@x \glet\footb@x\pageb@x}
-\outer\def\nopagenum{\glet\page@tbn N%
-  \glet\headb@x\voidb@x \glet\footb@x\voidb@x}
-
-\outer\def\lefthead{\glet\head@lrac L}
-\outer\def\righthead{\glet\head@lrac R}
-\outer\def\althead{\glet\head@lrac A}
-\outer\def\centhead{\glet\head@lrac C}
-\outer\def\leftfoot{\glet\foot@lrac L}
-\outer\def\rightfoot{\glet\foot@lrac R}
-\outer\def\altfoot{\glet\foot@lrac A}
-\outer\def\centfoot{\glet\foot@lrac C}
-
-\newtoks\lheadtext   \newtoks\cheadtext   \newtoks\rheadtext
-\newtoks\lfoottext   \newtoks\cfoottext   \newtoks\rfoottext
-
-\headline={\headlinestyle \head@foot\skip@head\head@lrac
-  \lheadtext\cheadtext\rheadtext\headb@x}
-\footline={\footlinestyle \head@foot\skip@foot\foot@lrac
-  \lfoottext\cfoottext\rfoottext\footb@x}
-\lheadtext={}   \cheadtext={}   \rheadtext={}
-\lfoottext={}   \cfoottext={}   \rfoottext={}
-
-\newbox\page@strut
-\setbox\page@strut\hbox{\vrule \@height 15mm\@depth 10mm\@width \z@}
-
-\def\head@foot#1#2#3#4#5#6{\unhcopy\page@strut
-  \if#1T\hfil \else
-    \if#2C\head@@foot{\the#3}{\copy#6}{\the#5}\else
-      \if#2A\ifodd\pageno \let#2R\else \let#2L\fi \fi
-      \if#2R\head@@foot{\the#4}{\the#5}{\copy#6}\else
-        \head@@foot{\copy#6}{\the#3}{\the#4}\fi \fi \fi}
-\def\head@@foot#1#2#3{\plainrlap{#1}\hfil#2\hfil\plainllap{#3}}
-
-\let\startpage=\relax  % allow input to be read twice
-
-\outer\def\pageall{\glet\page@ac A%
-  \global\countdef\pageno\z@ \global\pageno\@ne
-  \global\countdef\pageno@pref\@ne \gz@\pageno@pref
-  \glet\page@pref\empty \glet\page@reset\count@
-  \glet\chap@break\chskipt \outer\gdef\startpage{\global\pageno}}
-\outer\def\pagechap{\glet\page@ac C%
-  \global\countdef\pageno\@ne \gz@\pageno
-  \global\countdef\pageno@pref\z@ \gz@\pageno@pref
-  \gdef\page@pref{\dash@pref}%
-  \gdef\page@reset{\global\pageno\@ne \global\pageno@pref}%
-  \glet\chap@break\superendpage
-  \outer\gdef\startpage##1.{\global\pageno@pref##1\global\pageno}}
-
-%***  output  ***
-
-\hsize=15 cm   \hoffset=0 mm
-\vsize=22 cm   \voffset=0 mm
-
-\newdimen\hoffset@corr@p   \newdimen\voffset@corr@p
-\newdimen\hoffset@corrm@p   \newdimen\voffset@corrm@p
-\newdimen\hoffset@corr@l   \newdimen\voffset@corr@l
-\newdimen\hoffset@corrm@l   \newdimen\voffset@corrm@l
-
-\outer\def\portrait{\switch@pl P%
-  \glet\hoffset@corr\hoffset@corr@p
-  \glet\voffset@corr\voffset@corr@p
-  \glet\hoffset@corrm\hoffset@corrm@p
-  \glet\voffset@corrm\voffset@corrm@p}
-\outer\def\landscape{\switch@pl L%
-  \glet\hoffset@corr\hoffset@corr@l
-  \glet\voffset@corr\voffset@corr@l
-  \glet\hoffset@corrm\hoffset@corrm@l
-  \glet\voffset@corrm\voffset@corrm@l}
-\def\switch@pl#1{\if #1\ori@pl \else \superendpage \glet\ori@pl#1%
-  \dimen@\ht\page@strut \advance\dimen@\dp\page@strut
-  \advance\vsize\dimen@ \dimen@ii\hsize \global\hsize\vsize
-  \advance\dimen@ii-\dimen@ \global\vsize\dimen@ii \fi}
-\let\ori@pl=P
-
-\def\m@g{\dimen@\ht\page@strut \advance\dimen@\dp\page@strut
-  \advance\vsize\dimen@ \divide\vsize\count@
-  \multiply\vsize\mag \advance\vsize-\dimen@
-  \divide\hsize\count@ \multiply\hsize\mag
-  \divide\dimen\footins\count@ \multiply\dimen\footins\mag
-  \mag\count@}
-
-\output={\physoutput}
-
-\def\physoutput{\ifvbox\toc@ins \make@toc \fi
-  \ifnum \pageno<\firstp@ge \skipp@ge \else
-  \ifnum \pageno>\lastp@ge \skipp@ge \else \shipp@ge \fi \fi
-  \advancepageno \skippagenum F\skipheadline F\skipfootline F%
-  \ifnum\outputpenalty>-\@MM \else \dosupereject \fi}
-
-\def\skippagenum{\glet\skip@page}
-\def\skipheadline{\glet\skip@head}
-\def\skipfootline{\glet\skip@foot}
-
-\def\skipp@ge{{\skipuserexit \setbox\z@\box\topins
-  \setbox\z@\box\footins}\deadcycles\z@}
-\def\shipp@ge{\setbox\pageb@x\hbox{%
-    \if F\skip@page \pagestyle{\page@pref \folio}\fi}%
-  \dimen@-.5\hsize \advance\dimen@\hoffset@corrm
-  \divide\dimen@\@m \multiply\dimen@\mag
-  \advance\hoffset\dimen@ \advance\hoffset\hoffset@corr
-  \dimen@\ht\page@strut \advance\dimen@\dp\page@strut
-  \advance\dimen@\vsize \dimen@-.5\dimen@
-  \advance\dimen@\voffset@corrm
-  \divide\dimen@\@m \multiply\dimen@\mag
-  \advance\voffset\dimen@ \advance\voffset\voffset@corr
-  \shipout\vbox{\makeheadline \vbadness\@M \setbox\z@\pagebody
-    \dimen@\dp\z@ \box\z@ \kern-\dimen@ \makefootline}}
-
-\def\pagecontents{\ifvbox\topins\unvbox\topins\fi
-  \dimen@=\dp\@cclv \shipuserexit % open up \box255
-  \ifvbox\footins % footnote info is present
-    \vskip\skip\footins \footnoterule \unvbox\footins\fi
-  \ifr@ggedbottom \kern-\dimen@ \vfil \fi}
-
-\def\folio{\ifnum\pageno<\z@ \ifcase\langu@ge \MEDIUM{\uppercase
-  \expandafter{\romannumeral-\pageno}}\else \romannumeral-\pageno \fi
-  \else \number\pageno \fi}
-
-\def\makeheadline{\line{\the\headline}\nointerlineskip}
-\def\makefootline{\nointerlineskip \line{\the\footline}}
-
-\skippagenum=F   \skipheadline=F   \skipfootline=F
-%***  end of file PHYSPAGE  ***
-
-\message{title page macros,}
-
-% \input physchap
-%***  this is file PHYSCHAP as of 07.03.86  ***
-%***  title page macros  ***
-
-\outer\def\titlepage{\glet\titl@fill\vfil}
-\outer\def\notitlepage{\gdef\titl@fill{\vskip20\p@}}
-
-\newbox\t@pleft   \newbox\t@pright
-\def\t@pinit{%
-  \global\setbox\t@pleft\vbox{\hrule \@height\z@ \@width.26\hsize}%
-  \global\setbox\t@pright\copy\t@pleft}
-\t@pinit
-
-\def\topleft{\t@p\t@pleft}
-\def\topright{\t@p\t@pright}
-\def\t@p#1#2{\global\setbox#1\vtop{\unvbox#1\hbox{\strut #2}}}
-
-\outer\def\submit#1{\topleft{\case@language\submittextone}%
-  \topleft{{#1}\case@language\submittexttwo}}
-
-\let\pubdate=\topright
-
-\outer\def\title{\vbox{\line{\box\t@pleft \hss \box\t@pright}}%
-  \skippagenum T\skipheadline T\skipfootline T%
-  \t@pinit \titl@fill \vskip\chskiptamount \titl@}
-\outer\def\titcon{\unchskip \titl@}
-\def\titl@#1{\ctrline{\titlestyle{#1}}\chskipl}
-
-\def\author#1{\titl@fill{\let\\\cr \tabskip\centering
-  \halign to\hsize{&\hfil\authorstyle{##}\hfil\crcr#1\crcr}}}
-\def\autcon{\and@con \author}
-
-\def\address#1{\titl@fill{\let\\\cr \tabskip\centering
-  \halign to\hsize{&\hfil\addressstyle{##}\hfil\crcr#1\crcr}}}
-\def\addcon{\and@con \address}
-
-\def\and@con{\titl@fill \ctrline{\case@language{und\else and}}}
-
-\def\abstract{\titl@fill \he@d{\case@language\abstracthead}%
-  \after@arg\titl@fill}
-
-\def\ack{\chskipt \he@d{\case@language\ackhead}}
-
-\def\he@d#1{\ctrline{\headstyle{#1}}\chskipl}
-
-\message{chapters, sections and appendices,}
-
-%***  label  ***
-
-\newtoks\l@names   \l@names={\\\the@label}
-\let\the@label=\empty
-
-\def\label{\num@lett\@label}
-\def\@label#1{\def@name\l@names#1{\the@label}}
-\def\pagelabel{\num@lett\@pagelabel}
-\def\@pagelabel#1{\def@name\l@names#1{??}\wlog{* \noexpand\pagelabel
-    is not yet implemented, \noexpand#1will be defined as #1 *}}
-\def\quote{\num@lett\empty}
-
-\outer\def\lblrestore{\all@restore\l@names}
-
-%***  initialization  ***
-
-\let\sect=\relax  \let\s@ct=\relax  % allow input to be read twice
-
-\def\chapinit{\chap@init{\chap@pref}\glet\sect@@eq\@chap@sect@eq
-  \sectinit}
-\def\appinit{\chap@init{\char\the\appn@m}\glet\sect@@eq\@chap@eq
-  \glet\sect@dot@pref\empty \glet\ddot@pref\dot@pref
-  \glet\sect\undefined}
-\def\sectinit{\xdef\sect@dot@pref{\the\sectn@m.}%
-  \xdef\ddot@pref{\dot@pref\sect@dot@pref}\glet\sect\s@ct}
-\def\chap@init#1{\xdef\the@label{#1}\xdef\dot@pref{\the@label.}%
-  \xdef\dash@pref{\the@label--}\glet\chap@@eq\@chap@eq}
-
-%***  chap  ***
-
-\newcount\chapn@m   \chapn@m=0
-
-\outer\def\chappage{\glet\chap@page T}
-\outer\def\nochappage{\glet\chap@page F}
-
-\outer\def\arabicchapnum{\glet\chap@ar A\gdef\chap@pref{\the\chapn@m}}
-\outer\def\romanchapnum{\glet\chap@ar R%
-  \gdef\chap@pref{\uppercase{\romannumeral\chapn@m}}}
-
-\let\chap=\relax  \let\ch@p=\relax  % allow input to be read twice
-
-\outer\def\chapters{\glet\chap@yn Y\glet\chap\ch@p
-  \chap@init{0}\glet\sect@@eq\@chap@sect@eq \sectinit}
-\outer\def\nochapters{\glet\chap@yn N\glet\chap\undefined
-  \glet\dot@pref\empty \glet\dash@pref\empty
-  \glet\chap@@eq\@eq \glet\sect@@eq\@sect@eq \sectinit}
-
-\outer\def\ch@p#1{\if T\chap@page \superendpage \else \chap@break \fi
-  \g@ne\chapn@m \sect@reset \chapinit \page@reset\chapn@m
-  \eq@reset \fig@reset \tab@reset
-  \toks@{\dot@pref}\toks@ii{#1}\chapuserexit
-  \titl@{\the\toks@\ \the\toks@ii}%
-  \ifnum\auto@toc>\m@ne \toks@store{#1}\@toc\dot@pref \fi}
-
-%***  sect  ***
-
-%  use \read@store to read (sub-)section titles in case they are used
-%  in table of contents
-
-\def\sec@title#1#2#3#4#5#6#7#{\ifx @#7@\g@ne#1\else\global#1#7\fi
-  #2\secskipt \xdef\the@label{#4\the#1}\xdef#5{\the@label.}%
-  \bpargroup #3\read@store{\sec@@title#5#6}}
-\def\sec@@title#1#2#3{\toks@{\the@label.}\toks@ii\toks@store
-  #3\varitem{\the\toks@}\the\toks@store
-  \ifnum\auto@toc>#2\@toc{#1}\fi \par \nobreak}
-
-\newcount\sectn@m   \sectn@m=0
-\def\sect@reset{\gz@\sectn@m}
-\outer\def\s@ct{\sec@title\sectn@m
-  {\secs@reset \sectinit \eq@@reset \fig@@reset \tab@@reset}%
-  \sectstyle\dot@pref\ddot@pref{\z@\sectuserexit}}
-
-\newcount\secsn@m   \secsn@m=0
-\def\secs@reset{\gz@\secsn@m}
-\outer\def\secs{\sec@title\secsn@m\secss@reset
-  \secsstyle\ddot@pref\secs@pref{\@ne\secsuserexit}}
-
-\newcount\secssn@m   \secssn@m=0
-\def\secss@reset{\gz@\secssn@m}
-\outer\def\secss{\sec@title\secssn@m\secsss@reset
-  \secssstyle\secs@pref\secss@pref{\tw@\secssuserexit}}
-
-\newcount\secsssn@m   \secsssn@m=0
-\def\secsss@reset{\gz@\secsssn@m}
-\outer\def\secsss{\sec@title\secsssn@m\secssss@reset
-  \secsssstyle\secss@pref\secsss@pref{\thr@@\secsssuserexit}}
-
-\let\secssss@reset=\empty
-
-\outer\def\subsec#1{\par \noindent \subsecstyle{#1}}
-
-%***  appendix  ***
-
-\newcount\appn@m   \appn@m=64
-
-\outer\def\appendix{\if T\chap@page \superendpage \else\chap@break \fi
-  \g@ne\appn@m \secs@reset \appinit \page@reset\appn@m
-  \eq@reset \fig@reset \tab@reset \futurelet\n@xt \app@ndix}
-
-\def\app@ndix{\ifcat\bgroup\noexpand\n@xt \expandafter\@ppendix \else
-  \expandafter\@ppendix\expandafter\unskip \fi}
-
-\def\@ppendix#1{\toks@{\case@language\appendixhead~\dot@pref}
-  \toks@ii{#1}\appuserexit
-  \titl@{\the\toks@\ \the\toks@ii}%
-  \ifnum\auto@toc>\m@ne \toks@store{#1}%
-  \@toc{\case@language\appendixhead\ \dot@pref}\fi}
-
-\def\app#1{\chskipt \he@d{\case@language\appendixhead\ #1}}
-%***  end of file PHYSCHAP  ***
-
-\message{equations,}
-
-% \input physequ
-%***  this is file PHYSEQU as of 20.02.86  ***
-%***  quotation of equations, figures, tables and references ***
-
-\def\num@lett{\cat@lett \num@@lett}
-\def\num@@lett#1#2{\egroup #1{#2}}
-
-\def\num@l@tt{\cat@lett \num@@l@tt}
-\def\num@@l@tt#1#{\egroup #1}
-
-\def\cat@lett{\bgroup
-  \catcode`\0\l@tter \catcode`\1\l@tter \catcode`\2\l@tter
-  \catcode`\3\l@tter \catcode`\4\l@tter \catcode`\5\l@tter
-  \catcode`\6\l@tter \catcode`\7\l@tter \catcode`\8\l@tter
-  \catcode`\9\l@tter \catcode`\'\l@tter}
-
-\def\quote@all#1{\hbox{\mathcode`\-"707B$#1$}}
-\def\use{\num@lett\@use}
-\def\@use{\setbox\z@\hbox}
-
-%***  equations  ***
-
-\newtoks\e@names   \e@names={}
-\newcount\eqn@m   \eqn@m=0
-
-\outer\def\equall{\glet\eq@acs A\glet\eq@pref\empty
-  \glet\def@eq\@eq \glet\eq@reset\relax \glet\eq@@reset\relax}
-\outer\def\equchap{\glet\eq@acs C\gdef\eq@pref{\dot@pref}%
-  \gdef\def@eq{\chap@@eq}\glet\eq@reset\eqz@ \glet\eq@@reset\relax}
-\outer\def\equsect{\glet\eq@acs S\gdef\eq@pref{\ddot@pref}%
-  \gdef\def@eq{\sect@@eq}\glet\eq@reset\eqz@ \glet\eq@@reset\eqz@}
-\def\eqz@{\gz@\eqn@m}
-
-\outer\def\equfull{\glet\eq@fs F\gdef\eq@@fs{\let\test@eq\full@eq}}
-\outer\def\equshort{\glet\eq@fs S\glet\eq@@fs\relax}
-
-\def\@eq(#1){#1}
-\def\@chap@eq{\noexpand\chap@eq\@eq}
-\def\@sect@eq{\noexpand\sect@eq\@eq}
-\def\@chap@sect@eq{\noexpand\chap@sect@eq\@eq}
-
-\def\chap@eq{\test@eq\empty\dot@pref}
-\def\sect@eq{\test@eq\empty\sect@dot@pref}
-\def\chap@sect@eq{\test@eq\sect@eq\dot@pref}
-\def\test@eq#1#2#3.{\def\n@xt{#3.}\ifx#2\n@xt \let\n@xt#1\fi \n@xt}
-\def\full@eq#1#2{}
-\def\short@eq#1#2#3.{#1}
-
-\outer\def\equleft{\glet\eq@lrn L\glet\eqtag\leqno
-  \glet\eq@tag\leq@no}
-\outer\def\equright{\glet\eq@lrn R\glet\eqtag\eqno
-  \glet\eq@tag\eq@no}
-\outer\def\equnone{\glet\eq@lrn N\glet\eqtag\n@eqno
-  \glet\eq@tag\neq@no}
-
-\begingroup
-  \catcode`\$=\active \catcode`\*=3 \lccode`\*=`\$
-  \lowercase{\gdef\n@eqno{\catcode`\$\active
-                \def$${\egroup **}\setbox\z@\hbox\bgroup}}
-\endgroup
-\def\eq@no{\llap{$##$}\tabskip\z@skip}
-\def\leq@no{\kern-\displaywidth \rlap{$##$}\tabskip\displaywidth}
-\def\neq@no{\@use{$##$}\tabskip\z@skip}
-
-\def\eqalignno{\let\eq@@tag\eq@no \eqalign@tag}
-\def\leqalignno{\let\eq@@tag\leq@no \eqalign@tag}
-\def\eqaligntag{\let\eq@@tag\eq@tag \eqalign@tag}
-\def\eqalign@tag{\afterassignment\eqalign@@tag \@eat}
-\def\eqalign@@tag{\displ@y
-  \tabskip\centering \halign to\displaywidth\n@xt
-    \hfil$\displaystyle{##}$\tabskip\z@skip
-    &$\displaystyle{{}##}$\hfil\tabskip\centering
-    &\span\eq@@tag\crcr}
-
-\def\fulltag#1{{\let\test@eq\full@eq#1}}
-\def\shorttag#1{{\let\test@eq\short@eq#1}}
-
-\def\eq{\g@ne\eqn@m \make@eq\empty}
-\def\make@eq#1{(\eq@pref\the\eqn@m #1)}
-\def\EQ{\eq \num@lett\eq@save}
-\def\eq@save#1{\def@name\e@names#1{\expandafter\def@eq\make@eq\empty}}
-
-\def\eqn{\eqtag\eq}
-\def\EQN{\eqtag\EQ}
-
-\def\eqadv{\g@ne\eqn@m}
-\def\EQADV{\eqadv \num@lett\eq@save}
-
-\newcount\seqn@m   \seqn@m=96
-
-\def\subeqbegin{\global\seqn@m96 \subeq}
-\def\SUBEQBEGIN{\global\seqn@m96 \SUBEQ}
-\def\subeq{\g@ne\seqn@m \make@eq{\char\seqn@m}}
-\def\SUBEQ{\num@lett\@SUBEQ}
-\def\@SUBEQ#1{\subeq \def@name\e@names#1{\char\the\seqn@m}}
-
-\def\subeqnbegin{\eqtag\subeqbegin}
-\def\SUBEQNBEGIN{\eqtag\SUBEQBEGIN}
-\def\subeqn{\eqtag\subeq}
-\def\SUBEQN{\eqtag\SUBEQ}
-
-\def\eqapp{\num@lett\@eqapp}
-\def\@eqapp#1#2{(\fulltag#1#2)}
-\def\eqnapp{\eqtag\eqapp}
-
-\def\queq{\num@lett\@queq}
-\def\@queq#1{\quote@all{\eq@@fs(#1)}}
-\def\qeq{\case@abbr\eqabbr\queq}
-\def\qeqs{\case@abbr\eqsabbr\queq}
-
-\outer\def\eqrestore{\all@restore\e@names}
-%***  end of file PHYSEQU  ***
-
-\message{storage management,}
-
-% \input physstor
-%***  this is file PHYSSTOR as of 28.02.86  ***
-%***  storage management for figures, tables, references,  ***
-%***  table of contents and (possibly) footnotes  ***
-
-% Note: The text for figure captions, table captions, references,
-%       table of contents and (if applicable) footnotes must be read
-%       from the input file, i.e. tokenized, via \read@store
-
-\newtoks\toks@store
-\newtoks\file@list \file@list={1234567}
-
-\begingroup
-  \let\storebox=\relax \let\refnam=\relax  % allow input to be
-  \let\RFfile=\relax \let\RFext=\relax     %   read twice
-  \newhelp\opt@help{The options \string\refnam, \string\RFfile\space
-    and \string\RFext\space are incompatible with \string\storebox.
-    Your request will be ignored.}
-  \global\opt@help=\opt@help % make this definition global
-  \gdef\opt@err{{\errhelp\opt@help \errmessage{Incompatible options}}}
-\endgroup
-
-% Freeze option \storebox, \storelist or \storefile and eliminate
-%   code not needed for that option
-\begingroup
-  \let\storebox=\relax \let\storelist=\relax  % allow input to be
-  \let\storefile=\relax \let\RFfile=\relax    %   read twice
-  \gdef\case@store{%
-    \glet\storebox\undefined
-    \if B\store@blf \glet\storebox\empty \glet\case@store\case@box
-      \else \glet\box@store\undefined
-      \glet\box@out\undefined \glet\box@print\undefined
-      \glet\box@save\undefined \glet\box@kill\undefined \fi
-    \glet\storelist\undefined
-    \if L\store@blf \glet\storelist\empty \glet\case@store\case@list
-      \else \glet\list@store\undefined
-      \glet\list@out\undefined \glet\list@print\undefined
-      \glet\list@save\undefined \glet\list@kill\undefined \fi
-    \glet\storefile\undefined
-    \if F\store@blf \glet\storefile\empty \glet\case@store\case@file
-      \else \store@setup
-      \glet\file@out\undefined \glet\file@print\undefined
-      \glet\file@save\undefined \glet\file@kill\undefined \fi
-    \glet\case@box\undefined \glet\case@list\undefined
-    \glet\case@file\undefined \glet\store@setup\undefined
-    \case@store}
-  \gdef\store@setup{\ifx \RFfile\undefined \glet\file@store\undefined
-    \glet\file@open\undefined \glet\file@close\undefined
-    \glet\file@wlog\undefined \glet\file@free\undefined
-    \glet\file@copy\undefined \glet\file@read\undefined \fi}
-\endgroup
-
-\outer\def\storebox{\if L\RF@lfe \if N\ref@sbn \opt@err
-    \else \glet\store@blf B\fi \else \opt@err \fi}
-\outer\def\storelist{\glet\store@blf L}
-\outer\def\storefile{\glet\store@blf F}
-
-\def\read@store{\bgroup \@read@store}
-\def\read@@store{\bgroup \catcode`\@\l@tter \@read@store}
-\def\@read@store#1{\def\n@xt{\egroup \toks@store\toks@i
-    #1\ignorespaces}%
-  \catcode`\^^M\active \afterassignment\n@xt \global\toks@i}
-\begingroup
-  \catcode`\:=\active
-  \gdef\write@save#1{\s@ve{:restore\@type{#1}{\the\toks@store}}}
-\endgroup
-\def\f@rm@t#1#2{\bgroup \leftskip\z@skip \rightskip\z@skip \f@rmat
-  \ifx @#1@\noindent \strut \indent
-  \else \varitem\@indent{#1}\strut \fi #2\form@t \egroup}
-\let\f@rmat=\nointerlineskip
-\def\form@t{\unskip \strut \par \@break}
-
-\def\@store{\case@store\box@store\list@store\file@store}
-\def\@sstore#1#2#3{\par \noindent \bgroup \captionstyle
-  \case@abbr#2#3:\enskip \the\toks@store \egroup \par \@store#1{#3.}}
-\def\@add#1{\read@store{\@store#1\empty}}
-\def\@out#1#2#3#4#5{\case@store\box@out\list@out\file@out#1\begingroup
-  \if T#2\let\chap@break\superendpage \fi \chap@break
-  \chap@init{\case@language#3}%
-  \if C\page@ac \skippagenum T\fi
-  \page@reset6#1%
-  \@style \he@d{\strut\case@language#4}\@break \@print#1%
-  \ifx\chap@break\superendpage \superendpage \fi
-  \def\\##1{\glet##1\undefined}\the#5\global#5\emptyt@ks
-  \endgroup \fi}
-\def\@print{\case@store\box@print\list@print\file@print}
-\def\@save{\case@store\box@save\list@save\file@save}
-\def\@kill{\case@store\box@kill\list@kill\file@kill}
-
-\def\case@box#1#2#3{\case@@store#1%
-  \fig@box\tab@box\ref@box\toc@box\foot@box}
-\def\case@list#1#2#3{\case@@store#2%
-  \fig@list\tab@list\ref@list\toc@list\foot@list}
-\def\case@file#1#2#3{\case@@store{\expandafter#3}%
-  \fig@file\tab@file\ref@file\toc@file\foot@file}
-
-\def\case@@store#1#2#3#4#5#6#7{\ifcase#7%
-  \toks@{\fig@type#1#2}\or
-  \toks@{\tab@type#1#3}\or
-  \toks@{\ref@type#1#4}\or
-  \toks@{\toc@type#1#5}\or
-  \toks@{\foot@type#1#6}\fi
-  \expandafter\let\expandafter\@type\the\toks@}
-\def\@style{\csname\@type style\endcsname}
-\def\@indent{\csname\@type indent\endcsname}
-\def\@break{\csname\@type break\endcsname}
-
-\def\box@store#1#2{\global\setbox#1\vbox
-  {\ifvbox#1\unvbox#1\fi \@style \f@rm@t{#2}{\the\toks@store}}}
-\def\box@out{\ifvbox}
-\def\box@print{\vskip\baselineskip \unvbox}
-\begingroup
-  \catcode`\:=\active \catcode`\;=\active
-  \gdef\box@save#1{\wlog{; Unable to save text for
-    \@type's with option :storebox}}
-\endgroup
-\def\box@kill#1{{\setbox\z@\box#1}}
-
-\def\list@store#1#2{\toks@\expandafter{#1\\}%
-  \xdef#1{\the\toks@ {#2}{\the\toks@store}}}
-\def\list@out#1{\ifx #1\empty \else}
-\def\list@print#1{\let \\\f@rm@t #1\glet#1\empty}
-\def\list@save{\def\\##1##2{\toks@store{##2}\write@save{##1}}%
-  \newlinechar`\^^M}
-\def\list@kill#1{\glet#1\empty}
-
-\begingroup
-  \catcode`\:=\active
-  \gdef\file@store#1#2#3#4{\if0#3\expandafter\file@open\the\file@list
-    \@@#1#2\fi
-    {\newlinechar`\^^M\immediate\write#2{::{#4}{\the\toks@store}}}}
-\endgroup
-\def\file@open#1#2\@@#3#4{\immediate\openout#4\jobname.sysut#1%
-  \gdef#3{#3#4#1}\global\file@list{#2}\file@wlog{open}#1}
-\def\file@wlog#1#2{\wlog{#1 \jobname.sysut#2 for \@type's}}
-\def\file@out#1#2#3{\if0#3\else}
-\def\file@print#1#2#3{\file@close#2#3\let\\\f@rm@t \file@copy#1#2#3}
-\def\file@save#1#2#3{\if0#3\else \file@close#2#3%
-  \def\\##1{\read@store{\expandafter\file@store#1{##1}%
-    \write@save{##1}}}%
-  \newlinechar`\^^M\file@copy#1#2#3\fi}
-\def\file@kill#1#2#3{\if0#3\else \file@close#2#3\file@free#1#2#3\fi}
-\def\file@close#1#2{\immediate\closeout#1\file@wlog{close}#2}
-\def\file@copy#1#2#3{\file@free#1#2#3\file@read#3}
-\def\file@read#1{\input \jobname.sysut#1 }
-\def\file@free#1#2#3{\gdef#1{#1#20}%
-  \global\file@list\expandafter{\the\file@list#3}}
-%***  end of file PHYSSTOR  ***
-
-\message{figures,}
-
-% \input physfig
-%***  this is file PHYSFIG as of 28.02.86  ***
-%***  figures and tables  ***
-
-\def\bf@t#1{\bgroup \let\f@t#1\num@l@tt}
-\def\ef@t#1#2#3#4#{\ifx @#4@\g@ne#1\xdef\thef@tn@m{#2\the#1}\else
-  \gdef\thef@tn@m{#4}\fi #3\read@store{\f@t\egroup}}
-
-%***  figures  ***
-
-\newtoks\f@names   \f@names={}
-\newcount\fign@m   \fign@m=0
-\def\fig@type{fig}
-\newbox\fig@box
-\let\fig@list=\empty
-\newwrite\fig@write  \def\fig@file{\fig@file\fig@write0}
-
-\outer\def\figall{\glet\fig@acs A\glet\fig@pref\empty
-  \glet\fig@reset\relax \glet\fig@@reset\relax}
-\outer\def\figchap{\glet\fig@acs C\gdef\fig@pref{\dot@pref}%
-  \glet\fig@reset\figz@ \glet\fig@@reset\relax}
-\outer\def\figsect{\glet\fig@acs S\gdef\fig@pref{\ddot@pref}%
-  \glet\fig@reset\figz@ \glet\fig@@reset\figz@}
-\def\figz@{\gz@\fign@m}
-
-\outer\def\figpage{\glet\fig@page T}
-\outer\def\nofigpage{\glet\fig@page F}
-
-\def\fig{\bf@t\fig@\@fig}
-\def\FIG{\bf@t\fig@\@FIG}
-\def\ffig{\bf@t\ffig@\@fig}
-\def\FFIG{\bf@t\ffig@\@FIG}
-
-\def\@fig{\ef@t\fign@m\fig@pref\relax}
-\def\@FIG#1{\ef@t\fign@m\fig@pref{\def@name\f@names#1{\thef@tn@m}}}
-
-\def\fig@{\@store0{\thef@tn@m .}}
-\def\ffig@{\@sstore0\figpref{\thef@tn@m}}
-\def\figadd{\@add0}
-
-\def\qufig{\case@abbr\figabbr\num@lett\quote@all}
-
-\outer\def\figout{\@out0\fig@page\figpref\fighead\f@names}
-\outer\def\figkill{\@kill0}
-\outer\def\restorefig#1{\read@store{\@store0{#1}}}
-\outer\def\figrestore{\all@restore\f@names}
-%***  end of file PHYSFIG  ***
-
-% \input physpict
-%***  this is file PHYSPICT as of 19.03.86  ***
-%***  picture macros  ***
-
-\newdimen\spictskip  \spictskip=2.5pt
-
-\def\pict{\bf@t\pict@\@fig}
-\def\PICT{\bf@t\pict@\@FIG}
-
-\def\pict@#1{\vskip\the\toks@store \egroup \bpargroup
-  \raggedright \captionstyle \varitem{\qufig{\thef@tn@m\,}:}%
-  \let\@spict\spict@ \spacefactor998\ignorespaces}
-
-\def\spict#1{\ifnum\spacefactor=998\else \parvskip\spictskip \fi
-  \@spict{#1\enskip}\ignorespaces}
-\def\spict@#1{\setbox\z@\hbox{#1}\advance\hangindent\wd\z@
-  \box\z@ \let\@spict\llap}
-
-%***  graphic macros  ***
-
-\outer\def\graphics{\glet\graphic\gr@phic}
-\outer\def\nographics{\glet\graphic\nogr@phic}
-
-\def\gr@phic#1#2#3#4{\hbox\bgroup \setbox\z@\hbox{\special{^X#1^A}}%
-  \lower#4\copy\z@ \hskip#2\raise#3\box\z@ \egroup}
-\def\nogr@phic#1#2#3#4{\hbox\bgroup \write\m@ne{Insert graphic #1}%
-  \frame{#2}{#3}{#4}\egroup}
-
-\def\frame#1#2#3{\hbox to#1\bgroup \dimen@#2\dimen@ii#3\vrule\fr@@me
-  \bgroup \dimen@ii-\dimen@ \fr@me\dimen@ii \hfilneg
-  \bgroup \dimen@-\dimen@ii \fr@me\dimen@ \vrule\fr@@me \egroup}
-\def\fr@me#1{\advance#1.4\p@ \leaders \hrule\fr@@me \hfil \egroup}
-\def\fr@@me{\@height\dimen@ \@depth\dimen@ii}
-%***  end of file PHYSPICT  ***
-
-\message{tables,}
-
-% \input phystab
-%***  this is file PHYSTAB as of 28.02.86  ***
-%***  tables  ***
-
-\newtoks\t@names   \t@names={}
-\newcount\tabn@m   \tabn@m=0
-\def\tab@type{tab}
-\newbox\tab@box
-\let\tab@list=\empty
-\newwrite\tab@write  \def\tab@file{\tab@file\tab@write0}
-
-
-\outer\def\taball{\glet\tab@acs A\glet\tab@pref\empty
-  \glet\tab@reset\relax \glet\tab@@reset\relax}
-\outer\def\tabchap{\glet\tab@acs C\gdef\tab@pref{\dot@pref}%
-  \glet\tab@reset\tabz@ \glet\tab@@reset\relax}
-\outer\def\tabsect{\glet\tab@acs S\gdef\tab@pref{\ddot@pref}%
-  \glet\tab@reset\tabz@ \glet\tab@@reset\tabz@}
-\def\tabz@{\gz@\tabn@m}
-
-\outer\def\tabpage{\glet\tab@page T}
-\outer\def\notabpage{\glet\tab@page F}
-
-\def\tab{\bf@t\tab@\@tab}
-\def\TAB{\bf@t\tab@\@TAB}
-\def\ttab{\bf@t\ttab@\@tab}
-\def\TTAB{\bf@t\ttab@\@TAB}
-
-\def\@tab{\ef@t\tabn@m\tab@pref\relax}
-\def\@TAB#1{\ef@t\tabn@m\tab@pref{\def@name\t@names#1{\thef@tn@m}}}
-
-\def\tab@{\@store1{\thef@tn@m .}}
-\def\ttab@{\@sstore1\tabpref{\thef@tn@m}}
-\def\tabadd{\@add1}
-
-\def\qutab{\case@abbr\tababbr\num@lett\quote@all}
-
-\outer\def\tabout{\@out1\tab@page\tabpref\tabhead\t@names}
-\outer\def\tabkill{\@kill1}
-\outer\def\restoretab#1{\read@store{\@store1{#1}}}
-\outer\def\tabrestore{\all@restore\t@names}
-%***  end of file PHYSTAB  ***
-
-% \input phystabl
-%***  this is file PHYSTABL as of 07.03.86  ***
-%***  table macro  ***
-
-\newskip\htabskip   \htabskip=1em plus 2em minus .5em
-\newdimen\vtabskip  \vtabskip=2.5pt
-\newbox\tab@top   \newbox\tab@bot
-
-\let\@hrule=\hrule
-\let\@halign=\halign
-\let\@valign=\valign
-\let\@span=\span
-\let\@omit=\omit
-
-\def\@@span{\@span\@omit\@span}
-\def\@@@span{\@span\@omit\@@span}
-
-\def\sp@n{\span\@omit\advance\mscount\m@ne} % for multispan
-
-\def\table#1#{\vbox\bgroup\offinterlineskip
-  \toks@ii{#1\bgroup \unhcopy\tab@top \unhcopy\tab@bot
-    ##}\afterassignment\tab@preamble \@eat}
-
-%***  scan preamble of table
-
-\def\tab@preamble#1\cr{\let\tab@@vrule\tab@repeat
-  \let\tab@amp@\empty \let\tab@amp\empty \let\span@\@@span
-  \toks@{\tab@space#1&\cr}\the\toks@}
-\def\tab@space{\tab@test{ }{}\tab@vrule}                 % blank
-\def\tab@vrule{\tab@test\vrule{\tab@add\vrule}%          % \vrule
-  \tab@@vrule}
-\def\tab@repeat{\tab@test&{\tab@add&%                    % & (repeat)
-    \let\tab@@vrule\tab@template \let\tab@amp@\tab@@amp
-    \let\tab@amp&\let\span@\@@@span}\tab@template}
-\def\tab@template#1&{\tab@add{\@span\tab@amp@
-    \tabskip\htabskip&\tab@setup#1&\tabskip\z@skip##}%   % <template>
-  \tab@test\cr{\let\tab@@vrule\tab@exec}\tab@space}      % \cr
-\def\tab@@amp{&##}
-
-\def\tab@test#1#2#3{\let\tab@comp= #1\toks@{#2}\let\tab@go#3%
-  \futurelet\n@xt \tab@@test}
-\def\tab@@test{\ifx \tab@comp\n@xt \the\toks@
-    \afterassignment\tab@go \expandafter\@eat \else
-  \expandafter\tab@go \fi}
-
-\def\tab@add#1{\toks@ii\expandafter{\the\toks@ii#1}}
-
-%*** execute preamble of table
-
-\def\tab@exec{\tab@reset\everycr{\tab@body}%
-  \def\halign{\tab@reset \halign}\def\valign{\tab@reset \valign}%
-  \def\omit{\@omit \tab@setup}%
-  \def\n@xt##1{\hbox{\dimen@\ht\strutbox\dimen@ii\dp\strutbox
-    \advance##1\vtabskip \vrule \@height\dimen@ \@depth\dimen@ii
-    \@width\z@}}%
-  \setbox\tab@top\n@xt\dimen@ \setbox\tab@bot\n@xt\dimen@ii
-  \def\ml##1{\relax                                      % multi
-    \ifmmode \let\@ml\empty \else \let\@ml$\fi           %   line
-    \@ml\vcenter{\hbox\bgroup\unhcopy\tab@top            %   mode
-    ##1\unhcopy\tab@bot\egroup}\@ml}%
-  \def\nl{\egroup\hbox\bgroup\strut}%                    % new line
-  \tabskip\z@skip\@halign\the\toks@ii\cr}
-
-\def\tab@reset{\let\cr\endline \everycr\emptyt@ks
-  \let\halign\@halign \let\valign\@valign
-  \let\span\@span \let\omit\@omit}
-\def\tab@setup{\relax \iffalse {\fi \let\span\span@ \iffalse }\fi}
-
-%***  scan and execute body of table
-
-\def\tab@body{\noalign\bgroup \tab@@body}           % scan inside
-\def\tab@@body{\futurelet\n@xt \tab@end}            %   noalign
-\def\tab@end{\ifcat\egroup\noexpand\n@xt
-    \expandafter\egroup \expandafter\egroup \else        % }
-  \expandafter\tab@blank \fi}
-\def\tab@blank{\ifcat\space\noexpand\n@xt
-    \afterassignment\tab@@body \expandafter\@eat \else   % blank
-  \expandafter\tab@hrule \fi}
-\def\tab@hrule{\ifx\hrule\n@xt
-    \def\hrule{\@hrule\egroup \tab@body}\else            % \hrule
-  \expandafter\tab@noalign \fi}
-\def\tab@noalign{\ifx\noalign\n@xt
-    \aftergroup\tab@body \expandafter\@eat@ \else        % \noalign
-  \expandafter\tab@row \fi}
-\def\tab@row#1\cr{\toks@ii{\toks@ii{\egroup}%            % one row
-    \tab@item#1&\cr}\the\toks@ii}
-\def\tab@item#1&{\tab@add{\tab@amp&#1&}%                 % one item
-  \futurelet\n@xt \tab@cr}
-\def\tab@cr{\ifx\cr\n@xt
-    \expandafter\the\expandafter\toks@ii \else           % cr
-  \expandafter\tab@item \fi}
-%***  end of file PHYSTABL  ***
-
-\message{references,}
-
-% \input physref
-%***  this is file PHYSREF as of 18.02.86  ***
-%***   references  ***
-
-\newtoks\r@names   \r@names={}
-\newcount\refn@m   \refn@m=0
-\newcount\ref@temp
-\def\ref@type{ref}
-\newbox\ref@box
-\let\ref@list=\empty
-\newwrite\ref@write  \def\ref@file{\ref@file\ref@write0}
-
-\begingroup \let\refnam=\relax  % allow input to be read twice
-  \newhelp\ref@help{The option \string\refnam\space allows predefined
-    references only and is incompatible with \string\qref(s).
-    Your request will be ignored.}
-  \global\ref@help=\ref@help % make this definition global
-  \gdef\ref@err{{\errhelp\ref@help \errmessage{Invalid request}}}
-\endgroup
-
-% Freeze option \refsup, \refsqb or \refnam and eliminate
-%   code not needed for that option
-\begingroup
-  \let\refsup=\relax \let\refsqb=\relax  % allow input to be
-  \let\refnam=\relax                     %   read twice
-  \gdef\ref@setup{%
-    \glet\refsup\undefined
-    \if S\ref@sbn \glet\refsup\empty \glet\therefn@m\suprefn@m \fi
-    \glet\refsqb\undefined
-    \if B\ref@sbn \glet\refsqb\empty \glet\therefn@m\sqbrefn@m \fi
-    \glet\refnam\undefined
-    \if N\ref@sbn \glet\refnam\empty \glet\the@quref\nam@quref
-      \glet\@@ref\ref@err \gdef\qref{\ref@err \quref}\glet\qrefs\qref
-      \glet\RF@def@\RF@def@nam
-      \glet\RF@find\undefined \glet\RF@search\undefined
-      \glet\RF@locate\undefined \glet\@RFread\undefined
-      \glet\qurefsup\ref@err \glet\sup@quref\undefined
-      \glet\qurefsqb\ref@err \glet\sqb@quref\undefined
-      \glet\qurefnum\ref@err \glet\num@quref\undefined
-      \glet\ref@restore\ref@err
-      \else \gdef\@@ref{\@store2\therefn@m}%
-      \gdef\qref{\case@abbr\refabbr\num@lett\quote@all}%
-      \gdef\qrefs{\case@abbr\refsabbr\num@lett\quote@all}%
-      \glet\RF@def@\RF@def@num \glet\RF@print\undefined
-      \gdef\ref@restore{\all@restore\r@names}\fi
-    \glet\nam@quref\undefined
-    \gdef\quref{\ref@unskip \num@lett\the@quref}%
-    \glet\RF@def@num\undefined \glet\RF@def@nam\undefined
-    \gdef\RF@restore{\all@restore\R@names}%
-    \glet\ref@setup\undefined}
-\endgroup
-
-\outer\def\refsup{\glet\ref@sbn S\global\qurefsup}
-\outer\def\refsqb{\glet\ref@sbn B\global\qurefsqb}
-\outer\def\refnam{\if B\store@blf \opt@err \else \glet\ref@sbn N\fi}
-
-\def\qurefsup{\let\the@quref\sup@quref}
-\def\qurefsqb{\let\the@quref\sqb@quref}
-\def\qurefnum{\let\the@quref\num@quref}
-
-\outer\def\refpage{\glet\ref@page T}
-\outer\def\norefpage{\glet\ref@page F}
-
-\def\ref{\ref@advance \refend \@ref}
-\def\REF{\num@lett\@REF}
-\def\@REF#1{\ref@name#1\@ref}
-\def\refend{\quref{\the\refn@m}}
-
-\def\refs{\ref@advance \ref@temp\refn@m \@ref}
-\def\REFS{\num@lett\@REFS}
-\def\@REFS#1{\ref@name#1\ref@temp\refn@m \@ref}
-\def\refscon{\ref@advance \@ref}
-\let\REFSCON=\REF
-\def\refsend{\quref{\the\ref@temp -\the\refn@m}}
-
-\def\ref@advance{\ref@unskip \g@ne\refn@m}
-\def\ref@name{\ref@@name\r@names}
-\def\ref@@name#1#2{\ref@advance \def@name#1#2{\the\refn@m}}
-\def\ref@unskip{\ifhmode \unskip \fi}
-
-\def\suprefn@m{\the\refn@m .}
-\def\sqbrefn@m{$\lbrack \the\refn@m \rbrack$}
-\def\@ref{\read@store\@@ref}
-\def\@@ref{\ref@setup \@@ref}
-\def\refadd{\@add2}
-
-\def\sup@quref#1{\leavevmode \nobreak \quote@all{^{#1}}}
-\def\sqb@quref#1{\ \quote@all{\lbrack #1\rbrack}}
-\def\num@quref{\ \quote@all}
-\def\nam@quref{\@use}
-\def\quref{\ref@setup \quref}
-\def\qref{\ref@setup \qref}
-\def\qrefs{\ref@setup \qrefs}
-
-\outer\def\refout{{\@out2\ref@page\refpref\refhead\r@names
-  \let\\\@RFdef \the\R@names \global\R@names\emptyt@ks
-  \if L\RF@lfe \else \glet\RF@list\empty \gz@\RF@high \fi
-  \gz@\refn@m}}
-\outer\def\refkill{\@kill2}
-\outer\def\restoreref#1{\read@@store{\@store2{#1}}}
-\outer\def\refrestore{\ref@restore}
-\outer\def\RFrestore{\RF@restore}
-\def\ref@restore{\ref@setup \ref@restore}
-\def\RF@restore{\ref@setup \RF@restore}
-
-%***  predefined references  ***
-
-\newtoks\R@names   \R@names={}
-\newcount\RFn@m   \newcount\RF@high
-\newcount\RFmax   \RFmax=50  % maximum number of RF's held in storage
-\def\RF@type{RF}
-\let\RF@list=\empty
-\newwrite\RF@write  \def\RF@file{\RF@file\RF@write0}
-\let\RF@noc=N
-
-% Freeze option \RFlist, \RFfile or \RFext and eliminate
-%   code not needed for that option
-\begingroup \let\storefile=\relax        % allow input
-  \let\RFlist=\relax \let\RFfile=\relax  %   to be read
-  \let\RFext=\relax \let\RF=\relax       %   twice
-  \gdef\@RF{%
-    \glet\RFlist\undefined
-    \if L\RF@lfe \glet\RFlist\empty \glet\@RF\@RFlist
-      \gdef\RF@input{\RF@list}%
-      \else \glet\@RFlist\undefined \fi
-    \glet\RFfile\undefined
-    \if F\RF@lfe \glet\RFfile\empty \glet\@RF\@RFfile
-      \else \RF@setup
-      \glet\@RFfile\undefined \glet\@RFcopy\undefined
-      \glet\RF@store\undefined \glet\RF@copy\undefined
-      \glet\RF@@input\undefined \fi
-    \glet\RFext\undefined
-    \if E\RF@lfe \gdef\RFext##1 {}\glet\@RF\@RFext
-      \else \glet\@RFext\undefined \fi
-    \glet\RF@setup\undefined \@RF}
-  \gdef\RF@setup{\ifx \storefile\undefined \glet\file@store\undefined
-    \glet\file@open\undefined \glet\file@close\undefined
-    \glet\file@wlog\undefined \glet\file@free\undefined
-    \glet\file@copy\undefined \glet\file@read\undefined \fi}
-\endgroup
-
-\outer\def\RFlist{\glet\RF@lfe L}
-\outer\def\RFfile{\if B\store@blf \opt@err \else \glet\RF@lfe F\fi}
-\outer\def\RFext#1 {\if B\store@blf \opt@err \else
-  \glet\RF@lfe E\gdef\RF@input{\input#1 }\RF@input \fi}
-
-\def\@RFdef#1{\gdef#1{\RF@def#1}}
-\def\@RF@list#1{\toks@\expandafter{\RF@list\RF@#1}%
-  \xdef\RF@list{\the\toks@ {\the\toks@store}}}
-\def\@RFcopy#1{\RF@store{\noexpand#1}}
-\def\RF@store{\let\@type\RF@type \if C\RF@noc \glet\RF@noc N%
-  \RF@copy \fi \glet\RF@noc O\expandafter\file@store\RF@file}
-\def\RF@input{\expandafter\RF@@input\RF@file}
-\begingroup \let\RF=\relax  % allow input to be read twice
-  \gdef\RF@copy{{\let\\\RF \let\@RF\@RFcopy
-    \expandafter\file@copy\RF@file}}
-  \gdef\RF@@input#1#2#3{\if O\RF@noc \let\@type\RF@type
-    \file@close#2#3\glet\RF@noc C\fi \let\\\RF \file@read#3}
-\endgroup
-
-\def\RF@def#1{\ref@@name\R@names#1\RF@def@ #1}
-\def\RF@def@{\ref@setup \RF@def@}
-\def\RF@def@num{\toks@store\expandafter{\expandafter\RF@find
-  \expandafter{\the\refn@m}}\@@ref}
-\def\RF@def@nam{\ifnum\refn@m=\@ne \refadd{\RF@print}\fi}
-\def\RF@test#1{\z@}
-
-\def\RF@print{\let\@RF\@RF@print \let\RF@def\RF@test
-  \let\RF@first T\RF@input}
-\def\@RF@print#1{\ifnum#1>\z@
-  \if\RF@first T\let\RF@first F\setbox\z@\lastbox
-  \else \form@t\f@rmat \noindent \strut \fi
-  \hangindent\namrefindent \the\toks@store \fi}
-
-\def\RF@find#1{\RFn@m#1\bgroup \let\RF@def\RF@test
-  \if L\RF@lfe \else \ifnum\RFn@m<\RF@high \else \RF@search \fi \fi
-  \let\RF@\RF@locate \RF@list \egroup}
-
-\def\RF@search{\global\RF@high\RFn@m \global\advance\RF@high\RFmax
-  \glet\RF@list\empty \let\@RF\@RFread  \RF@input}
-\def\@RFread#1{\ifnum#1<\RFn@m \else \ifnum#1<\RF@high
-  \@RF@list#1\fi \fi}
-\def\RF@locate#1#2{\ifnum#1=\RFn@m #2\fi}
-
-\def\@RFlist#1{\@RFdef#1\@RF@list#1}
-\def\@RFfile#1{\@RFdef#1\@RFcopy#1}
-\let\@RFext=\@RFdef
-
-\outer\def\RF{\num@lett\RF@}
-\def\RF@#1{\ref@unskip \read@store{\@RF#1}}
-%***  end of file PHYSREF  ***
-
-% \input physjrnl
-%***  this is file PHYSJRNL as of 11.02.86  ***
-%***  physics journals  ***
-
-\outer\def\yearpage{\glet\yearpage@yp Y}
-\outer\def\pageyear{\glet\yearpage@yp P}
-
-\def\journal#1{{\journalstyle{#1}}\j@urnal{}}
-\def\journalp#1{{\journalstyle{#1}}\j@urnal}
-\def\journalf#1#2#3({{\journalstyle{#1}}\j@urnal{#3}#2(}
-
-\def\j@urnal#1#2(#3)#4*{\unskip
-  \ {\volumestyle{#1\ifx @#1@\else\ifx @#2@\else
-  \kern.2em\fi \fi#2}}\unskip
-  \ifx @#3@\else\ifx @#4@ (#3)\else\if Y\yearpage@yp\ (#3) #4\else
-  , #4 (#3)\fi \fi \fi}
-
-\def\Lett{Lett.\ }
-\def\Math{Math.\ }
-\def\Nucl{Nucl.\ }
-\def\Phys{Phys.\ }
-\def\Rev{Rev.\ }
-
-\def\NPA{\journalp{\Nucl\Phys}A}
-\def\NPB{\journalp{\Nucl\Phys}B}
-\def\PLA{\journalf{\Phys\Lett}A}
-\def\PLB{\journalf{\Phys\Lett}B}
-\def\PR{\journal{\Phys\Rev}}
-\def\PRA{\journalp{\Phys\Rev}A}
-\def\PRB{\journalp{\Phys\Rev}B}
-\def\PRC{\journalp{\Phys\Rev}C}
-\def\PRD{\journalp{\Phys\Rev}D}
-\def\PRL{\journal{\Phys\Rev\Lett}}
-%***  end of file PHYSJRNL  ***
-
-\message{table of contents,}
-
-% \input phystoc
-%***  this is file PHYSTOC as of 03.03.86  ***
-%***  table of contents  ***
-
-\newinsert\toc@ins
-\count\toc@ins=0   \dimen\toc@ins=\maxdimen   \skip\toc@ins=0pt
-\newcount\auto@toc   \auto@toc=-1
-\let\toc@saved\empty
-
-\def\toc@type{toc}
-\newbox\toc@box
-\let\toc@list=\empty
-\newwrite\toc@write  \def\toc@file{\toc@file\toc@write0}
-
-\outer\def\tocpage{\glet\toc@page T}
-\outer\def\notocpage{\glet\toc@page F}
-
-\outer\def\tocnone{\gm@ne\auto@toc}
-\outer\def\tocchap{\gz@\auto@toc}
-\outer\def\tocsect{\global\auto@toc\@ne}
-\outer\def\tocsecs{\global\auto@toc\tw@}
-\outer\def\tocsecss{\global\auto@toc\thr@@}
-\outer\def\tocsecsss{\global\auto@toc\f@ur}
-
-\def\toc#1{\read@store{\@toc{#1}}}
-\def\tocadd{\toc\empty}
-\def\@toc#1{\insert\toc@ins{\vbox{}}%
-  \toks@\expandafter{\toc@saved}%
-  \xdef\toc@saved{\the\toks@{#1}{\the\toks@store}}}
-
-\def\make@toc{\setbox\z@\vbox{\unvbox\toc@ins
-  \loop \setbox\z@\lastbox \ifvbox\z@
-    \expandafter\make@@toc\toc@saved\@@ \repeat}}
-\def\make@@toc#1#2{\toks@store{#2}\def\n@xt{#1}\ifx\n@xt\empty \else
-  \edef\n@xt{\the\toks@store\noexpand\toc@fill\page@pref\folio}%
-  \toks@store\expandafter{\n@xt}\fi \@store3{#1}\make@@@toc}
-\def\make@@@toc#1\@@{\gdef\toc@saved{#1}}
-\def\toc@fill{\rightskip4em\parfillskip-\rightskip
-  \leaders\hbox to1em{\hss.\hss}\hfil}
-
-\outer\def\tocout{\@out3\toc@page\tocpref\tochead\emptyt@ks}
-\outer\def\tockill{\@kill3}
-\outer\def\restoretoc#1{\read@@store{\@store3{#1}}}
-%***  end of file PHYSTOC  ***
-
-\message{footnotes,}
-
-% \input physfoot
-%***  this is file PHYSFOOT as of 17.03.86  ***
-%***  footnotes  ***
-
-\newcount\footn@m   \footn@m=0
-\def\foot@type{foot}
-\newbox\foot@box
-\let\foot@list=\empty
-\newwrite\foot@write  \def\foot@file{\foot@file\foot@write0}
-
-\outer\def\footsqb{\glet\foot@bp B\glet\thefootn@m\sqbfootn@m}
-\outer\def\footpar{\glet\foot@bp P\glet\thefootn@m\parfootn@m}
-
-\outer\def\footbot{\glet\foot@be B\glet\vfootnote\vfootn@te}
-\outer\def\footend{\glet\foot@be E\glet\vfootnote\foot@store}
-
-\outer\def\footpage{\glet\foot@page T}
-\outer\def\nofootpage{\glet\foot@page F}
-
-\def\sqbfootn@m{\lbrack \the\footn@m \rbrack}
-\def\parfootn@m{\the\footn@m )}
-
-\def\foot{\hfoot \vfootnote\footid}
-\def\hfoot{\g@ne\footn@m \edef\n@xt{{$^{\thefootn@m}$}}%
-  \expandafter\hfootnote\n@xt}
-\def\footnote#1{\hfootnote{#1}\vfootnote\footid}
-\def\hfootnote#1{\let\@sf\empty
-  \ifhmode\unskip\edef\@sf{\spacefactor\the\spacefactor}\/\fi
-  #1\@sf \gdef\footid{#1}}
-\def\vfootn@te#1{\insert\footins\bgroup \footstyle
-  \interlinepenalty\interfootnotelinepenalty
-  \baselineskip\footnotebaselineskip
-  \splittopskip\interfootnoteskip % top baseline for broken footnotes
-  \splitmaxdepth\dp\strutbox \floatingpenalty\@MM
-  \leftskip.05\hsize \rightskip\z@skip
-  \spaceskip\z@skip \xspaceskip\z@skip
-  \noindent \llap{#1}\footstrut \after@arg\@foot}
-\let\fo@t=\undefined
-\let\f@@t=\undefined
-\let\f@t=\undefined
-
-\def\foot@store#1{\read@store{\@store4{#1}}}
-\def\footadd{\@add4}
-
-\outer\def\footout{\@out4\foot@page\footpref\foothead\emptyt@ks}
-\outer\def\footkill{\@kill4}
-\outer\def\restorefoot#1{\read@store{\@store4{#1}}}
-%***  end of file PHYSFOOT  ***
-
-\message{items and points,}
-
-% \input physitem
-%***  this is file PHYSITEM as of 21.02.86  ***
-%***  item  ***
-
-\let\plainitem=\item     % rename \item from PLAIN
-
-\def\varitem{\afterassignment\v@ritem \setbox\z@\hbox}
-\def\v@ritem{\hss \bgroup \aftergroup\v@@ritem}
-\def\v@@ritem{\enskip \egroup \endgraf \noindent
-  \hangindent\wd\z@ \box\z@ \ignorespaces}
-
-\def\bpargroup{\bgroup \def\par{\endgraf
-    \edef\n@xt{\egroup \prevdepth\the\prevdepth}\n@xt}}
-
-\def\hvskip{\afterassignment\h@vskip \skip@}
-\def\h@vskip{\unskip\nobreak \vadjust{\vskip\skip@}\lb \ignorespaces}
-
-\def\parvskip{\bgroup \afterassignment\par@vskip \parskip}
-\def\par@vskip{\parindent\hangindent \endgraf \indent \egroup
-  \ignorespaces}
-
-\def\item{\varitem to2.5em}
-\def\sitem{\varitem to4.5em}
-\def\ssitem{\varitem to6.5em}
-
-\def\itemcon{\item{}}
-\def\sitemcon{\sitem{}}
-\def\ssitemcon{\ssitem{}}
-
-%***  point  ***
-
-\newcount\pointn@m   \pointn@m=0
-\def\pointbegin{\gz@\pointn@m \point}
-\def\point{\g@ne\pointn@m
-  \xdef\the@label{\the\pointn@m}\item{\the@label.}}
-
-\newcount\spointn@m   \spointn@m=96
-\def\spointbegin{\global\spointn@m96 \spoint}
-\def\spoint{\g@ne\spointn@m
-  \xdef\the@label{\char\the\spointn@m}\sitem{(\the@label)}}
-
-\newcount\sspointn@m   \sspointn@m=0
-\def\sspointbegin{\gz@\sspointn@m \sspoint}
-\def\sspoint{\g@ne\sspointn@m
-  \xdef\the@label{\romannumeral\sspointn@m}\ssitem{\the@label)}}
-
-\let\pointcon=\itemcon
-\let\spointcon=\sitemcon
-\let\sspointcon=\ssitemcon
-
-%***  bull-, star- and dashitem  ***
-
-\def\bullitem{\item{$\bullet $}}
-\def\staritem{\item{$\ast $}}
-\def\dashitem{\item{---}}
-\def\sbullitem{\sitem{$\bullet $}}
-\def\sstaritem{\sitem{$\ast $ }}
-\def\sdashitem{\sitem{---}}
-\def\ssbullitem{\ssitem{$\bullet $}}
-\def\ssstaritem{\ssitem{$\ast $ }}
-\def\ssdashitem{\ssitem{---}}
-%***  end of file PHYSITEM  ***
-
-\message{matrices and additional math symbols,}
-
-% \input physmath
-%***  this is file PHYSMATH as of 21.02.86  ***
-%***  matrices  ***
-
-\def\matc{\let\mat@lfil\hfil \let\mat@rfil\hfil}
-\def\matl{\let\mat@lfil\relax \let\mat@rfil\hfil}
-\def\matr{\let\mat@lfil\hfil \let\mat@rfil\relax}
-
-\def\matrix#1{\,\vcenter{\normalbaselines\m@th
-    \ialign{$\mat@lfil##\mat@rfil$&&\quad$\mat@lfil##\mat@rfil$\crcr
-      \mathstrut\crcr\noalign{\kern-\baselineskip}%
-      #1\crcr\mathstrut\crcr\noalign{\kern-\baselineskip}}}\,}
-
-\def\bordermatrix#1{\begingroup \m@th
-  \setbox\z@\vbox{%
-    \def\cr{\crcr\noalign{\kern2\p@\glet\cr\endline}}%
-    \ialign{$##\hfil$\kern2\p@\kern\p@renwd&\thinspace$\mat@lfil##%
-      \mat@rfil$&&\quad$\mat@lfil##\mat@rfil$\crcr
-      \omit\strut\hfil\crcr\noalign{\kern-\baselineskip}%
-      #1\crcr\omit\strut\cr}}%
-  \setbox\tw@\vbox{\unvcopy\z@\global\setbox\@ne\lastbox}%
-  \setbox\tw@\hbox{\unhbox\@ne\unskip\global\setbox\@ne\lastbox}%
-  \setbox\tw@\hbox{$\kern\wd\@ne\kern-\p@renwd\left(\kern-\wd\@ne
-    \global\setbox\@ne\vbox{\box\@ne\kern2\p@}%
-    \vcenter{\kern-\ht\@ne\unvbox\z@\kern-\baselineskip}\,\right)$}%
-  \;\vbox{\kern\ht\@ne\box\tw@}\endgroup}
-
-\let\mat=\pmatrix
-
-%***  additional math symbols  ***
-
-\mathchardef\smallsum="1006
-\mathchardef\smallprod="1005
-
-\def\b@mmode{\relax\ifmmode\else
-  \hbox\bgroup$\def\e@mmode{$\egroup}\fi}
-\let\e@mmode=\empty
-
-\def\{{\b@mmode \lbrace \e@mmode}
-\def\}{\b@mmode \rbrace \e@mmode}
-
-\def\,{\b@mmode \mskip\thinmuskip  \e@mmode}
-\def\>{\b@mmode \mskip\medmuskip  \e@mmode}
-\def\;{\b@mmode \mskip\thickmuskip \e@mmode}
-
-\def\Mit#1{\b@mmode \mit#1\e@mmode}
-\def\Cal#1{\b@mmode \cal\uppercase\expandafter{#1}\e@mmode}
-
-\def\dotii#1{{\mathop{#1}\limits^{\vbox to -1.4\p@{\kern-2\p@
-   \hbox{\tenrm..}\vss}}}}
-\def\dotiii#1{{\mathop{#1}\limits^{\vbox to -1.4\p@{\kern-2\p@
-   \hbox{\tenrm...}\vss}}}}
-\def\dotiv#1{{\mathop{#1}\limits^{\vbox to -1.4\p@{\kern-2\p@
-   \hbox{\tenrm....}\vss}}}}
-
-\let\vecsymbol\rightarrow
-\let\barsymbol -
-\mathchardef\tildesymbol="0218
-\def\hatsymbol{{\mathchoice{\null}{\null}{\,\,\hbox{\lower 10\p@\hbox
-    {$\widehat{\null}$}}}{\,\hbox{\lower 20\p@\hbox
-       {$\hat{\null}$}}}}}
-\def\dotiisymbol{{\nonscript\,\hbox{\tenrm..}}}
-\def\dotiiisymbol{{\nonscript\,\hbox{\tenrm...}}}
-\def\dotivsymbol{{\nonscript\,\hbox{\tenrm....}}}
-\def\dotsymbol{{\nonscript\,\hbox{\tenrm.}}}
-
-%***  mathematical statements  ***
-
-\def\adv@stmt#1#2#3#4{\par\noindent\bpargroup\stmttitlestyle
-  \count@\ifx#2#3#1 \else\z@ \glet#2#3\fi \advance\count@\@ne
-  \xdef#1{\the\count@}\edef\the@label{#4#1}}
-
-\def\make@stmt{\ \the@label \make@@stmt}
-{\catcode`\:\active
-  \gdef\make@@stmt{\ \catcode`\:\active \let:\end@stmt}
-}
-\def\end@stmt{\catcode`\:\@ther \unskip :\stmtstyle
-  \enskip \ignorespaces}
-
-\def\defstmt#1#2#3{\toks@{#2}{\edef\n@xt{\csname#1@stmt@adv\endcsname
-    \the\toks@ \noexpand\make@stmt}%
-  \expandafter\glet\csname#1\endcsname\n@xt \def@stmt{#1@stmt@}#3@}}
-\def\def@stmt#1#2#3@{\if#2=\edef\n@xt{\expandafter\noexpand
-    \csname#3@stmt@adv\endcsname}\else
-    \toks@{\empty}\toks@ii\toks@ \if#2c\toks@{\dot@pref}\fi
-    \if#2s\toks@{\ddot@pref}\if#3c\toks@ii{\sect@dot@pref}\fi \fi
-    \if#3a\toks@ii\toks@ \fi
-    \edef\n@xt{\noexpand\adv@stmt \csname#1num\endcsname
-      \csname#1save\endcsname \the\toks@ \the\toks@ii}\fi
-  \expandafter\glet\csname#1adv\endcsname\n@xt}
-
-\def\Prf{\par\noindent\bpargroup\prftitlestyle \case@language\prfhead
-  \let\stmtstyle\prfstyle \make@@stmt}
-%***  end of file PHYSMATH  ***
-
-\message{save, restore and start macros,}
-
-% \input physsave
-%***  this is file PHYSSAVE as of 05.03.86  ***
-%***  save and restore  ***
-
-\def\save@type{.texsave }  % file type for save and restore
-\newread\test@read
-\newwrite\save@write
-
-\def\s@ve{\immediate\write\save@write}
-\begingroup \catcode`\:=\active \catcode`\;=\active
-  \outer\gdef\save#1 {{\let\,\space
-    \immediate\openout\save@write#1\save@type
-    \s@ve{;* definitions for :restore #1 \date\space- \thetime\space*}%
-    \s@ve{:comment}%
-    \s@ve{:\case@language{german\else english}}\save@page \save@chap
-    \save@equ \save@fig \save@tab \save@ref \save@toc \save@foot
-    \bgroup \def\n@xt##1.##2{\advance##2\@ne \s@ve{:start##1\the##2}}%
-      \n@xt chap.\chapn@m \n@xt sect.\sectn@m
-      \n@xt appendix.\appn@m \n@xt equ.\eqn@m
-      \n@xt fig.\fign@m \n@xt tab.\tabn@m
-      \n@xt ref.\refn@m \n@xt foot.\footn@m \egroup
-    \s@ve{:\ifx\chap@@eq\sect@@eq app\else
-      \ifnum\chapn@m=\z@ sect\else chap\fi \fi init}%
-    \@save0\@save1\@save2\@save3\@save4%
-    \save@restore ref \r@names  \save@restore RF \R@names
-    \s@ve{:endcomment}%
-    \save@restore lbl \l@names  \save@restore eq \e@names
-    \save@restore fig \f@names  \save@restore tab \t@names
-    \s@ve{;*  end of definitions  *}\immediate\closeout\save@write
-    }\wlog{* file #1\save@type saved *}}
-  \gdef\save@restore#1 {\def\\{\s@ve{:#1restore}%
-      \let\\\save@@restore \\}\the}
-  \gdef\save@@restore#1{\toks@\expandafter{#1}%
-    \s@ve{:dorestore\string#1{\the\toks@}}}
-  \gdef\save@page{\s@ve{:\@opt\page@tbn Ttop Bbot Nno *pagenum%
-      :\@opt\head@lrac Llef Rrigh Aal Ccen *thead%
-      :\@opt\foot@lrac Llef Rrigh Aal Ccen *tfoot%
-      :page\@opt\page@ac Aall Cchap *%
-      :\@opt\ori@pl Pportrait Llandscape *}%
-    \s@ve{:startpage\@opt\page@ac C\the\pageno@pref. *\the\pageno}}
-  \gdef\save@chap{\s@ve{:\@opt\chap@page Fno *chappage%
-      :\@opt\chap@yn Nno *chapters%
-      :\@opt\chap@ar Aarabic Rroman *chapnum}}
-  \gdef\save@equ{\s@ve{:equ\@opt\eq@acs Aall Cchap Ssect *%
-      :equ\@opt\eq@lrn Lleft Rright Nnone *%
-      :equ\@opt\eq@fs Ffull Sshort *}}
-  \gdef\save@fig{\s@ve{:\@opt\fig@page Fno *figpage%
-      :fig\@opt\fig@acs Aall Cchap Ssect *}}
-  \gdef\save@tab{\s@ve{:\@opt\tab@page Fno *tabpage%
-      :tab\@opt\tab@acs Aall Cchap Ssect *}}
-  \gdef\save@ref{\s@ve{:\@opt\ref@page Fno *refpage%
-      :ref\@opt\ref@sbn Ssup Bsqb Nnam *%
-      :\@opt\yearpage@yp Yyearpage Ppageyear *}}
-  \gdef\save@toc{\s@ve{:\@opt\toc@page Fno *tocpage%
-      :toc\ifcase\auto@toc chap\or
-      sect\or secs\or secss\or secsss\else none\fi}}
-  \gdef\save@foot{\s@ve{:\@opt\foot@page Fno *footpage%
-      :foot\@opt\foot@be Bbot Eend *%
-      :foot\@opt\foot@bp Bsqb Ppar *}}
-\endgroup
-\def\@opt#1#2#3 #4{\if #1#2#3\fi \if #4*\else
-  \expandafter\@opt\expandafter#1\expandafter#4\fi}
-
-\begingroup \let\comment=\relax
-  \outer\gdef\restore{\@kill0\@kill1\@kill2\@kill3\@kill4%
-    {\def\\##1{\glet##1\undefined}%
-      \def\n@xt##1{\the##1\global##1\emptyt@ks}%
-      \n@xt\l@names \n@xt\e@names \n@xt\f@names \n@xt\t@names
-      \n@xt\r@names \let\\\@RFdef \n@xt\R@names}
-    \bgroup \let\comment\relax \@restore}
-\endgroup
-\def\crossrestore#1 {\bgroup \openin\test@read#1\save@type
-  \ifeof\test@read \let\n@xt\egroup
-    \message{* file #1\save@type missing *}\else
-  \def\n@xt{\@restore#1 }\closein\test@read \fi \n@xt}
-\def\@restore#1 {\input #1\save@type \egroup}
-\def\all@restore{\glet\name@list}
-\outer\def\dorestore{\bgroup \catcode`\@\l@tter \num@lett\d@restore}
-\def\d@restore#1#2{\egroup \toks@{#2}\def@name\name@list#1{\the\toks@}}
-
-\def\def@name#1#2{\let\name@list#1\add@name#2\xdef#2}
-\def\del@name#1{\bgroup
-  \def\n@xt##1\\#1##2\\#1##3\@@##4{\global##4{##1##2}}%
-  \def\del@@name##1{\expandafter\n@xt\the##1\\#1\\#1\@@##1}%
-  \del@@name\l@names \del@@name\e@names \del@@name\f@names
-  \del@@name\t@names \del@@name\r@names \del@@name\R@names \egroup}
-\def\add@name#1{\del@name#1%
-  {\global\name@list\expandafter{\the\name@list\\#1}}}
-
-\def\kill{\num@lett\@k@ll}
-\def\@k@ll#1{\def\k@ll##1{\ifx##1\k@ll \let\k@ll\relax \else
-    \del@name##1\glet##1\undefined \fi \k@ll}\k@ll#1\k@ll}
-
-%***  start macros  ***
-
-\outer\def\startchap{\st@rt\chapn@m}
-\outer\def\startsect{\st@rt\sectn@m}
-\outer\def\startappendix{\st@rt\appn@m}
-\outer\def\startequ{\st@rt\eqn@m}
-\outer\def\startfig{\st@rt\fign@m}
-\outer\def\starttab{\st@rt\tabn@m}
-\outer\def\startref{\st@rt\refn@m}
-\outer\def\startfoot{\st@rt\footn@m}
-
-\def\st@rt#1{\gm@ne#1 \global\advance#1}
-%***  end of file PHYSSAVE  ***
-
-\message{installation dependent parameters,}
-
-% \input physinst
-%***  this is file PHYSINST as of 13.03.86  ***
-%***  installation dependent parameters  ***
-
-%***  \hoffset@corr, \hoffset@corrm, \voffset@corr and \voffset@corrm
-%     are corrections to \hoffset  and  \voffset  chosen such that
-%     the output pages are centered correctly on the paper.
-
-%***  the values used are:
-%       \hoffset@corr@p etc. for the portrait format are
-%       \hoffset@corr@l etc. for the landscape format are
-
-\hoffset@corr@p=86mm   \voffset@corr@p=98mm      % absolute
-\hoffset@corrm@p=-5mm   \voffset@corrm@p=4mm      % magnified
-\hoffset@corr@l=134mm   \voffset@corr@l=70mm     % absolute
-\hoffset@corrm@l=-5mm   \voffset@corrm@l=-4mm     % magnified
-%***  end of file PHYSINST  ***
-
-\catcode`\@=12 % @ signs are no longer letters
-
-\message{and default options.}
-
-%***  default options  ***
-
-%\twelvepoint   % 12pt, 10pt and 8pt fonts
-%\doublespace   % medium spacing between lines
-
-\hbadness=2000  % to avoid too many underfull hbox messages
-
-\english   % headings in english language (default for PHYSE)
-
-\botpagenum     % page numbers at bottom of page
-\centhead       % headlines not alternating,
-                % page numbers (if any) centered
-\centfoot       % footlines not alternating,
-                % page numbers (if any) centered
-\pageall        % pages numbered thoughout the paper
-\portrait       % portrait orientation ( vsize > hsize )
-\titlepage      % title etc. on a separate page (e.g. preprint)
-\nochappage     % chapters and appendices not on separate pages
-\arabicchapnum  % arabic chapter numbers
-\chapters       % paper has chapters
-\equchap        % equations numbered per chapter and appendix
-\equshort       % equation numbers quoted in abbreviated form
-\equright       % equation numbers on right side
-\storelist      % figure captions etc. stored in lists (macros)
-\figall         % figures numbered throughout the paper
-\figpage        % figure captions on a separate page
-\nographics     % graphic yields an empty frame
-\taball         % tables numbered throughout the paper
-\tabpage        % table captions on a separate page
-\refsup         % quotations of references as superscripts
-\refpage        % references on a separate page
-\RFlist         % predefined ref's stored in list (macros)
-\yearpage       % journals quoted in the form `vol (year) page'
-\tocpage        % table of contents on a separate page
-\tocnone        % no automatic entries in toc
-\footsqb        % footnote numbers in square brackets
-\footbot        % footnotes at bottom of page (as footnotes)
-\footpage       % footnotes on a separate page (for \footend only)
-\matc           % matrix elements are centered
-
-\wlog{summary of allocations:}
-\wlog{last count=\number\count10 }
-\wlog{last dimen=\number\count11 }
-\wlog{last skip=\number\count12 }
-\wlog{last muskip=\number\count13 }
-\wlog{last box=\number\count14 }
-\wlog{last toks=\number\count15 }
-\wlog{last read=\number\count16 }
-\wlog{last write=\number\count17 }
-\wlog{last fam=\number\count18 }
-\wlog{last insert=\number\count19 }
-
-%***  make sure the file physupdt with corrections and updates
-%     is read by the user
-
-\let\physpar=\par
-\def\resetpar{\glet\par\physpar \glet\physpar\undefined
-  \glet\resetpar\undefined}
-\def\par{\begingroup
-  \errhelp{You should have used the command `\input physupdt' to read
-    the corrections and updates to the current version of PHYS(E)}%
-  \errmessage{file physupdt missing}\endgroup \resetpar \par}%
-%
-%***  no more blank lines until physupdt is read !!
-%
-\def\fmtname{phys}
-\def\fmtversion{1.0}  % identifies the current format
-%***  end of file PHYSORG  ***
-\english        % default language for headings etc. is english
-%\dump
-%***  end of file PHYSE  ***
diff --git a/Master/texmf-dist/tex/physe/base/physupdt.tex b/Master/texmf-dist/tex/physe/base/physupdt.tex
deleted file mode 100644
index 3f69f53326e..00000000000
--- a/Master/texmf-dist/tex/physe/base/physupdt.tex
+++ /dev/null
@@ -1,109 +0,0 @@
-%***  this is file PHYSUPDT as of 1988.04.06  ***
-%***  modifications and updates to PHYS-TeX version 1.0  ***
-%
-%***  make sure this file is read once and only once !!
-%
-\ifx\resetpar\undefined
-  \wlog{* don't read the file physupdt twice !! *}%
-  \expandafter\endinput\fi
-\resetpar  % restore definition of \par
-
-\def\fmtupdt{1.3.0}  % identifies the current update version
-
-\wlog{* modifications and updates as of 1988.04.11 *}
-
-\ifx\userid\undefined \def\userid{YOUR~USERID}\fi
-
-\def\wlog#1{} % suppress allocation messages
-\catcode`\@=11
-
-%***  physorg  ***
-
-%***  physmain  ***
-
-%***  physfont  ***
-
-%***  load am... or cm... fonts according to PLAIN's selection  ***
-
-%\font\sevensl=\font@sel sl7  %not included in physe (check for TFM first)
-
-%***  sizes  ***
-
-\def\modtwelvepoint{\modtwelve@point
-  \let\normal@spacing\twelve@spacing \set@spacing
-  \let\big=\modtwelvebig   \let\Big=\modtwelveBig
-  \let\bigg=\modtwelvebigg \let\Bigg=\modtwelveBigg}
-\def\modtwelvebig#1{{\hbox{$\left#1\vbox to9.5\p@{}\right.\n@space$}}}
-\def\modtwelveBig#1{{\hbox{$\left#1\vbox to12.5\p@{}\right.\n@space$}}}
-\def\modtwelvebigg#1{{\hbox{$\left#1\vbox to15.5\p@{}\right.\n@space$}}}
-\def\modtwelveBigg#1{{\hbox{$\left#1\vbox to18.5\p@{}\right.\n@space$}}}
-
-%***  fonts for sizes  ***
-
-\def\modtwelve@point{\set@fonts twelve nine eight }  %let 8 ->7 if tfm's avail.
-
-%***  macros for sizes  ***
-
-\def\modlarge{\par \bgroup \modtwelvepoint \after@arg\@size}
-\def\MODLARGE#1{{\modtwelve@point #1}}
-
-%***  phystext  ***
-
-%***  physpage  ***
-
-%***  physchap  ***
-
-%***  physequ  ***
-
-%***  physstor  ***
-
-%***  physfig  ***
-
-%***  physpict  ***
-
-%***  ProPLOT macros  ***
-
-\outer\def\ProPLOTfigs{\glet\ProPLOTpfig\pr@pfig \glet\ProPLOTlfig\pr@lfig}
-\outer\def\noProPLOTfigs{\glet\ProPLOTpfig\nopr@fig \glet\ProPLOTlfig\nopr@fig}
-
-\def\pr@pfig#1#2#3#4{\hbox\bgroup \setbox\z@\hbox{\special{ps: plotfile #1}}
-   \dimen\z@=#3 \advance\dimen\z@ by #4 \wd\z@=#2 \ht\z@=\dimen\z@ \dp\z@=\z@
-   \lower#4\box\z@ \egroup}
-\def\pr@lfig#1#2#3#4{\hbox\bgroup \setbox\z@\null
-   \dimen\z@=#3 \advance\dimen\z@ by #4 \wd\z@=#2 \ht\z@=#3 \dp\z@=#4 \box\z@
-   \wd\z@=\z@ \setbox\z@\hbox{\special{ps: plotfile #1}} \lower#4\box\z@ \egroup}
-%\def\pr@fig#1#2#3#4{\hbox\bgroup \setbox\z@\hbox{\special{ps: plotfile #1}}%
-%  \lower#4\copy\z@ \hskip#2\raise#3\box\z@ \egroup}
-\def\nopr@fig#1#2#3#4{\hbox\bgroup \write\m@ne{Insert ProPLOT Output File: #1}%
-  \frame{#2}{#3}{#4}\egroup}
-
-\ProPLOTfigs %set the default
-
-%***  phystab  ***
-
-%***  phystabl  ***
-
-%***  physref  ***
-
-%***  physjrnl  ***
-
-%***  phystoc  ***
-
-%***  physfoot  ***
-
-%***  physitem  ***
-
-%***  physmath  ***
-
-%***  physsave  ***
-
-\def\save@type{.sav }  % file type for save and restore
-                       % modified from .texsave to .sav for PC use
-%***  physinst  ***
-
-%***  physorg (options which must be set after defining macros)  ***
-
-
-\def\wlog{\immediate\write\m@ne} % restore PLAIN's definition
-\catcode`\@=12 % @ signs are no longer letters
-%***  end of file PHYSUPDT  ***
diff --git a/Master/texmf-dist/tex/physe/config/physe.ini b/Master/texmf-dist/tex/physe/config/physe.ini
deleted file mode 100644
index 4e7bf6f5cca..00000000000
--- a/Master/texmf-dist/tex/physe/config/physe.ini
+++ /dev/null
@@ -1,3 +0,0 @@
-\input plain
-\input physe.tex
-\dump