
%%  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)

%%% apple lw parameters by default
 \def \unredoffs{}%

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

\catcode`\@=11

 \def \usedBIGans{}%% sic! %

 \magnification=1200
 %% Adjust:
 \unredoffs %% set predefined offsets
 %% but maybe adjust:
 %\voffset=0truein 
 %\hoffset=0truein
 \edef\tfontsize{scaled\magstep3}%
 \def \abstractfont{\tenpoint}%
 \baselineskip=16pt plus 2pt minus 1pt
 \hsbody=\hsize \hstitle=\hsize 
 %% take default values for unreduced format

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

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

 \def \newsec#1{\global\advance\secno by1\message{(\the\secno. #1)}%
  \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}%

 \xdef\secsym{}%

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

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

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

%% Files

\newwrite\lfile

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

 \def \writestoppt{}%
 \def \writedef#1{}%

\newwrite\tfile

 \def \writetoca#1{}%

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

 %%% Fonts 10pt, Title, 9pt

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

 %  Unpleasantness in calling in abstract and title fonts

  %%% Title fonts

 \font\titlerm=cmr10 \tfontsize
 \def \titlefont{\textfont0=\titlerm
   \def\rm{\fam0\titlerm}%
   \rm 
   }%

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

  \font\ninerm=cmr9 %

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

 %% Hyphenation exceptions

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

 \def \Tr{{\rm Tr}}%

\endinput