trunk/Master/texmf-dist/tex/phyzzx

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

6 files changed, 2502 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/phyzzx/base/myphyx.tex b/Master/texmf-dist/tex/phyzzx/base/myphyx.tex
new file mode 100644
index 00000000000..fc03f94b585
--- /dev/null
+++ b/Master/texmf-dist/tex/phyzzx/base/myphyx.tex
@@ -0,0 +1,288 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% MYPHYX for TEX Version 2.9   -- created 12/15/88
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\def\MYHEAD{\setbox0=\vtop{\baselineskip=10pt
+     \ialign{\eightrm ##\hfil\cr
+        \slacbin\cr
+        P.~O.~Box 4349\cr
+        Stanford, CA 94309\cropen{1\jot}
+        (415) 926--4423\cr
+        SHARON at SLACVM\cr}}%
+   \setbox2=\hbox{\caps Stanford Linear Accelerator Center}%
+   \hrule height 0pt \kern -0.5in
+   \vbox to 0pt{\vss\centerline{\seventeenrm STANFORD UNIVERSITY}}
+   \vbox{} \medskip
+   \line{\hbox to 0.7\hsize{\hss \lower 10pt \box2 \hfill }\hfil
+         \hbox to 0.25\hsize{\box0 \hfil }}\medskip }
+ 
+  \def\myletter{\let\letterhead=\MYHEAD \letter}
+  \def\binno{81}
+  \def\slacext{2266}
+  \def\half{\hbox{${1\over 2}\,$}}
+  \def\etal{{\it et al.}}
+ 
+  \def\bar#1{\overline{#1}}
+  \def\kbar{{\mathchar'26\mskip-9muk}}
+  \def\pbar{{\rlap/p}}
+  \def\ubar{\bar{u}}
+  \def\dbar{\bar{d}}
+ 
+  \def\str{\penalty-10000\hfilneg\ }    % line break with right adjust
+  \def\Str{\penalty-10000\hfilneg\ }    % line break with right adjust
+  \def\nostr{\hfill\penalty-10000\ }    % line break with ragged right
+  \let\brk=\nextline
+  \def\|{\vrule height 16pt depth 6 pt}
+ 
+\def\ZZ{\hbox{$\not\kern0.15em\not\kern-0.21em\lower0.2em
+        \vbox{\hrule width 0.52em height 0.06em depth 0pt}
+        \kern-0.50em\raise0.7em
+        \vbox{\hrule width 0.52em height 0.06em depth 0pt}$}}
+ 
+\def\frac#1/#2{\leavevmode\kern.1em\raise.5ex\hbox{\the\scriptfont0
+         #1}\kern-.1em/\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
+ 
+%   \frac3/4 gives you a very nice 3/4 - slanted.
+ 
+  \def\IR{{$\rm I\!R$}}
+  \def\lozenge{\boxit{\hbox to 1.5pt{
+               \vrule height 1pt width 0pt \hfill}}}
+ 
+  \def\Buildrel#1\under#2{\mathrel{\mathop{#2}\limits_{#1}}}
+  \def\simZ{{\Buildrel \sim \under Z}}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% This macro inserts pictures (and, more generally, \vbox es) neatly
+%   into the MIDDLE of a paragraph.
+%        --- #1 should be a \vbox ---
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+  \def\pix#1{\vadjust{\vbox{\kern 1.0cm #1 \kern 1.0cm}}}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% These macros insert (\vbox es) using respectively \topinsert and
+%     \pageinsert.  Since these macros put you into vertical mode,
+%     they should only be called BETWEEN paragraphs.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+  \def\tpix#1{\topinsert #1 \endinsert}
+  \def\ppix#1{\pageinsert #1 \endinsert}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  To define a \vbox for an inserted figure, use the following command:
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \Picture\CompEP\height=4.125in \width=\hsize\caption{\narrower
+%         The caption goes here.}
+% \savepicture\FigureOne
+%        (\Picture  calls \FIG and assigns the figure the caption
+%                indicated and the figure number \CompEP.  It also
+%                creates a \vbox of the right size for a picture
+%                of the indicated height, and \savepicture assigns this
+%                to the macro \FigureOne.)
+%
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% TWO LINE MACRO (used in tables)
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+\def\twoline#1:#2#3{\vtop{\hbox to #1{\hss \strut #2 \hss}
+                          \hbox to #1{\hss \strut #3 \hss}}}
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Three nice dots left to right moving upward.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\def\mddots{\mathinner{\mskip1mu\raise1pt\hbox{.}\mskip2mu
+   \raise4pt\hbox{.}\mskip2mu\raise7pt\vbox{\kern7pt\hbox{.}}\mskip1mu}}
+%
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \clock returns time in hours:minutes on a 24 hour basis
+% check \fullclock too
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\newcount\timecount
+\newcount\hours \newcount\minutes  \newcount\temp \newcount\pmhours
+ 
+\hours = \time
+\divide\hours by 60
+\temp = \hours
+\multiply\temp by 60
+\minutes = \time
+\advance\minutes by -\temp
+\def\hour{\the\hours}
+\def\minute{\ifnum\minutes<10 0\the\minutes
+            \else\the\minutes\fi}
+\def\clock{
+\ifnum\hours=0 12:\minute\ AM
+\else\ifnum\hours<12 \hour:\minute\ AM
+      \else\ifnum\hours=12 12:\minute\ PM
+            \else\ifnum\hours>12
+                 \pmhours=\hours
+                 \advance\pmhours by -12
+                 \the\pmhours:\minute\ PM
+                 \fi \fi \fi \fi }
+ 
+\def\fullclock{\hour:\minute}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% \draft causes the symbolic names of equations to be printed
+%        alongside the equation numbers
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+\let\eqnameold=\eqname
+\def\draft{\def\eqname##1{\eqnameold##1:{\tt\string##1}}}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% Letter with no letterhead
+% insert \blankheads after \letters
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+\def\blankheads{\let\letterhead=\blankletterhead
+    \lettertopskip=7pt plus 3pt}
+\def\blankletterhead{\hrule height 0pt \vskip 1.3in}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  this gives you a boldface character in math mode.
+%     $\bold\beta$
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+\def\bold#1{\setbox0=\hbox{$#1$}%
+     \kern-.025em\copy0\kern-\wd0
+     \kern.05em\copy0\kern-\wd0
+     \kern-.025em\raise.0433em\box0 }
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  Definition for a slash over a letter
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+% from M. Peskin
+\def\dslash{\not{\hbox{\kern-2pt $\partial$}}}
+\def\Dslash{\not{\hbox{\kern-4pt $D$}}}
+\def\Qslash{\not{\hbox{\kern-4pt $Q$}}}
+\def\pslash{\not{\hbox{\kern-2.3pt $p$}}}
+\def\kslash{\not{\hbox{\kern-2.3pt $k$}}}
+\def\qslash{\not{\hbox{\kern-2.3pt $q$}}}
+%
+%
+ \newtoks\slashfraction
+ \slashfraction={.13}
+ \def\slash#1{\setbox0\hbox{$ #1 $}
+ \setbox0\hbox to \the\slashfraction\wd0{\hss \box0}/\box0 }
+ 
+% EXAMPLE OF HOW TO USE IT
+% $\slash D$
+% {\slashfraction={.075} $\slash{\cal A}$}
+% $\slash B$
+% $\slash a$
+% {\slashfraction={.09} $\slash p$}
+% $\slash q$
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% this gives you \leftrightarrow over \slash\partial
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+ \def\leftrightarrowfill{$\mathord-\mkern-6mu%
+   \cleaders\hbox{$\mkern-2mu\mathord-\mkern-2mu$}\hfill
+   \mkern-6mu\mathord\leftrightarrow$}
+ \def\overlrarrow#1{\vbox{\ialign{##\crcr
+       \leftrightarrowfill\crcr\noalign{\kern-1pt\nointerlineskip}
+       $\hfil\displaystyle{#1}\hfil$\crcr}}}
+ 
+%  $$ \overlrarrow{\slash\partial} $$
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  This is a macro written by Marvin which makes Young tableaux:
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+  \def\yboxit#1#2{\vbox{\hrule height #1 \hbox{\vrule width #1
+                  \vbox{#2}\vrule width #1 }\hrule height #1 }}
+ 
+  \def\fillbox#1{\hbox to #1{\vbox to #1{\vfil}\hfil}}
+  \def\ybox{\yboxit{0.4pt}{\fillbox{8pt}}\hskip-0.4pt}
+  \def\nbox{\yboxit{0pt}{\fillbox{8pt}}}
+ 
+  \def\tableaux#1{\vcenter{\offinterlineskip
+                  \halign{&\tabskip 0pt##\cr #1}}}
+  \def\cry{\cropen{-0.4pt}}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+% An example of the use of \tableaux is:
+% $$ X = \tableaux{\ybox & \ybox & \ybox \cry
+%                  \ybox & \ybox & \nbox \cry
+%                  \ybox & \nbox & \nbox \cry} $$
+%
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%       by M. Peskin
+%       These macros make 4- and 5-pt skeleton diagrams
+%            with labelled endpoints and internal lines.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+  \def\fourptfcn#1#2#3#4#5{ \matrix{#1\cr\cr#2\cr}
+      \hbox{$  \Bigg\rangle \kern -2.5pt
+         {\phantom{whichcan}\over {\textstyle \downabit #5} }
+           \kern-2.5pt  \Bigg\langle$} \matrix{#3\cr\cr#4\cr} }
+  \def\fiveptfcn#1#2#3#4#5#6#7{ \matrix{#1\cr\cr#2\cr}
+      \hbox{$  \Bigg\rangle \kern -2.5pt
+        {{\pile} \lower  6pt\hbox{$\spire#5$} {\pile}\over
+           \phantom{can}{\textstyle \downabit#6}\phantom{which}
+             {\textstyle \downabit #7}\phantom{can}}
+               \kern-2.5pt \Bigg\langle$} \matrix{#3\cr\cr#4\cr} }
+  \def\spire#1{\matrix{#1\cr\Bigm|\cr}}
+  \def\pile{\phantom{\matrix{1\cr2\cr3\cr}}}
+  \def\downabit{\vphantom{\bigm|}}
+ 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ 
+\def\unlock{\catcode`@=11}   % This allows us to modify PLAIN macros.
+%
+\def\lock{\catcode`@=12}     % at signs are no longer letters
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% These changes give you references on the line in brackets [3]
+% and in the reference list.  [1]  A. Einstein ...
+%
+%
+%\unlock
+%\def\step@ver#1{\rel@x \ifmmode #1\else \ifhmode
+%        \roll@ver{$\ {} #1$ }\else {\setbox0=\hbox{${} #1$ }}\fi\fi }
+%\def\attach#1{\step@ver{\strut {\mkern 4mu #1} }}
+%\def\normalrefmark#1{\attach{ [ #1 ] }}
+%\def\NPrefmark#1{\step@ver{{\ [#1]}}}
+%\def\refitem#1{\r@fitem{[#1]}}
+%\lock
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
diff --git a/Master/texmf-dist/tex/phyzzx/base/phyzzx.fonts b/Master/texmf-dist/tex/phyzzx/base/phyzzx.fonts
new file mode 100644
index 00000000000..c644ae828af
--- /dev/null
+++ b/Master/texmf-dist/tex/phyzzx/base/phyzzx.fonts
@@ -0,0 +1,106 @@
+%
+% PHYZZX fonts are kept in this separate file
+% in order to facilitate font substitution.
+%
+% This file should be called PHYZZX.FONTS on sites using CM fonts
+% and PHYZZX.CMFONTS on other sites.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\font\seventeenrm =cmr17
+\font\fourteenrm  =cmr12 scaled\magstep1
+\font\twelverm    =cmr12
+\font\ninerm      =cmr9
+\font\sixrm       =cmr6
+%
+\font\seventeenbf =cmbx12 scaled\magstep2
+\font\fourteenbf  =cmbx12 scaled\magstep1
+\font\twelvebf    =cmbx12
+\font\ninebf      =cmbx9
+\font\sixbf       =cmbx6
+%
+\font\seventeeni  =cmmi12 scaled\magstep2    \skewchar\seventeeni='177
+\font\fourteeni   =cmmi12 scaled\magstep1     \skewchar\fourteeni='177
+\font\twelvei     =cmmi12                       \skewchar\twelvei='177
+\font\ninei       =cmmi9                          \skewchar\ninei='177
+\font\sixi        =cmmi6                           \skewchar\sixi='177
+%
+\font\seventeensy =cmsy10 scaled\magstep3    \skewchar\seventeensy='60
+\font\fourteensy  =cmsy10 scaled\magstep2     \skewchar\fourteensy='60
+\font\twelvesy    =cmsy10 scaled\magstep1       \skewchar\twelvesy='60
+\font\ninesy      =cmsy9                          \skewchar\ninesy='60
+\font\sixsy       =cmsy6                           \skewchar\sixsy='60
+%
+\font\seventeenex =cmex10 scaled\magstep3
+\font\fourteenex  =cmex10 scaled\magstep2
+\font\twelveex    =cmex10 scaled\magstep1
+%
+\font\seventeensl =cmsl12 scaled\magstep2
+\font\fourteensl  =cmsl12 scaled\magstep1
+\font\twelvesl    =cmsl12
+\font\ninesl      =cmsl9
+%
+\font\seventeenit =cmti12 scaled\magstep2
+\font\fourteenit  =cmti12 scaled\magstep1
+\font\twelveit    =cmti12
+\font\nineit      =cmti9
+%
+\font\fourteentt  =cmtt12 scaled\magstep1
+\font\twelvett    =cmtt12
+%
+\font\fourteencp  =cmcsc10 scaled\magstep2
+\font\twelvecp    =cmcsc10 scaled\magstep1
+\font\tencp       =cmcsc10
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\def\fourteenf@nts{\relax
+    \textfont0=\fourteenrm          \scriptfont0=\tenrm
+      \scriptscriptfont0=\sevenrm
+    \textfont1=\fourteeni           \scriptfont1=\teni
+      \scriptscriptfont1=\seveni
+    \textfont2=\fourteensy          \scriptfont2=\tensy
+      \scriptscriptfont2=\sevensy
+    \textfont3=\fourteenex          \scriptfont3=\twelveex
+      \scriptscriptfont3=\tenex
+    \textfont\itfam=\fourteenit     \scriptfont\itfam=\tenit
+    \textfont\slfam=\fourteensl     \scriptfont\slfam=\tensl
+    \textfont\bffam=\fourteenbf     \scriptfont\bffam=\tenbf
+      \scriptscriptfont\bffam=\sevenbf
+    \textfont\ttfam=\fourteentt
+    \textfont\cpfam=\fourteencp }
+%
+\def\twelvef@nts{\relax
+    \textfont0=\twelverm          \scriptfont0=\ninerm
+      \scriptscriptfont0=\sixrm
+    \textfont1=\twelvei           \scriptfont1=\ninei
+      \scriptscriptfont1=\sixi
+    \textfont2=\twelvesy           \scriptfont2=\ninesy
+      \scriptscriptfont2=\sixsy
+    \textfont3=\twelveex          \scriptfont3=\tenex
+      \scriptscriptfont3=\tenex
+    \textfont\itfam=\twelveit     \scriptfont\itfam=\nineit
+    \textfont\slfam=\twelvesl     \scriptfont\slfam=\ninesl
+    \textfont\bffam=\twelvebf     \scriptfont\bffam=\ninebf
+      \scriptscriptfont\bffam=\sixbf
+    \textfont\ttfam=\twelvett
+    \textfont\cpfam=\twelvecp }
+%
+\def\tenf@nts{\relax
+    \textfont0=\tenrm          \scriptfont0=\sevenrm
+      \scriptscriptfont0=\fiverm
+    \textfont1=\teni           \scriptfont1=\seveni
+      \scriptscriptfont1=\fivei
+    \textfont2=\tensy          \scriptfont2=\sevensy
+      \scriptscriptfont2=\fivesy
+    \textfont3=\tenex          \scriptfont3=\tenex
+      \scriptscriptfont3=\tenex
+    \textfont\itfam=\tenit     \scriptfont\itfam=\seveni  % no \sevenit
+    \textfont\slfam=\tensl     \scriptfont\slfam=\sevenrm % no \sevensl
+    \textfont\bffam=\tenbf     \scriptfont\bffam=\sevenbf
+      \scriptscriptfont\bffam=\fivebf
+    \textfont\ttfam=\tentt
+    \textfont\cpfam=\tencp }
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
diff --git a/Master/texmf-dist/tex/phyzzx/base/phyzzx.local b/Master/texmf-dist/tex/phyzzx/base/phyzzx.local
new file mode 100644
index 00000000000..183d4b77da9
--- /dev/null
+++ b/Master/texmf-dist/tex/phyzzx/base/phyzzx.local
@@ -0,0 +1,108 @@
+%
+%  This is the PHYZZX.LOCAL file.
+%  It contains local, ie. site-dependent macros.
+%
+%  This version of the file is for use at SLAC only.
+%  Do not use it as is at other sites -- it is distributed only
+%  to provide an example of macros you may want to use at your site.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\def\slacpub{\afterassignment\slacp@b\toks@}
+\def\slacp@b{\edef\n@xt{\Pubnum={SLAC--PUB--\the\toks@}}\n@xt}
+\let\pubnum=\slacpub
+%
+\expandafter\ifx\csname eightrm\endcsname\relax
+    \let\eightrm=\ninerm \let\eightbf=\ninebf \fi
+%
+\def\memohead{\hrule height\z@ \kern -0.5in
+    \line{\quad\fourteenrm SLAC MEMORANDUM\hfil \twelverm\the\date\quad}}
+\def\memorule{\par \medskip \hrule height 0.5pt \kern 1.5pt
+   \hrule height 0.5pt \medskip}
+%
+\def\SLACHEAD{\setbox0=\vtop{\baselineskip=10pt
+     \ialign{\eightrm ##\hfil\cr
+        \slacbin\cr
+        P.~O.~Box 4349\cr
+        Stanford, CA 94309\cropen{1\jot}
+        \slacphone\cr }}%
+   \setbox2=\hbox{\caps Stanford Linear Accelerator Center}%
+   \hrule height \z@ \kern -0.5in
+   \vbox to 0pt{\vss\centerline{\seventeenrm STANFORD UNIVERSITY}}
+   \vbox{} \medskip
+   \line{\hbox to 0.7\hsize{\hss \lower 10pt \box2 \hfill }\hfil
+         \hbox to 0.25\hsize{\box0 \hfil }}\medskip }
+\let\letterhead=\SLACHEAD
+%
+\FromAddress={\crcr \slacbin \cr
+    P.\ O.\ Box 4349\cr Stanford, California 94309\cr }
+%
+\def\slacbin{SLAC\expandafter\ifx\csname binno\endcsname\relax
+                             \else , Bin \binno \fi }
+\def\slacphone{(415) 926--\slacext}
+\def\slacext{3300}
+%
+\def\doeack{\foot{Work supported by the Department of Energy,
+      contract DE--AC03--76SF00515.}}
+%
+\VOFFSET=33pt
+\papersize
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%  Now comes the graphic package.
+%  This version is rather primitive
+%
+\newwrite\figscalewrite
+\newif\iffigscaleopen
+\newif\ifgrayscale
+\newif\ifreadyfile
+\def\picturedefault{\grayscalefalse \readyfilefalse
+    \gdef\ready{\readyfiletrue}\gdef\gray{\ready\grayscaletrue}}
+%
+\def\parsefilename{\ifreadyfile \else
+    \iffigscaleopen \else \gl@bal\figscaleopentrue
+       \immediate\openout\figscalewrite=\jobname.scalecon \fi
+    \toks0={ }\immediate\write\figscalewrite{%
+       \the\p@cwd \the\toks0 \the\p@cht \the\toks0 \the\picfilename }%
+    \expandafter\p@rse \the\picfilename..\endp@rse \fi }
+%
+\def\p@rse#1.#2.#3\endp@rse{%
+   \if*#3*\dop@rse #1.1..\else \if.#3\dop@rse #1.1..\else
+                                \dop@rse #1.#3\fi \fi
+   \expandafter\picfilename\expandafter{\n@xt}}
+\def\dop@rse#1.#2..{\count255=#2 \ifnum\count255<1 \count255=1 \fi
+   \ifnum\count255<10  \edef\n@xt{#1.PICT00\the\count255}\else
+   \ifnum\count255<100 \edef\n@xt{#1.PICT0\the\count255}\else
+                       \edef\n@xt{#1.PICT\the\count255}\fi\fi }
+%
+\def\redopicturebox{\edef\picturedefinition{\ifgrayscale
+     \special{insert(\the\picfilename)}\else
+     \special{mergeug(\the\picfilename)}\fi }}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Few miscellaneous macros
+%
+\let\us=\undertext
+\let\rule=\memorule
+\let\eqnalign=\eqname
+%
+\def\pri{^{\, \prime }}
+\def\prii{^{\, \prime\, \prime }}
+\def\priii{^{\, \prime\, \prime\, \prime }}
+\def\epem{{e^+e^-}}
+%%
+\def\larrow{\leftarrow}
+\def\rarrow{\rightarrow }
+\def\uarrow{\uparrow }
+\def\darrow{\downarrow }
+\def\dblarrow{\doublearrow }
+\def\longvec{\overrightarrow }
+\def\wtilde{\widetilde }
+%%
+\def\xplus{\becomes{x\rarrow{+\infty}}}
+\def\xminus{\becomes{x\rarrow{-\infty}}}
+\def\xxx{\becomes{x\rarrow\infty}}
+%%
+\def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt
+\vbox{\kern3pt#1\kern3pt}\kern3pt\vrule}\hrule}}
+%%
diff --git a/Master/texmf-dist/tex/phyzzx/base/phyzzx.plus b/Master/texmf-dist/tex/phyzzx/base/phyzzx.plus
new file mode 100644
index 00000000000..d32692ceed0
--- /dev/null
+++ b/Master/texmf-dist/tex/phyzzx/base/phyzzx.plus
@@ -0,0 +1,1066 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%       This is PHYZZX.PLUS  (cm version)        %%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%                                                                 %%%%
+%%                                                                   %%%
+%%   Enhancements to PHYZZX.TEX which make it possible to            %%%
+%%   (1) produce documents in draftmode and in two-to-a-page         %%%
+%%       preprint style a la Harvmac                                 %%%
+%%         (\preprint and \draft)                                    %%%
+%%   (2) produce two column format similar to RevTex                 %%%
+%%   (3) produce labels for 3 X 8 or 3 X 11 label sheets when        %%%
+%%       creating multiple letters using PHYZZX and a label          %%%
+%%       formatting routine LABELFORM.TEX (included at the end       %%%
+%%       of the file) (\labelformlabels)                             %%%
+%%   (4) make boldface chapter headings without typing {\bf\chapter} %%%
+%%       all the time (use \chapterheadstyle={\bf} in the            %%%
+%%       beginning of the TeX file.)                                 %%%
+%%                                                                   %%%
+%%   Insert this file at the beginning of your phyzzx.local          %%%
+%%%                                                                 %%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%     Latest update/debug: November 15, 1993.     %%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\message{ PHYZZX Plus }
+\catcode`@=11 % This allows us to modify PLAIN macros.
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%    ADD SAN SERIF FONTS
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newfam\ssfam     % Define a San Serif font family
+\font\seventeenss =cmss10 scaled\magstep4
+\font\fourteenss  =cmss10 scaled\magstep2
+\font\twelvess    =cmss10 scaled\magstep1
+\font\tenss       =cmss10
+\font\niness      =cmss9
+\font\eightss     =cmss8
+%
+\font\seventeenssbx =cmssbx10 scaled\magstep4
+\font\fourteenssbx  =cmssbx10 scaled\magstep2
+\font\twelvessbx    =cmssbx10 scaled\magstep1
+\font\tenssbx       =cmssbx10
+%
+\def\seventeenpoint{\relax
+    \textfont0=\seventeenrm          \scriptfont0=\twelverm
+      \scriptscriptfont0=\ninerm
+    \textfont1=\seventeeni           \scriptfont1=\twelvei
+      \scriptscriptfont1=\ninei
+    \textfont2=\seventeensy          \scriptfont2=\twelvesy
+      \scriptscriptfont2=\ninesy
+    \textfont3=\seventeenex          \scriptfont3=\twelveex
+      \scriptscriptfont3=\ninex
+    \textfont\itfam=\seventeenit    %\scriptfont\itfam=\twelveit
+    \textfont\slfam=\seventeensl    %\scriptfont\slfam=\twelvesl
+      \scriptscriptfont\slfam=\ninesl
+    \textfont\bffam=\seventeenbf     \scriptfont\bffam=\twelvebf
+      \scriptscriptfont\bffam=\ninebf
+    \textfont\ttfam=\seventeentt
+    \textfont\cpfam=\seventeencp
+    \textfont\ssfam=\seventeenss     \scriptfont\ssfam=\twelvess
+      \scriptscriptfont\ssfam=\niness
+    \samef@nt
+    \b@gheight=17pt
+    \setbox\strutbox=\hbox{\vrule height 0.85\b@gheight
+                                depth 0.35\b@gheight width\z@ }}
+%
+%
+\def\fourteenf@nts{\relax
+    \textfont0=\fourteenrm          \scriptfont0=\tenrm
+      \scriptscriptfont0=\sevenrm
+    \textfont1=\fourteeni           \scriptfont1=\teni
+      \scriptscriptfont1=\seveni
+    \textfont2=\fourteensy          \scriptfont2=\tensy
+      \scriptscriptfont2=\sevensy
+    \textfont3=\fourteenex          \scriptfont3=\twelveex
+      \scriptscriptfont3=\tenex
+    \textfont\itfam=\fourteenit     \scriptfont\itfam=\tenit
+    \textfont\slfam=\fourteensl     \scriptfont\slfam=\tensl
+    \textfont\bffam=\fourteenbf     \scriptfont\bffam=\tenbf
+      \scriptscriptfont\bffam=\sevenbf
+    \textfont\ttfam=\fourteentt
+    \textfont\cpfam=\fourteencp
+    \textfont\ssfam=\fourteenss     \scriptfont\ssfam=\tenss
+        \scriptscriptfont\ssfam=\sevenrm }
+%
+\def\twelvef@nts{\relax
+    \textfont0=\twelverm          \scriptfont0=\ninerm
+      \scriptscriptfont0=\sixrm
+    \textfont1=\twelvei           \scriptfont1=\ninei
+      \scriptscriptfont1=\sixi
+    \textfont2=\twelvesy           \scriptfont2=\ninesy
+      \scriptscriptfont2=\sixsy
+    \textfont3=\twelveex          \scriptfont3=\tenex
+      \scriptscriptfont3=\tenex
+    \textfont\itfam=\twelveit     \scriptfont\itfam=\nineit
+    \textfont\slfam=\twelvesl     \scriptfont\slfam=\ninesl
+    \textfont\bffam=\twelvebf     \scriptfont\bffam=\ninebf
+      \scriptscriptfont\bffam=\sixbf
+    \textfont\ttfam=\twelvett
+    \textfont\cpfam=\twelvecp    \scriptfont\cpfam=\tencp
+    \textfont\ssfam=\twelvess    \scriptfont\ssfam=\niness
+      \scriptscriptfont\ssfam=\sixrm }
+%
+\def\tenf@nts{\relax
+    \textfont0=\tenrm          \scriptfont0=\sevenrm
+      \scriptscriptfont0=\fiverm
+    \textfont1=\teni           \scriptfont1=\seveni
+      \scriptscriptfont1=\fivei
+    \textfont2=\tensy          \scriptfont2=\sevensy
+      \scriptscriptfont2=\fivesy
+    \textfont3=\tenex          \scriptfont3=\tenex
+      \scriptscriptfont3=\tenex
+    \textfont\itfam=\tenit     \scriptfont\itfam=\seveni  % no \sevenit
+    \textfont\slfam=\tensl     \scriptfont\slfam=\sevenrm % no \sevensl
+    \textfont\bffam=\tenbf     \scriptfont\bffam=\sevenbf
+      \scriptscriptfont\bffam=\fivebf
+    \textfont\ttfam=\tentt
+    \textfont\cpfam=\tencp
+    \textfont\ssfam=\tenss      \scriptfont\ssfam=\eightss
+      \scriptscriptfont\ssfam=\fiverm }
+%
+\def\sans{\n@expand\f@m\ssfam}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Later phyzzx mods from SLAC
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\def\subspaces@t#1:#2;{\rel@x
+      \baselineskip = \normalbaselineskip
+      \multiply\baselineskip by #1 \divide\baselineskip by #2
+      \lineskip = \normallineskip
+      \multiply\lineskip by #1 \divide\lineskip by #2
+      \lineskiplimit = \normallineskiplimit
+      \multiply\lineskiplimit by #1 \divide\lineskiplimit by #2
+      \parskip = \normalparskip
+      \multiply\parskip by #1 \divide\parskip by #2
+      \abovedisplayskip = \normaldisplayskip
+      \multiply\abovedisplayskip by #1 \divide\abovedisplayskip by #2
+      \belowdisplayskip = \abovedisplayskip
+      \abovedisplayshortskip = \normaldispshortskip
+      \multiply\abovedisplayshortskip by #1
+        \divide\abovedisplayshortskip by #2
+      \belowdisplayshortskip = \abovedisplayshortskip
+      \advance\belowdisplayshortskip by \belowdisplayskip
+      \divide\belowdisplayshortskip by 2
+      \smallskipamount = \skipregister
+      \multiply\smallskipamount by #1 \divide\smallskipamount by #2
+      \medskipamount = \smallskipamount \multiply\medskipamount by 2
+      \bigskipamount = \smallskipamount \multiply\bigskipamount by 4 }
+%
+\newif\ifcn@                 \cn@true
+\newif\ifcn@@                \cn@@false
+\def\numberedchapters{\cn@true}
+\def\unnumberedchapters{\cn@false\sequentialequations}
+%
+\def\chapterreset{\gl@bal\advance\chapternumber by 1
+   \ifnum\equanumber<0 \else\gl@bal\equanumber=0\fi
+   \sectionnumber=0 \let\sectionlabel=\rel@x
+   \ifcn@ \gl@bal\cn@@true {\pr@tect
+       \xdef\chapterlabel{\the\chapterstyle{\the\chapternumber}}}%
+    \else \gl@bal\cn@@false \gdef\chapterlabel{\rel@x}\fi }
+%
+\def\@alpha#1{\count255='140 \advance\count255 by #1\char\count255}
+ \def\alphabetic{\n@expand\@alpha}
+\def\@Alpha#1{\count255='100 \advance\count255 by #1\char\count255}
+ \def\Alphabetic{\n@expand\@Alpha}
+\def\@Roman#1{\uppercase\expandafter{\romannumeral #1}}
+ \def\Roman{\n@expand\@Roman}
+\def\@roman#1{\romannumeral #1}    \def\roman{\n@expand\@roman}
+\def\@number#1{\number #1}         \def\Number{\n@expand\@number}
+\def\BLANK#1{\rel@x}               \let\BLANC=\BLANK
+%
+\def\section#1{\par \ifnum\lastpenalty=30000\else
+   \penalty-200\vskip\sectionskip \spacecheck\sectionminspace\fi
+   \gl@bal\advance\sectionnumber by 1
+ {\pr@tect
+   \xdef\sectionlabel{\ifcn@@ \chapterlabel.\fi
+       \the\sectionstyle{\the\sectionnumber}%
+                     }%
+   \wlog{\string\section\space \sectionlabel}
+ }%
+   \noindent {\caps\enspace\sectionlabel.~~#1}\par
+   \nobreak\vskip\headskip \penalty 30000 }
+%
+\def\FRONTPAGE{\ifvoid255\else\vfill\penalty-20000\fi
+   \gl@bal\pagenumber=1     \gl@bal\chapternumber=0
+   \gl@bal\equanumber=0     \gl@bal\sectionnumber=0
+   \gl@bal\referencecount=0 \gl@bal\figurecount=0
+   \gl@bal\tablecount=0     \gl@bal\frontpagetrue
+   \gl@bal\lastf@@t=0       \gl@bal\footsymbolcount=0
+   \gl@bal\cn@@false }
+\let\Frontpage=\FRONTPAGE
+%
+\def\makelabels{\afterassignment\Makelabels \sendername=} % extra s in ias 
+%                                                         % version
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%% modify phyzzx for UW label format %%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%  To produce labels, tex LABELFORM.TEX %%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%  included at the end of the file  %%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\begingroup
+ \catcode `\{ = 12  % Dirty trick to write out the character {
+ \catcode `\} = 12  % Dirty trick to write out the character }
+ \catcode `\[ = 1
+ \catcode `\] = 2
+\gdef\labelformlabels[%
+   \gdef\rwl@begin##1\cr[\rw@toks=[##1]\rel@x
+        \immediate\write\labelswrite[\the\rw@toks]\futurelet\n@xt\rwl@next]
+   \gdef\writenextlabel##1[%
+        \immediate\write\labelswrite[  ]%
+        \immediate\write\labelswrite[{]%
+            \rwl@begin ##1%
+            \rwl@end%
+        \immediate\write\labelswrite[}]]%
+   \gdef\writelabel##1[%
+        \immediate\write\labelswrite[{]%
+            \rwl@begin ##1%
+            \rwl@end%
+        \immediate\write\labelswrite[}]%
+        \let\writelabel=\writenextlabel]%
+] 
+\endgroup
+\newtoks\@ndtoks \@ndtoks={\vfill\eject} 
+\newtoks\t@ptoks \t@ptoks={\voffset=3.0in %
+\hoffset=3.0in\nopagenumbers\obeylines\singlespace\twelvess}
+\gdef\envelopelabels{%
+   \gdef\rwl@begin##1\cr{\rw@toks={##1}\rel@x
+        \immediate\write\labelswrite{\the\rw@toks}\futurelet\n@xt\rwl@next}
+   \gdef\writenextlabel##1{%
+            \rwl@begin ##1%
+            \rwl@end%
+        \immediate\write\labelswrite{\the\@ndtoks}}%
+   \gdef\writelabel##1{%
+        \immediate\write\labelswrite{\the\t@ptoks}%
+            \rwl@begin ##1%
+            \rwl@end%
+        \immediate\write\labelswrite{\the\@ndtoks}%
+        \let\writelabel=\writenextlabel}%
+} 
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% some phyzzx overrides
+%
+%
+%\def\addressee#1{\bigskip\medskip
+% \line{\hskip 0.5\hsize minus 0.5\hsize \the\date\hfil} \bigskip
+% \vskip\lettertopfil
+% \ialign to\hsize{\strut ##\hfil\tabskip 0pt plus \hsize \cr #1\crcr}
+% \medskip\noindent\hskip\spskip}
+%
+\def\figitem#1{\r@fitem{#1.}}
+\def\tabitem#1{\r@fitem{#1.}}
+%
+\def\ack{\ACK}   % make new phyzzx compatible with old phyzzx
+%
+\def\sequentialequations{\rel@x \ifnum\equanumber<0 \else
+  \gl@bal\equanumber=-\equanumber \gl@bal\advance\equanumber by -1 \fi }
+%
+%% a Journal macro that handles NPB and PR format
+%\def\Journal#1&#2&#3(#4){\begingroup \let\Journal=\dummyj@urnal
+%    \unskip,~#1\unskip~%
+%    \ifPhysRev\bf\fi\ignorespaces #2\rm
+%    \ifPhysRev\unskip,~\ignorespaces #3\fi
+%    \unskip~(\afterassignment\j@ur \count255=#4)
+%    \ifPhysRev\else\unskip,~\ignorespaces #3\fi
+%    \endgroup\unskip\ignorespaces }
+%
+\def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt
+\vbox{\kern3pt#1\kern3pt}\kern3pt\vrule}\hrule}}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%            Making double-column  (these are modified from manmac.tex)
+%%            with a full size columns as well.
+%%            (This is still buggy--gives overfull boxes etc.)
+%%            Report bugs to T.J. Allen (tjallen@wishep.physics.wisc.edu
+%%            or  tja@theory3.caltech.edu)
+%%
+%%            This will NOT produce double columns in preprintmode since
+%%            there are conflicting \output commands.  The whole
+%%            macro should be rewritten using a modified \output.
+%%
+%%            Where you want
+%%            the doublecolumn output to start, use \begindoublecolumns.
+%%            Where you want to go back to single columns use
+%%            \enddoublecolumns.  This produces output much like that
+%%            of RevTeX.  If you wish to specify that there be a rule
+%%            between the columns of output, then set \columnrulewidth
+%%            = 0.4pt.
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+\newbox\partialpage
+\newdimen\pageheight \pageheight=\vsize
+\newdimen\pagewidth  \pagewidth=6.6truein
+\newdimen\columnwidth  \columnwidth=3.2truein
+\newdimen\columnrulewidth \columnrulewidth=0pt
+\newdimen\ruleht \ruleht=.5pt
+\newinsert\margin
+%
+\def\twocolumn{%
+      \singlespace                    
+      \vsize=9truein                  
+      \pagetextwidth=\pagewidth       
+      \hsize=\pagewidth               
+      \titlepagewidth=\pagewidth      
+      \hoffset=0truein                
+      \voffset=0truein                
+      \dimen\margin=\maxdimen         
+      \count\margin=0 \skip\margin=0pt
+%  
+ \def\begindoublecolumns{
+     \ifpr@printstyle
+     \message{ I'm unable to print double columns in PREPRINTSTYLE }
+     \end\fi
+     \begingroup
+     \global\vsize=2\pageheight
+     \output={\global\setbox\partialpage=\vbox{\unvbox255\bigskip\bigskip}
+         \global\vsize=2\pageheight\global\advance\vsize by -2\ht\partialpage
+         \global\advance\vsize by 2\bigskipamount
+         \global\advance\vsize by 1 pc}\eject % a little extra room; 1pc
+     \output={\doublecolumnout\global\vsize=2\pageheight}
+         \global\pagetextwidth=\columnwidth \global\hsize=\columnwidth}
+%
+% keeps footnotes on correct page
+%
+  \def\enddoublecolumns{\output={\balancecolumns\global\hsize=\pagewidth
+                       \global\pagetextwidth=\pagewidth
+                       \global\vsize=\pageheight
+                       \unvbox255 }\eject\endgroup}
+%
+  \def\doublecolumnout{\splittopskip=\topskip \splitmaxdepth=\maxdepth
+     \dimen@=\pageheight\advance\dimen@ by -\ht\partialpage
+     \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to \dimen@
+     \onepageout\pagesofar \unvbox255 \penalty\outputpenalty}
+%
+  \def\pagesofar{\unvbox\partialpage
+     \wd0=\columnwidth \wd2=\columnwidth \hbox to \pagewidth{\box0\hfil
+     \columnrule \hfil \box2}}
+%
+  \def\columnrule{\vrule width \columnrulewidth height \ht2}
+%
+  \def\balancecolumns{\setbox0=\vbox{\unvbox255}\dimen@=\ht0
+     \advance\dimen@ by \topskip \advance\dimen@ by-\baselineskip
+     \advance\dimen@ by -2\ht\partialpage  % what if we begin and end on the
+     \divide\dimen@ by2                    % same page?!?
+     \splittopskip=\topskip
+     {\vbadness=10000 \loop \global\setbox3=\copy0
+        \global\setbox1=\vsplit3 to \dimen@
+        \ifdim\ht3>\dimen@ \global\advance\dimen@ by1pt \repeat}
+     \setbox0=\vbox to \dimen@{\unvbox1} \setbox2=\vbox to \dimen@{\dimen2=\dp3
+     \unvbox3 \kern-\dimen2 \vfil }
+     \pagesofar }
+%
+   \def\onepageout##1{ \setbox0=\vbox{##1} \dimen@=\dp0
+     \shipout\vbox{ % here we define one page of output
+     \makeheadline
+     \vbox to \pageheight{
+       \boxmaxdepth=\maxdepth
+       \ifvoid\margin\else % marginal info is present
+       \rlap{\kern31pc\vbox to 0pt{\kern4pt\box\margin\vss}}\fi
+       \ifvoid\topins\else\unvbox\topins\vskip\skip\topins\fi
+       ##1                                  % now insert the main information
+       \vskip\pagebottomfiller
+       \ifvoid\footins\else\vskip\skip\footins\footrule\unvbox\footins\fi
+       \ifr@ggedbottom\kern-\dimen@ \vfil\fi}  %need a replacement for here
+       \makefootline}
+     \advancepageno\frontpagefalse}
+%
+ \def\makeheadline{\vbox to\z@{\vskip-22.5\p@
+  \hbox to \pagewidth{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip}
+%
+ \def\makefootline{\baselineskip = 1.5\normalbaselineskip
+             \hbox to \pagewidth{\the\footline}}
+%\def\makefootline{\baselineskip24\p@\line{\the\footline}}
+
+%
+  \def\footrule{\dimen@=\prevdepth\nointerlineskip
+      \vbox to 0pt{\vskip -0.25\baselineskip \hrule width 0.62\pagewidth \vss}
+      \prevdepth=\dimen@ }
+%
+  \def\Vfootnote##1{\insert\footins\bgroup
+      \interlinepenalty=\interfootnotelinepenalty \floatingpenalty=20000
+      \singl@true\doubl@false\Tenpoint \hsize=\pagewidth
+      \splittopskip=\ht\strutbox \boxmaxdepth=\dp\strutbox
+      \leftskip=\footindent \rightskip=\z@skip
+      \parindent=0.5\footindent \parfillskip=0pt plus 1fil
+      \spaceskip=\z@skip \xspaceskip=\z@skip \footnotespecial
+      \Textindent{##1}\footstrut\futurelet\next\fo@t}
+% make the footnotes all have the correct size and the same footrule!
+%% Make column separators for large one-column equations %%%%%%%%%%%%%%%%%%%
+ \def\sp@cecheck##1{\dimen@=\pagegoal\advance\dimen@ by -\pagetotal
+      \ifdim\dimen@<##1 \ifdim\dimen@>0pt \vfil\break \fi\fi}
+ \def\endleftcolumn{\dimen@=\pagegoal\advance\dimen@ by -\pagetotal
+      \ifdim\dimen@<\chapterminspace \ifdim\dimen@>0pt \vfil\break \fi
+      \hbox{\vbox{\hrule width \columnwidth}\hbox to 0.4pt
+      {\vrule height 10pt depth 0pt}\hfil}\fi}
+ \def\beginrightcolumn{\dimen@=\pagegoal\advance\dimen@ by -\pagetotal
+      \ifdim\dimen@<\chapterminspace \ifdim\dimen@>0pt \vfil\break \fi
+      \hbox to \hsize{\hss\hbox{\vrule height 0pt depth 10pt
+      \vbox{\hrule width \columnwidth}}}\fi}
+}
+% 
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%   Now start the draftmode and preprintmode enhancement features
+%%                      (Homage to harvmac.tex)
+%%   Report any bugs to  T.J. Allen
+%%       tja@theory3.caltech.edu or
+%%       tjallen@wishep.physics.wisc.edu
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%       Here is the draftmode feature
+%%
+%%       Use the following on the preliminary draft,
+%%       puts time/date on each page in writes labels in margins
+%%       and puts reference labels on the reference page.
+%%       Putting \draft in the beginning of the paper causes it
+%%       to be printed in draftmode.  use \nodraftlabels to get rid of
+%%       eqn, ref, and fig labels in draft mode
+%%
+%%       Timestamp routine bug fixed October 30, 1991 by T.J.A.
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\newif\ifdr@ftmode
+\newtoks\r@flabeltoks
+\def\draftmode{
+   \pagetextwidth=6truein
+   \fullhsize=6truein
+   \titlepagewidth=6truein
+   \vsize=8.3truein
+   \normalspace
+   \hoffset=0.3truein
+   \voffset=0.2truein
+   \advance\hoffset by\HOFFSET  
+   \advance\voffset by\VOFFSET  
+   \hsize=\pagetextwidth
+   \tenpoint
+   \baselineskip=24pt plus 2pt minus 2pt
+   \dr@ftmodetrue
+   \message{ DRAFTMODE }
+   \writedraftlabels
+   \def\timestring{\begingroup
+     \count0 = \time \divide\count0 by 60
+     \count2 = \count0  % the hour
+     \count4 = \time \multiply\count0 by 60
+     \advance\count4 by -\count0   % the minute
+     \ifnum\count4<10 \toks1={0} % get a leading zero.
+     \else \toks1 = {}
+     \fi
+     \ifnum\count2<12 \toks0={a.m.} %
+          \ifnum\count2<1 \count2=12 \fi% Make midnight `12'
+     \else            \toks0={p.m.} %
+           \ifnum\count2=12 % keep noon `12'
+           \else
+           \advance\count2 by -12 % keep afternoon times < 12
+           \fi
+     \fi
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% \ifnum\count2=0 \count2 = 12\fi % make midnight `12'. %  There seems to
+%%    be a bug in TeX when checking a count which has the value 0.
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+     \number\count2:\the\toks1 \number\count4\thinspace \the\toks0
+   \endgroup}%
+%
+   \def\draftdate{{{\tt preliminary version:}\space{\rm
+                                  \timestring\quad\the\date}}}
+%
+\def\R@FWRITE##1{\ifreferenceopen \else \gl@bal\referenceopentrue
+     \immediate\openout\referencewrite=\jobname.refs
+     \toks@={\begingroup \refoutspecials \catcode`\^^M=10 }%
+     \immediate\write\referencewrite{\the\toks@}\fi
+     \immediate\write\referencewrite%
+     {\noexpand\refitem{\the\r@flabeltoks[\the\referencecount]}}%
+     \p@rse@ndwrite \referencewrite ##1}
+%
+\def\refitem##1{\r@fitem{##1}}
+\def\REF##1##2{\reflabel##1 \REFNUM ##1\REFWRITE{\ignorespaces ##2}}
+\def\Ref##1##2{\reflabel##1 \Refnum ##1\REFWRITE{ ##2}}
+\def\REFS##1##2{\reflabel##1 \REFNUM ##1%
+\gl@bal\lastrefsbegincount=\referencecount\REFWRITE{ ##2}}
+\def\refs{\REFS\?}
+\def\refc{\REF\?}
+\let\refscon=\refc       \let\REFSCON=\REF
+%
+}
+\def\nodraftlabels{\def\leqlabel##1{}\def\eqlabel##1{}\def\reflabel##1{}%
+\def\leqlabel##1{}}
+\def\writedraftlabels{
+  \def\eqlabel##1{{\escapechar-1\rlap{\sevenrm\hskip.05in\string##1}}}%
+  \def\leqlabel##1{{\escapechar-1\llap{\sevenrm\string##1\hskip.05in}}}%
+  \def\reflabel##1{\r@flabeltoks={{\escapechar-1\sevenrm\string##1\hskip.06in%
+}}}}
+\def\draft{\draftmode}
+\def\draftstyle{\draftmode}
+\nodraftlabels   % Make the default mode no labels
+\dr@ftmodefalse  % Turn off draftmode
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%   Here come macros for equation numbering.
+%%   (Equation numbers are modified in draft mode)
+%%
+%%   Sections are automatically numbered independently, unless
+%%   one puts the command \sequentialequations
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\def\eqname#1{\rel@x {\pr@tect
+  \ifnum\equanumber<0 \xdef#1{{\rm(\number-\equanumber)}}%
+     \gl@bal\advance\equanumber by -1
+  \else \gl@bal\advance\equanumber by 1
+   \xdef#1{{\rm(\ifcn@@ \chapterlabel.\fi \number\equanumber)}}\fi
+  }#1}
+%
+\def\eq{\eqname\?}
+\def\eqn#1{\eqno\eqname{#1}\eqlabel#1}
+\def\leqn#1{\leqno\leqlabel#1\eqname{#1}} %MODIFICATION
+%
+\def\eqinsert#1{\noalign{\dimen@=\prevdepth \nointerlineskip
+   \setbox0=\hbox to\displaywidth{\hfil #1}
+   \vbox to 0pt{\kern 0.5\baselineskip\hbox{$\!\box0\!$}\vss}
+   \prevdepth=\dimen@}}  %MODIFICATION
+%
+\def\leqinsert#1{\eqinsert{#1\hfill}}
+\def\mideqn#1{\eqinsert{\eqname{#1}}} %MODIFICATION
+\def\midleqn#1{\leqinsert{\eqname{#1}}}
+%
+\def\eqnalign#1{\eqname{#1}} %MODIFICATION
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%  Here come modified reference macros  
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%
+\def\refout{\par\penalty-400\vskip\chapterskip
+   \spacecheck\referenceminspace
+   \ifreferenceopen \Closeout\referencewrite \referenceopenfalse \fi
+   \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi
+         \hfil REFERENCES\hfil}\vskip\headskip
+   \input \jobname.refs
+   }
+\def\ACK{\par\penalty-100\medskip \spacecheck\sectionminspace
+   \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi
+      \hfil ACKNOWLEDGEMENTS\hfil}\nobreak\vskip\headskip }
+\def\tabout{\par\penalty-400
+   \vskip\chapterskip\spacecheck\referenceminspace
+   \iftableopen \Closeout\tablewrite \tableopenfalse \fi
+   \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi\hfil TABLE %
+        CAPTIONS\hfil}
+   \vskip\headskip
+   \input \jobname.tabs
+   }
+\def\figout{\par\penalty-400
+   \vskip\chapterskip\spacecheck\referenceminspace
+   \iffigureopen \Closeout\figurewrite \figureopenfalse \fi
+   \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi\hfil FIGURE %
+     CAPTIONS\hfil}
+   \vskip\headskip
+   \input \jobname.figs
+   }
+%
+\def\masterreset{\begingroup\hsize=\pagetextwidth
+   \global\pagenumber=1 \global\chapternumber=0
+   \global\equanumber=0 \global\sectionnumber=0
+   \global\referencecount=0 \global\figurecount=0 \global\tablecount=0
+   \endgroup}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%   Here start the preprintmode enhancements
+%%   To cause the paper to be printed in preprintmode, which
+%%   emulates the l answer in harvmac, insert \preprint at the
+%%   beginning of the file
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%   Next, I define output routines, footnotes & related stuff.
+%%   (The headline has been modified for draftmode and preprints
+%%   may be produced in landscape form, two columns sideways)
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%
+\newif\ifpr@printstyle \pr@printstylefalse
+\newbox\leftpage
+\newdimen\fullhsize
+\newdimen\titlepagewidth
+\newdimen\pagetextwidth
+\def\preprintstyle{%
+       \message{(This will be printed PREPRINTSTYLE)}
+       \let\lr=L
+       \frontpagetrue  
+       \pr@printstyletrue
+       \vsize=7truein
+       \pagetextwidth=4.75truein
+       \fullhsize=10truein
+       \titlepagewidth=8truein
+       \normalspace
+       \Tenpoint
+       \voffset=-.31truein
+       \hoffset=-.46truein
+       \iffrontpage\hsize=\titlepagewidth\else\hsize=\pagetextwidth\fi
+       %  Comment out the above line for SLAC style frontpage
+       %  and uncomment the following line
+      %\hsize=\pagetextwidth
+ \output={%
+    \iffrontpage
+      \shipout\vbox{\special{\printertype}\makeheadline
+      \hbox to \fullhsize{\hfill\pagebody\hfill}}
+      \advancepageno
+    \else
+       \almostshipout{\leftline{\vbox{\pagebody\makefootline}}}\advancepageno
+    \fi}
+        \def\almostshipout##1{\if L\lr \count2=1
+             \message{[\the\count0.\the\count1.\the\count2]}
+        \global\setbox\leftpage=##1 \global\let\lr=R
+                             \else \count2=2
+        \shipout\vbox{\special{\printertype}
+        \hbox to\fullhsize{\hfill\box\leftpage\hskip0.5truein##1\hfill}}
+        \global\let\lr=L     \fi}
+   \multiply\chapterminspace by 7 \divide\chapterminspace by 9
+   \multiply\sectionminspace by 7 \divide\sectionminspace by 9
+   \multiply\referenceminspace by 7 \divide\referenceminspace  by 9
+   \multiply\chapterskip by 7 \divide\chapterskip  by 9
+   \multiply\sectionskip  by 7 \divide\sectionskip  by 9
+   \multiply\headskip   by 7 \divide\headskip by 9
+   \multiply\baselineskip   by 7 \divide\baselineskip by 9
+   \multiply\abovedisplayskip by 7 \divide\abovedisplayskip by 9
+   \belowdisplayskip = \abovedisplayskip
+%
+\def\advancepageno{\if L\lr \gl@bal\advance\pagen@ by 1\fi
+   \ifnum\pagenumber<0 \gl@bal\advance\pagenumber by -1
+    \else\gl@bal\advance\pagenumber by 1 \fi
+    \gl@bal\frontpagefalse  \swing@
+    \gl@bal\hsize=\pagetextwidth}
+} % end of preprintstyle specs
+%
+\let\preprint=\preprintstyle
+\let\preprintmode=\preprintstyle
+\tolerance=1000
+%\def\printertype{ps: }
+\def\printertype{}
+%
+% Default values for the fullsize document page
+\def\oldpapersize{\ifpr@printstyle\relax\else
+                  \ifdr@ftmode\relax\else
+                  \pagetextwidth=6truein           
+                  \fullhsize=6truein               
+                  \titlepagewidth=6truein          
+                  \vsize=8.3truein                 
+                  \hsize=\pagetextwidth            
+                  \Twelvepoint                     
+                  \hoffset=0.3 truein              
+                  \voffset=0.2 truein              
+                  \advance\hoffset by\HOFFSET      
+                  \advance\voffset by\VOFFSET      
+                  \pagebottomfiller=0pc            
+                  \skip\footins=\bigskipamount     
+                  \normalspace\fi\fi}              
+%
+\def\bigpapersize{\ifpr@printstyle\relax\else
+                  \ifdr@ftmode\relax\else
+                  \pagetextwidth=6.5truein               
+                  \fullhsize=6.5truein                   
+                  \titlepagewidth=6.5truein          
+                  \hsize=\fullhsize                  
+                  \vsize=9truein                     
+                  \Twelvepoint
+                  \hoffset=0.05 truein               
+                  \voffset=-0.1truein                
+                  \advance\hoffset by\HOFFSET        
+                  \advance\voffset by\VOFFSET        
+                  \pagebottomfiller=0pc              
+                  \skip\footins=\bigskipamount       
+                  \normalspace\fi\fi }                  
+%
+\paperheadline={\ifdr@ftmode\hfil\draftdate\else\hfill\fi}
+%
+\def\advancepageno{\gl@bal\advance\pagen@ by 1
+    \ifnum\pagenumber<0 \gl@bal\advance\pagenumber by -1
+    \else\gl@bal\advance\pagenumber by 1 \fi
+    \gl@bal\frontpagefalse  \swing@
+    \gl@bal\hsize=\pagetextwidth} %MODIFICATION
+%
+\let\papersize=\bigpapersize
+%              
+\papers
+%
+\def\lettersize{\fullhsize=6.5in
+                \pagetextwidth=6.5in
+                \hsize=\fullhsize
+                \vsize=8.5in
+                \hoffset=0in
+                \voffset=0.5in
+                \advance\hoffset by\HOFFSET
+                \advance\voffset by\VOFFSET
+                \pagebottomfiller=\letterbottomskip
+                \skip\footins=\smallskipamount
+                \multiply\skip\footins by 3
+                \singlespace }
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%   Here come chapter, section, subsection & appendix macros.
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%  The following allows a shortcut for making titles bold etc.
+%%  Just use \chapterheadstyle={\bf} in the beginning of the
+%%  TeX file.
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newtoks\chapterheadstyle  \chapterheadstyle={\relax}
+%
+\def\chapter#1{{\the\chapterheadstyle\par \penalty-300 \vskip\chapterskip
+  \spacecheck\chapterminspace
+  \chapterreset\titlestyle{\ifcn@@{\ifPhysRev\Roman{\the\chapternumber}.~
+   \else{\the\chapternumber}.~\fi}\fi #1}
+  \nobreak\vskip\headskip \penalty 30000
+  \message{(\the\chapternumber. #1)}
+ {\pr@tect\wlog{\string\chapter\space \chapterlabel}} }}
+\def\chap{\chapter}
+\def\APPENDIX#1#2{{\the\chapterheadstyle\par\penalty-300\vskip\chapterskip
+   \spacecheck\chapterminspace \chapterreset \xdef\chapterlabel{#1}
+   \titlestyle{APPENDIX #2} \nobreak\vskip\headskip \penalty 30000
+   \wlog{\string\Appendix~\chapterlabel} }}
+%
+\def\chapterreset{\gl@bal\advance\chapternumber by 1
+   \ifnum\equanumber<0 \else\gl@bal\equanumber=0\fi
+   \gl@bal\sectionnumber=0 \let\sectionlabel=\rel@x
+   \ifcn@ \gl@bal\cn@@true {\pr@tect
+       \xdef\chapterlabel{{\the\chapterstyle{\the\chapternumber}}}}%
+    \else \gl@bal\cn@@false \gdef\chapterlabel{\rel@x}\fi }%MODIFICATION
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%      Various little user definitions
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\def\half{{\textstyle{1\over2}}}
+\def\third{{\textstyle{1\over3}}}
+\def\fourth{{\textstyle{1\over4}}}
+\def\12{{1\over2}}
+\def\etal{{\it et al.\ }}
+\def\via{{\hbox{\it via}}}
+\def\cf{{\hbox{\it cf.}}}
+\def\sla{\raise.15ex\hbox{$/$}\kern-.57em}
+\def\leaderfill{\leaders\hbox to 1em{\hss.\hss}\hfill}
+\def\dual{{\,^*\kern-.20em}}  %%% produces a raised * in front of a form
+\def\inner{\,{\vcenter{       %%%  symbol _| for vector, form inner product
+      \hbox{ \kern 4pt
+        \vrule width 0.5pt height 7pt}
+      \hrule height 0.5pt}}\,}
+\def\bx{{\vcenter{\hrule height 0.4pt
+      \hbox{\vrule width 0.4pt height 10pt \kern 10pt
+        \vrule width 0.4pt}
+      \hrule height 0.4pt}}}
+\def\sqr#1#2{{\vcenter{\hrule height.#2pt
+      \hbox{\vrule width.#2pt height#1pt \kern#1pt
+        \vrule width.#2pt}
+      \hrule height.#2pt}}}
+\def\rect#1#2#3#4{{\vcenter{\hrule height#3pt
+      \hbox{\vrule width#4pt height#1pt \kern#1pt
+        \vrule width#4pt}
+      \hrule height#3pt}}}
+\def\rec{\rect{15}{15}{.5}{.5}}
+\def\bx{{\vcenter{\hrule height 0.4pt
+      \hbox{\vrule width 0.4pt height 10pt \kern 10pt
+        \vrule width 0.4pt}
+      \hrule height 0.4pt}}}
+\def\ssquare{\mathchoice\sqr34\sqr34\sqr{2.1}3\sqr{1.5}3}
+\def\up#1{\leavevmode \raise.16ex\hbox{#1}}
+\def\twiddle{\lower.9ex\rlap{$\kern-.1em\scriptstyle\sim$}}
+\def\bigtwiddle{\lower1.ex\rlap{$\sim$}}
+\def\gtwid{\mathrel{\raise.3ex\hbox{$>$\kern-.75em\lower1ex\hbox{$\sim$}}}}
+\def\ltwid{\mathrel{\raise.3ex\hbox{$<$\kern-.75em\lower1ex\hbox{$\sim$}}}}
+\def\square{\kern1pt\vbox{\hrule height 1.2pt\hbox{\vrule width 1.2pt\hskip 3pt
+   \vbox{\vskip 6pt}\hskip 3pt\vrule width 0.6pt}\hrule height 0.6pt}\kern1pt}
+\def\tdot#1{\mathord{\mathop{#1}\limits^{\kern2pt\ldots}}}
+\def\super#1{$^{#1}$}
+\def\pmb#1{\setbox0=\hbox{#1}    %  POOR MAN'S BOLD
+  \kern-.025em\copy0\kern-\wd0
+  \kern  .05em\copy0\kern-\wd0
+  \kern-.025em\raise.0433em\box0 }
+\def\qed{\vrule height 1.2ex width 0.5em}
+\def\dalemb{{\cal t}} %%DALEMBERTIAN, USED TO BE \box
+\def\grad{\nabla}
+\def\const{{\rm const}}
+\def\s{{\,\rm s}}
+\def\cm{{\,\rm cm}}
+\def\g{{\,\rm g}}
+\def\coeff#1#2{\textstyle{#1\over #2}}
+\def\partder#1#2{{{\partial #1}\over{\partial #2}}}
+\def\Tr{\mathop{\rm Tr}\nolimits}
+\def\gev{{\,\rm GeV}}
+\def\ev{{\,\rm eV}}
+\def\inv{^{\raise.15ex\hbox{${\scriptscriptstyle -}$}\kern-.05em 1}}
+\def\dup{^{\vphantom{1}}}
+\def\Dsl{\,\raise.15ex\hbox{/}\mkern-13.5mu D} %this one can be subscripted
+\def\dsl{\raise.15ex\hbox{/}\kern-.57em\partial}
+\def\del{\partial}
+\def\Psl{\dsl}
+\def\tr{{\rm tr}}
+\font\bigit=cmti10 scaled \magstep1
+\def\biglie{\hbox{\bigit\$}}       %pound sterling
+\def\boxeqn#1{\vcenter{\vbox{\hrule\hbox{\vrule\kern3pt\vbox{\kern3pt
+        \hbox{${\displaystyle #1}$}\kern3pt}\kern3pt\vrule}\hrule}}}
+\def\mbox#1#2{\vcenter{\hrule \hbox{\vrule height#2in
+                \kern#1in \vrule} \hrule}}  %e.g. \mbox{.1}{.1}
+\hyphenation{anom-aly anom-alies coun-ter-term coun-ter-terms}
+%%
+%%       matters of taste
+%%
+%%  
+%%
+%\def\tilde{\widetilde} \def\bar{\overline} \def\hat{\widehat}
+\def\e#1{{\rm e}^{^{\textstyle#1}}}
+\def\grad#1{\,\nabla\!_{{#1}}\,}
+\def\ph{\varphi}
+\def\psibar{\overline\psi}
+\def\om#1#2{\omega^{#1}{}_{#2}}
+\def\darr#1{\raise1.5ex\hbox{$\leftrightarrow$}\mkern-16.5mu #1}
+\def\lie{\hbox{\it\$}} %pound sterling
+\def\roughly#1{\raise.3ex\hbox{$#1$\kern-.75em\lower1ex\hbox{$\sim$}}}
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%   Miscellaneous macros
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%\def\letter{\FRONTPAGE \letterhead \addressee }
+%
+%  A copies-to macro for the end of letters
+%
+\def\cc#1{%
+\setbox0 = \vtop{\ialign to\hsize{\strut ##\hfil\tabskip 0pt plus \hsize %
+\crcr #1\crcr}}%
+\hbox{{cc:\ }\box0}%
+}   
+%%% undertildes
+\def\underwig#1{{         
+\setbox0=\hbox{$#1$}
+\setbox1=\hbox{}
+\wd1=\wd0
+\ht1=\ht0
+\dp1=\dp0
+\setbox2=\hbox{$\rm\widetilde{\box1}$}
+\dimen@=\ht2 \advance \dimen@ by \dp2 \advance \dimen@ by 1.5pt
+\ht2=0pt \dp2=0pt
+\hbox to 0pt{$#1$\hss} \lower\dimen@\box2
+}}
+%
+\def\bunderwig#1{{
+\setbox0=\hbox{$#1$}
+\setbox1=\hbox{}
+\wd1=\wd0
+\ht1=\ht0
+\dp1=\dp0
+\setbox2=\hbox{$\seventeenrm\widetilde{\box1}$}
+\dimen@=\the\ht2 \advance \dimen@ by \the\dp2 \advance \dimen@ by 1.5pt
+\ht2=0pt \dp2=0pt
+\hbox to 0pt{$#1$\hss} \lower\dimen@\box2
+}}
+%
+\def\journal#1&#2(#3){\unskip, \sl #1~\bf #2 \rm (19#3) }
+                    % Journal reference. Alignment
+                    % tabs & set off name, vol, year, page
+\def\npjournal#1&#2&#3&#4&{\unskip, #1~\rm #2 \rm (#3) #4}
+\gdef\prjournal#1&#2&#3&#4&{\unskip, #1~\bf #2, \rm #4 (#3)}
+\def\JOURNAL{\ifPhysRev\prjournal\else\npjournal\fi}
+%
+\def\coeff#1#2{\textstyle{#1\over #2}}
+\def\partder#1#2{{\partial #1\over\partial #2}}
+\def\bra#1{\left\langle #1\right|}
+\def\ket#1{\left| #1\right\rangle}
+\def\VEV#1{\left\langle #1\right\rangle}
+\let\vev=\VEV
+\def\Tr{\mathop{\rm Tr}\nolimits}
+\let\int=\intop         \let\oint=\ointop
+\def\semi{;\hfil\break}
+\catcode`@=12 % at signs are no longer letters
+%
+\masterreset
+\endinput
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%% This is LABELFORM.TEX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%    Macro to make mailing labels on Avery sheets from an address file.
+%%    Address file should be formatted as:
+%% 
+%%       {
+%%       <name>
+%%       <multi(<=5)line address>
+%%       }
+%%
+%%       with a blank line between addresses and NO BLANK LINES at the 
+%%       BEGINNING or the END
+%%
+%%       The enhanced phyzzx.plus automatically formats the input file for 
+%%       addresses correctly if the command \labelformlabels is inserted 
+%%       BEFORE the \multiletter command 
+%%   
+%%  The present format has ELEVEN labels in each column, THREE columns/page
+%%  and prints in a tenpoint san serif typeface
+%%  (Appended to the end of this file is the format for EIGHT labels/column)
+%%
+%%   No matter what the name of the address file input is, the output will
+%%   be called LABELFORM.DVI
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\font\tenss = cmss10
+\tenss
+\nopagenumbers 
+\baselineskip=9truept  % use 10truept here for labels with only four lines
+\parindent 0pt
+\hsize=8.5truein
+\vsize=11 truein
+\hoffset=-0.65 truein
+\voffset=-0.795 truein
+%
+\newread\addrfileno
+\loop\immediate\write16{ }
+  \message{Address file name?  }
+  \read-1 to \addrfile
+  \immediate\write16{ }
+  \openin\addrfileno=\addrfile
+  \ifeof\addrfileno \immediate\write16{File not found.}
+\repeat
+%
+\newbox\onelabel
+\newbox\wall
+\setbox\wall=\hbox to 0pt{\null}
+\newcount\across  \across=0
+\newcount\down    \down=0
+%
+\newif\ifanymore
+\loop
+  \endlinechar=`\^^M               % normal expansion of <cr>
+  \begingroup\obeylines            % to get address read in with \par's
+  \global\read\addrfileno to \addresslines  %
+  \endgroup
+  \setbox\onelabel=\hbox to 2.8truein{\vbox to 0.99truein{\vskip 3truept
+      \hbox{\vbox{\hsize=2.8truein \addresslines}}
+      \vfil}} %                                     
+  \setbox\wall=\hbox{\box\wall\box\onelabel}
+  \advance\across by 1
+  \ifnum\across=3                  % if 3 labels in a row, add row
+      \box\wall
+      \vskip -1.0pt                % correct downward creep
+      \setbox\wall=\hbox to 0pt{\null}
+      \advance\down by 1
+      \across=0
+      \ifnum\down=11               % if 11 rows on page, print page
+          \eject
+          \down=0
+      \fi
+  \fi
+  \read\addrfileno to \emptyline   % 1 blank line divides addresses
+  \ifeof\addrfileno\anymorefalse   % last line in the file
+    \else\anymoretrue\fi           % otherwise repeat the loop
+  \ifanymore
+\repeat
+\closein\addrfileno
+\ifnum\across=0       % if addresses ended with a full row, no need to fill
+  \else               % if addresses didn't end with a full row, fill it out
+  \setbox\wall=\hbox to\hsize{\box\wall\hfill}
+  \box\wall \vfill\eject 
+\fi 
+\bye
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%% This is LABELFORM.TEX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%
+%%   Macro to make mailing labels on Avery sheets from an address file.
+%%   Address file should be formatted as:
+%% 
+%%
+%%       {
+%%       <name>
+%%       <multi(<=6)line address>
+%%       }
+%%
+%%       with a blank line between addresses and NO BLANK LINES at the 
+%%       BEGINNING or the END
+%%
+%%   The enhanced phyzzx.plus automatically formats the input file for 
+%%   addresses correctly if the command \labelformlabels is inserted BEFORE 
+%%   the \multiletter command
+%%
+%%   The present format has EIGHT labels in each column, THREE columns/page
+%%   and prints in a san serif typeface
+%%
+%%   No matter what the name of the address file input is, the output will
+%%   be called LABELFORM.DVI
+%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\font\tenss = cmss10
+\tenss
+\nopagenumbers 
+\baselineskip=9 truept
+\parindent 0pt
+\hsize=8.5truein
+\vsize=11truein
+\hoffset=-0.65truein
+\voffset=-0.4truein
+%
+\newread\addrfileno
+\loop\immediate\write16{ }
+  \message{Address file name?  }
+  \read-1 to \addrfile
+  \immediate\write16{ }
+  \openin\addrfileno=\addrfile
+  \ifeof\addrfileno \immediate\write16{File not found.}
+\repeat
+%
+\newbox\onelabel
+\newbox\wall
+\setbox\wall=\hbox to 0pt{\null}
+\newcount\across  \across=0
+\newcount\down    \down=0
+%
+\newif\ifanymore
+\loop
+  \endlinechar=`\^^M               % normal expansion of <cr>
+  \begingroup\obeylines            % to get address read in with \par's
+  \global\read\addrfileno to \addresslines  %
+  \endgroup
+  \setbox\onelabel=\hbox to 2.8truein{\vbox to 1.35truein{\vskip 3truept
+      \hbox{\vbox{\hsize=2.8 truein \addresslines}}
+      \vfil}} %
+  \setbox\wall=\hbox{\box\wall\box\onelabel}
+  \advance\across by 1
+  \ifnum\across=3                  % if 3 labels in a row, add row
+      \box\wall
+      \vskip -1.0pt                % correct downward creep
+      \setbox\wall=\hbox to 0pt{\null}
+      \advance\down by 1
+      \across=0
+      \ifnum\down=8               % if 8 rows on page, print page
+          \eject
+          \down=0
+      \fi
+  \fi
+  \read\addrfileno to \emptyline   % 1 blank line divides addresses
+  \ifeof\addrfileno\anymorefalse   % last line in the file
+    \else\anymoretrue\fi           % otherwise repeat the loop
+  \ifanymore
+\repeat
+\closein\addrfileno
+\ifnum\across=0       % if addresses ended with a full row, no need to fill
+  \else               % if addresses didn't end with a full row, fill it out
+  \setbox\wall=\hbox to\hsize{\box\wall\hfill}
+  \box\wall \vfill\eject 
+\fi 
+\bye
diff --git a/Master/texmf-dist/tex/phyzzx/base/phyzzx.tex b/Master/texmf-dist/tex/phyzzx/base/phyzzx.tex
new file mode 100644
index 00000000000..ad05eea87e0
--- /dev/null
+++ b/Master/texmf-dist/tex/phyzzx/base/phyzzx.tex
@@ -0,0 +1,931 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%%   This is PHYZZX macro package.   % % % % % % % % % % % % % % % % %
+%% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%%  This version of PHYZZX should be used with Version >1.0 of TEX % %
+%% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%%   To preload both PLAIN and PHYZZX, begin your file with    % % % %
+%%%  a line "%macropackage=phyzzx" instead of "\input phyzzx".  % % % %
+%% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%  Created by Vadim Kaplunovsky in June 1984.   %%%%%%%%%%%%%%%%%%
+% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%%%%%%%%%%%  Latest update/debug: April 27, 1988   %%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+\expandafter\ifx\csname phyzzx\endcsname\relax
+ \message{It is better to use PHYZZX format than to
+          \string\input\space PHYZZX}\else
+ \wlog{PHYZZX macros are already loaded and are not
+          \string\input\space again}%
+ \endinput \fi
+%
+\catcode`\@=11 % This allows us to modify PLAIN macros.
+%
+\let\rel@x=\relax
+\let\n@expand=\relax
+\def\pr@tect{\let\n@expand=\noexpand}
+\let\protect=\pr@tect
+\let\gl@bal=\global
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% First, I define fonts and basic spacing parameters
+%
+\newfam\cpfam
+%
+\newdimen\b@gheight             \b@gheight=12pt
+\newcount\f@ntkey               \f@ntkey=0
+\def\f@m{\afterassignment\samef@nt\f@ntkey=}
+\def\samef@nt{\fam=\f@ntkey \the\textfont\f@ntkey\rel@x}
+\def\setstr@t{\setbox\strutbox=\hbox{\vrule height 0.85\b@gheight
+                                depth 0.35\b@gheight width\z@ }}
+%
+\input phyzzx.fonts
+% Actual font definitions are kept in a separate file
+% to facilitate font substitution.
+%
+\def\rm{\n@expand\f@m0 }
+\def\mit{\n@expand\f@m1 }         \let\oldstyle=\mit
+\def\cal{\n@expand\f@m2 }
+\def\it{\n@expand\f@m\itfam}
+\def\sl{\n@expand\f@m\slfam}
+\def\bf{\n@expand\f@m\bffam}
+\def\tt{\n@expand\f@m\ttfam}
+\def\caps{\n@expand\f@m\cpfam}    \let\cp=\caps
+\def\em@{\rel@x\ifnum\f@ntkey=0 \it \else
+        \ifnum\f@ntkey=\bffam \it \else \rm \fi \fi }
+\def\em{\n@expand\em@}
+%
+\def\fourteenpoint{\fourteenf@nts \samef@nt \b@gheight=14pt \setstr@t }
+\def\twelvepoint{\twelvef@nts \samef@nt \b@gheight=12pt \setstr@t }
+\def\tenpoint{\tenf@nts \samef@nt \b@gheight=10pt \setstr@t }
+%
+%
+\normalbaselineskip = 20pt plus 0.2pt minus 0.1pt
+\normallineskip = 1.5pt plus 0.1pt minus 0.1pt
+\normallineskiplimit = 1.5pt
+\newskip\normaldisplayskip
+\normaldisplayskip = 20pt plus 5pt minus 10pt
+\newskip\normaldispshortskip
+\normaldispshortskip = 6pt plus 5pt
+\newskip\normalparskip
+\normalparskip = 6pt plus 2pt minus 1pt
+\newskip\skipregister
+\skipregister = 5pt plus 2pt minus 1.5pt
+%
+\newif\ifsingl@
+\newif\ifdoubl@
+\newif\iftwelv@  \twelv@true
+%
+\def\singlespace{\singl@true\doubl@false\spaces@t}
+\def\doublespace{\singl@false\doubl@true\spaces@t}
+\def\normalspace{\singl@false\doubl@false\spaces@t}
+\def\Tenpoint{\tenpoint\twelv@false\spaces@t}
+\def\Twelvepoint{\twelvepoint\twelv@true\spaces@t}
+%
+\def\spaces@t{\rel@x
+      \iftwelv@ \ifsingl@\subspaces@t3:4;\else\subspaces@t1:1;\fi
+       \else \ifsingl@\subspaces@t3:5;\else\subspaces@t4:5;\fi \fi
+      \ifdoubl@ \multiply\baselineskip by 5
+         \divide\baselineskip by 4 \fi }
+%
+\def\subspaces@t#1:#2;{
+      \baselineskip = \normalbaselineskip
+      \multiply\baselineskip by #1 \divide\baselineskip by #2
+      \lineskip = \normallineskip
+      \multiply\lineskip by #1 \divide\lineskip by #2
+      \lineskiplimit = \normallineskiplimit
+      \multiply\lineskiplimit by #1 \divide\lineskiplimit by #2
+      \parskip = \normalparskip
+      \multiply\parskip by #1 \divide\parskip by #2
+      \abovedisplayskip = \normaldisplayskip
+      \multiply\abovedisplayskip by #1 \divide\abovedisplayskip by #2
+      \belowdisplayskip = \abovedisplayskip
+      \abovedisplayshortskip = \normaldispshortskip
+      \multiply\abovedisplayshortskip by #1
+        \divide\abovedisplayshortskip by #2
+      \belowdisplayshortskip = \abovedisplayshortskip
+      \advance\belowdisplayshortskip by \belowdisplayskip
+      \divide\belowdisplayshortskip by 2
+      \smallskipamount = \skipregister
+      \multiply\smallskipamount by #1 \divide\smallskipamount by #2
+      \medskipamount = \smallskipamount \multiply\medskipamount by 2
+      \bigskipamount = \smallskipamount \multiply\bigskipamount by 4 }
+%
+\def\normalbaselines{ \baselineskip=\normalbaselineskip
+   \lineskip=\normallineskip \lineskiplimit=\normallineskip
+   \iftwelv@\else \multiply\baselineskip by 4 \divide\baselineskip by 5
+     \multiply\lineskiplimit by 4 \divide\lineskiplimit by 5
+     \multiply\lineskip by 4 \divide\lineskip by 5 \fi }
+%
+\Twelvepoint  % That's the default
+%
+\interlinepenalty=50
+\interfootnotelinepenalty=5000
+\predisplaypenalty=9000
+\postdisplaypenalty=500
+\hfuzz=1pt
+\vfuzz=0.2pt
+\newdimen\HOFFSET  \HOFFSET=0pt
+\newdimen\VOFFSET  \VOFFSET=0pt
+\newdimen\HSWING   \HSWING=0pt
+\dimen\footins=8in
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%   Next, I define output routines, footnotes & related stuff.
+%
+\newskip\pagebottomfiller
+\pagebottomfiller=\z@ plus \z@ minus \z@
+%
+\def\pagecontents{
+   \ifvoid\topins\else\unvbox\topins\vskip\skip\topins\fi
+   \dimen@ = \dp255 \unvbox255
+   \vskip\pagebottomfiller
+   \ifvoid\footins\else\vskip\skip\footins\footrule\unvbox\footins\fi
+   \ifr@ggedbottom \kern-\dimen@ \vfil \fi }
+%
+\def\makeheadline{\vbox to 0pt{ \skip@=\topskip
+      \advance\skip@ by -12pt \advance\skip@ by -2\normalbaselineskip
+      \vskip\skip@ \line{\vbox to 12pt{}\the\headline} \vss
+      }\nointerlineskip}
+\def\makefootline{\baselineskip = 1.5\normalbaselineskip
+                 \line{\the\footline}}
+%
+\newif\iffrontpage
+\newif\ifp@genum
+\def\nopagenumbers{\p@genumfalse}
+\def\pagenumbers{\p@genumtrue}
+\pagenumbers
+%
+\newtoks\paperheadline
+\newtoks\paperfootline
+\newtoks\letterheadline
+\newtoks\letterfootline
+\newtoks\letterinfo
+\newtoks\date
+%
+\paperheadline={\hfil}
+\paperfootline={\hss\iffrontpage\else\ifp@genum\tenrm\folio\hss\fi\fi}
+\letterheadline{\iffrontpage \hfil \else
+    \rm \ifp@genum page~~\folio\fi \hfil\the\date \fi}
+\letterfootline={\iffrontpage\the\letterinfo\else\hfil\fi}
+\letterinfo={\hfil}
+%
+\def\monthname{\rel@x\ifcase\month 0/\or January\or February\or
+   March\or April\or May\or June\or July\or August\or September\or
+   October\or November\or December\else\number\month/\fi}
+\def\today{\monthname~\number\day, \number\year}
+\date={\today}
+%
+\headline=\paperheadline % The default is
+\footline=\paperfootline % \papers
+%
+\countdef\pageno=1      \countdef\pagen@=0
+\countdef\pagenumber=1  \pagenumber=1
+\def\advancepageno{\gl@bal\advance\pagen@ by 1
+   \ifnum\pagenumber<0 \gl@bal\advance\pagenumber by -1
+    \else\gl@bal\advance\pagenumber by 1 \fi
+    \gl@bal\frontpagefalse  \swing@ }
+%
+\def\folio{\ifnum\pagenumber<0 \romannumeral-\pagenumber
+           \else \number\pagenumber \fi }
+%
+\def\swing@{\ifodd\pagenumber \gl@bal\advance\hoffset by -\HSWING
+             \else \gl@bal\advance\hoffset by \HSWING \fi }
+%
+\def\footrule{\dimen@=\prevdepth\nointerlineskip
+   \vbox to 0pt{\vskip -0.25\baselineskip \hrule width 0.35\hsize \vss}
+   \prevdepth=\dimen@ }
+%
+\let\footnotespecial=\rel@x
+\newdimen\footindent
+\footindent=24pt
+\def\Textindent#1{\noindent\llap{#1\enspace}\ignorespaces}
+%
+\def\Vfootnote#1{\insert\footins\bgroup
+   \interlinepenalty=\interfootnotelinepenalty \floatingpenalty=20000
+   \singl@true\doubl@false\Tenpoint
+   \splittopskip=\ht\strutbox \boxmaxdepth=\dp\strutbox
+   \leftskip=\footindent \rightskip=\z@skip
+   \parindent=0.5\footindent \parfillskip=0pt plus 1fil
+   \spaceskip=\z@skip \xspaceskip=\z@skip \footnotespecial
+   \Textindent{#1}\footstrut\futurelet\next\fo@t}
+%
+\def\Footnote#1{\attach{${#1}$}\Vfootnote{#1}}
+\def\vfootnote#1{\Vfootnote{${#1}$}}
+\def\footnote#1{\attach{#1}\vfootnote{#1}}
+\def\footattach{\attach\footsymbol}
+\def\foot{\attach\footsymbolgen\vfootnote{\footsymbol}}
+\let\footsymbol=\star
+%
+\newcount\lastf@@t           \lastf@@t=-1
+\newcount\footsymbolcount    \footsymbolcount=0
+\newif\ifPhysRev
+%
+\def\footsymbolgen{\bumpfootsymbolcount \generatefootsymbol \footsymbol }
+%
+\def\bumpfootsymbolcount{\rel@x
+   \iffrontpage \bumpfootsymbolpos \else \advance\lastf@@t by 1
+     \ifPhysRev \bumpfootsymbolneg \else \bumpfootsymbolpos \fi \fi
+   \gl@bal\lastf@@t=\pagen@ }
+\def\bumpfootsymbolpos{\ifnum\footsymbolcount <0
+                            \gl@bal\footsymbolcount =0 \fi
+    \ifnum\lastf@@t<\pagen@ \gl@bal\footsymbolcount=0
+     \else \gl@bal\advance\footsymbolcount by 1 \fi }
+\def\bumpfootsymbolneg{\ifnum\footsymbolcount >0
+             \gl@bal\footsymbolcount =0 \fi
+         \gl@bal\advance\footsymbolcount by -1 }
+%
+\def\fd@f#1 {\xdef\footsymbol{\mathchar"#1 }}
+\def\generatefootsymbol{\ifcase\footsymbolcount \fd@f 13F \or \fd@f 279
+        \or \fd@f 27A \or \fd@f 278 \or \fd@f 27B \else
+        \ifnum\footsymbolcount <0 \fd@f{023 \number-\footsymbolcount }
+         \else \fd@f 203 {\loop \ifnum\footsymbolcount >5
+                \fd@f{203 \footsymbol } \advance\footsymbolcount by -1
+                \repeat }\fi \fi }
+ 
+%
+\def\nonfrenchspacing{\sfcode`\.=3001 \sfcode`\!=3000 \sfcode`\?=3000
+        \sfcode`\:=2000 \sfcode`\;=1500 \sfcode`\,=1251 }
+\nonfrenchspacing
+\newdimen\d@twidth
+{\setbox0=\hbox{s.} \gl@bal\d@twidth=\wd0 \setbox0=\hbox{s}
+        \gl@bal\advance\d@twidth by -\wd0 }
+\def\removehglue{\loop \unskip \ifdim\lastskip >\z@ \repeat }
+\def\roll@ver#1{\removehglue \nobreak \count255 =\spacefactor \dimen@=\z@
+        \ifnum\count255 =3001 \dimen@=\d@twidth \fi
+        \ifnum\count255 =1251 \dimen@=\d@twidth \fi
+    \iftwelv@ \kern-\dimen@ \else \kern-0.83\dimen@ \fi
+   #1\spacefactor=\count255 }
+\def\step@ver#1{\rel@x \ifmmode #1\else \ifhmode
+        \roll@ver{${}#1$}\else {\setbox0=\hbox{${}#1$}}\fi\fi }
+\def\attach#1{\step@ver{\strut^{\mkern 2mu #1} }}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%   Here come chapter, section, subsection & appendix macros.
+%
+\newcount\chapternumber      \chapternumber=0
+\newcount\sectionnumber      \sectionnumber=0
+\newcount\equanumber         \equanumber=0
+\let\chapterlabel=\rel@x
+\let\sectionlabel=\rel@x
+\newtoks\chapterstyle        \chapterstyle={\Number}
+\newtoks\sectionstyle        \sectionstyle={\Number}
+\newskip\chapterskip         \chapterskip=\bigskipamount
+\newskip\sectionskip         \sectionskip=\medskipamount
+\newskip\headskip            \headskip=8pt plus 3pt minus 3pt
+\newdimen\chapterminspace    \chapterminspace=15pc
+\newdimen\sectionminspace    \sectionminspace=10pc
+\newdimen\referenceminspace  \referenceminspace=20pc
+%
+\newif\ifcn@                 \cn@true
+\newif\ifcn@@                \cn@@false
+\def\numberedchapters{\cn@true}
+\def\unnumberedchapters{\cn@false\sequentialequations}
+%
+\def\chapterreset{\gl@bal\advance\chapternumber by 1
+   \ifnum\equanumber<0 \else\gl@bal\equanumber=0\fi
+   \sectionnumber=0 \let\sectionlabel=\rel@x
+   \ifcn@ \gl@bal\cn@@true {\pr@tect
+       \xdef\chapterlabel{\the\chapterstyle{\the\chapternumber}}}%
+    \else \gl@bal\cn@@false \gdef\chapterlabel{\rel@x}\fi }
+%
+\def\@alpha#1{\count255='140 \advance\count255 by #1\char\count255}
+ \def\alphabetic{\n@expand\@alpha}
+\def\@Alpha#1{\count255='100 \advance\count255 by #1\char\count255}
+ \def\Alphabetic{\n@expand\@Alpha}
+\def\@Roman#1{\uppercase\expandafter{\romannumeral #1}}
+ \def\Roman{\n@expand\@Roman}
+\def\@roman#1{\romannumeral #1}    \def\roman{\n@expand\@roman}
+\def\@number#1{\number #1}         \def\Number{\n@expand\@number}
+\def\BLANK#1{\rel@x}               \let\BLANC=\BLANK
+%
+\def\titleparagraphs{\interlinepenalty=9999
+     \leftskip=0.03\hsize plus 0.22\hsize minus 0.03\hsize
+     \rightskip=\leftskip \parfillskip=0pt
+     \hyphenpenalty=9000 \exhyphenpenalty=9000
+     \tolerance=9999 \pretolerance=9000
+     \spaceskip=0.333em \xspaceskip=0.5em }
+\def\titlestyle#1{\par\begingroup \titleparagraphs
+     \iftwelv@\fourteenpoint\else\twelvepoint\fi
+   \noindent #1\par\endgroup }
+%
+\def\spacecheck#1{\dimen@=\pagegoal\advance\dimen@ by -\pagetotal
+   \ifdim\dimen@<#1 \ifdim\dimen@>0pt \vfil\break \fi\fi}
+%
+\def\chapter#1{\par \penalty-300 \vskip\chapterskip
+   \spacecheck\chapterminspace
+   \chapterreset \titlestyle{\ifcn@@\chapterlabel.~\fi #1}
+   \nobreak\vskip\headskip \penalty 30000
+   {\pr@tect\wlog{\string\chapter\space \chapterlabel}} }
+\let\chap=\chapter
+%
+\def\section#1{\par \ifnum\lastpenalty=30000\else
+   \penalty-200\vskip\sectionskip \spacecheck\sectionminspace\fi
+   \gl@bal\advance\sectionnumber by 1
+   {\pr@tect
+   \xdef\sectionlabel{\ifcn@@ \chapterlabel.\fi
+       \the\sectionstyle{\the\sectionnumber}}%
+   \wlog{\string\section\space \sectionlabel}}%
+   \noindent {\caps\enspace\sectionlabel.~~#1}\par
+   \nobreak\vskip\headskip \penalty 30000 }
+%
+\def\subsection#1{\par
+   \ifnum\the\lastpenalty=30000\else \penalty-100\smallskip \fi
+   \noindent\undertext{#1}\enspace \vadjust{\penalty5000}}
+\let\subsec=\subsection
+%
+\def\undertext#1{\vtop{\hbox{#1}\kern 1pt \hrule}}
+%
+\def\ACK{\par\penalty-100\medskip \spacecheck\sectionminspace
+   \line{\fourteenrm\hfil ACKNOWLEDGEMENTS\hfil}\nobreak\vskip\headskip }
+\def\ack{\subsection{Acknowledgements:}}
+%
+\def\APPENDIX#1#2{\par\penalty-300\vskip\chapterskip
+   \spacecheck\chapterminspace \chapterreset \xdef\chapterlabel{#1}
+   \titlestyle{APPENDIX #2} \nobreak\vskip\headskip \penalty 30000
+   \wlog{\string\Appendix~\chapterlabel} }
+\def\Appendix#1{\APPENDIX{#1}{#1}}
+\def\appendix{\APPENDIX{A}{}}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%   Here come macros for equation numbering.
+%
+\def\eqname#1{\rel@x {\pr@tect
+  \ifnum\equanumber<0 \xdef#1{{\rm(\number-\equanumber)}}%
+     \gl@bal\advance\equanumber by -1
+  \else \gl@bal\advance\equanumber by 1
+   \xdef#1{{\rm(\ifcn@@ \chapterlabel.\fi \number\equanumber)}}\fi
+  }#1}
+%
+\def\eq{\eqname\?}
+\def\eqn{\eqno\eqname}
+\def\leqn{\leqno\eqname}
+%
+\def\eqinsert#1{\noalign{\dimen@=\prevdepth \nointerlineskip
+   \setbox0=\hbox to\displaywidth{\hfil #1}
+   \vbox to 0pt{\kern 0.5\baselineskip\hbox{$\!\box0\!$}\vss}
+   \prevdepth=\dimen@}}
+%
+\def\leqinsert#1{\eqinsert{#1\hfill}}
+\def\mideqn#1{\eqinsert{\eqname{#1}}}
+\def\midleqn#1{\leqinsert{\eqname{#1}}}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%   Here come items and lists
+%
+\def\GENITEM#1;#2{\par \hangafter=0 \hangindent=#1
+    \Textindent{$ #2 $}\ignorespaces}
+\outer\def\newitem#1=#2;{\gdef#1{\GENITEM #2;}}
+%
+\let\Item=\item
+\newdimen\itemsize                \itemsize=30pt
+\newitem\item=1\itemsize;
+\newitem\sitem=1.75\itemsize;     \let\subitem=\sitem
+\newitem\ssitem=2.5\itemsize;     \let\subsubitem\ssitem
+%
+\outer\def\newlist#1=#2&#3&#4;{\toks0={#2}\toks1={#3}%
+   \count255=\escapechar \escapechar=-1
+   \alloc@0\list\countdef\insc@unt\listcount     \listcount=0
+   \edef#1{\par
+      \countdef\listcount=\the\allocationnumber
+      \advance\listcount by 1
+      \hangafter=0 \hangindent=#4
+      \Textindent{\the\toks0{\listcount}\the\toks1}}
+   \expandafter\expandafter\expandafter
+    \edef\c@t#1{begin}{\par
+      \countdef\listcount=\the\allocationnumber \listcount=1
+      \hangafter=0 \hangindent=#4
+      \Textindent{\the\toks0{\listcount}\the\toks1}}
+   \expandafter\expandafter\expandafter
+    \edef\c@t#1{con}{\par \hangafter=0 \hangindent=#4 \noindent}
+   \escapechar=\count255}
+\def\c@t#1#2{\csname\string#1#2\endcsname}
+%
+\newlist\point=\Number&.&1.0\itemsize;
+\newlist\subpoint=(\alphabetic&)&1.75\itemsize;
+\newlist\subsubpoint=(\roman&)&2.5\itemsize;
+%
+\let\spoint=\subpoint             \let\sspoint=\subsubpoint
+\let\spointbegin=\subpointbegin   \let\sspointbegin=\subsubpointbegin
+\let\spointcon=\subpointcon       \let\sspointcon=\subsubpointcon
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%   Here come macros for references, figures & tables.
+%
+% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%  First, references.
+%
+\newcount\referencecount     \referencecount=0
+\newcount\lastrefsbegincount \lastrefsbegincount=0
+\newif\ifreferenceopen       \newwrite\referencewrite
+\newdimen\refindent          \refindent=30pt
+%
+\def\normalrefmark#1{\attach{\scriptscriptstyle [ #1 ] }}
+\let\PRrefmark=\attach
+\def\NPrefmark#1{\step@ver{{\;[#1]}}}
+\def\refmark#1{\rel@x\ifPhysRev\PRrefmark{#1}\else\normalrefmark{#1}\fi}
+%
+\def\refend@{\refmark{\number\referencecount}}
+\def\refend{\refend@{}\space }
+\def\refsend{\refmark{\count255=\referencecount
+   \advance\count255 by-\lastrefsbegincount
+   \ifcase\count255 \number\referencecount
+   \or \number\lastrefsbegincount,\number\referencecount
+   \else \number\lastrefsbegincount-\number\referencecount \fi}\space }
+%
+\def\REFNUM#1{\rel@x \gl@bal\advance\referencecount by 1
+    \xdef#1{\the\referencecount }}
+\def\Refnum#1{\REFNUM #1\refend@ } \let\refnum=\Refnum
+\def\REF#1{\REFNUM #1\R@FWRITE\ignorespaces}
+\def\Ref#1{\Refnum #1\REFWRITE }
+\def\ref{\Ref\?}
+\def\REFS#1{\REFNUM #1\gl@bal\lastrefsbegincount=\referencecount
+    \REFWRITE }
+\def\refs{\REFS\?}
+\def\refc{\REF\?}
+\let\refscon=\refc       \let\REFSCON=\REF
+%
+\def\r@fitem#1{\par \hangafter=0 \hangindent=\refindent \Textindent{#1}}
+\def\refitem#1{\r@fitem{#1.}}
+\def\NPrefitem#1{\r@fitem{[#1]}}
+\def\NPrefs{\let\refmark=\NPrefmark \let\refitem=NPrefitem}
+%
+%
+\def\REFWRITE{\R@FWRITE\rel@x }
+\def\R@FWRITE#1{\ifreferenceopen \else \gl@bal\referenceopentrue
+     \immediate\openout\referencewrite=\jobname.refs
+     \toks@={\begingroup \refoutspecials \catcode`\^^M=10 }%
+     \immediate\write\referencewrite{\the\toks@}\fi
+    \immediate\write\referencewrite{\noexpand\refitem %
+                                    {\the\referencecount}}%
+    \p@rse@ndwrite \referencewrite #1}
+%
+\begingroup
+ \catcode`\^^M=\active \let^^M=\relax %
+ \gdef\p@rse@ndwrite#1#2{\begingroup \catcode`\^^M=12 \newlinechar=`\^^M%
+         \chardef\rw@write=#1\sc@nlines#2}%
+ \gdef\sc@nlines#1#2{\sc@n@line \g@rbage #2^^M\endsc@n \endgroup #1}%
+ \gdef\sc@n@line#1^^M{\expandafter\toks@\expandafter{\deg@rbage #1}%
+         \immediate\write\rw@write{\the\toks@}%
+         \futurelet\n@xt \sc@ntest }%
+\endgroup
+\def\sc@ntest{\ifx\n@xt\endsc@n \let\n@xt=\rel@x
+       \else \let\n@xt=\sc@n@notherline \fi \n@xt }
+\def\sc@n@notherline{\sc@n@line \g@rbage }
+\def\deg@rbage#1{}
+\let\g@rbage=\relax    \let\endsc@n=\relax
+%
+%
+\def\refout{\par\penalty-400\vskip\chapterskip
+   \spacecheck\referenceminspace
+   \ifreferenceopen \Closeout\referencewrite \referenceopenfalse \fi
+   \line{\fourteenrm\hfil REFERENCES\hfil}\vskip\headskip
+   \input \jobname.refs
+   }
+\def\refoutspecials{\sfcode`\.=1000 \interlinepenalty=1000
+         \rightskip=\z@ plus 1em minus \z@ }
+%
+\def\Closeout#1{\toks0={\par\endgroup}\immediate\write#1{\the\toks0}%
+   \immediate\closeout#1}
+%
+% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%  Next, figure captions and table captions.
+%
+\newcount\figurecount     \figurecount=0
+\newcount\tablecount      \tablecount=0
+\newif\iffigureopen       \newwrite\figurewrite
+\newif\iftableopen        \newwrite\tablewrite
+%
+\def\FIGNUM#1{\rel@x \gl@bal\advance\figurecount by 1
+    \xdef#1{\the\figurecount}}
+\def\FIGURE#1{\FIGNUM #1\F@GWRITE\ignorespaces }
+\let\FIG=\FIGURE
+\def\Fig{\FIGNUM\?Figure~\?\FIGWRITE }
+\def\fig{\FIGNUM\?figure~\?\FIGWRITE }
+\def\figitem#1{\r@fitem{#1)}}
+\def\FIGWRITE{\F@GWRITE\rel@x }
+%
+\def\TABNUM#1{\rel@x \gl@bal\advance\tablecount by 1
+    \xdef#1{\the\tablecount}}
+\def\TABLE#1{\TABNUM #1\T@BWRITE\ignorespaces }
+\def\Table{\TABNUM\?Table~\?\TABWRITE }
+\def\tabitem#1{\r@fitem{#1:}}
+\def\TABWRITE{\T@BWRITE\rel@x }
+%
+\def\F@GWRITE#1{\iffigureopen \else \gl@bal\figureopentrue
+     \immediate\openout\figurewrite=\jobname.figs
+     \toks@={\begingroup \catcode`\^^M=10 }%
+     \immediate\write\figurewrite{\the\toks@}\fi
+    \immediate\write\figurewrite{\noexpand\figitem %
+                                 {\the\figurecount}}%
+    \p@rse@ndwrite \figurewrite #1}
+\def\T@BWRITE#1{\iftableopen \else \gl@bal\tableopentrue
+     \immediate\openout\tablewrite=\jobname.tabs
+     \toks@={\begingroup \catcode`\^^M=10 }%
+     \immediate\write\tablewrite{\the\toks@}\fi
+    \immediate\write\tablewrite{\noexpand\tabitem %
+                                 {\the\tablecount}}%
+    \p@rse@ndwrite \tablewrite #1}
+%
+\def\figout{\par\penalty-400
+   \vskip\chapterskip\spacecheck\referenceminspace
+   \iffigureopen \Closeout\figurewrite \figureopenfalse \fi
+   \line{\fourteenrm\hfil FIGURE CAPTIONS\hfil}\vskip\headskip
+   \input \jobname.figs
+   }
+\def\tabout{\par\penalty-400
+   \vskip\chapterskip\spacecheck\referenceminspace
+   \iftableopen \Closeout\tablewrite \tableopenfalse \fi
+   \line{\fourteenrm\hfil TABLE CAPTIONS\hfil}\vskip\headskip
+   \input \jobname.tabs
+   }
+%
+% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%%  Finally, inserted figures.
+%
+%
+\newbox\picturebox
+\def\p@cht{\ht\picturebox }
+\def\p@cwd{\wd\picturebox }
+\def\p@cdp{\dp\picturebox }
+\newdimen\xshift
+\newdimen\yshift
+%
+\newdimen\captionwidth
+\newskip\captionskip
+\captionskip=15pt plus 5pt minus 3pt
+\def\fullwidth{\captionwidth=\hsize }
+\newtoks\Caption
+\newif\ifcaptioned
+\newif\ifselfcaptioned
+\def\caption{\captionedtrue \Caption }
+\newcount\linesabove
+%
+\newif\iffileexists
+\newtoks\picfilename
+\def\fil@#1 {\fileexiststrue \picfilename={#1}}
+\def\file#1{\if=#1\let\n@xt=\fil@ \else \def\n@xt{\fil@ #1}\fi \n@xt }
+%
+\def\pl@t{\begingroup \pr@tect
+    \setbox\picturebox=\hbox{}\fileexistsfalse
+    \let\height=\p@cht \let\width=\p@cwd \let\depth=\p@cdp
+    \xshift=\z@ \yshift=\z@ \captionwidth=\z@
+    \Caption={}\captionedfalse
+    \linesabove =0 \picturedefault }
+\def\plot{\pl@t \selfcaptionedfalse }
+\def\Picture#1{\gl@bal\advance\figurecount by 1
+    \xdef#1{\the\figurecount}\pl@t \selfcaptionedtrue }
+\def\picture{\Picture\?}
+%
+\def\s@vepicture{\iffileexists \parsefilename \redopicturebox \fi
+   \ifdim\captionwidth>\z@ \else \captionwidth=\p@cwd \fi
+   \xdef\lastpicture{\iffileexists
+        \setbox0=\hbox{\raise\the\yshift \vbox{%
+              \moveright\the\xshift\hbox{\picturedefinition}}}%
+        \else \setbox0=\hbox{}\fi
+         \ht0=\the\p@cht \wd0=\the\p@cwd \dp0=\the\p@cdp
+         \vbox{\hsize=\the\captionwidth \line{\hss\box0 \hss }%
+              \ifcaptioned \vskip\the\captionskip \noexpand\Tenpoint
+                \ifselfcaptioned Figure~\the\figurecount.\enspace \fi
+                \the\Caption \fi }}%
+    \endgroup }
+%
+\let\endpicture=\s@vepicture
+\def\savepicture#1{\s@vepicture \global\let#1=\lastpicture }
+\def\displaypicture{\fullwidth \s@vepicture $$\lastpicture $${}}
+\def\toppicture{\fullwidth \s@vepicture \topinsert
+    \lastpicture \medskip \endinsert }
+\def\midpicture{\fullwidth \s@vepicture \midinsert
+    \lastpicture \endinsert }
+%
+%  Wraparound macros - a try.
+%
+\def\leftpicture{\pres@tpicture
+    \dimen@i=\hsize \advance\dimen@i by -\dimen@ii
+    \setbox\picturebox=\hbox to \hsize {\box0 \hss }%
+    \wr@paround }
+\def\rightpicture{\pres@tpicture
+    \dimen@i=\z@
+    \setbox\picturebox=\hbox to \hsize {\hss \box0 }%
+    \wr@paround }
+%
+\def\pres@tpicture{\gl@bal\linesabove=\linesabove
+    \s@vepicture \setbox\picturebox=\vbox{
+         \kern \linesabove\baselineskip \kern 0.3\baselineskip
+         \lastpicture \kern 0.3\baselineskip }%
+    \dimen@=\p@cht \dimen@i=\dimen@
+    \advance\dimen@i by \pagetotal
+    \par \ifdim\dimen@i>\pagegoal \vfil\break \fi
+    \dimen@ii=\hsize
+    \advance\dimen@ii by -\parindent \advance\dimen@ii by -\p@cwd
+    \setbox0=\vbox to\z@{\kern-\baselineskip \unvbox\picturebox \vss }}
+\def\wr@paround{\Caption={}\count255=1
+    \loop \ifnum \linesabove >0
+         \advance\linesabove by -1 \advance\count255 by 1
+         \advance\dimen@ by -\baselineskip
+         \expandafter\Caption \expandafter{\the\Caption \z@ \hsize }%
+      \repeat
+    \loop \ifdim \dimen@ >\z@
+         \advance\count255 by 1 \advance\dimen@ by -\baselineskip
+         \expandafter\Caption \expandafter{%
+             \the\Caption \dimen@i \dimen@ii }%
+      \repeat
+    \edef\n@xt{\parshape=\the\count255 \the\Caption \z@ \hsize }%
+    \par\noindent \n@xt \strut \vadjust{\box\picturebox }}
+%
+\let\picturedefault=\relax
+\let\parsefilename=\relax
+\def\redopicturebox{\let\picturedefinition=\rel@x
+   \errhelp=\disabledpictures
+   \errmessage{This version of TeX cannot handle pictures.  Sorry.}}
+\newhelp\disabledpictures
+     {You will get a blank box in place of your picture.}
+%
+%
+%
+% Above definitions of \parsefilename and \redopicturebox
+% are dumb defaults.  Actual definition are system dependent;
+% you will probably find them in your PHYZZX.LOCAL file.
+%
+% The example below is used at Princeton.
+%
+%\def\parsefilename{\expandafter\p@rse\the\picfilename.\endp@rse }
+%\def\p@rse#1.#2\endp@rse{\if"#2"\expandafter\picfilename
+%        \expandafter{\the\picfilename.fig}\fi }
+%
+%\newread\pictureread
+%\def\redopicturebox{\expandafter\openin\expandafter\pictureread
+%                    \the\picfilename
+%   \ifeof\pictureread \errhelp=\disabledpictures
+%     \edef\n@xt{\errmessage={Cannot find file \the\picfilename}\n@xt
+%     \let\pictureboxdefinition=\relax \else
+%    \read\pictureread to\y@p \read\pictureread to\y@p
+%    \read\pictureread to\x@p \read\pictureread to\y@m
+%    \read\pictureread to\x@m \closein\pictureread
+%    \p@cht=\y@p truein \advance\p@cht by -\y@m truein
+%    \advance\yshift by \y@p truein
+%    \p@cwd=\x@p truein \advance\p@cwd by -\x@m truein
+%    \advance\xshift by \x@m truein
+%    \edef\picturedefinition{\special{pos,inc=\the\picfilename}}%
+%    \fi }
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%   Here come macros for memos & letters.
+%
+\def\FRONTPAGE{\ifvoid255\else\vfill\penalty-20000\fi
+   \gl@bal\pagenumber=1     \gl@bal\chapternumber=0
+   \gl@bal\equanumber=0     \gl@bal\sectionnumber=0
+   \gl@bal\referencecount=0 \gl@bal\figurecount=0
+   \gl@bal\tablecount=0     \gl@bal\frontpagetrue
+   \gl@bal\lastf@@t=0       \gl@bal\footsymbolcount=0
+   \gl@bal\cn@@false }
+\let\Frontpage=\FRONTPAGE
+%
+\def\papers{\papersize\headline=\paperheadline\footline=\paperfootline}
+%
+\def\papersize{\hsize=35pc \vsize=50pc \hoffset=0pc \voffset=1pc
+   \advance\hoffset by\HOFFSET \advance\voffset by\VOFFSET
+   \pagebottomfiller=0pc
+   \skip\footins=\bigskipamount \normalspace }
+%
+\papers  %  This is the default
+%
+% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%
+\newskip\lettertopskip       \lettertopskip=20pt plus 50pt
+\newskip\letterbottomskip    \letterbottomskip=\z@ plus 100pt
+\newskip\signatureskip       \signatureskip=40pt plus 3pt
+%
+\def\lettersize{\hsize=6.5in \vsize=8.5in \hoffset=0in \voffset=0.5in
+   \advance\hoffset by\HOFFSET \advance\voffset by\VOFFSET
+   \pagebottomfiller=\letterbottomskip
+   \skip\footins=\smallskipamount \multiply\skip\footins by 3
+   \singlespace }
+%
+\def\MEMO{\lettersize \headline=\letterheadline \footline={\hfil }%
+   \let\rule=\memorule \FRONTPAGE \memohead }
+\let\memo=\MEMO
+\def\memodate{\afterassignment\MEMO \date }
+%
+\def\memit@m#1{\smallskip \hangafter=0 \hangindent=1in
+    \Textindent{\caps #1}}
+\def\subject{\memit@m{Subject:}}
+\def\topic{\memit@m{Topic:}}
+\def\from{\memit@m{From:}}
+\def\to{\rel@x \ifmmode \rightarrow \else \memit@m{To:}\fi }
+\def\memorule{\medskip\hrule height 1pt\bigskip}  % default definitions
+\def\memohead{\centerline{\fourteenrm MEMORANDUM}}% see phyzzx.local
+%
+\newwrite\labelswrite
+\newtoks\rw@toks
+\def\letters{\lettersize
+   \headline=\letterheadline \footline=\letterfootline
+   \immediate\openout\labelswrite=\jobname.lab}
+\def\letter{\FRONTPAGE \letterhead \addressee }
+\let\letterhead=\rel@x
+%
+\def\addressee#1{\medskip\line{\hskip 0.75\hsize plus\z@ minus 0.25\hsize
+                               \the\date \hfil }%
+   \vskip \lettertopskip
+   \ialign to\hsize{\strut ##\hfil\tabskip 0pt plus \hsize \crcr #1\crcr}
+   \writelabel{#1}\medskip \noindent\hskip -\spaceskip \ignorespaces }
+%
+\def\rwl@begin#1\cr{\rw@toks={#1\crcr}\rel@x
+   \immediate\write\labelswrite{\the\rw@toks}\futurelet\n@xt\rwl@next}
+\def\rwl@next{\ifx\n@xt\rwl@end \let\n@xt=\rel@x
+      \else \let\n@xt=\rwl@begin \fi \n@xt}
+\let\rwl@end=\rel@x
+\def\writelabel#1{\immediate\write\labelswrite{\noexpand\labelbegin}
+     \rwl@begin #1\cr\rwl@end
+     \immediate\write\labelswrite{\noexpand\labelend}}
+%
+\newtoks\FromAddress         \FromAddress={}
+\newtoks\sendername          \sendername={}
+\newbox\FromLabelBox
+\newdimen\labelwidth          \labelwidth=6in
+%
+\def\makelabels{\afterassignment\Makelabels \sendername=}
+\def\Makelabels{\FRONTPAGE \letterinfo={\hfil } \MakeFromBox
+     \immediate\closeout\labelswrite  \input \jobname.lab\vfil\eject}
+\let\labelend=\rel@x
+\def\labelbegin#1\labelend{\setbox0=\vbox{\ialign{##\hfil\cr #1\crcr}}
+     \MakeALabel }
+%
+\def\MakeFromBox{\gl@bal\setbox\FromLabelBox=\vbox{\Tenpoint
+     \ialign{##\hfil\cr \the\sendername \the\FromAddress \crcr }}}
+\def\MakeALabel{\vskip 1pt \hbox{\vrule \vbox{
+        \hsize=\labelwidth \hrule\bigskip
+        \leftline{\hskip 1\parindent \copy\FromLabelBox}\bigskip
+        \centerline{\hfil \box0 } \bigskip \hrule
+        }\vrule } \vskip 1pt plus 1fil }
+%
+\def\signed#1{\par \nobreak \bigskip \dt@pfalse \begingroup
+  \everycr={\noalign{\nobreak
+            \ifdt@p\vskip\signatureskip\gl@bal\dt@pfalse\fi }}%
+  \tabskip=0.5\hsize plus \z@ minus 0.5\hsize
+  \halign to\hsize {\strut ##\hfil\tabskip=\z@ plus 1fil minus \z@\crcr
+          \noalign{\gl@bal\dt@ptrue}#1\crcr }%
+  \endgroup \bigskip }
+%
+\def\copies{\par\hang\textindent{\tenrm cc:}}
+\def\endletter{\par \iffrontpage \else \vfil \fi \supereject }
+%
+\newbox\letterb@x
+\def\lettertext{\par \vskip\parskip \unvcopy\letterb@x \par }
+\def\multiletter{\setbox\letterb@x=\vbox\bgroup
+      \everypar{\vrule height 1\baselineskip depth 0pt width 0pt }
+      \singlespace \topskip=\baselineskip }
+\def\letterend{\par\egroup}
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%   Here come macros for title pages.
+%
+\newskip\frontpageskip
+\newtoks\Pubnum   \let\pubnum=\Pubnum
+\newtoks\Pubtype  \let\pubtype=\Pubtype
+\newif\ifp@bblock  \p@bblocktrue
+%
+\def\PH@SR@V{\doubl@true \baselineskip=24.1pt plus 0.2pt minus 0.1pt
+             \parskip= 3pt plus 2pt minus 1pt }
+\def\PHYSREV{\papers\PhysRevtrue\PH@SR@V}
+\let\physrev=\PHYSREV
+\def\titlepage{\FRONTPAGE\papers\ifPhysRev\PH@SR@V\fi
+   \ifp@bblock\p@bblock \else\hrule height\z@ \rel@x \fi }
+\def\nopubblock{\p@bblockfalse}
+\def\endpage{\vfil\break}
+%
+\frontpageskip=12pt plus .5fil minus 2pt
+\Pubtype={}
+\Pubnum={}
+%
+\def\p@bblock{\begingroup \tabskip=\hsize minus \hsize
+   \baselineskip=1.5\ht\strutbox \topspace-2\baselineskip
+   \halign to\hsize{\strut ##\hfil\tabskip=0pt\crcr
+       \the\Pubnum\crcr\the\date\crcr\the\pubtype\crcr}\endgroup}
+%
+\def\title#1{\vskip\frontpageskip \titlestyle{#1} \vskip\headskip }
+%
+\def\author#1{\vskip\frontpageskip\titlestyle{\twelvecp #1}\nobreak}
+\def\andauthor{\vskip\frontpageskip\centerline{and}\author}
+\def\authors{\vskip\frontpageskip\noindent}
+%
+\def\address#1{\par\kern 5pt\titlestyle{\twelvepoint\it #1}}
+\def\andaddress{\par\kern 5pt \centerline{\sl and} \address}
+\def\SLAC{\address{Stanford Linear Accelerator Center\break
+      Stanford University, Stanford, California~94309}}
+\def\JHL{\address{Joseph Henry Laboratories\break
+      Princeton University\break Princeton, New Jersey 08544}}
+%
+\def\abstract{\par\dimen@=\prevdepth \hrule height\z@ \prevdepth=\dimen@
+   \vskip\frontpageskip\centerline{\fourteenrm ABSTRACT}\vskip\headskip }
+\def\submit#1{\par\nobreak\vfil\nobreak\medskip
+   \centerline{Submitted to \sl #1}}
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%   Miscellaneous macros
+%
+\def\ie{\hbox{\it i.e.}}       \def\etc{\hbox{\it etc.}}
+\def\eg{\hbox{\it e.g.}}       \def\cf{\hbox{\it cf.}}
+\def\etal{\hbox{\it et al.}}   \def\dash{\hbox{---}}
+\def\\{\rel@x \ifmmode \backslash \else {\tt\char`\\}\fi }
+%
+\def\sequentialequations{\rel@x \if\equanumber<0 \else
+  \gl@bal\equanumber=-\equanumber \gl@bal\advance\equanumber by -1 \fi }
+%
+\def\nextline{\unskip\nobreak\hfill\break}
+\let\brk=\nextline
+\def\subpar{\unskip\nobreak\vadjust{\allowbreak\vskip\parskip}%
+   \hskip\parfillskip\break}
+%
+\def\journal#1&#2(#3){\begingroup \let\journal=\dummyj@urnal
+    \unskip, \sl #1\unskip~\bf\ignorespaces #2\rm
+    (\afterassignment\j@ur \count255=#3), \endgroup\ignorespaces }
+\def\j@ur{\ifnum\count255<100 \advance\count255 by 1900 \fi
+          \number\count255 }
+\def\dummyj@urnal{%
+    \toks@={Reference foul up: nested \journal macros}%
+    \errhelp={Your forgot & or ( ) after the last \journal}%
+    \errmessage{\the\toks@ }}
+%
+\def\cropen#1{\crcr\noalign{\vskip #1}}
+\def\crr{\cropen{3\jot }}
+\def\topspace{\hrule height 0pt depth 0pt \vskip}
+%
+\def\coeff#1#2{{\textstyle{#1\over #2}}}
+\def\half{\coeff12 }
+\def\partder#1#2{{\partial #1\over\partial #2}}
+\def\Buildrel#1\under#2{\mathrel{\mathop{#2}\limits_{#1}}}
+%
+\def\becomes#1{\mathchoice{\becomes@\scriptstyle{#1}}
+   {\becomes@\scriptstyle{#1}} {\becomes@\scriptscriptstyle{#1}}
+   {\becomes@\scriptscriptstyle{#1}}}
+\def\becomes@#1#2{\mathrel{\setbox0=\hbox{$\m@th #1{\,#2\,}$}%
+        \mathop{\hbox to \wd0 {\rightarrowfill}}\limits_{#2}}}
+%
+\def\bra#1{\left\langle #1\right|}
+\def\ket#1{\left| #1\right\rangle}
+\def\braket#1#2{\VEV{#1 | #2}}
+\def\VEV#1{\left\langle #1\right\rangle}
+\let\vev=\VEV
+%
+\def\Tr{\mathop{\rm Tr}\nolimits}
+\def\tr{\mathop{\rm tr}\nolimits}
+\let\int=\intop         \let\oint=\ointop
+%
+\def\lsim{\mathrel{\mathpalette\@versim<}}
+\def\gsim{\mathrel{\mathpalette\@versim>}}
+\def\@versim#1#2{\vcenter{\offinterlineskip
+        \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr\sim\crcr } }}
+%
+\def\big#1{{\hbox{$\left#1\vbox to 0.85\b@gheight{}\right.\n@space$}}}
+\def\Big#1{{\hbox{$\left#1\vbox to 1.15\b@gheight{}\right.\n@space$}}}
+\def\bigg#1{{\hbox{$\left#1\vbox to 1.45\b@gheight{}\right.\n@space$}}}
+\def\Bigg#1{{\hbox{$\left#1\vbox to 1.75\b@gheight{}\right.\n@space$}}}
+%
+\def\){\mskip 2mu\nobreak }
+%
+% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %
+%
+%   Finally, some bug fixings.
+%
+\let\sec@nt=\sec
+\def\sec{\rel@x\ifmmode\let\n@xt=\sec@nt\else\let\n@xt\section\fi\n@xt}
+%
+\def\obsolete#1{\message{Macro \string #1 is obsolete.}}
+%
+\def\firstsec#1{\obsolete\firstsec \section{#1}}
+\def\firstsubsec#1{\obsolete\firstsubsec \subsection{#1}}
+\def\thispage#1{\obsolete\thispage \gl@bal\pagenumber=#1\frontpagefalse}
+\def\thischapter#1{\obsolete\thischapter \gl@bal\chapternumber=#1}
+\def\splitout{\obsolete\splitout\rel@x}
+\def\prop{\obsolete\prop \propto }
+%
+\def\nextequation#1{\obsolete\nextequation \gl@bal\equanumber=#1
+   \ifnum\the\equanumber>0 \gl@bal\advance\equanumber by 1 \fi}
+%
+\def\BOXITEM{\afterassigment\B@XITEM\setbox0=}
+\def\B@XITEM{\par\hangindent\wd0 \noindent\box0 }
+%
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%   That's about it
+%
+\def\phyzzx{PHY\setbox0=\hbox{Z}\copy0 \kern-0.5\wd0 \box0 X}
+\def\fmtname{phyzzx}        \def\fmtversion{0.94}
+\everyjob{\xdef\today{\monthname~\number\day, \number\year}
+        \input myphyx.tex }
+\message{ by V.K.}
+%
+\input phyzzx.local
+\catcode`\@=12 % at signs are no longer letters
+%
diff --git a/Master/texmf-dist/tex/phyzzx/config/phyzzx.ini b/Master/texmf-dist/tex/phyzzx/config/phyzzx.ini
new file mode 100644
index 00000000000..c2b0e1bbacf
--- /dev/null
+++ b/Master/texmf-dist/tex/phyzzx/config/phyzzx.ini
@@ -0,0 +1,3 @@
+\input plain
+\input phyzzx
+\dump