summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:46:35 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:46:35 +0000
commit9d9c5562f45225d9a5f2a126febaee2ec955e0e0 (patch)
tree8873d8ad9061e4874a21227bafd98e6b50c22aee /Master/texmf-dist/tex
parent834dc61d783b0b727c3bd01b1a8a5734357b084a (diff)
trunk/Master/texmf-dist/tex/physe
git-svn-id: svn://tug.org/texlive/trunk@619 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/physe/base/physe.tex2024
-rw-r--r--Master/texmf-dist/tex/physe/base/physupdt.tex109
-rw-r--r--Master/texmf-dist/tex/physe/config/physe.ini3
3 files changed, 2136 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/physe/base/physe.tex b/Master/texmf-dist/tex/physe/base/physe.tex
new file mode 100644
index 00000000000..d1aa5803d26
--- /dev/null
+++ b/Master/texmf-dist/tex/physe/base/physe.tex
@@ -0,0 +1,2024 @@
+%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
new file mode 100644
index 00000000000..3f69f53326e
--- /dev/null
+++ b/Master/texmf-dist/tex/physe/base/physupdt.tex
@@ -0,0 +1,109 @@
+%*** 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
new file mode 100644
index 00000000000..8e3168e3bbb
--- /dev/null
+++ b/Master/texmf-dist/tex/physe/config/physe.ini
@@ -0,0 +1,3 @@
+\input plain
+\input physe
+\dump