\typeout{JHB all-purpose substyle -- April 1997}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%	default page sizes set here
%
%\tracingmacros=1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\tolerance=10000

\textwidth 6.75in
\oddsidemargin -0.125in 
\evensidemargin -0.505in 
\marginparwidth 90pt 
\textheight 9.5in 
\topmargin -0.5in
\parskip 0.5\baselineskip 
\parindent \baselineskip

\marginparwidth 90pt 
\marginparsep 11pt 
\marginparpush 5pt
%%% \footheight 12pt 
\footskip 15pt
\headheight 16pt 
\headsep 45pt 
\raggedbottom                 
\footnotesep 7.7pt 
\skip\footins 10pt plus 2pt minus 4pt
\columnsep 0.6cm 
\columnseprule 0pt
\arraycolsep 5pt 
\tabcolsep 6pt 
\arrayrulewidth .4pt 
\doublerulesep 2pt
\tabbingsep \labelsep
\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt
\floatsep 12pt plus 2pt minus 2pt                  
\textfloatsep 20pt plus 2pt minus 4pt
\intextsep 12pt plus 2pt minus 2pt
\dblfloatsep 12pt plus 2pt minus 2pt
\dbltextfloatsep 20pt plus 2pt minus 4pt
%%% \@maxsep 20pt
%%% \@dblmaxsep 20pt
\@fptop 0pt plus 1fil
\@fpsep 8pt plus 2fil
\@fpbot 0pt plus 1fil
\@dblfptop 0pt plus 1fil
\@dblfpsep 8pt plus 2fil
\@dblfpbot 0pt plus 1fil
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%	define some macros
%
\def\compoundrel#1\over#2{\mathpalette\compoundreL{{#1}\over{#2}}}
\def\compoundreL#1#2{\compoundREL#1#2}% Strip braces put around #2 by mathpalette
\def\compoundREL#1#2\over#3{\mathrel
     {\vcenter{\hbox{$\m@th\buildrel{#1#2}\over{#1#3}$}}}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newlength{\@PlotHeight}
\newlength{\@PlotIndent}
\def\HP{HP}
\def\PS{PS}
\newcommand{\Doplot}[4]{%
 \def\@PlotType{#1}%
 \def\@PlotName{#2}%
 \setlength{\@PlotHeight}{#3}%
 \setlength{\@PlotIndent}{#4}%
 \typeout{** Inserting #1 PLOT, height=#4 indent=#3: #2.\@PlotType}
 \ifx \@PlotType \HP 
%%  \insertplot{#2.hp}{#3}{#4} 
  \par \hbox{\hskip \@PlotIndent \vbox to \@PlotHeight{%
   \special{hp: plotfile #2.hp}\vfil}}
 \fi
 \ifx \@PlotType \PS 
  \epsfysize \@PlotHeight 
  \rule{\@PlotIndent}{0pt} 
  \epsfbox{\@PlotName.ps} 
 \fi
}% (If neither, then ignore the command!)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\Rindent#1#2{\hangindent-#1\hangafter-#2}            
\def\jaminsertplot#1#2#3{\hbox{\hskip #3 
	{\special{hp: plotfile #1}}}\rule[-#2]{0pt}{#2}}
%% \def\jaminsertplot#1#2#3{\vskip #3 
%%         \hbox{\hskip #3 \vbox to #2{\special{hp: plotfile #1}\vfil}}} 
\def\insertplot#1#2#3{\par 
        \hbox{\hskip #3 \vbox to #2{\special{hp: plotfile #1}\vfil}}} 
\def\goestoas#1{\;\compoundrel\longrightarrow\over{\scriptstyle{#1}}\;}
\def\To{\Rightarrow}
\def\onehalf{{\textstyle {1 \over 2}}}
\def\onethird{{\textstyle {1 \over 3}}}
\def\twothirds{{\textstyle {2 \over 3}}}
\def\onefourth{{\textstyle {1 \over 4}}}
\def\threefourths{{\textstyle {3 \over 4}}}
\def\eqhb#1{\qquad \hbox{\rm {#1}} \qquad }
\def\rpb#1#2{\hfill \parbox{#1}{#2}\\}
\def\cpb#1#2{\begin{center}\parbox{#1}{#2}\end{center}}
\def\cfb#1#2{\begin{center}\fbox{\parbox{#1}{#2}}\end{center}}
\def\gsim{\compoundrel>\over\sim}
\def\lsim{\compoundrel<\over\sim}
%% \newcommand{\lsim}{\lesssim}%% AMS
%% \newcommand{\gsim}{\gtrsim}%% AMS
%% \newcommand{\gsim}{\apprge}%% some other package
%% \newcommand{\lsim}{\apprle}%% some other package
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\hyphenation{TRIUMF}
%
\newcommand{\strcr}{\rule[-7pt]{0pt}{22pt}\\}
%
\newcommand{\bm}[1]{\mbox{\boldmath${#1}$\unboldmath}}
\newcommand{\sbm}[1]{\mbox{\scriptsize\boldmath${#1}$\unboldmath}}
\newcommand{\sss}[1]{_{\scriptscriptstyle {#1}}}
\newcommand{\Vec}[1]{\vec{\bm{#1}}}
\newcommand{\tVec}[1]{\tilde{\bm{#1}}}
\newcommand{\dVec}[1]{\dot{\bm{#1}}}
\newcommand{\ddVec}[1]{\ddot{\bm{#1}}}
\newcommand{\Hat}[1]{\hat{\bm{#1}}}
\newcommand{\sVec}[1]{\scriptstyle\vec{\sbm{#1}}}
\newcommand{\ds}[1]{{\displaystyle {#1}}}
\newcommand{\dbyd}[2]{{\displaystyle{d{#1} \over d{#2}}}}
 \def\dbyd#1#2{\partial{#1}/\partial{#2}} 
 \def\DbyD#1#2{{\partial \, {#1} \over \partial{#2}}}
 \def\DBYD#1#2{\left[\partial \, {#1} \over \partial{#2}\right]}  
\newcommand{\iH}{\hat{\imath}}
\newcommand{\jH}{\hat{\jmath}}
\newcommand{\kH}{\hat{k}}
\newcommand{\STR}{${\cal{S\hspace{-0.15\baselineskip}%
                         T\hspace{-0.21\baselineskip}R}}$}
\newcommand{\GTR}{${\cal{G\hspace{-0.15\baselineskip}%
                         T\hspace{-0.21\baselineskip}R}}$}
\newcommand{\SF}{${\cal{S\hspace{-0.25\baselineskip}F}}$}
\newcommand{\EM}{${\cal E}$\&${\cal M}$}
\newcommand{\EMF}{${\cal{E\!M\!F}}$}
\newcommand{\emf}{{\sf emf}}
\newcommand{\QM}{${\cal{QM}}$}
 \def\eF{\varepsilon_{\rm F}} 
 \def\dbar{\rlap{d}\,\bar{~}}
\newcommand{\epsz}{\epsilon_0}
\newcommand{\kE}{{1\over4\pi\epsz}}
\newcommand{\muz}{\mu_0}
\newcommand{\kM}{{\mu_0\over4\pi}}
 \def\muB{\mu_{\scriptscriptstyle\rm B}} 
 \def\kB{k_{\scriptscriptstyle\rm B}} 

\newcommand{\TripProd}[3]{\Vec{#1}\cdot\left(\Vec{#2}\times\Vec{#3}\right) 
 = \Vec{#2}\cdot\left(\Vec{#3}\times\Vec{#1}\right) 
 = \Vec{#3}\cdot\left(\Vec{#1}\times\Vec{#2}\right)}
\newcommand{\BACCAB}[3]{\Vec{#1}\times\left(\Vec{#2}\times\Vec{#3}\right) 
 = \Vec{#2}\left(\Vec{#1}\cdot\Vec{#3}\right) 
 - \Vec{#3}\left(\Vec{#1}\cdot\Vec{#2}\right)}

\newcommand{\Del}{\Vec{\nabla}}
\newcommand{\Grad}[1]{\Del{#1}}
\newcommand{\Div}[1]{\Del\cdot\Vec{#1}}
\newcommand{\Curl}[1]{\Del\times\Vec{#1}}
\newcommand{\CurlCyl}[1]{\left[{1\over r}\DbyD{{#1}_z}{\phi}
 -\DbyD{{#1}_\phi}{z}\right]\Hat{r} 
 + \left[\DbyD{{#1}_r}{z} -\DbyD{{#1}_z}{r}\right]\Hat{\phi} 
 + {1\over r}\left[\DbyD{}{r}\left(r{#1}_\phi\right) 
 - \DbyD{{#1}_r}{\phi}\right]\Hat{z}}

\newcommand{\DivSph}[1]{{1\over r^2}\DbyD{}{r}\left(r^2{#1}_r\right) 
 + {1\over r\sin\theta}\DbyD{}{\theta}\left(\sin\theta{#1}_\theta\right) 
 + {1\over r\sin\theta}\DbyD{{#1}_\phi}{\phi}}

\newcommand{\CurlSph}[1]{{1\over r\sin\theta}\left[
 \DbyD{}{\theta}\left(\sin\theta {#1}_\phi\right) 
 - \DbyD{{#1}_\theta}{\phi} \right] \Hat{r} 
 + {1\over r}\left[{1\over\sin\theta}\DbyD{{#1}_r}{\phi}
 -\DbyD{}{r}\left(r{#1}_\phi\right)\right]\Hat{\theta} 
 + {1\over r}\left[\DbyD{}{r}\left(r{#1}_\theta\right) 
 - \DbyD{{#1}_r}{\theta}\right]\Hat{\phi}}

\newcommand{\Delsq}[1]{\nabla^2{#1}}
%% \newcommand{\Box}{\mbox{\fbox{\rule{0pt}{0.25\baselineskip}\rule{0.25\baselineskip}{0pt}}}}
\newcommand{\dAl}{\Box^2}

\newcommand{\DivCurl}[1]{\Del\cdot\left(\Curl{#1}\right) = 0}
\newcommand{\CurlGrad}[1]{\Del\times\left(\Grad{#1}\right) = 0}
\newcommand{\CurlCurl}[1]{\Del\times\left(\Curl{#1}\right) 
 = \Del\left(\Div{#1}\right) - \Delsq{#1}}

\newcommand{\diffGaussD}{\Div{D} = \rho_f}
\newcommand{\diffGaussE}{\Div{E} = \rho/\epsz}
\newcommand{\diffGaussB}{\Div{B} = 0}
\newcommand{\diffFaraday}{\Curl{E} = - \DbyD{\Vec{B}}{t}}
\newcommand{\diffAmpere}{\Curl{H} = \Vec{J}_f + \DbyD{\Vec{D}}{t}}
\newcommand{\LorentzForce}{\Vec{F} = q(\Vec{E} + \Vec{v} \times \Vec{B}}
\newcommand{\ContinuityEq}{\Div{J} + \DbyD{\rho}{t} = 0}

\newcommand{\ket}[1]{|{#1}\rangle}
\newcommand{\So}{\Therefore}
\newcommand{\Therefore}{.$\dot{~}$.} 
\newcommand{\VolInt}{\int\!\!\!\!\int\!\!\!\!\int}
\newcommand{\volint}{{\displaystyle\scriptstyle\int\!\!\!\int\!\!\!\int}}
\newcommand{\surfint}{{\displaystyle\scriptstyle\int\!\!\!\int}}
\newcommand{\oSurfInt}{\int\!\!\!\!\!\int\!\!\!\!\!\!\!\!\bigcirc}
\newcommand{\oSurfIntS}{\int\!\!\!\!\!\int_{\cal S}\!\!\!\!\!\!\!\!\!\bigcirc}
\newcommand{\osurfint}{{\displaystyle\scriptstyle\int\!\!\!\!\int\!\!\!\!\!\!\!\!\bigcirc}}
\newcommand{\osurfintS}{{\displaystyle\scriptstyle\oSurfIntS}}
%% \newcommand{\VolInt}{\iiint}
%% \newcommand{\volint}{\iiint}
%% \newcommand{\SurfInt}{\iint}
%% \newcommand{\surfint}{\iint}
%% \newcommand{\oSurfInt}{\oiint}
%% \newcommand{\osurfint}{\oiint}
%% \newcommand{\oSurfIntS}{\oiint_{\cal S}}
%% \newcommand{\osurfintS}{\oiint_{\cal S}}

\newcommand{\rr}{{\scriptstyle{\cal R}}}

\newcommand{\GradThm}[3]{\int_{#2}^{#3}\left(\Grad{#1}\right)\cdot d\Vec{\ell} 
 = {#1}({#3}) - {#1}({#2})}
\newcommand{\DivThm}[1]{\VolInt\left(\Div{#1}\right)d\tau 
 = \oSurfInt\Vec{#1}\cdot d\Vec{a}}
\newcommand{\divthm}[1]{\volint\left(\Div{#1}\right)d\tau 
 = \osurfint\Vec{#1}\cdot d\Vec{a}}
\newcommand{\Stokes}[1]{\SurfInt\left(\Curl{#1}\right)\cdot d\Vec{a}
 = \oint\Vec{#1}\cdot d\Vec{\ell}}
\newcommand{\stokes}[1]{\surfint\left(\Curl{#1}\right)\cdot d\Vec{a}
 = \oint\Vec{#1}\cdot d\Vec{\ell}}
\newcommand{\intGaussD}{\oSurfInt\Vec{D}\cdot d\Vec{a}
 = \VolInt\rho_f\,d\tau = Q_{f_{\rm enc}}}
\newcommand{\intgaussD}{\osurfint\Vec{D}\cdot d\Vec{a}
 = \volint\rho_f\,d\tau = Q_{f_{\rm enc}}}
\newcommand{\intGaussE}{\oSurfInt\Vec{E}\cdot d\Vec{a}
 = {1\over\epsz}\VolInt\rho\,d\tau = {Q_{\rm enc}\over\epsz}}
\newcommand{\intgaussE}{\osurfint\Vec{E}\cdot d\Vec{a}
 = \left(1/\epsz\right)\volint\rho\,d\tau = Q_{\rm enc}/\epsz}
\newcommand{\intGaussB}{\oSurfInt\Vec{B}\cdot d\Vec{a} = 0}
\newcommand{\intgaussB}{\osurfint\Vec{B}\cdot d\Vec{a} = 0}
\newcommand{\intFaraday}{{\cal{E\!M\!F}} \equiv \oint\Vec{E}\cdot d\Vec{\ell}
 = \DbyD{}{t}\SurfInt\Vec{B}\cdot d\Vec{a} \equiv \DbyD{\Phi_M}{t}}
\newcommand{\intfaraday}{{\cal{E\!M\!F}} \equiv \oint\Vec{E}\cdot d\Vec{\ell}
 = \dbyd{}{t}\surfint\Vec{B}\cdot d\Vec{a} \equiv \dbyd{\Phi_M}{t}}
\newcommand{\intAmpere}{\oint\Vec{H}\cdot d\Vec{\ell}
 = \SurfInt\left[\Vec{J}_f + \DbyD{\Vec{D}}{t}\right]\cdot d\Vec{a}
 \equiv I_{f_{\rm enc}} + \DbyD{\Phi_D}{t}}
\newcommand{\intampere}{\oint\Vec{H}\cdot d\Vec{\ell}
 = \surfint\left[\Vec{J}_f + \dbyd{\Vec{D}}{t}\right]\cdot d\Vec{a}
 \equiv I_{f_{\rm enc}} + \dbyd{\Phi_D}{t}}

\newcommand{\Eboundary}{\Vec{E}_{\rm above}-\Vec{E}_{\rm below}=\sigma\Hat{n}}

%% \newcommand{\eg}{{\it e.g.}}
%% \newcommand{\etal}{{\it et al.}}
%% \newcommand{\etc}{{\it etc.}}
%% \newcommand{\ie}{{\it i.e.}}
%% \newcommand{\via}{{\it via\/}}
%% \newcommand{\viz}{{\it viz.}}
%% \newcommand{\vs}{{\it vs.}}
%% \newcommand{\wrt}{$wrt$}
%% \newcommand{\degC}{$^{\circ}$C} 
%% \newcommand{\us}{$\mu$s}
\newcommand{\fig}[1]{{\mbox{Fig.~#1}}}
\newcommand{\refn}[1]{{\scriptsize\raisebox{1.5ex}{[{#1}]}}}
\newcommand{\citn}[1]{{\scriptsize\raisebox{1.5ex}{\cite{#1}}}}
\newcommand{\citncomma}[1]{{\scriptsize\raisebox{1.5ex}{\cite{#1},}}}
\newcommand{\citndash}[1]{{\scriptsize\raisebox{1.5ex}{\cite{#1}-}}}
%% \newcommand{\citn}[1]{{\scriptsize\raisebox{1.5ex}{[{\bf ??}]}} }
\newcommand{\QED}{${\cal QED}$}
\newcommand{\chk}{\boldmath $^\surd$ \unboldmath}
\newcommand{\ck}{\boldmath $^\surd$ \unboldmath}
\newcommand{\X}{{\LARGE\sf X}}
\newcommand{\nhf}{~\\ \null \hfil}
%
\newcommand{\uSR}{$\mu{\cal{S\!R}}$}
\newcommand{\muplSR}{$\mu^+{\cal{S\!R}}$}
\newcommand{\mumnSR}{$\mu^-{\cal{S\!R}}$}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\lineskip 1pt \normallineskip 1pt
\def\baselinestretch{1}

\def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt}
\def\small{\@setsize\small{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt
\def\@listi{\topsep 6pt plus 2pt minus 2pt\parsep 3pt plus 2pt minus 1pt
\itemsep \parsep}}
\def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
\abovedisplayskip 8pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 4pt plus 2pt minus
2pt
\def\@listi{\topsep 4pt plus 2pt minus 2pt\parsep 2pt plus 1pt minus 1pt
\itemsep \parsep}}
\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}
\normalsize

\marginparpush 5pt
% \parskip 2ex plus 1pt minus 1pt \parindent 17pt \topsep 9pt plus 3pt minus 5pt
\parskip 2ex plus 1pt minus 1pt \parindent 0pt \topsep 9pt plus 3pt minus 5pt
\partopsep 3pt plus 1pt minus 2pt \itemsep 4.5pt plus 2pt minus 1pt
\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301
\@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
-\@lowpenalty



\leftmargini 2.5em
\leftmarginii 2.2em \leftmarginiii 1.87em \leftmarginiv 1.7em \leftmarginv 1em
\leftmarginvi 1em
\leftmargin\leftmargini
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\labelsep .5em
\parsep 4.5pt plus 2pt minus 1pt
\def\@listi{\leftmargin\leftmargini}
\def\@listii{\leftmargin\leftmarginii
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep
 \topsep 4.5pt plus 2pt minus 1pt
 \parsep 2pt plus 1pt minus 1pt
 \itemsep \parsep}
\def\@listiii{\leftmargin\leftmarginiii
 \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
 \topsep 2pt plus 1pt minus 1pt
 \parsep \z@ \partopsep 1pt plus 0pt minus 1pt
 \itemsep \topsep}
\def\@listiv{\leftmargin\leftmarginiv
 \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}
\def\@listv{\leftmargin\leftmarginv
 \labelwidth\leftmarginv\advance\labelwidth-\labelsep}
\def\@listvi{\leftmargin\leftmarginvi
 \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}



\def\labelenumi{{\bf \arabic{enumi}.~ }}
\def\theenumi{\arabic{enumi}}
\def\labelenumii{$(\alph{enumii})$~ }
\def\theenumii{(\alph{enumii})}
\def\p@enumii{$\theenumi$}
\def\labelenumiii{$\roman{enumiii}$. }
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{{\bf \theenumi}$(\theenumii)$}
\def\labelenumiv{\Alph{enumiv}. }
\def\theenumiv{\Alph{enumiv}}
\def\p@enumiv{\p@enumiii\theenumiii}

\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}
                
\def\verse{\let\\=\@centercr
 \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent
 \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
 \let\makelabel\descriptionlabel}}
\let\enddescription\endlist


\def\theequation{\arabic{equation}}



\def\@pnumwidth{1.55em}
\def\@tocrmarg {2.55em}
\def\@dotsep{4.5}
\setcounter{tocdepth}{3}


\def\footnoterule{\kern-3\p@
 \hrule width .4\columnwidth
 \kern 2.6\p@}

\long\def\@makefntext#1{\parindent 1em\noindent
 \hbox to 1.8em{\hss$^{\@thefnmark}$}#1}


\setcounter{topnumber}{2}
\def\topfraction{.7}
\setcounter{bottomnumber}{1}
\def\bottomfraction{.3}
\setcounter{totalnumber}{3}
\def\textfraction{.2}
\def\floatpagefraction{.5}
\setcounter{dbltopnumber}{2}
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}

\long\def\@makecaption#1#2{
 \vskip 10pt
 \setbox\@tempboxa\hbox{#1 #2}
 \ifdim \wd\@tempboxa >\hsize \unhbox\@tempboxa\par \else \hbox
to\hsize{\hfil\box\@tempboxa\hfil}
 \fi}

\mark{{}{}}

\def\@evenfoot{}\def\@oddfoot{}
\def\ps@headings{\def\@evenfoot{}\def\@oddfoot{}}
\def\ps@plain{\def\@evenfoot{}\def\@oddfoot{}}
                                       
\def\@startsection#1#2#3#4#5#6{\if@noskipsec \leavevmode \fi
   \par \@tempskipa #4\relax
   \@afterindenttrue
   \ifdim \@tempskipa <\z@ \@tempskipa -\@tempskipa \fi
   \if@nobreak \everypar{}\else
     \addpenalty{\@secpenalty}\addvspace{\@tempskipa}\fi \@ifstar
{\@ssect{#3}{#4}{#5}{#6}}% 
{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}

          

\def\today{\ifcase\month\or
 January\or February\or March\or April\or May\or June\or
 July\or August\or September\or October\or November\or December\fi
 \space\number\day, \number\year}
                     
\pagenumbering{arabic} \onecolumn \if@twoside\else\raggedbottom\fi

%changes
%\font\egtsfb=cmssbx10\@ptscale8
%% \font\egtsfb=cmssbx10\@ptscale10
%% \newfont{\tlogo}{tlogo}                               

\def\dircs#1{\mathpalette\c@ncel#1}

\def\Heading#1{\bigskip \centerline{\Large\bf {#1} } }

\def\Item#1{\medskip \noindent $\bullet$ {\large\bf {#1} --- } }


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% The following applies only for {book} style:

\def\Chapter#1#2#3{
 \ifx {#3} \empty 
  \setcounter{chapter}{#1}%%	First argument = Chapter Number
  \addtocounter{chapter}{-1}
 \fi
 \chapter{#2}%%			Second argument = Chapter Title
 \ifx {#1} \empty 
  \def\thechapter{#3}%%	Third argument = Chapter Tag (as in <Tag>.1.1 etc.)
 \fi%%				(either First or Third must be null!) 
 \def\ps@headings{
  \let\@mkboth\markboth
  \def\@oddfoot{}\def\@evenfoot{}
  \def\@evenhead{\rm \ifnum \c@chapter>\z@ \thechapter.\fi\thepage 
   \hfil \leftmark \hbox{}}
  \def\@oddhead{\hbox{} \rightmark 
   \hfil \rm \ifnum \c@chapter>\z@ \thechapter.\fi\thepage}
  \def\chaptermark##1{
   \markboth{\uppercase{
    \ifnum \c@chapter>\z@ \@chapapp\ {\normalsize \thechapter:} \ \fi \sl ##1 }
%%   }{ \it Stat Mech for Eng Phys \rm ~~~ --- ~~~ Jess H.~Brewer }  }
   }{ \it Believe Me Not! \rm ~~~ --- ~~~ Jess H.~Brewer }  }
  \def\sectionmark##1{
   \markright{
    \ifnum \c@secnumdepth >\z@ Section \thesection: \ \fi
    \uppercase{\sl ##1}
   }
  }
 }
 \def\ps@myheadings{
  \let\@mkboth\@gobbletwo
  \def\@oddhead{\hbox{} \rightmark \hfil \rm 
   \ifnum \c@chapter>\z@ \thechapter.\fi\thepage}
  \def\@oddfoot{}
  \def\@evenhead{\rm
   \ifnum \c@chapter>\z@ \thechapter.\fi\thepage 
   \hfil \leftmark \hbox{}}
  \def\@evenfoot{}
  \def\sectionmark##1{}
  \def\subsectionmark##1{}
 }
 \markboth{ 
%%  \it Stat Mech for Eng Phys \rm ~~~ --- ~~~ Jess H.~Brewer 
  \it Believe Me Not! \rm ~~~ --- ~~~ Jess H.~Brewer 
  }{ 
%%  \it Stat Mech for Eng Phys \rm ~~~ --- ~~~ Jess H.~Brewer 
  \it Believe Me Not! \rm ~~~ --- ~~~ Jess H.~Brewer 
 }
 \ps@headings
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\sectAdv#1{\section{ {#1} ~~{\normalsize\sf [Advanced Topic]} }}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% APPENDIX
%
% The \Appendix command must do the following:
%    -- reset the chapter counter to zero
%    -- set \@chapapp to Appendix (for messages)
%    -- redefine the chapter counter to produce appendix numbers
%    -- reset the section counter to zero
%    -- redefine the \chapter command if appendix titles and headings are
%       to look different from chapter titles and headings.
%--------------------------------------------------------------------------
\def\Appendix#1#2{\par
  \setcounter{chapter}{#1}
  \addtocounter{chapter}{-1}
  \setcounter{section}{0}
  \def\@chapapp{Appendix}
  \def\thechapter{\Alph{chapter}}
\chapter{#2}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
