%^ 
 %%%% harvmac.occ 
 %% is a shrinkable version of harvmac.tex  (from ftp://xxx.lanl.gov). 
 %% This file was formatted by LS, March 1995, lcs@topo.math.u-psud.fr
 %% for use with the Occam utility 
 %% (master posting 1994 on ftp ftp.math.u-psud.fr)
 %
 %%% DO NOT ALTER "OCCAM" SIGNS  <percent>^,  <percent>_ ,   etc.  
 %% UNLESS YOU UNDERSTAND THEM!
  \let\DDef\def \let\Def\def \let\gDef\gdef  
  \let\Let\let \def\gLet{\global\let}%
  \let\Font\font \let\FFont\font 
  \let\Mathchardef\mathchardef\let\Newsymbol\newsymbol
  \let\MATHchardef\mathchardef\let\NEWsymbol\newsymbol
  \input auditor.tex %% keep auditor.tex available
 %% comment out above line to suppress audit function. 
 %
 %%% Remarks on the Occam formatting of harvmac.tex
 %% ---" big typ"e choice assumed and prechosen.
 %% --- Slight printer differences ignored.
 %% --- Reference macros \ref, \nref very fragile
 %% --- Volume reduction 15 ko to 6ko is typical
 %% --- You can easils do still better by simplifying the mss.
 %%%_

%^ A comment for the shrunken macro file: %_
%%  The following are macros extracted from harvmac.tex 
%%  to make an ad hoc header file for <FILENAME>
%%  See ftp://xxx.lanl.gov for original of harvmac.tex 
%%%%%%%%%%%%%%%%%%  tex macros for preprints, cm version %%%%%%%%%%%%%%
%                     (P. Ginsparg, last updated 9/91)
%^                if confused, type `b' in response to query 
%---------------------------------------------------------------------%
%_
%^% site dependent options: 
%% \unredoffs and \redoffs define horizontal and vertical offsets 
%% respectively for unreduced and reduced modes. \speclscape defines
%% the \special{} call that sets printer to landscape (sideways) mode.
%% from standard set below, leave uncommented as appropriate or redefine
%_
%^%% next 400dpi
%\def\unredoffs{} \def\redoffs{\voffset=-.31truein\hoffset=-.48truein}
%\def\speclscape{\special{landscape}}%_

%%% apple lw parameters by default
 \Def\unredoffs{}%_
 \Def\redoffs{\voffset=-.31truein \hoffset=-.59truein}%%_
 \Def\speclscape{\special{ps: landscape}}%
 %% above special for dvips ?? %_

%^%% qms lasergrafix:
%\def\unredoffs{} \def\redoffs{\voffset=-.4truein\hoffset=.125truein}
%\def\speclscape{\special{qms: landscape}}
%_
%^%% saclay A4 paper:
%\def\unredoffs{\hoffset-.14truein\voffset-.2truein} 
%\def\redoffs{\voffset=-.45truein\hoffset=-.21truein} 
%\def\speclscape{\special{landscape}}
%---------------------------------------------------------------------%
%_

 \newbox\leftpage 
 \newdimen\fullhsize 
 \newdimen\hstitle 
 \newdimen\hsbody
 \tolerance=1000\hfuzz=2pt

 %^
 \def\fontflag{cm} %% never used
 %_

\catcode`\@=11 

%#^
\Def\usedLITTLEans{}%_
\Def\usedBIGans{}%% sic! %_
%#_

%^ % This allows us to modify PLAIN macros.
\def\bigans{b }
\def\answ{b }
\message{ big or little pointsize (b/l)? }\read-1 to\answ
\ifx
 \answ\bigans\message{(This will come out unreduced.}%
 \usedBIGans
 %_
 %/^\usedBIGans
 \magnification=1200
 %% Adjust:
 \unredoffs %% set predefined offsets
 %% but maybe adjust:
 %\voffset=0truein 
 %\hoffset=0truein
 \edef\tfontsize{scaled\magstep3}%#_
 \FFont\authorfont=cmcsc10 %#_
 \DDef\abstractfont{\tenpoint}%#_
 \DDef\lspace{{}}%#_
 \DDef\lbspace{{}}%%  $$\lbspace...$$ %#_
 \baselineskip=16pt plus 2pt minus 1pt
 \hsbody=\hsize \hstitle=\hsize 
 %% take default values for unreduced format
 %/_
 %^
 \fi
 \ifx \answ\bigans
 \else
 \usedLITTLEans
 %_
 %/^\usedLITTLEans
 \message{(This will be reduced.} \let\l@r=L
  \magnification=1000\baselineskip=16pt plus 2pt minus 1pt 
 \redoffs %% set predefined offsets
 %% but maybe adjust:
 %\voffset=-.31truein 
 %\hoffset=-.59truein
 %% above sample for dvips and apple laserwriter
  \vsize=7truein 
  \hstitle=8truein\hsbody=4.75truein
  \fullhsize=10truein\hsize=\hsbody
 \edef\tfontsize{scaled\magstep4}%#_
 \FFont\authorfont=cmcsc10 scaled \magstep1 %#_
 \DDef\lspace{\qquad}%#_
 \DDef\lbspace{\hskip-.2in}%%  $$\lbspace...$$ %#_
 %
\output={\ifnum\pageno=0 %%% This is the HUTP version
  \shipout\vbox{\speclscape{\hsize\fullhsize\makeheadline}
    \hbox to \fullhsize{\hfill\pagebody\hfill}}\advancepageno
  \else
  \almostshipout{\leftline{\vbox{\pagebody\makefootline}}}\advancepageno 
  \fi}
\def\almostshipout#1{\if L\l@r \count1=1 \message{[\the\count0.\the\count1]}
      \global\setbox\leftpage=#1 \global\let\l@r=R
 \else \count1=2
  \shipout\vbox{\speclscape{\hsize\fullhsize\makeheadline}
      \hbox to\fullhsize{\box\leftpage\hfil#1}}  \global\let\l@r=L\fi}
%/_
%^
\fi
%---------------------------------------------------------------------
%_

\newcount\yearltd\yearltd=\year\advance\yearltd by -1900%_

\Def\HUTP#1#2{\Title{HUTP-\number\yearltd/A#1}{#2}}%_

\Def\Title#1#2{\nopagenumbers
  \abstractfont\hsize=\hstitle\rightline{#1}%
  \vskip 1in\centerline{\titlefont #2}
  \abstractfont\vskip .5in\pageno=0}%_

\Def\Date#1{\vfill\leftline{#1}\tenpoint
   \supereject\global\hsize=\hsbody%
   \footline={\hss\tenrm\folio\hss}}%     restores pagenumbers%_

%       use following instead of \Date on the preliminary draft, 
%       puts date/time on each page in big mode, writes labels in margins
\Def\draft{\draftmode\Date{\draftdate}}%_
\Def\draftmode{\message{ DRAFTMODE }%
 \def\draftdate{{\rm preliminary draft:
 \number\month/\number\day/\number\yearltd\ \ \hourmin}}%
 \headline={\hfil\draftdate}\writelabels
 \baselineskip=20pt plus 2pt minus 2pt
 {\count255=\time\divide\count255 by 60 \xdef\hourmin{\number\count255}
  \multiply\count255 by-60\advance\count255 by\time
  \xdef\hourmin{\hourmin:\ifnum\count255<10 0\fi\the\count255}}}%_

\Def\writelabels{\def\wrlabeL##1{\leavevmode\vadjust{\rlap{\smash%
{\line{{\escapechar=` \hfill\rlap{\sevenrm\hskip.03in\string##1}}}}}}}%
\def\eqlabeL##1{{\escapechar-1\rlap{\sevenrm\hskip.05in\string##1}}}%
\def\reflabeL##1{\noexpand\llap{%
   \noexpand\sevenrm\string\string\string##1}}}%_

%     use \nolabels to get rid of eqn, ref, and fig labels in draft mode
\def\nolabels{\def\wrlabeL##1{}\def\eqlabeL##1{}\def\reflabeL##1{}}
\nolabels

% tagged sec numbers
\global\newcount\secno \global\secno=0
\global\newcount\meqno \global\meqno=1%_

\DDef\newsec#1{\global\advance\secno by1\message{(\the\secno. #1)}%
  %^\ifx\answ\bigans \vfill\eject 
  %\else \bigbreak\bigskip \fi  %if desired %_
  \global\subsecno=0
  \eqnres@t\noindent{\bf\the\secno. #1}%
  \writetoca{{\secsym} {#1}}\par\nobreak\medskip\nobreak}%#_

 \Def\eqnres@t{\xdef\secsym{\the\secno.}%
    \global\meqno=1\bigbreak\bigskip}%_

 \Def\sequentialequations{\def\eqnres@t{\bigbreak}}%_

 \xdef\secsym{}%_

 \global\newcount\subsecno \global\subsecno=0%_

\Def\subsec#1{\global\advance\subsecno by1
  \message{(\secsym\the\subsecno. #1)}
  \ifnum\lastpenalty>9000\else\bigbreak\fi
  \noindent{\it\secsym\the\subsecno. #1}\writetoca{\string\quad 
  {\secsym\the\subsecno.} {#1}}\par\nobreak\medskip\nobreak}%_

\Def\appendix#1#2{\global\meqno=1
 \global\subsecno=0\xdef\secsym{\hbox{#1.}}
 \bigbreak\bigskip\noindent{\bf Appendix #1. #2}\message{(#1. #2)}
 \writetoca{Appendix {#1.} {#2}}\par\nobreak\medskip\nobreak}%_

%       \eqn\label{a+b=c}  gives displayed equation, numbered
%        consecutively within sections.
%     \eqnn and \eqna define labels in advance (of eqalign?)
%
\Def\eqnn#1{\xdef #1{(\secsym
  \the\meqno)}\writedef{#1\leftbracket#1}%
  \global\advance\meqno by1\wrlabeL#1}%_
\Def\eqna#1{\xdef #1##1{\hbox{$(\secsym\the\meqno##1)$}}
  \writedef{#1\numbersign1\leftbracket#1{\numbersign1}}%
  \global\advance\meqno by1\wrlabeL{#1$\{\}$}}%_
\Def\eqn#1#2{\xdef #1{(\secsym
  \the\meqno)}\writedef{#1\leftbracket#1}%
  \global\advance\meqno by1$$#2\eqno#1\eqlabeL#1$$}%_

%% Footnotes
 \newskip\footskip\footskip14pt plus 1pt minus 1pt 
 %% sets footnote baselineskip
 \Def\footnotefont{\ninepoint}
 \def\f@t#1{\footnotefont #1\@foot}
 \def\f@@t{\baselineskip\footskip\bgroup
   \footnotefont\aftergroup\@foot\let\next}
 \setbox\strutbox=\hbox{\vrule height9.5pt depth4.5pt width0pt}%_
%
 \global\newcount\ftno \global\ftno=0
 \Def\foot{\global\advance\ftno by1\footnote{$^{\the\ftno}$}}%_

%
\newwrite\ftfile  
 %% say \footend to put footnotes at end
 %% will cause problems if \ref used inside
 %% \foot, instead use \nref before
\Def\footend{\def\foot{\global\advance\ftno by1\chardef\wfile=\ftfile
  $^{\the\ftno}$\ifnum\ftno=1\immediate\openout\ftfile=foots.tmp\fi%
  \immediate\write\ftfile{\noexpand\smallskip%
  \noexpand\item{f\the\ftno:\ }\pctsign}\findarg}%
  \def\footatend{\vfill\eject\immediate\closeout\ftfile{\parindent=20pt
  \centerline{\bf Footnotes}\nobreak\bigskip\input foots.tmp }}}%_
 \Def\footatend{}%_

%% References
%
%     \ref\label{text}
% generates a number, assigns it to \label, generates an entry.
% To list the refs on a separate page,  \listrefs
%
\global\newcount\refno \global\refno=1
\newwrite\rfile
\Def\nref#1{\xdef#1{[\the\refno]}\writedef{#1\leftbracket#1}%
  \ifnum\refno=1\immediate\openout\rfile=refs.tmp\fi
  \global\advance\refno by1\chardef\wfile=\rfile\immediate
  \write\rfile{\noexpand\item{#1\ }%
  \reflabeL{#1\hskip.31in}\pctsign}\findarg}
 %
 %	horrible hack to sidestep tex \write limitation
 %             FRAGILE!!!
 \def\findarg#1#{\begingroup\obeylines\newlinechar=`\^^M\pass@rg}
 {\obeylines\gdef\pass@rg#1{\writ@line\relax #1^^M\hbox{}^^M}%
 \gdef\writ@line#1^^M{\expandafter\toks0\expandafter{\striprel@x #1}%
 \edef\next{\the\toks0}\ifx\next\em@rk\let\next=\endgroup\else\ifx\next\empty%
 \else\immediate\write\wfile{\the\toks0}\fi\let\next=\writ@line\fi\next\relax}}
 \def\striprel@x#1{} \def\em@rk{\hbox{}}%_ 
 %

\Def\ref{[\the\refno]\nref}%_

\Def\lref{\begingroup\obeylines\lr@f}
  \def\lr@f#1#2{\gdef#1{\ref#1{#2}}\endgroup\unskip}%_

\Def\semi{;\hfil\break}%_

\Def\addref#1{\immediate\write\rfile{\noexpand\item{}#1}}
   %now unnecessary%_

\Def\listrefs{\footatend\vfill
   \supereject\immediate\closeout\rfile\writestoppt
   \baselineskip=14pt\centerline
    {{\bf References}}\bigskip{\frenchspacing
   \parindent=20pt\escapechar=` \input refs.tmp
   \vfill\eject}\nonfrenchspacing}%_

\Def\startrefs#1{\immediate\openout\rfile=refs.tmp\refno=#1}%_

\Def\xref{\expandafter\xr@f}\def\xr@f[#1]{#1}%_

\Def\refs#1{\count255=1[\r@fs #1{\hbox{}}]}
 \def\r@fs#1{\ifx\und@fined#1\message{reflabel \string#1 is undefined.}%
 \nref#1{need to supply reference \string#1.}\fi%
 \vphantom{\hphantom{#1}}\edef\next{#1}\ifx\next\em@rk\def\next{}%
 \else\ifx\next#1\ifodd\count255\relax\xref#1\count255=0\fi%
 \else#1\count255=1\fi\let\next=\r@fs\fi\next}%_

 %% Figures
 %
\Def\figures{\centerline{{\bf Figure Captions}}\medskip\parindent=40pt%
  \def\fig##1##2{\medskip\item{Fig.~##1.  }##2}}%_

% this is ugly, but moore insists
 \newwrite\ffile\global
 \newcount\figno \global\figno=1
\Def\fig{fig.~\the\figno\nfig}%_

\Def\nfig#1{\xdef#1{fig.~\the\figno}%
 \writedef{#1\leftbracket fig.\noexpand~\the\figno}%
   \ifnum\figno=1
      \immediate\openout\ffile=figs.tmp
    \fi
  \chardef\wfile=\ffile%
 \immediate\write\ffile{\noexpand\medskip\noexpand
    \item{Fig.\ \the\figno. }
  \reflabeL{#1\hskip.55in}\pctsign}%
  \global\advance\figno by1\findarg}%_

\Def\listfigs{\vfill\eject\immediate\closeout\ffile{\parindent40pt
  \baselineskip14pt\centerline{{\bf Figure Captions}}\nobreak\medskip
  \escapechar=` \input figs.tmp\vfill\eject}}%_

\Def\xfig{\expandafter\xf@g}\def\xf@g fig.\penalty\@M\ {}%_
\Def\figs#1{figs.~\f@gs #1{\hbox{}}}%
\def\f@gs#1{\edef\next{#1}%
  \ifx\next\em@rk
    \def\next{}
  \else
     \ifx\next#1\xfig #1
     \else
       #1
      \fi
      \let\next=\f@gs
   \fi\next}%_

%% Files

\newwrite\lfile

{\escapechar-1\xdef\pctsign{\string\%}\xdef\leftbracket{\string\{}
  \xdef\rightbracket{\string\}}\xdef\numbersign{\string\#}}%_

\Def\writedefs{\immediate\openout
  \lfile=labeldefs.tmp \def\writedef##1{%
  \immediate\write\lfile{\string\def\string##1\rightbracket}}}%_

\Def\writestop{\def\writestoppt{\immediate\write\lfile
  {\string\pageno \the\pageno
  \string\startrefs\leftbracket\the\refno\rightbracket
  \string\def\string\secsym\leftbracket\secsym\rightbracket
  \string\secno\the\secno\string\meqno\the\meqno
   }\immediate\closeout\lfile}}%_

\Def\writestoppt{}%_
\Def\writedef#1{}%_

\Def\seclab#1{\xdef #1{\the\secno}%
   \writedef{#1\leftbracket#1}\wrlabeL{#1=#1}}%_
\Def\subseclab#1{\xdef #1{\secsym\the\subsecno}%
   \writedef{#1\leftbracket#1}\wrlabeL{#1=#1}}%_

\newwrite\tfile 

\Def\writetoca#1{}%_

\Def\leaderfill{\leaders\hbox to 1em{\hss.\hss}\hfill}
  %  use this to write file with table of contents%_

\Def\writetoc{\immediate\openout\tfile=toc.tmp 
   \def\writetoca##1{{\edef\next{\write\tfile{\noindent ##1 
   \string\leaderfill {\noexpand\number\pageno} \par}}\next}}}
%       and this lists table of contents on second pass%_

\Def\listtoc{\centerline{\bf Contents}\nobreak
  \medskip{\baselineskip=12pt
  \parskip=0pt\catcode`\@=11 
  \input toc.tex \catcode`\@=12 \bigbreak\bigskip}}%_

\catcode`\@=12 % at signs are no longer letters

 %%% Fonts 10pt, Title, 9pt
   %^% The font loading has been rearranged to suit Occam%_

 %% Stop frivolous math family waste
 \let\TextFontInMathBad\undefined
 \def\TextWarning{\ifmmode\TextFontInMathBad\fi}

 %  Unpleasantness in calling in abstract and title fonts
 
  %%% Title fonts
  %#/^\TitlepointMathTest
  \font\titlerms=cmr7 \tfontsize
  \font\titlermss=cmr5 \tfontsize
  \font\titlei=cmmi10 \tfontsize\relax \skewchar\titlei='177
  \font\titleis=cmmi7 \tfontsize\relax \skewchar\titleis='177
  \font\titleiss=cmmi5 \tfontsize\relax \skewchar\titleiss='177
  \font\titlesy=cmsy10 \tfontsize\relax \skewchar\titlesy='60
  \font\titlesys=cmsy7 \tfontsize\relax \skewchar\titlesys='60
  \font\titlesyss=cmsy5 \tfontsize\relax \skewchar\titlesyss='60
  %#/_
  %^
  \DDef \TitlepointMathTest{\relax}%
          %% diagnostic that never survives%#_
  %_

 \font\titlerm=cmr10 \tfontsize
 \Def\titlefont{\textfont0=\titlerm
   \def\rm{\fam0\titlerm}%
   \rm 
   %#/^\TitlepointMathTest
   \textfont0=\titlerm \scriptfont0=\titlerms
               \scriptscriptfont0=\titlermss 
   \textfont1=\titlei \scriptfont1=\titleis
               \scriptscriptfont1=\titleiss 
   \textfont2=\titlesy \scriptfont2=\titlesys
               \scriptscriptfont2=\titlesyss
   %#/_
   %#^
   \everymath{\TitlepointMathTest}%
   %#_
   }%_

 %^
 \ifx\answ\bigans
 \else
 %_
 %/^\usedLITTLEans
 %%% Abstract fonts
   %
  \font\bigit=cmti10 scaled \magstep1
  \font\abssl=cmsl10 scaled \magstep1 
  \font\absrm=cmr10 scaled\magstep1 \relax\textfont0=\absrm 
  \font\absrms=cmr7 scaled\magstep1 \relax\scriptfont0=\absrms 
  \font\absrmss=cmr5 scaled\magstep1 \relax\scriptscriptfont0=\absrmss
  \font\absi=cmmi10 scaled\magstep1 
     \relax\skewchar\absi='177\textfont1=\absi
  \font\absis=cmmi7 scaled\magstep1
     \relax\skewchar\absis='177\scriptfont1=\absis
  \font\absiss=cmmi5 scaled\magstep1
     \relax\skewchar\absiss='177\scriptscriptfont1=\absiss
  \font\abssy=cmsy10 scaled\magstep1
     \relax\skewchar\abssy='60\textfont2=\abssy
  \font\abssys=cmsy7 scaled\magstep1
     \relax\skewchar\abssys='60\scriptfont2=\abssys
  \font\abssyss=cmsy5 scaled\magstep1
     \relax\skewchar\abssyss='60\scriptscriptfont2=\abssyss
  \font\absbf=cmbx10 scaled\magstep1
 %
 \def\abstractfont{\def\rm{\fam0\absrm}% switch to abstract font
 %
  \textfont\itfam=\bigit 
  \def\it{\fam\itfam\bigit}%
  \textfont\slfam=\abssl \def\sl{\fam\slfam\abssl}%
  \textfont\bffam=\absbf \def\bf{\fam\bffam\absbf}\rm}%
 %/_
 %^
\fi
 %_

 %%% Tenpoint Fonts
  %
\Def\tenpoint{%
  \def\rm{\fam0\tenrm}%
  \rm
  \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
  \textfont1=\teni  \scriptfont1=\seveni  \scriptscriptfont1=\fivei
  \textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
  \textfont\bffam=\tenbf 
  \def\bf{\fam\bffam\tenbf}%
  \def\it{\TextWarning\tenit}%
  \def\sl{\TextWarning\tensl}%
  }%_

  %%%  Ninepoint Fonts
  %#/^\NinepointMathTest
  \font\sixrm=cmr6%
  \font\ninei=cmmi9 \skewchar\ninei='177
  \font\sixi=cmmi6 \skewchar\ninei='177
  \font\ninesy=cmsy9 \skewchar\ninesy='60
  \font\sixsy=cmsy6 \skewchar\sixsy='60
  %#/_
  %^
  \DDef\NinepointMathTest{\relax}%
  %% diagnostic only%#_
  %_
  
  %^% Autonomous 9pt prose fonts 
   %% \ninerm also math%_
  \font\ninerm=cmr9 %_
  \Font\nineit=cmti9 %_
  \Font\ninesl=cmsl9 %_

  \Def\ninepoint{%
     \textfont0=\ninerm 
     \def\rm{\fam0\ninerm}%
     \rm
     \def\it{\TextWarning\nineit}%
     \def\sl{\TextWarning\ninesl}%
    %#/^\NinepointMathTest
     \textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm 
     \textfont1=\ninei \scriptfont1=\sixi \scriptscriptfont1=\fivei 
     \textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy 
    %#/_
    %#^
    \everymath{\NinepointMathTest}%
    %#_
    }%_


 %% Hyphenation exceptions

\hyphenation{anom-aly anom-alies coun-ter-term coun-ter-terms}

\Def\noblackbox{\overfullrule=0pt}%_

\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}}%_
\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}%_

%^  matters of taste%_
%^\Def\tilde{\widetilde}%_
%^\Def\bar{\overline}%_
%^\Def\hat{\widehat}%_

% some sample definitions
\Def\CAG{{\cal A/\cal G}}%_
\Def\CO{{\cal O}} %     curly letters%_
\Def\CA{{\cal A}}%_
\Def\CC{{\cal C}}%_
\Def\CF{{\cal F}}%_
\Def\CG{{\cal G}}%_
\Def\CL{{\cal L}}%_
\Def\CH{{\cal H}}%_
\Def\CI{{\cal I}}%_
\Def\CU{{\cal U}}%_
\Def\CB{{\cal B}}%_
\Def\CR{{\cal R}}%_
\Def\CD{{\cal D}}%_
\Def\CT{{\cal T}}%_
\Def\e#1{{\rm e}^{^{\textstyle#1}}}%_
\Def\grad#1{\,\nabla\!_{{#1}}\,}%_
\Def\gradgrad#1#2{\,\nabla\!_{{#1}}\nabla\!_{{#2}}\,}%_
\Def\ph{\varphi}%_
\Def\psibar{\overline\psi}%_
\Def\om#1#2{\omega^{#1}{}_{#2}}%_
\Def\vev#1{\langle #1 \rangle}%_
\Def\lform{\hbox{$\sqcup$}\llap{\hbox{$\sqcap$}}}%_
\Def\darr#1{\raise1.5ex\hbox{$\leftrightarrow$}\mkern-16.5mu #1}%_
\Def\lie{\hbox{\it\$}} %pound sterling%_
\Def\ha{{1\over2}}%_
\Def\half{{\textstyle{1\over2}}} %puts a small half in a displayed eqn%_
\Def\roughly#1{\raise.3ex\hbox{$#1$\kern-.75em\lower1ex\hbox{$\sim$}}}%_

%^
\AuditDepth{**}%_
\endinput