% Documentstyle gji.sty
% for Geophysical Journal International
% Based on the MN journal document style  
% 

% Version 1.3 for Latex 2.0.9 extensively rewritten by
% Brian Kennett, Pacific Region Office, GBI
% December 1998

\newif\ifoldfss 
\newif\ifnfssone 
\newif\ifnfsstwo 
\def\f@s@s{}% 
% 
 
\@ifundefined{DeclareFontShape}% 
  {% 
   \@ifundefined{selectfont}% 
    {\global\oldfsstrue\let\reset@font=\relax}% old font selection scheme 
    {\global\nfssonetrue\def\f@s@s{with NFSS release 1,\space}}% 
  }% 
  {\global\nfsstwotrue\def\f@s@s{with NFSS release 2,\space}}% 
 
% 
\typeout{Document Style `GJI' \f@s@s V1.3, released 1998 December} 
 
\def\f@ce{cm} 
 
%  Journals use two-sided printing. 
% 
\@twosidetrue 
\@twocolumntrue 
\@mparswitchtrue 
\def\ds@draft{\overfullrule 5pt} 
\def\ds@twocolumn{\@twocolumntrue} 
\def\ds@onecolumn{\@twocolumnfalse} 
 
% fasttrack option 
% 
\newif\if@fasttrack 
\def\ds@fasttrack{\@fasttracktrue} 
 
% landscape option 
% 
\newif\ifGB@landscape 
\def\ds@landscape{\GB@landscapetrue} 
 
% galley option 
% 
\newif\ifGB@galley 
\def\ds@galley{\GB@galleytrue} 
 
% referee/mreferee/camera options 
% 
\newif\ifGB@referee 
\def\ds@referee{% 
 \GB@refereetrue 
 \@twocolumnfalse 
} 
\newif\ifGB@mreferee 
\def\ds@mreferee{% 
 \GB@mrefereetrue 
 \@twocolumnfalse 
} 
\newif\ifGB@camera 
\def\ds@camera{% 
 \GB@cameratrue 
} 
\newif\ifdoublesp@cing 
\def\ds@doublespacing{% 
 \doublesp@cingtrue 
}% 
\@options 
% 
%  **************************************** 
%  *               FONTS                  * 
%  **************************************** 
% 
\lineskip 1pt 
\normallineskip 1pt 
\ifGB@referee 
  \def\baselinestretch{1.75}
\else
  \ifdoublesp@cing 
   \def\baselinestretch{2} 
 \else 
   \def\baselinestretch{1} 
\fi\fi 
\ifGB@mreferee 
  \def\baselinestretch{1.75}
\fi

\def\@normalsize{\@setsize\normalsize{12pt}\ixpt\@ixpt 
   \abovedisplayskip 4pt plus 1pt minus 1pt 
   \belowdisplayskip \abovedisplayskip 
   \abovedisplayshortskip 4pt plus 1pt 
   \belowdisplayshortskip \abovedisplayshortskip 
   \let\@listi\@listI} 
\def\small{\@setsize\small{10pt}\viiipt\@viiipt 
  \abovedisplayskip 4pt plus 1pt minus 1pt 
  \belowdisplayskip \abovedisplayskip 
  \abovedisplayshortskip 4pt plus 1pt 
  \belowdisplayshortskip \abovedisplayshortskip 
  \def\@listi{\leftmargin\leftmargini 
  \topsep 2pt plus 1pt minus 1pt 
  \parsep \z@ 
  \itemsep 2pt}} 
\def\footnotesize{\@setsize\footnotesize{10pt}\viiipt\@viiipt 
 \abovedisplayskip 4pt plus 1pt minus 1pt 
 \belowdisplayskip \abovedisplayskip 
 \abovedisplayshortskip 4pt plus 1pt 
 \belowdisplayshortskip \abovedisplayshortskip 
 \def\@listi{\leftmargin\leftmargini 
  \topsep 2pt plus 1pt minus 1pt 
  \parsep \z@ 
  \itemsep 2pt}} 
\def\scriptsize{\@setsize\scriptsize{8pt}\vipt\@vipt} 
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt} 
% 

\def\large{\@setsize\large{12pt}\xpt\@xpt} 
\def\Large{\@setsize\Large{14pt}\xiipt\@xiipt} 
\def\LARGE{\@setsize\LARGE{17pt}\xivpt\@xivpt} 
\def\huge{\@setsize\huge{20pt}\xviipt\@xviipt} 
\def\Huge{\@setsize\Huge{25pt}\xxpt\@xxpt}

\if@twocolumn 
   \def\@normalsize{\@setsize\normalsize{11pt}\ixpt\@ixpt 
   \abovedisplayskip 6pt plus 2pt minus 2pt 
   \belowdisplayskip \abovedisplayskip 
   \abovedisplayshortskip 6pt plus 2pt 
   \belowdisplayshortskip \abovedisplayshortskip 
   \let\@listi\@listI}
   \def\large{\@setsize\large{11pt}\xpt\@xpt} 
\fi 
 
\ifGB@referee 
  \def\@normalsize{\@setsize\normalsize{14pt}\xiipt\@xiipt 
   \abovedisplayskip 4pt plus 1pt minus 1pt 
   \belowdisplayskip \abovedisplayskip 
   \abovedisplayshortskip 4pt plus 1pt 
   \belowdisplayshortskip \abovedisplayshortskip 
   \let\@listi\@listI}
 \def\small{\@setsize\small{11pt}\xipt\@xipt 
  \abovedisplayskip 4pt plus 1pt minus 1pt 
  \belowdisplayskip \abovedisplayskip 
  \abovedisplayshortskip 4pt plus 1pt 
  \belowdisplayshortskip \abovedisplayshortskip
 \def\@listi{\leftmargin\leftmargini 
  \topsep 2pt plus 1pt minus 1pt 
  \parsep \z@ 
  \itemsep 2pt}} 
  \def\large{\@setsize\large{13pt}\xiipt\@xiipt} 
  \def\Large{\@setsize\Large{15pt}\xiipt\@xiipt}
  \def\LARGE{\@setsize\LARGE{18pt}\xivpt\@xivpt}
\fi
 
\ifGB@mreferee 
  \def\@normalsize{\@setsize\normalsize{11pt}\xipt\@xipt 
   \abovedisplayskip 4pt plus 1pt minus 1pt 
   \belowdisplayskip \abovedisplayskip 
   \abovedisplayshortskip 4pt plus 1pt 
   \belowdisplayshortskip \abovedisplayshortskip 
   \let\@listi\@listI} 
 \def\small{\@setsize\small{10pt}\xpt\@xpt 
  \abovedisplayskip 4pt plus 1pt minus 1pt 
  \belowdisplayskip \abovedisplayskip 
  \abovedisplayshortskip 4pt plus 1pt 
  \belowdisplayshortskip \abovedisplayshortskip 
 \def\@listi{\leftmargin\leftmargini 
  \topsep 2pt plus 1pt minus 1pt 
  \parsep \z@ 
  \itemsep 2pt}} 
  \def\large{\@setsize\large{13pt}\xiipt\@xiipt} 
  \def\Large{\@setsize\Large{15pt}\xiipt\@xiipt}
  \def\LARGE{\@setsize\LARGE{18pt}\xivpt\@xivpt}
\fi 

\ifGB@camera
  \def\@normalsize{\@setsize\normalsize{11pt}\xpt\@xpt 
   \abovedisplayskip 6pt plus 2pt minus 2pt 
   \belowdisplayskip \abovedisplayskip 
   \abovedisplayshortskip 6pt plus 2pt 
   \belowdisplayshortskip \abovedisplayshortskip 
   \let\@listi\@listI} 
   \def\large{\@setsize\large{12pt}\xipt\@xipt}
\fi

\normalsize 
 
\def\hexnumber#1{\ifcase#1 0\or1\or2\or3\or4\or5\or6\or7% 
  \or8\or9\or A\or B\or C\or D\or E\or F\fi} 
 
\def\loadboldmathitalic{% 
  \font\ninebmi=\f@ce mib10 at 9pt \skewchar\ninebmi ='177 
  \font\sixbmi=\f@ce mib10 at 6pt \skewchar\sixbmi ='177 
  \font\fivebmi=\f@ce mib10 at 5pt \skewchar\fivebmi ='177 
  \newfam\bmifam 
  \textfont\bmifam=\ninebmi 
  \scriptfont\bmifam=\sixbmi 
  \scriptscriptfont\bmifam=\fivebmi 
  \def\bmi{\fam\bmifam\ninebmi} 
} 
 
\def\loadboldgreek{% 
% 
  \ifnfsstwo 
% 
    \DeclareSymbolFont{bmisymbols}{OML}{cmm}{b}{it} 
    \DeclareMathSymbol{\balpha}{0}{bmisymbols}{"0B} 
    \DeclareMathSymbol{\bbeta}{0}{bmisymbols}{"0C} 
    \DeclareMathSymbol{\bgamma}{0}{bmisymbols}{"0D} 
    \DeclareMathSymbol{\bdelta}{0}{bmisymbols}{"0E} 
    \DeclareMathSymbol{\bepsilon}{0}{bmisymbols}{"0F} 
    \DeclareMathSymbol{\bzeta}{0}{bmisymbols}{"10} 
    \DeclareMathSymbol{\boldeta}{0}{bmisymbols}{"11} 
                      % use \boldeta for bold \eta (clashes with \beta). 
    \DeclareMathSymbol{\btheta}{0}{bmisymbols}{"12} 
    \DeclareMathSymbol{\biota}{0}{bmisymbols}{"13} 
    \DeclareMathSymbol{\bkappa}{0}{bmisymbols}{"14} 
    \DeclareMathSymbol{\blambda}{0}{bmisymbols}{"15} 
    \DeclareMathSymbol{\bmu}{0}{bmisymbols}{"16} 
    \DeclareMathSymbol{\bnu}{0}{bmisymbols}{"17} 
    \DeclareMathSymbol{\bxi}{0}{bmisymbols}{"18} 
    \DeclareMathSymbol{\bpi}{0}{bmisymbols}{"19} 
    \DeclareMathSymbol{\brho}{0}{bmisymbols}{"1A} 
    \DeclareMathSymbol{\bsigma}{0}{bmisymbols}{"1B} 
    \DeclareMathSymbol{\btau}{0}{bmisymbols}{"1C} 
    \DeclareMathSymbol{\bupsilon}{0}{bmisymbols}{"1D} 
    \DeclareMathSymbol{\bphi}{0}{bmisymbols}{"1E} 
    \DeclareMathSymbol{\bchi}{0}{bmisymbols}{"1F} 
    \DeclareMathSymbol{\bpsi}{0}{bmisymbols}{"20} 
    \DeclareMathSymbol{\bomega}{0}{bmisymbols}{"21} 
    \DeclareMathSymbol{\bvarepsilon}{0}{bmisymbols}{"22} 
    \DeclareMathSymbol{\bvartheta}{0}{bmisymbols}{"23} 
    \DeclareMathSymbol{\bvarpi}{0}{bmisymbols}{"24} 
    \DeclareMathSymbol{\bvarrho}{0}{bmisymbols}{"25} 
    \DeclareMathSymbol{\bvarsigma}{0}{bmisymbols}{"26} 
    \DeclareMathSymbol{\bvarphi}{0}{bmisymbols}{"27} 
% 
  \else % ofss and nfss 1 
% 
    \def\mib{\hexnumber\bmifam} 
    \mathchardef\balpha="0\mib0B 
    \mathchardef\bbeta="0\mib0C 
    \mathchardef\bgamma="0\mib0D 
    \mathchardef\bdelta="0\mib0E 
    \mathchardef\bepsilon="0\mib0F 
    \mathchardef\bzeta="0\mib10 
    \mathchardef\boldeta="0\mib11  
      % use \boldeta for bold \eta (clashes with \beta). 
    \mathchardef\btheta="0\mib12 
    \mathchardef\biota="0\mib13 
    \mathchardef\bkappa="0\mib14 
    \mathchardef\blambda="0\mib15 
    \mathchardef\bmu="0\mib16 
    \mathchardef\bnu="0\mib17 
    \mathchardef\bxi="0\mib18 
    \mathchardef\bpi="0\mib19 
    \mathchardef\brho="0\mib1A 
    \mathchardef\bsigma="0\mib1B 
    \mathchardef\btau="0\mib1C 
    \mathchardef\bupsilon="0\mib1D 
    \mathchardef\bphi="0\mib1E 
    \mathchardef\bchi="0\mib1F 
    \mathchardef\bpsi="0\mib20 
    \mathchardef\bomega="0\mib21 
    \mathchardef\bvarepsilon="0\mib22 
    \mathchardef\bvartheta="0\mib23 
    \mathchardef\bvarpi="0\mib24 
    \mathchardef\bvarrho="0\mib25 
    \mathchardef\bvarsigma="0\mib26 
    \mathchardef\bvarphi="0\mib27 
  \fi 
} 
 
% Astronomy and Astrophysics symbol macros 
 
\def\la{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr<\cr\sim\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
<\cr\sim\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
<\cr\sim\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
<\cr\sim\cr}}}}} 
 
\def\ga{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr>\cr\sim\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
>\cr\sim\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
>\cr\sim\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
>\cr\sim\cr}}}}} 
 
\def\getsto{\mathrel{\mathchoice {\vcenter{\offinterlineskip 
\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr\gets\cr\to\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr\gets 
\cr\to\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr\gets 
\cr\to\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
\gets\cr\to\cr}}}}} 
 
\def\cor{\mathrel{\mathchoice {\hbox{$\widehat=$}}{\hbox{$\widehat=$}} 
{\hbox{$\reset@font\scriptstyle\hat=$}} 
{\hbox{$\reset@font\scriptscriptstyle\hat=$}}}} 
 
\def\lid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr<\cr\noalign{\vskip1.2pt}=\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr<\cr 
\noalign{\vskip1.2pt}=\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr<\cr 
\noalign{\vskip1pt}=\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
<\cr 
\noalign{\vskip0.9pt}=\cr}}}}} 
 
\def\gid{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr>\cr\noalign{\vskip1.2pt}=\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr>\cr 
\noalign{\vskip1.2pt}=\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr>\cr 
\noalign{\vskip1pt}=\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
>\cr 
\noalign{\vskip0.9pt}=\cr}}}}} 
 
\def\sol{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr\sim\cr<\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr\sim\cr 
<\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr\sim\cr 
<\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
\sim\cr<\cr}}}}} 
 
\def\sog{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr\sim\cr>\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr\sim\cr 
>\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
\sim\cr>\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
\sim\cr>\cr}}}}} 
 
\def\lse{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr<\cr\simeq\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
<\cr\simeq\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
<\cr\simeq\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
<\cr\simeq\cr}}}}} 
 
\def\gse{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr>\cr\simeq\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
>\cr\simeq\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
>\cr\simeq\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
>\cr\simeq\cr}}}}} 
 
\def\grole{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr>\cr\noalign{\vskip-1.5pt}<\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
>\cr\noalign{\vskip-1.5pt}<\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
>\cr\noalign{\vskip-1pt}<\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
>\cr\noalign{\vskip-0.5pt}<\cr}}}}} 
 
\def\leogr{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr<\cr\noalign{\vskip-1.5pt}>\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
<\cr\noalign{\vskip-1.5pt}>\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
<\cr\noalign{\vskip-1pt}>\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
<\cr\noalign{\vskip-0.5pt}>\cr}}}}} 
 
\def\loa{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr<\cr\approx\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
<\cr\approx\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
<\cr\approx\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
<\cr\approx\cr}}}}} 
 
\def\goa{\mathrel{\mathchoice {\vcenter{\offinterlineskip\halign{\hfil 
$\reset@font\displaystyle##$\hfil\cr>\cr\approx\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\textstyle##$\hfil\cr 
>\cr\approx\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptstyle##$\hfil\cr 
>\cr\approx\cr}}} 
{\vcenter{\offinterlineskip\halign{\hfil$\reset@font\scriptscriptstyle##$\hfil\cr 
>\cr\approx\cr}}}}} 
 
\def\sun{\hbox{$\odot$}} 
\def\earth{\hbox{$\oplus$}}
\def\degr{\hbox{$^\circ$}} 
\def\diameter{{\ifmmode\mathnormal 
{\ooalign{\hfil\hbox{$\reset@font\displaystyle/$}\hfil\crcr 
{\hbox{$\reset@font\displaystyle\mathchar"20D$}}}} 
{\ooalign{\hfil\hbox{$\reset@font\textstyle/$}\hfil\crcr 
{\hbox{$\reset@font\textstyle\mathchar"20D$}}}} 
{\ooalign{\hfil\hbox{$\reset@font\scriptstyle/$}\hfil\crcr 
{\hbox{$\reset@font\scriptstyle\mathchar"20D$}}}} 
{\ooalign{\hfil\hbox{$\reset@font\scriptscriptstyle/$}\hfil\crcr 
{\hbox{$\reset@font\scriptscriptstyle\mathchar"20D$}}}} 
\else{\ooalign{\hfil/\hfil\crcr\mathhexbox20D}}% 
\fi}} 
 
\def\sq{\ifmmode\squareforqed\else{\unskip\nobreak\hfil 
\penalty50\hskip1em\null\nobreak\hfil\squareforqed 
\parfillskip=0pt\finalhyphendemerits=0\endgraf}\fi} 
\def\squareforqed{\hbox{\rlap{$\sqcap$}$\sqcup$}} 
 
\def\fd{\hbox{$.\!\!^{\reset@font\romn d}$}} 
\def\fh{\hbox{$.\!\!^{\reset@font\romn h}$}} 
\def\fm{\hbox{$.\!\!^{\reset@font\romn m}$}} 
\def\fs{\hbox{$.\!\!^{\reset@font\romn s}$}} 
\def\fdg{\hbox{$.\!\!^\circ$}} 
\def\farcm{\hbox{$.\mkern-4mu^\prime$}} 
\def\farcs{\hbox{$.\!\!^{\prime\prime}$}} 
\def\fp{\hbox{$.\!\!^{\reset@font\reset@font\scriptscriptstyle\romn p}$}} 
\def\arcmin{\hbox{$^\prime$}} 
\def\arcsec{\hbox{$^{\prime\prime}$}} 

\def\micron{\hbox{$\mu$m}}

% 
 
\def\sq{\ifmmode\squareforqed\else{\unskip\nobreak\hfil 
\penalty50\hskip1em\null\nobreak\hfil\squareforqed 
\parfillskip=0pt\finalhyphendemerits=0\endgraf}\fi} 
\def\squareforqed{\hbox{\rlap{$\sqcap$}$\sqcup$}} 
 
\ifnfsstwo 
  \newcommand{\romn}[1] {{\mathrm #1}} 
\fi 
 
\ifnfssone 
  \newcommand{\romn}[1] {{\mathrm #1}} 
\fi 
 
\ifoldfss 
  \newcommand{\romn}[1] {{\rm #1}} 
\fi 
 
 
% replace some of the above with AMS symbols (from MTXM) 
 
\ifx\CUP@mtlplain@loaded\undefined 
\else 
% 
  \ifnfsstwo 
% 
    \let\la=\undefined 
    \let\getsto=\undefined 
    \let\lid=\undefined 
    \let\grole=\undefined 
    \let\loa=\undefined 
    \let\ga=\undefined 
    \let\gid=\undefined 
    \let\leogr=\undefined 
    \let\goa=\undefined 
    \let\sq=\undefined 
% 
    \DeclareFontFamily{U}{mtx}{} 
    \DeclareFontShape{U}{mtx}{m}{n}{ 
          <-> mtxm10% 
          }{}% 
    \DeclareSymbolFont{xmsymbols}{U}{mtx}{m}{n} 
    \DeclareMathSymbol{\la}{3}{xmsymbols}{"2E} 
    \DeclareMathSymbol{\getsto}{3}{xmsymbols}{"1C} 
    \DeclareMathSymbol{\lid}{3}{xmsymbols}{"35} 
    \DeclareMathSymbol{\grole}{3}{xmsymbols}{"3F} 
    \DeclareMathSymbol{\loa}{3}{xmsymbols}{"2F} 
    \DeclareMathSymbol{\ga}{3}{xmsymbols}{"26} 
    \DeclareMathSymbol{\gid}{3}{xmsymbols}{"3D} 
    \DeclareMathSymbol{\leogr}{3}{xmsymbols}{"37} 
    \DeclareMathSymbol{\goa}{3}{xmsymbols}{"27} 
    \DeclareMathSymbol{\sq}{0}{xmsymbols}{"03} 
% 
  \else 
%   ofss or nfss 1 
    \newfam\xmfam 
    \edef\@xm{\hexnumber\xmfam} 
    \font\ninexm=mtxm10 at 9pt 
    \font\sixxm=mtxm10 at 6pt 
    \font\fivexm=mtxm10 at 5pt 
    \textfont\xmfam=\ninexm 
      \scriptfont\xmfam=\sixxm 
        \scriptscriptfont\xmfam=\fivexm 
  % 
    \mathchardef\la="3\@xm2E 
    \mathchardef\getsto="3\@xm1C 
    \mathchardef\lid="3\@xm35 
    \mathchardef\grole="3\@xm3F 
    \mathchardef\loa="3\@xm2F 
    \mathchardef\ga="3\@xm26 
    \mathchardef\gid="3\@xm3D 
    \mathchardef\leogr="3\@xm37 
    \mathchardef\goa="3\@xm27 
    \mathchardef\sq="0\@xm03 
  \fi 
\fi 

 
%  **************************************** 
%  *            PAGE LAYOUT               * 
%  **************************************** 
% 
% SIDE MARGINS: 
\if@twocolumn 
 \oddsidemargin -2.5pc \evensidemargin -2.5pc 
\else 
 \ifGB@referee 
  \oddsidemargin \z@  \evensidemargin \z@ 
 \else 
  \oddsidemargin -2pc  \evensidemargin -2pc 
 \fi 
\fi 
\marginparwidth 4pc 
\marginparsep 0.5pc 
 
% VERTICAL SPACING: 
%\if@twocolumn 
 \topmargin -2pc 
%\else 
 \topmargin \z@ 
%\fi 
\headheight 14pt 
\headsep    15pt 
\topskip     9pt 
\footheight 11pt 
\footskip   26pt 
% 
% DIMENSION OF TEXT: 
% 
\newdimen\GB@measure 
\GB@measure 42pc 
% 
\textheight 682pt 
\textwidth \GB@measure 
% 
\ifGB@landscape 
 \textwidth \textheight 
 \textheight \GB@measure 
\fi 
\ifGB@referee 
 \textwidth 39pc 
\fi 
\columnsep 2pc 
\columnseprule 0pt 

\ifGB@mreferee 
\setlength {\textwidth}     {156.0mm}
\setlength {\textheight}    {230.0mm}
\setlength {\evensidemargin}{0mm}
\setlength {\oddsidemargin} {0mm}
\setlength {\topmargin} {0mm}
\setlength {\baselineskip} {17pt}
\setlength {\parindent}     {5mm}
\fi 

% FOOTNOTES: 
\footnotesep 6pt 
\skip\footins 19.5pt plus 12pt minus 1pt 
 
% FLOATS: 
\floatsep 12pt plus 5.5pt minus 1pt 
\textfloatsep 12pt plus 7.5pt  
\intextsep 12pt plus 5.5pt minus 2pt 
\@maxsep 15pt 
\dblfloatsep 12pt plus 5.5pt minus 2pt 
\dbltextfloatsep 15pt plus 4.5pt minus 3pt 
\@dblmaxsep 15pt 
\@fptop 0pt plus 0fil 
\@fpsep 12pt plus 0fil 
\@fpbot 0pt plus 3fil 
\@dblfptop 0pt plus 0fil 
\@dblfpsep 12pt plus 0fil 
\@dblfpbot 0pt plus 3fil 
\marginparpush 5pt 
 
%  **************************************** 
%  *           PARAGRAPHING               * 
%  **************************************** 
% 
\parskip \z@ plus .1pt 
\parindent 18pt 
\partopsep 0pt plus 1pt 
\@lowpenalty   51 
\@medpenalty  151 
\@highpenalty 301 
\@beginparpenalty -\@lowpenalty 
\@endparpenalty -\@lowpenalty 
\@itempenalty -\@lowpenalty 
\clubpenalty=0 
\widowpenalty=10000 
 
%  **************************************** 
%  *       PARTS & SECTIONS NUMBERS       * 
%  **************************************** 
% 
\newcounter {part} 
\newcounter {section} 
\newcounter {subsection}[section] 
\newcounter {subsubsection}[subsection] 
\newcounter {paragraph}[subsubsection] 
\newcounter {subparagraph}[paragraph] 
\def\thepart {\arabic{part}} 
\def\thesection {\arabic{section}} 
\def\thesubsection    {\thesection.\arabic{subsection}} 
\def\thesubsubsection {\thesubsection.\arabic{subsubsection}} 
\def\theparagraph     {\thesubsubsection.\arabic{paragraph}} 
\def\thesubparagraph  {\theparagraph.\arabic{subparagraph}} 

% Sometimes people want to number equations by section, rather than
% sequentially through the whole paper.

\def\eqsecnum{
    \@newctr{equation}[section]
    \def\theequation{\hbox{\normalsize\arabic{section}.\arabic{equation}}}}
 
\def\eqsubsecnum{
    \@newctr{equation}[subsection]
    \def\theequation{\hbox{\normalsize
    \arabic{section}.\arabic{subsection}.\arabic{equation}}}}
 

%  **************************************** 
%  *                PARTS                 * 
%  **************************************** 
% 
\def\part{\par \addvspace{4ex}\@afterindentfalse 
 \secdef\@part\@spart} 
\def\@part[#1]#2{\ifnum \c@secnumdepth >\m@ne 
  \refstepcounter{part} 
  \addcontentsline{toc}{part}{Part \thepart: #1} 
 \else \addcontentsline{toc}{part}{#1} 
 \fi 
 {\parindent 0pt \raggedright 
  \ifnum \c@secnumdepth >\m@ne 
   \reset@font\large\rm PART 
   \ifcase\thepart \or ONE \or TWO \or THREE \or FOUR \or FIVE 
    \or SIX \or SEVEN \or EIGHT \or NINE \or TEN \else \fi 
   \par \nobreak 
  \fi 
  \reset@font\LARGE \rm #2 \markboth{}{}\par } 
 \nobreak \vskip 3ex \@afterheading} 
\def\@spart#1{{\parindent 0pt \raggedright 
  \reset@font\LARGE \rm #1\par} 
 \nobreak \vskip 3ex \@afterheading} 
 
%  **************************************** 
%  *               SECTIONS               * 
%  **************************************** 
% 
% \@startsection modified to leave less space before \subsection 
%    if it immediately follows \section 
 
% \@startsection {NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}  
 
\def\@startsection#1#2#3#4#5#6{\if@noskipsec \leavevmode \fi 
   \par \@tempskipa #4\relax 
   \@afterindenttrue 
   \ifdim \@tempskipa <\z@ \@tempskipa -\@tempskipa \@afterindentfalse\fi 
   \if@nobreak 
     \everypar{} \ifnum#2=2 \vskip 0pt plus1pt\fi % was 6pt 
   \else 
     \addpenalty{\@secpenalty}\addvspace{\@tempskipa} 
   \fi \@ifstar 
     {\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}} 
 
%\def\GB@hangraggedright{\rightskip\@flushglue \let\\=\newline} 
%\def\GB@raggedright{\rightskip\@flushglue \let\\=\@centercr 
% \parindent=\GB@indent} 
 
\def\GB@hangraggedright{\rightskip=\@flushglue \let\\=\@centercr \parindent=0pt} 
 
\def\section{\@startsection{section}{1}{\z@} 
 {-24pt plus -12pt minus -1pt}{6pt} 
 {\GB@hangraggedright\reset@font\normalsize\bf}} 
\def\subsection{\@startsection{subsection}{2}{\z@} 
 {-18pt plus -9pt minus -1pt}{6pt} 
 {\GB@hangraggedright\reset@font\normalsize\bf}} 
\def\subsubsection{\@startsection{subsubsection}{3}{\z@} 
 {-18pt plus -9pt minus -1pt}{6pt} 
 {\GB@hangraggedright\reset@font\normalsize\it}} 
\def\paragraph{\@startsection{paragraph}{4}{\z@} 
 {12pt plus 2.25pt minus 1pt}{-0.5em}{\reset@font\normalsize\bf}} 
\def\subparagraph{\@startsection{subparagraph}{5}{\parindent} 
 {12pt plus 2.25pt minus 1pt}{-0.5em}{\reset@font\normalsize\it}} 
\setcounter{secnumdepth}{4} 
% 
\newif\if@levelone 
% 
% \@sect{NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}[ARG1]{ARG2}  
\def\@sect#1#2#3#4#5#6[#7]#8{% 
  \ifnum #2>\c@secnumdepth 
  \def\@svsec{}% 
 \else 
  \refstepcounter{#1} 
   \ifnum #2=\@ne \global\@levelonetrue % if level=1 ie. section 
   \ifGB@appendix \edef\@svsec{}% 
     \else \edef\@svsec{\csname the#1\endcsname\hskip 1em}% 
   \fi 
  \else \edef\@svsec{\csname the#1\endcsname\hskip 1em}% 
  \fi 
 \fi 
 \@tempskipa #5\relax 
 \ifdim \@tempskipa>\z@ 
  \begingroup #6\relax 
   \ifnum #2=\@ne 
    \ifGB@appendix 
     \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M  
      APPENDIX \csname the#1\endcsname:\hskip 0.5em\uppercase{#8}\par}% 
    \else 
     \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M  
      \uppercase{#8}\par}% 
    \fi 
   \else 
    \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}% 
   \fi 
  \endgroup 
   \csname #1mark\endcsname{#7}% 
   \addcontentsline{toc}{#1}{\ifnum #2>\c@secnumdepth \else %ajw 
   \protect\numberline{\csname the#1\endcsname}\fi #7}%ajw 
 \else 
  \def\@svsechd{#6\hskip #3\@svsec \ifnum #2=\@ne\uppercase{#8}\else #8\fi 
  \csname #1mark\endcsname{#7} 
  \addcontentsline{toc}{#1}{\ifnum #2>\c@secnumdepth \else %ajw 
  \protect\numberline{\csname the#1\endcsname}\fi#7}%ajw 
  }\fi 
 \@xsect{#5}} 
 
% from latex.tex 
%   \@ssect{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}{ARG}  
\def\@ssect#1#2#3#4#5{% 
  \@tempskipa #3\relax 
    \ifdim \@tempskipa>\z@ 
      \begingroup #4\@hangfrom{\hskip #1}{% 
      \interlinepenalty \@M  
      \if@levelone 
        \uppercase{#5}\global\@levelonefalse 
      \else{#5} 
      \fi\par}% 
     \endgroup 
    \else  
      \def\@svsechd{#4\hskip #1\relax 
      \if@levelone 
        \uppercase{#5}\global\@levelonefalse 
      \else{#5} 
      \fi} 
    \fi 
  \@xsect{#3}% 
} 
 
\newif\ifGB@appendix 
\def\appendix{\par 
 \GB@appendixtrue 
 \setcounter{section}{0} 
% \def\thesection{A\arabic{section}} 
 \def\thesection{\Alph{section}} 
 \def\thesubsection{\thesection\arabic{subsection}} 
 \setcounter{equation}{0} 
% \def\theequation{A\arabic{equation}} 
 \def\theequation{\hbox{\normalsize\Alph{section}.\arabic{equation}}}
 \setcounter{figure}{0} 
 \def\thefigure{A\@arabic\c@figure} 
 \setcounter{table}{0} 
 \def\thetable{A\@arabic\c@table} 
} 

\newcommand\resetfigno{
 \setcounter{figure}{0} 
 \renewcommand\thefigure{\@arabic\c@figure} }
 
%  **************************************** 
%  *               SKIPS                  * 
%  **************************************** 
% 
\newskip\@indentskip 
\newskip\smallindent 
\newskip\@footindent 
\newskip\@leftskip 
\@indentskip=18pt 
\smallindent=1.5em 
\@footindent=\smallindent 
\@leftskip=\z@ 
 
%  **************************************** 
%  *                LISTS                 * 
%  **************************************** 
% 
\leftmargini   \z@ 
\leftmarginii  1.25pc 
\leftmarginiii 1.25pc 
\leftmarginiv  1.25pc 
\leftmarginv   1pc 
\leftmarginvi  1pc 
\leftmargin\leftmargini 
\labelsep 0.5em 
\labelwidth\leftmargini\advance\labelwidth-\labelsep 
% 
% label macros for Range-Left and Range-Right labels 
\def\makeRLlabel#1{\rlap{#1}\hss} 
\def\makeRRlabel#1{\hss\llap{#1}} 
\def\makenewlabel#1{#1} 
% 
\def\@listI{\leftmargin\leftmargini 
 \parsep \z@ 
 \topsep 6pt plus 1pt minus 1pt 
 \itemsep \z@ plus .1pt 
} 
\let\@listi\@listI 
\@listi 
\def\@listii{\leftmargin\leftmarginii 
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep 
 \topsep 6pt plus 1pt minus 1pt 
 \parsep \z@ 
 \itemsep \z@ plus .1pt 
} 
\def\@listiii{\leftmargin\leftmarginiii 
 \labelwidth\leftmarginiii\advance\labelwidth-\labelsep 
 \topsep 6pt plus 1pt minus 1pt 
 \parsep \z@ 
 \partopsep \z@ 
 \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 
} 
% 
% ITEMIZE 
\def\itemize{% 
  \ifnum \@itemdepth >3 \@toodeep 
  \else \advance\@itemdepth \@ne 
   \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}% 
   \list{\csname\@itemitem\endcsname}% 
  {\let\makelabel\makeRRlabel}% 
   \leftmargin 3.5em\labelsep 0.5em\itemindent 2.0em\labelwidth 0.5em% 
  \fi} 
\def\labelitemi{$\bullet$} 
\def\labelitemii{--} 
\def\labelitemiii{$\cdot$} 
\def\labelitemiv{*} 
% 
% ENUMERATE 
% GB -- enumerate with optional argument to set left margin... 
\def\enumerate{\ifnum \@enumdepth >3 \@toodeep \else 
  \advance\@enumdepth \@ne 
  \edef\@enumctr{enum\romannumeral\the\@enumdepth}% 
 \fi 
 \@ifnextchar [{\@enumeratetwo}{\@enumerateone}% 
} 
\def\@enumeratetwo[#1]{% 
 \list{\csname label\@enumctr\endcsname}% 
  {\settowidth\labelwidth{[#1]} 
   \leftmargin\z@  
   \usecounter{\@enumctr} 
   \let\makelabel\makenewlabel} 
} 
\def\@enumerateone{% 
 \list{\csname label\@enumctr\endcsname}% 
  {\usecounter{\@enumctr}\itemindent=1em 
   \let\makelabel\makenewlabel}} 
% 
\def\labelenumi{\theenumi} 
\def\theenumi{(\roman{enumi})} 
\def\labelenumii{(\theenumii)} 
\def\theenumii{(\alph{enumii})} 
\def\p@enumii{\theenumi} 
\def\labelenumiii{\theenumiii} 
\def\theenumiii{(\arabic{enumiii})} 
\def\p@enumiii{\theenumi(\theenumii)} 
\def\labelenumiv{\theenumiv} 
\def\theenumiv{(\Alph{enumiv})} 
\def\p@enumiv{\p@enumiii\theenumiii} 
% 
% DESCRIPTION 
%\def\descriptionlabel#1{\hspace\labelsep \reset@font\bf #1} 
%\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin 
%  \leftmargin 1em 
%  \itemindent-1em 
%}} 
\def\descriptionlabel#1{\reset@font\bf #1} 
\def\description{\list{}{\labelwidth\z@ 
  \leftmargin \z@ 
  \itemindent 1em 
}} 
\let\enddescription\endlist 
 
%  **************************************** 
%  *            DISPLAYED TEXT            * 
%  **************************************** 
% 
% VERSE 
\def\verse{\let\\=\@centercr 
 \list{}{\itemsep\z@ 
  \itemindent -\@indentskip 
  \listparindent \itemindent 
  \rightmargin\leftmargin 
  \advance\leftmargin \@indentskip}\item[]} 
\let\endverse\endlist 
% 
% QUOTATION 
\def\quotation{\list{}{\listparindent \smallindent 
%  \itemindent\listparindent 
  \leftmargin\z@\rightmargin\leftmargin 
  \parsep 0pt plus 1pt}\item[]\reset@font\small} 
\let\endquotation=\endlist 
% 
% QUOTE 
\def\quote{\list{}{\leftmargin\z@\rightmargin\leftmargin}\item[]\reset@font\small} 
\let\endquote=\endlist 
 
%  **************************************** 
%  *         OTHER ENVIRONMENTS           * 
%  **************************************** 
% 
% THEOREM 
\def\@begintheorem#1#2{\reset@font\rm \trivlist \item[\hskip \labelsep{\reset@font\bf #1\ #2.}]} 
\def\@opargbegintheorem#1#2#3{\reset@font\rm \trivlist 
  \item[\hskip \labelsep{\reset@font\bf #1\ #2.\ (#3)}]} 
\def\@endtheorem{\endtrivlist} 
% 
% PROOF 
\def\proof{\reset@font\rm \trivlist \item[\hskip \labelsep{\reset@font\it Proof.}]} 
\def\endproof{\hspace*{1em}{\begin{picture}(6.5,6.5)% 
  \put(0,0){\framebox(6.5,6.5){}}\end{picture}}\endtrivlist} 
\@namedef{proof*}{\reset@font\rm \trivlist \item[\hskip \labelsep{\reset@font\it Proof.}]} 
\@namedef{endproof*}{\endtrivlist} 
\def\proofbox{\begin{picture}(6.5,6.5)% 
  \put(0,0){\framebox(6.5,6.5){}}\end{picture}} 
% 
% TITLEPAGE 
\def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn 
  \else \newpage \fi \thispagestyle{empty}\c@page\z@} 
\def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi} 
 
% ARRAY AND TABULAR 
% 
\arraycolsep   5pt 
\tabcolsep     6pt 
\arrayrulewidth .5pt 
\doublerulesep 1.5pt 
 
\def\tabular{\def\@halignto{} 
 \def\hline{\noalign{\ifnum0=`}\fi 
  \vskip 3pt 
  \hrule \@height \arrayrulewidth 
%   {\hbox to 0.667\textwidth{\hrulefill}} 
  \vskip 3pt 
  \futurelet \@tempa\@xhline} 
 \def\fullhline{\noalign{\ifnum0=`}\fi 
  \vskip 3pt 
  \hrule \@height \arrayrulewidth 
%   {\hbox to \textwidth{\hrulefill}} 
  \vskip 3pt 
  \futurelet \@tempa\@xhline} 
 \def\@xhline{\ifx\@tempa\hline 
   \vskip -6pt 
   \vskip \doublerulesep 
  \fi 
  \ifnum0=`{\fi}} 
  \def\@arrayrule{\@addtopreamble{\hskip -.5\arrayrulewidth 
%                                  \vrule \@width \arrayrulewidth 
                                  \hskip .5\arrayrulewidth}} 
\@tabular 
} 
% TABBING 
% 
\tabbingsep \labelsep 
 
% MINIPAGE 
% 
\skip\@mpfootins = \skip\footins 
 
% FRAMEBOX 
% 
% Space left between box and text by \fbox and \framebox. 
\fboxsep = 3pt 
% Width of rules in box made by \fbox and \framebox. 
\fboxrule = \arrayrulewidth 
 
%  **************************************** 
%  *         TITLE AND ABSTRACT           * 
%  **************************************** 
% 
\def\maketitle{\par 
 \begingroup 
%  \def\thefootnote{\fnsymbol{footnote}} 
%  \def\@makefnmark{\hbox to 0pt{$^{\@thefnmark}$\hss}} 
  \if@twocolumn 
   \twocolumn[\vspace*{17pt}\@maketitle]  
  \else 
   \newpage 
   \global\@topnum\z@ 
   \@maketitle 
  \fi 
  \thispagestyle{titlepage} 
%  \@thanks 
 \endgroup 
% \setcounter{footnote}{0} 
 \let\maketitle\relax 
 \let\@maketitle\relax 
 \gdef\@author{} 
 \gdef\@title{} 
% \gdef\@thanks{} 
 \let\thanks\relax 
} 
\def\and{\end{author@tabular}\vskip 3pt\par 
 \begin{author@tabular}[t]{@{}l@{}}} 
\def\@maketitle{\newpage 
 \vspace*{7pt} 
 {\raggedright \sloppy 
  {\reset@font\huge \bf \@title \par} 
  \vskip 23pt 
  {\reset@font\LARGE 
   \begin{author@tabular}[t]{@{}l@{}}\@author 
   \end{author@tabular}\par} 
  \vskip 22pt 
 } 
 \par\noindent 
 \ifGB@mreferee
 \else
  {\reset@font\small \@date \par} 
   \vskip 22pt
 \fi 
} 
%  abstract/summary
\def\summary{\if@twocolumn 
   \start@GBbox\@summary 
 \else 
   \@summary 
 \fi} 
\def\endsummary{\if@twocolumn 
   \endlist\finish@GBbox 
 \else 
  \endlist 
 \fi} 
\def\abstract{\if@twocolumn 
   \start@GBbox\@summary 
 \else 
   \@summary 
 \fi} 
\def\endabstract{\if@twocolumn 
   \endlist\finish@GBbox 
 \else 
  \endlist 
 \fi} 
\def\left@zm{10.5pc}
\ifGB@mreferee 
  \def\left@zm{1.5pc}
\fi
\ifGB@referee 
  \def\left@zm{1.5pc} 
\fi
\def\@summary{\list{}{% 
    \labelwidth\z@ \labelsep\z@  
    \leftmargin\left@zm \rightmargin\z@ 
    \parsep 0pt plus 1pt}\item[]\reset@font
    \normalsize{\bf SUMMARY}\\\reset@font\large} 

% 
\newif\ifGB@keywords 
\def\keywords{\if@twocolumn 
  \start@GBbox\@keywords 
 \else 
  \@keywords 
 \fi 
} 
\def\@keywords{\list{}{% 
    \labelwidth\z@ \labelsep\z@  
    \leftmargin\left@zm \rightmargin\z@ 
    \parsep 0pt plus 1pt}\item[]\reset@font\large{\bf Key words: }} 
\def\endkeywords{\if@twocolumn 
  \endlist\addvspace{37pt plus 0.5\baselineskip}\finish@GBbox  
 \else 
  \endlist 
 \fi 
 \@thanks 
 \gdef\@thanks{} 
 \GB@keywordstrue 
} 
\def\nokeywords{\ifGB@keywords\else 
 \if@twocolumn \start@GBbox\addvspace{37pt}\finish@GBbox \fi 
 \@thanks 
 \gdef\@thanks{}\fi 
} 
 
\def\author@tabular{\def\@halignto{}\@authortable} 
\let\endauthor@tabular=\endtabular 
% 
\def\author@tabcrone{\vspace{2pt}{\ifnum0=`}\fi% 
  \@xtabularcr[-7pt]\reset@font\small\it 
  \let\\=\author@tabcrtwo\ignorespaces} 
% 
\def\author@tabcrtwo{{\ifnum0=`}\fi\@xtabularcr[-7pt]\reset@font\small\it 
 \let\\=\author@tabcrtwo\ignorespaces} 
% 
\def\@authortable{\leavevmode \hbox \bgroup $\let\@acol\@tabacol 
 \let\@classz\@tabclassz \let\@classiv\@tabclassiv 
 \let\\=\author@tabcrone\ignorespaces \@tabarray} 
 
\def\start@GBbox{\@next\@currbox\@freelist{}{}% 
 \global\setbox\@currbox 
 \vbox\bgroup 
  \hsize \textwidth 
  \@parboxrestore 
} 
\def\finish@GBbox{\par\vskip -\dbltextfloatsep 
  \egroup 
  \global\count\@currbox\tw@ 
  \global\@dbltopnum\@ne 
  \global\@dbltoproom\maxdimen\@addtodblcol 
  \global\vsize\@colht 
  \global\@colroom\@colht 
} 
 
%  **************************************** 
%  *            PAGE STYLES               * 
%  **************************************** 
% 
\mark{{}{}} 
\gdef\@author{\mbox{}} 
\def\author{\@ifnextchar [{\@authortwo}{\@authorone}} 
\def\@authortwo[#1]#2{\gdef\@author{#2}\gdef\@shortauthor{#1}} 
\def\@authorone#1{\gdef\@author{#1}\gdef\@shortauthor{#1}} 
%\def\shortauthor#1{\gdef\@shortauthor{#1}} 
\gdef\@shortauthor{} 
\gdef\@title{\mbox{}} 
\def\title{\@ifnextchar [{\@titletwo}{\@titleone}} 
\def\@titletwo[#1]#2{\gdef\@title{#2}\gdef\@shorttitle{#1}} 
\def\@titleone#1{\gdef\@title{#1}\gdef\@shorttitle{#1}} 
%\def\shorttitle#1{\gdef\@shorttitle{#1}} 
\gdef\@shorttitle{} 
\def\volume#1{\gdef\@volume{#1}} 
\gdef\@volume{000} 
\def\tod@y{\today} 
\def\microfiche#1{\gdef\@microfiche{#1}} 
\gdef\@microfiche{} 
\def\pubyear#1{\gdef\@pubyear{#1}} 
\gdef\@pubyear{0000} 
\def\pagerange#1{\gdef\@pagerange{#1}} 
\gdef\@pagerange{000--000} 
\def\journal#1{\gdef\@journal{#1}} 
\def\plate#1{\gdef\pl@te{#1}} 
\ifx\CUP@mtlplain@loaded\undefined 
  \def\@printed{\qquad Printed \tod@y} 
\else 
  \def\@printed{} 
\fi 

\gdef\@journal{{\it Geophys.\ J.\ Int.} (\@pubyear) {\bf \@volume}, 
 \@pagerange\  \@microfiche } 
\ifGB@referee
 \def\@journal{submitted to {\it Geophys.\ J.\ Int.} }
\fi
\ifGB@mreferee
 \def\@journal{submitted to {\it Geophys.\ J.\ Int.}}
\fi
% 
% \ps@empty and \ps@plain defined in LATEX.TEX 
% 
\def\@ddell{} 
\if@fasttrack 
  \def\@ddell{F} 
\fi 
\def\ps@headings{\let\@mkboth\markboth 
\ifGB@mreferee
 \def\@oddhead{\normalsize\hfill{\it\@shorttitle}\hspace{1.5em}\rm\@ddell\thepage} 
 \def\@oddfoot{} 
 \def\@evenhead{\normalsize\@ddell\thepage\hspace{1.5em}\it\@shortauthor\hfill} 
 \def\@evenfoot{} 
\else
 \def\@oddhead{\Large\hfill{\it\@shorttitle}\hspace{1.5em}\rm\@ddell\thepage} 
 \def\@oddfoot{} 
 \def\@evenhead{\Large\@ddell\thepage\hspace{1.5em}\it\@shortauthor\hfill} 
 \def\@evenfoot{} 
\fi
 \def\sectionmark##1{\markboth{##1}{}} 
 \def\subsectionmark##1{\markright{##1}}} 
\def\ps@myheadings{\let\@mkboth\@gobbletwo 
\ifGB@mreferee
 \def\@oddhead{\normalsize\hfill\it\rightmark\hspace{1.5em}\rm\@ddell\thepage} 
 \def\@oddfoot{} 
 \def\@evenhead{\normalsize\@ddell\thepage\hspace{1.5em}\it\leftmark\hfill} 
 \def\@evenfoot{} 
\else
 \def\@oddhead{\Large\hfill\it\rightmark\hspace{1.5em}\rm\@ddell\thepage} 
 \def\@oddfoot{} 
 \def\@evenhead{\Large\@ddell\thepage\hspace{1.5em}\it\leftmark\hfill} 
 \def\@evenfoot{} 
\fi
 \def\sectionmark##1{} 
 \def\subsectionmark##1{}} 
\def\ps@titlepage{\let\@mkboth\@gobbletwo 
 \def\@oddhead{\footnotesize\@journal\hfill} 
%  \raisebox{0pt}[8pt][1pt]{\parbox{0.7\textwidth}{\@journal\\ 
%  \copyright\ \number\year\ BCS}} \hfill} 
 \def\@oddfoot{} 
 \def\@evenhead{\footnotesize\@journal\hfill} 
%  \raisebox{0pt}[8pt][1pt]{\parbox{0.7\textwidth}{\@journal\\ 
%  \copyright\ \number\year\ BCS}} \hfill} 
 \def\@evenfoot{} 
 \def\sectionmark##1{} 
 \def\subsectionmark##1{}} 
\def\ps@plate{\let\@mkboth\@gobbletwo 
  \def\@oddhead{\footnotesize\pl@te\hfill}\def\@oddfoot{} 
  \def\@evenhead{\footnotesize\pl@te\hfill}\def\@evenfoot{} 
} 
 
%  **************************************** 
%  *         TABLE OF CONTENTS, ETC.      * 
%  **************************************** 
% 
\def\@pnumwidth{1.55em} 
\def\@tocrmarg {2.55em} 
\def\@dotsep{4.5} 
\setcounter{tocdepth}{2} 
\def\@undottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth 
 \else 
  \vskip \z@ plus .2pt 
  {\hangindent #2\relax 
   \rightskip \@tocrmarg \parfillskip -\rightskip 
   \parindent #2\relax \@afterindenttrue 
   \interlinepenalty\@M \leavevmode 
   \@tempdima #3\relax #4\nobreak \hfill \nobreak 
   \hbox to\@pnumwidth{\hfil\reset@font\rm \ }\par}\fi} 
\def\tableofcontents{\@restonecolfalse 
 \if@twocolumn\@restonecoltrue\onecolumn\fi 
 \section*{CONTENTS} \@starttoc{toc} 
 \if@restonecol\twocolumn\fi \par\vspace{12pt}} 
\def\l@part#1#2{\addpenalty{-\@highpenalty} 
 \addvspace{2.25em plus 1pt} 
 \begingroup 
  \parindent \z@ \rightskip \@pnumwidth 
  \parfillskip -\@pnumwidth 
  {\reset@font\normalsize\rm 
   \leavevmode \hspace*{3pc} 
   #1\hfil \hbox to\@pnumwidth{\hss \ }}\par 
   \nobreak \global\@nobreaktrue 
   \everypar{\global\@nobreakfalse\everypar{}}\endgroup} 
\def\l@section#1#2{\addpenalty{\@secpenalty} 
 \@tempdima 1.5em 
 \begingroup 
  \parindent \z@ \rightskip \@pnumwidth 
  \parfillskip -\@pnumwidth \reset@font\rm \leavevmode 
  \advance\leftskip\@tempdima \hskip -\leftskip 
  #1\nobreak\hfil \nobreak\hbox to\@pnumwidth{\hss \ }\par 
 \endgroup} 
\def\l@subsection{\@undottedtocline{2}{1.5em}{2.3em}} 
\def\l@subsubsection{\@undottedtocline{3}{3.8em}{3.2em}} 
\def\l@paragraph{\@undottedtocline{4}{7.0em}{4.1em}} 
\def\l@subparagraph{\@undottedtocline{5}{10em}{5em}} 
\def\listoffigures{\@restonecolfalse 
 \if@twocolumn\@restonecoltrue\onecolumn\fi 
 \section*{LIST OF FIGURES\@mkboth{LIST OF FIGURES}{LIST OF FIGURES}} 
 \@starttoc{lof} \if@restonecol\twocolumn\fi} 
\def\l@figure{\@undottedtocline{1}{1.5em}{2.3em}} 
\def\listoftables{\@restonecolfalse 
 \if@twocolumn\@restonecoltrue\onecolumn\fi 
 \section*{LIST OF TABLES\@mkboth{LIST OF TABLES}{LIST OF TABLES}} 
 \@starttoc{lot} \if@restonecol\twocolumn\fi} 
\let\l@table\l@figure 
 
%  **************************************** 
%  *             BIBLIOGRAPHY             * 
%  **************************************** 
% 
 
\newcounter{dummy} 
\def\thebibliography#1{\section*{REFERENCES} 
 \addcontentsline{toc}{section}{REFERENCES} 
 \list{}{\usecounter{dummy}% 
         \labelwidth\z@ 
         \leftmargin 1.5em 
         \itemsep \z@ 
         \itemindent-\leftmargin} 
 \reset@font\small 
 \parindent\z@ 
 \parskip\z@ plus .1pt\relax 
 \def\newblock{\hskip .11em plus .33em minus .07em} 
 \sloppy\clubpenalty4000\widowpenalty4000 
 \sfcode`\.=1000\relax 
} 
\let\endthebibliography=\endlist 
\def\@biblabel#1{\hspace*{\labelsep}[#1]} 

% For AGU compatability use a {references} environment
% It is not necessary to use the thebibliography environment.  This style
% defines a references environment that simply sets off the list of references
% and adjusts spacing parameters.  It is not possible to use \bibitems
% within the references environment.  (The \reference command cannot be
% shortened to \ref; \ref is used in vanilla LaTeX for cross-referencing.)
%
%    \begin{references}
%    \reference <bibliographic data>
%    \end{references}
%
%    \markcite{TEXT}
%
% Observe that the bibliographic data supplied by the author must also
% conform to the standards of the journal.  I have elected not to burden
% authors with tedious LaTeX commands which would require many curly braces
% to delimit the bibliographic fields because many of the journals I have
% targeted in this project have agreed to reduce typographic overhead (bolding,
% italicizing, etc.) in reference lists.  (See Abt's editorial in ApJ 357.)
% It is the responsibility of the author to get these fields in the proper
% order with the correct punctuation; the information will be typeset as is,
% i.e., in roman with no size or style changes.
%
% Macros are provided for many of the oft-referenced journals so that authors
% may use the LaTeX names rather than having to look up a particular journal's
% specific abbreviation.  In principle, all the journals should be using the
% same abbreviations, too, but I anticipate some changes in the specific
% abbreviations before a set is finally settled on.  As long as these macros
% are kept up to date, authors need not be concerned about such editorial
% changes.
%
% Corresponding with the non-BibTeX references environment and \reference
% command for the reference list is the \markcite command.  This can be
% used to identify in-text citations; in this case, the author provides
% the actual citation text as opposed to the symbolic tag.  The use of
% this is encouraged, even for journals where no special formatting of
% citation call-outs is required; it is crucial for the future use of
% on-line browsers.

\def\references{\subsection*{References}
    \bgroup\parindent=\z@\parskip=\z@\reset@font\small 
    \def\refpar{\par\hangindent=3em\hangafter=1}}
\def\endreferences{\refpar\egroup}
%%\let\endreferences=\endlist 

%\def\@cite#1#2{({#1\if@tempswa , #2\fi})}
\def\@cite#1#2{#1\if@tempswa , #2\fi}

\def\reference{\relax\refpar}  % Generic: might be better...
\def\markcite#1{#1\relax}

% Modify \@citex so that individual citation texts are NOT hboxed.
% This allows TeX to break lines at spaces between words in citations.
% Remove the obnoxious {\bf ?} that was inserted in the text when
% undefined citations are encountered; here, the warning message is
% printed only on the terminal.

\def\@citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi
  \def\@citea{}\@cite{\@for\@citeb:=#2\do
    {\@citea\def\@citea{,\penalty\@m\ }\@ifundefined
       {b@\@citeb}{\@warning
       {Citation `\@citeb' on page \thepage \space undefined}}%
{\csname b@\@citeb\endcsname}}}{#1}}

 
%  **************************************** 
%  *              THE INDEX               * 
%  **************************************** 
% 
\newif\if@restonecol 
\def\theindex{\section*{INDEX} 
 \addcontentsline{toc}{section}{INDEX} 
 \reset@font\footnotesize \parindent\z@ \parskip\z@ plus .1pt\relax 
 \let\item\@idxitem} 
\def\@idxitem{\par\hangindent 1em} 
\def\subitem {\par\hangindent 1em \hspace*{1em}} 
\def\subsubitem{\par\hangindent 1em\hspace*{1em}} 
\def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi} 
\def\indexspace{\par\vskip\baselineskip \relax} 
 
%  **************************************** 
%  *             FOOTNOTES                * 
%  **************************************** 
% 
\def\footnoterule{\kern-3\p@ \hrule width 12pc height \z@ \kern 3\p@} 
 
\renewcommand{\thefootnote}{\mbox{{$\fnsymbol{footnote}$}}} 
 
\def\@fnsymbol#1{\ifcase#1\or \mbox{$\star$}\or \dagger\or \ddagger\or 
   \S \or \P \or \|\or **\or \dagger\dagger 
   \or \ddagger\ddagger\or \S\S\or \P\P\or \|\|\else *** 
   \fi\relax} 
 
\long\def\@makefntext#1{\parindent 1em\noindent 
  $^{\@thefnmark}$\hspace{4pt}#1} 
 
%\long\def\@makefntext#1{\@setpar{\@@par\@tempdima \hsize 
% \advance\@tempdima-18pt\parshape \@ne 18pt\@tempdima}\par 
% \noindent \hbox to \z@{\hss$^{\@thefnmark}$\hspace{0.5em}}#1} 
 
%  **************************************** 
%  *         FIGURES AND TABLES           * 
%  **************************************** 
% 
\setcounter{topnumber}{2} 
\def\topfraction{.9} 
\setcounter{bottomnumber}{1} 
\def\bottomfraction{.9} 
\setcounter{totalnumber}{3} 
\def\textfraction{.1} 
\def\floatpagefraction{.9} 
\setcounter{dbltopnumber}{2} 
\def\dbltopfraction{.9} 
\def\dblfloatpagefraction{.9} 
 
\newif\ifst@rredfloat 
\newcounter{table} 
\def\thetable{\@arabic\c@table} 
\def\fps@table{tbp} 
\def\ftype@table{1} 
\def\fstyle@table{\reset@font\small\rm} 
\def\ext@table{lot} 
\def\fnum@table{Table \thetable} 
\def\table{\let\@makecaption=\GB@maketablecaption% 
  \@float{table}\fstyle@table} 
\let\endtable\end@float 
\@namedef{table*}{\st@rredfloattrue\let\@makecaption=\GB@maketablecaption% 
  \@dblfloat{table}\centering\fstyle@table} 
\@namedef{endtable*}{\end@dblfloat\st@rredfloatfalse} 
 
\newcounter{figure} 
\def\thefigure{\@arabic\c@figure} 
\def\fps@figure{tbp} 
\def\ftype@figure{2} 
\def\fstyle@figure{\reset@font\small\rm} 
\def\ext@figure{lof} 
\def\fnum@figure{Figure \thefigure} 
\def\figure{\let\@makecaption=\GB@makefigurecaption% 
  \@float{figure}\fstyle@figure} 
\let\endfigure\end@float 
\@namedef{figure*}{\st@rredfloattrue\let\@makecaption=\GB@makefigurecaption% 
  \@dblfloat{figure}\centering\fstyle@figure} 
\@namedef{endfigure*}{\end@dblfloat\st@rredfloatfalse} 
 
\long\def\GB@makefigurecaption#1#2{\vskip 6pt 
 \setbox\@tempboxa\hbox{\reset@font\small{\bf #1.} #2} 
 \ifdim \wd\@tempboxa >\hsize 
  \reset@font\small{\bf #1.} #2\par 
 \else 
   \ifst@rredfloat 
     \hbox to\hsize{\hfill\box\@tempboxa\hfill} 
   \else 
     \hbox to\hsize{\box\@tempboxa\hfill} 
   \fi 
 \fi 
 \vskip 6pt 
} 
 
\long\def\GB@maketablecaption#1#2{\vskip 6pt 
 \setbox\@tempboxa\hbox{\reset@font\small{\bf #1.} #2} 
 \ifdim \wd\@tempboxa >\hsize 
   \reset@font\small{\bf #1.} #2\par 
 \else 
   \hbox to\hsize{\box\@tempboxa\hfill} 
 \fi 
 \vskip 6pt 
} 
 
%\def\caption{\refstepcounter\@captype \@dblarg{\@caption\@captype}} 
\def\caption{\@ifstar{\GB@caption\@captype}% 
 {\refstepcounter\@captype \@dblarg{\@caption\@captype}}% 
} 
\long\def\GB@caption#1#2{%\par 
 \begingroup 
  \@parboxrestore 
  \reset@font\normalsize 
  \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #2}\par 
 \endgroup} 
 
%  **************************************** 
%  *           Specials               * 
%  **************************************** 
% 
% 
%  The following code is taken from authordate.sty, by  David Rhead, of 
%  the Cripps Computing Centre (February 1990), with some modifications 
%  by ggw.  It is intended for documents 
%  that use the author-date citation system.  When used in conjunction with 
%  authordate1.bst, ... , authordate4.bst, it allows citations of the 
%  form \shortcite{bloggs-60} as well as the usual \cite{bloggs-60}. 
%  When 
%       ... \cite{bloggs-60} ... \shortcite{bloggs-60} ... 
%  appears in the input file, 
%       ... (Bloggs, 1960) ... (1960) ... 
%  appears in the final document. 
% 
%  Code taken from apalike.sty. 
% 
\def\@cite#1#2{(#1\if@tempswa , #2\fi)} 
\def\@biblabel#1{} 
 
% Set length of hanging indentation for bibliography entries 
% 
\newlength{\bibhang} 
\setlength{\bibhang}{2em} 
 
%  Define default title and page-head text. 
% 
\def\bibtitle{References} 
\def\bibheadtitle{REFERENCES} 
 
%  Code taken from aaai.sty. 
% 
% don't box citations, add space between multiple citations, separate with ; 
\def\@citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi 
  \def\@citea{}\@cite{\@for\@citeb:=#2\do 
    {\@citea\def\@citea{; }\@ifundefined 
       {b@\@citeb}{{\reset@font\bf ?}\@warning 
       {Citation `\@citeb' on page \thepage \space undefined}}% 
{\csname b@\@citeb\endcsname}}}{#1}} 
% Allow short (name-less) citations, when used in 
% conjunction with a bibliography style that creates labels like 
%       \citename{<names>, }<year> 
\let\@internalcite\cite 
\def\cite{\def\citename##1{##1}\@internalcite} 
\def\shortcite{\def\citename##1{}\@internalcite} 
 
% RM for BSP note at end of article 
\def\bsp{\medskip\reset@font\small\noindent This paper has been produced  
 using the Blackwell Scientific Publications GJI \LaTeX\ style file.} 
 
 
%  **************************************** 
%  *                FLEQN                 * 
%  **************************************** 
% 
% FLEQN DOCUMENT-STYLE OPTION - released 9 March 1987 
%    for LaTeX version 2.09 
% Copyright (C) 1987 by Leslie Lamport 
% 
% The following commands make the displayed math environments flush left, 
% with an indentation of \mathindent from the prevailing left margin. 
 
\def\[{\relax\ifmmode\@badmath\else\begin{trivlist}\item[]\leavevmode 
  \hbox to\linewidth\bgroup$ 
  \displaystyle 
  \hskip\mathindent\bgroup\fi} 
 
\def\]{\relax\ifmmode \egroup $\hfil 
       \egroup \end{trivlist}\else \@badmath \fi} 
 
\def\equation{\refstepcounter{equation}\trivlist \item[]\leavevmode 
  \hbox to\linewidth\bgroup $ 
  \displaystyle 
\hskip\mathindent} 
 
 
\def\endequation{$\hfil 
           \displaywidth\linewidth\@eqnnum\egroup \endtrivlist} 
 
\def\eqnarray{\stepcounter{equation}\let\@currentlabel=\theequation 
\global\@eqnswtrue 
\global\@eqcnt\z@\tabskip\mathindent\let\\=\@eqncr 
\abovedisplayskip\topsep\ifvmode\advance\abovedisplayskip\partopsep\fi 
\belowdisplayskip\abovedisplayskip 
\belowdisplayshortskip\abovedisplayskip 
\abovedisplayshortskip\abovedisplayskip 
$$\halign 
to \linewidth\bgroup\@eqnsel\hskip\@centering$\displaystyle\tabskip\z@ 
  {##}$&\global\@eqcnt\@ne \hskip 2\arraycolsep \hfil${##}$\hfil 
  &\global\@eqcnt\tw@ \hskip 2\arraycolsep $\displaystyle{##}$\hfil 
   \tabskip\@centering&\llap{##}\tabskip\z@\cr} 
 
\def\endeqnarray{\@@eqncr\egroup 
 \global\advance\c@equation\m@ne$$\global\@ignoretrue} 
 
\newdimen\mathindent 
\mathindent = \z@ 
 
\ifGB@mreferee 
 \setlength {\mathindent}  {2 mm}
\fi

%  **************************************** 
%  *            MISCELLANEOUS             * 
%  **************************************** 
% 
% DATE 
\def\today{\number\day\ \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 \ \number\year} 
 
%  **************************************** 
%  *           INITIALIZATION             * 
%  **************************************** 
% 
\flushbottom 
\ps@headings 
\ifGB@galley 
 \raggedbottom 
 \ps@empty 
\fi 
\ifGB@referee 
 \raggedbottom 
\fi 
\pagenumbering{arabic} 
\if@twocolumn 
 \twocolumn 
 \sloppy 
\else 
 \onecolumn 
\fi 
\frenchspacing 
 
%  *******************************************************************
%  *         TABLES AND FIGURES    {extensions from AGU macros       *
%  *******************************************************************

% Additions and adjustments for tables and figures.

% Footnotes for tables are to be identified with lower case alphabetics,
% rather than numeric.  \tablenotemark and \tablenotetext commands are
% provided analogous to \footnotemark and \footnotetext, but with the
% identifier *required*, like \altaffilmark and \altaffiltext.  The
% \tablenotetext must be specified before the \end{table}, since
% \end{table} displays it.
%
%     \tablenotemark{TAG LETTER(S)}
%     \tablenotetext{ALPHA TAG}{TEXT}
%
% Note that TAG LETTER == ALPHA TAG for corresponding text.  It is the
% responsibility of the author to get the correspondence correct.
%
% The table footnotes are coupled to the table in which they occur, rather
% than being associated with a particular page, and they are printed with
% the table (relatively close to the caption) instead of appearing at the
% extreme bottom of the page.  This is done to ensure that the notes wind
% up on the same page as the table, since tables are floats and can migrate
% from one page to another.  There is the additional benefit that the notes
% are unambiguously attached to the proper table, which is what is required
% in the event that the editorial requirement of one table only per page
% is ever changed to permit several tables per page.
%
% Footnotes are NOT supported for figures.

\def\tablenotemark#1{\rlap{$^{\rm #1}$}}

% The \tablenotetext command buffers the table note text and the "proper"
% tablenote formatting information in a token buffer.  The tablenotes are
% dispensed into the vertical page list by \spew@tblnotes, which is
% executed by \end{table}.  Note that certain "global" tablenote formatting
% details are handled by \spew@tblnotes, which also clears the tblnote list.
% Praise and honor are due to Kresten Krab Thorup (krab@iesd.auc.dk) for
% posting ftn.sty to the Usenet, from which I drew the technique.

\newtoks\@temptokenb
\def\tblnote@list{}

\def\tablenotetext#1#2{
    \@temptokena={\vspace{.5ex}{\noindent\llap{$^{#1}$}#2}\par}
    \@temptokenb=\expandafter{\tblnote@list}
    \xdef\tblnote@list{\the\@temptokenb\the\@temptokena}}

\def\spew@tblnotes{
  \ifx\tblnote@list\@empty\relax
  \else
    \vspace{4.5ex}
    \footnoterule
    \vspace{.5ex}
    {\footnotesize\tblnote@list}
    \gdef\tblnote@list{}
  \fi}

\def\endtable{\spew@tblnotes\end@float}
\@namedef{endtable*}{\spew@tblnotes\end@dblfloat}

% Add a \tableline command for use in tabular environments.  This command
% produces the horizontal rule(s) between the column headings and the body
% of the table.  Authors are discouraged from using any \hlines themselves,
% and are typically forbidden from using vertical rules by editors.

\let\tableline=\hline

% \@makecaption determines formatting for figure and table captions.  
% For manuscripts, all captions should be set as flushleft paragraphs.

\long\def\@makecaption#1#2{\vskip 2ex\noindent #1 #2\par}

% The \tablenum command allows the author to override all automatic
% table marking schemes.
%
%    \tablenum{TEXT}

\def\tablenum#1{\def\thetable{#1}\let\@currentlabel\thetable
    \addtocounter{table}{\m@ne}}

% The \figurenum command allows the author to override all automatic
% figure marking schemes.
%
%    \figurenum{TEXT}

\def\figurenum#1{\def\thefigure{#1}\let\@currentlabel\thefigure
    \addtocounter{figure}{\m@ne}}

%%%  ACKNOWLEDGEMENTS

\newenvironment{acknowledgments}{\section*{ACKNOWLEDGMENTS}}{}%
\newenvironment{acknowledgment}{\section*{ACKNOWLEDGMENT}}{}%

%%%  COMMON JOURNALS

\def\areps{{\it Ann.\ Rev.\ Earth Planet\ Sci.}, }
\def\bssa{{\it Bull.\ seism.\ Soc.\ Am.}, }
\def\eos{{\it Eos Trans.\ AGU}, } 
\def\eps{{\it Earth~Planets~Space},}
\def\epsl{{\it Earth~Planet.\ Sci.\ Lett.}, }
\def\gca{{\it Geochim.\ Cosmochim.\ Acta}, }
\def\geo{{\it Geology}, }
\def\geop{{\it Geophysics}, }
\def\gji{{\it Geophys.\ J\ Int.}, }
\def\gjras{{\it Geophys.\ J.\ R.\ astr.\ Soc.}, }
\def\grl{{\it Geophys.\ Res.\ Lett.}, }
\def\gsab{{\it Geol.\ Soc.\ Am.\ Bull.},}
\def\gs{{\it Geophys.\ Surv.}, }
\def\jgr{{\it J.\ geophys.\ Res.}, }
\def\jpo{{\it J.\ Phys.\ Oceanogr.}, } 
\def\jseis{{\it J.~Seismology}, }
\def\mnras{{\it Mon.\ Not.\ R.\ astr.\ Soc.}, } 
\def\pag{{\it Pure Appl.\ Geophys.},}
\def\pepi{{\it Phys.\ Earth Planet.\ Inter.}, }
\def\rg{{\it Rev.\ Geophys.}, }
\def\tecto{{\it Tectonophysics}, }

% end of GBIB.sty