%% 
%% This is file `art-grl.sty', generated 
%% on <1993/10/22> with the docstrip utility (2.1e).
%% 
%% The original source files were:
%% 
%% art-agu.doc  (with options: `grl')
%% --------------------------------------------------------------- 
%% NOTE: 
%% This is a stripped down version of the original commented file. 
%% All comments have been removed, and alternative coding has been used 
%% for the selected applications. See the original for comments. 
%% --------------------------------------------------------------- 
%%  AGU document styles

\def\fileversion{4.3}
\def\filedate{1993 Oct 22}

% Document style for Geophysical Research Letters GRL
%% Copyright (C) 1993 Patrick W. Daly, all rights reserved.
%%               Max-Planck-Institut f\"ur Aeronomie
%%               D-37191 Katlenburg-Lindau
%%               Germany
%%               E-Mail:     Span-  nsp::linmpi::daly (NB nsp==former ecd1)
%%                       Internet-  daly@linmpi.dnet.gwdg.de
\def\stylename{art-grl}
\typeout{Document style `\stylename', P.W.Daly, version \fileversion\space
         <\filedate>}


\@ifundefined{reset@font}{\def\reset@font{\relax}}{}



\def\@ptsize{0}
\@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}}

\def\ds@twoside{\@twosidetrue
           \@mparswitchtrue}
\newif\if@draft \@draftfalse
\def\ds@draft{\@drafttrue}
\def\iftwocol#1#2{\if@twocolumn#1\else#2\fi}
\newif\ifUS \UStrue
\@namedef{ds@a4}{\USfalse}
\newif\if@secnum \@secnumfalse
\def\ds@secnum{\@secnumtrue}

\def\ds@titlepage{\relax}

\def\ds@twocolumn{\@twocolumntrue}

\let\sl=\it

\@options

\lineskip 1pt
\normallineskip 1pt

\if@draft \input art1\@ptsize.sty\relax
  \@twocolumnfalse \def\baselinestretch{1.4}
  \typeout{Draft manuscript}
\else
  \def\baselinestretch{1.}

\if@twocolumn
\def\@normalsize{\@setsize\normalsize{11.2pt}\xpt\@xpt
\abovedisplayskip 10pt \belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ \belowdisplayshortskip 5.2pt}
\def\small{\@setsize\small{10pt}\ixpt\@ixpt
\abovedisplayskip 9pt \belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ \belowdisplayshortskip 5.2pt
\def\@listi{\topsep 7pt \parsep 3.5pt
\itemsep \parsep}}
\def\footnotesize{\@setsize\footnotesize{10pt}\viiipt\@viiipt
\abovedisplayskip 8pt \belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ \belowdisplayshortskip 5pt
\def\@listi{\topsep 5pt \parsep 2.5pt
\itemsep \parsep}}
\def\scriptsize{\@setsize\scriptsize{7.5pt}\vipt\@vipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{14.4pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{17.6pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{20pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{24pt}\xxpt\@xxpt}
\let\Huge=\huge
\else
\def\@normalsize{\@setsize\normalsize{14pt}\xiipt\@xiipt
\abovedisplayskip 12pt \belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ \belowdisplayshortskip 6.5pt}
\def\small{\@setsize\small{13pt}\xipt\@xipt
\abovedisplayskip 11pt \belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ \belowdisplayshortskip 6.5pt
\def\@listi{\topsep 9pt \parsep 4.5pt
\itemsep \parsep}}
\def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
\abovedisplayskip 10pt \belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ \belowdisplayshortskip 6pt
\def\@listi{\topsep 6pt \parsep 3pt
\itemsep \parsep}}
\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{18pt}\xivpt\@xivpt}
\def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
\def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
\def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
\let\Huge=\huge
\fi
\normalsize


\if@twocolumn
   \oddsidemargin -0.22cm
   \ifUS
     \evensidemargin -0.17cm
   \else
     \evensidemargin -1.15cm
   \fi
   \marginparwidth 3cm
\else
   \oddsidemargin 2.5cm
   \if\@ptsize0
     \oddsidemargin 3.7cm
   \fi
   \evensidemargin\oddsidemargin
   \marginparwidth 3cm
\fi % End of \if@twocolumn
\fi % End of the \if@draft. The above specifications are for non-draft

\marginparsep 1cm

\topmargin -1.0cm

\headheight 12pt
\headsep 25pt
\topskip = 10pt

\footskip 30pt


\textheight = \ifUS 23.2cm \else 25cm \fi
\if@twocolumn
\textwidth 41pc
\else
\textwidth 10.4cm
\fi
\columnsep 1pc
\columnseprule 0pt

\newdimen\@dblfigwidth
\@dblfigwidth 19cm       % Width of double figure
\if@draft
  \oddsidemargin 0pt \evensidemargin 0pt
  \textwidth 15cm
  \@dblfigwidth\textwidth
\fi


\footnotesep 6.65pt
\skip\footins 9pt plus 4pt minus 2pt

\floatsep 12pt plus 2pt minus 2pt
\textfloatsep 20pt plus 2pt minus 4pt
\intextsep 12pt plus 2pt minus 2pt
\@maxsep 20pt

\dblfloatsep 12pt plus 2pt minus 2pt
\dbltextfloatsep 20pt plus 2pt minus 4pt
\@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

\marginparpush 5pt

\parskip 0pt plus 1pt
\parindent 1em
\partopsep 2pt plus 1pt minus 1pt

\@lowpenalty   51
\@medpenalty  151
\@highpenalty 301
\@beginparpenalty -\@lowpenalty
\@endparpenalty   -\@lowpenalty
\@itempenalty     -\@lowpenalty


\def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
     \def\@svsec{}\else
     \refstepcounter{#1}
     \edef\@svsec{\csname the#1\endcsname\sectchar\hskip 1ex }\fi
     \@tempskipa #5\relax
      \ifdim \@tempskipa>\z@
        \begingroup #6\relax
          \@hangfrom{\hskip #3\relax{%
                                     \@svsec}}{\interlinepenalty \@M #8\par}
        \endgroup
       \csname #1mark\endcsname{#7}\addcontentsline
         {toc}{#1}{\ifnum #2>\c@secnumdepth \else
                      \protect\numberline{\csname the#1\endcsname\sectchar}\fi
                    #7}\else
        \def\@svsechd{#6\hskip #3{%
                                  \@svsec} #8\csname #1mark\endcsname
                      {#7}\addcontentsline
                           {toc}{#1}{\ifnum #2>\c@secnumdepth \else
                             \protect\numberline{\csname the#1
                                \endcsname\sectchar}\fi
                       #7}}\fi
     \@xsect{#5}}

\def\@ssect#1#2#3#4#5{\@tempskipa #3\relax
   \ifdim \@tempskipa>\z@
     \begingroup #4\ssectchar
        \@hangfrom{\hskip #1}{\interlinepenalty \@M #5\par}
     \endgroup
   \else \def\@svsechd{#4\hskip #1\relax #5}\fi
    \@xsect{#3}}

\def\sectchar{.}  \def\ssectchar{}

\def\section{\xmaketitle\xsection}
\def\xsection{\@startsection {section}{1}{\z@}{11pt}{11pt}{\reset@font
  \normalsize\centering}}
\def\subsection{\@startsection{subsection}{2}{\z@}{11pt}{11pt}{\reset@font
  \normalsize\it}}
\def\subsubsection{\@startsection{subsubsection}{3}{1em}{0 pt}{-1em}
    {\reset@font\normalsize\it}}
\def\paragraph{\@startsection{paragraph}{4}{1em}{0 pt}{-1em}
    {\reset@font\normalsize\it}}
\def\subparagraph{\@startsection{paragraph}{5}{1em}{0 pt}{-1em}
    {\reset@font\normalsize\it}}

\setcounter{secnumdepth}{\if@secnum 4\else 0\fi}

\def\@appendix{\par
  \setcounter{section}{0}
  \setcounter{subsection}{0}
  \def\thesection{\Alph{section}}
  \def\thesubsection{\thesection\arabic{subsection}}
  \setcounter{secnumdepth}{4} %Appendices must have `numbers', unless *'d
  \@addtoreset{equation}{section} %Equation counter is sub of section
  \@addtoreset{figure}{section} %figure counter is sub of section
  \@addtoreset{table}{section} %table counter is sub of section
  \@addtoreset{plate}{section} %plate counter is sub of section
  \setcounter{equation}{0}\setcounter{figure}{0}
  \setcounter{table}{0}\setcounter{plate}{0}
  \def\theequation{\Alph{section}\arabic{equation}}
  \def\thefigure{\Alph{section}\arabic{figure}}
  \def\theplate{\Alph{section}\arabic{plate}}
  \def\thetable{\Alph{section}\arabic{table}}
  \def\@Alph##1{\ifcase##1A\or A\or B\or C\or D\else\@Ialph{##1}\fi}
   %Change \Alph so an A is printed for 0. This for equations in appendix
   %produced with *, ie section 0.
  \def\section{\@sectiontrue
  \@startsection {section}{1}{0.5ex}{11pt}{11pt}{\reset@font\normalsize
  \centering Appendix}}
  \def\sectchar{\if@section:\else.\fi} \def\ssectchar{\if@section:\else.\fi}
  \let\xsubsection=\subsection
  \def\subsection{\@sectionfalse\xsubsection}
  }
  \newif\if@section \@sectionfalse
\def\noappendix{\par
  \setcounter{secnumdepth}{0}
  \gdef\thesection{\arabic{section}}
  \gdef\thesubsection{\thesection.\arabic{subsection}}
  \gdef\sectchar{.} \gdef\ssectchar{}
  \global\let\subsection=\xsubsection
  \gdef\section{\@startsection {section}{1}{\z@}{11pt}{11pt}{\normalsize
    \centering}}
}
\def\appendix{\doappendix
  \@ifundefined{tf@lof}{}{\@writefile{lof}{\string\doappendix}}%
  \@ifundefined{tf@lot}{}{\@writefile{lot}{\string\doappendix}}%
  \let\@@section=\section
  \def\section{%
    \@ifundefined{tf@lof}{}{\@writefile{lof}{\string\stepcounter{section}}}%
    \@ifundefined{tf@lot}{}{\@writefile{lot}{\string\stepcounter{section}}}%
    \@@section}
  \let\unappendix=\@unappendix
}

\def\doappendix{%
  \let\@thefigure=\thefigure
  \let\@thetable=\thetable
  \let\@theplate=\theplate
  \let\@cl@section=\cl@section
  \@appendix
}

\def\@unappendix{%
  \setcounter{figure}{0}\setcounter{table}{0}\setcounter{plate}{0}%
  \let\thefigure=\@thefigure
  \let\theplate=\@theplate
  \let\thetable=\@thetable
  \let\cl@section=\@cl@section
  \let\section=\@@section
}
\def\unappendix{%
  \setcounter{figure}{0}\setcounter{table}{0}\setcounter{plate}{0}}


\leftmargini 2.5em
\leftmarginii 2.2em
\leftmarginiii 1.87em
\leftmarginiv 1.7em
\leftmarginv 1em
\leftmarginvi 1em

\leftmargin\leftmargini
\labelsep .5em
\labelwidth\leftmargini\advance\labelwidth-\labelsep

\def\@listI{\leftmargin\leftmargini \parsep 4\p@ plus2\p@ minus\p@
\topsep 8\p@ plus2\p@ minus4\p@
\itemsep 4\p@ plus2\p@ minus\p@}

\let\@listi\@listI
\@listi

\def\@listii{\leftmargin\leftmarginii
   \labelwidth\leftmarginii\advance\labelwidth-\labelsep
   \topsep 4\p@ plus2\p@ minus\p@
   \parsep 2\p@ plus\p@ minus\p@
   \itemsep \parsep}

\def\@listiii{\leftmargin\leftmarginiii
    \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
    \topsep 2\p@ plus\p@ minus\p@
    \parsep \z@ \partopsep \p@ plus\z@ minus\p@
    \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{\theenumi.}
\def\theenumi{\arabic{enumi}}

\def\labelenumii{(\theenumii)}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}

\def\labelenumiii{\theenumiii.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}

\def\labelenumiv{\theenumiv.}
\def\theenumiv{\Alph{enumiv}}
\def\p@enumiv{\p@enumiii\theenumiii}


\def\labelitemi{--}
\def\labelitemii{$\m@th\ast$}
\def\labelitemiii{$\m@th\cdot$}
\def\labelitemiv{.}

\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 \z@ plus\p@}\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







\arraycolsep 5pt
\tabcolsep 6pt
\arrayrulewidth .4pt
\doublerulesep 2pt

\tabbingsep \labelsep

\skip\@mpfootins = \skip\footins

\fboxsep = 3pt
\fboxrule = .4pt

\newcounter {section}
\newcounter {subsection}[section]
\newcounter {subsubsection}[subsection]
\newcounter {paragraph}[subsubsection]
\newcounter {subparagraph}[paragraph]

\def\thesection       {\arabic{section}}
\def\thesubsection    {\thesection.\arabic{subsection}}
\def\thesubsubsection {\thesubsection .\arabic{subsubsection}}
\def\theparagraph     {\thesubsubsection.\arabic{paragraph}}
\def\thesubparagraph  {\theparagraph.\arabic{subparagraph}}


\def\tableofcontents{\@@warning{Ignored: \string\tableofcontents\space command}}
\def\listoffigures{\@@warning{Ignored: \string\listoffigures\space command}}
\def\listoftables{\@@warning{Ignored: \string\listoftables\space command}}
\def\addtocontents#1#2{\relax}
\def\addcontentsline#1#2#3{\relax}



\def\references{\if@draft\newpage\fi
  \noappendix\section*{References}\parindent \z@
  \let\\=\par\everypar{\hangindent=1em\hangafter=1}}
\def\endreferences{\par\everypar{}}


\def\thebibliography#1{\if@draft\newpage\fi
  \noappendix\section*{References}
  \list{}{\leftmargin=1em
 \usecounter{enumiv}\@bibsetup}
 \def\newblock{\hskip .11em plus .33em minus -.07em}
 \sloppy
 \sfcode`\.=1000\relax}

\def\endthebibliography{%
  \def\@noitemerr{\@warning{Empty `thebibliography' environment}}%
  \endlist\vskip-\lastskip}

\def\@citez#1(#2){\def\@citenm{#1}\def\@citedt{#2}}

\def\@citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi
  \let\@citea\@empty
  \@cite{\let\@citenm\@empty
    \@for\@citeb:=#2\do
    {\def\@tempa##1##2\@nil{\edef\@citeb{\if##1\space##2\else##1##2\fi}}%
     \expandafter\@tempa\@citeb\@nil
     \@ifundefined{b@\@citeb}{\@citea{\reset@font\bf ?}\@warning
       {Citation `\@citeb' on page \thepage \space undefined}}%
     {\let\@citemm=\@citenm
       {\let\prm=\relax\let\psf=\relax\let\ptt=\relax\let\pbf=\relax
        \let\psl=\relax\let\psc=\relax\let\pit=\relax
     \xdef\@tempa{\csname b@\@citeb\endcsname}}%
     \expandafter\@citez\@tempa
     \if@tempswa
       \ifx\@citemm\@citenm\else\@citea{\@citenm}\fi
       , \@citedt \def\@citea{\@citesep\ }%
     \else
       \ifx\@citemm\@citenm, \@citedt\else\@citea{\@citenm} [\@citedt\fi
       \def\@citea{]\@citesep\ }%
     \fi}}\if@tempswa\else]\fi}{#1}}

\def\@bibsetup{\itemindent=-\leftmargin \itemsep=0pt
\parsep=0pt}

\def\@citesep{;}

\def\@cite#1#2{\if@tempswa[#2#1]\else#1\fi}

\def\@biblabel#1{\hfill}



\def\footnoterule{\vskip 12pt
  \hrule width 4pc \kern 2.6\p@}



\long\def\@makefntext#1{\parindent 1em\noindent
            \hbox to1.8em{\hss$\m@th^{\@thefnmark}$}#1}


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

\newlength{\floatedge} \setlength{\floatedge}{0pt}
\long\def\@makecaption#1#2{%
   \vskip 10pt
   \setbox\@tempboxa\hbox{#1\hskip 1em #2}%
   \ifdim \wd\@tempboxa >\hsize
     #1\hskip 1em #2\par
   \else
     \hbox to\hsize{\hfil\box\@tempboxa\hfil}%
   \fi
}

\long\def\@makefcaption#1#2{%
   \vskip 10pt
   \setbox\@tempboxa\hbox{#1\hskip 1em #2}%
   \if@draft #1\hskip 1em #2\par \else
   \ifdim \wd\@tempboxa >\hsize
     #1\hskip 1em #2\par
   \else
     \hbox to\hsize{\hfil\box\@tempboxa\hfil}%
   \fi \fi
   \if@twocolumn\else\if@draft\else %camera-ready: print caption twice
     \@widecaption{#1}{#2}%
   \fi \fi %endif camera-ready
}

\def\@widecaption#1#2{\vskip2em \def\label##1{}%deactivate \label command
     \floatedge\hsize \advance\floatedge by-\@dblfigwidth
     \divide\floatedge by2
      \moveright\floatedge\vbox{\hsize\@dblfigwidth
      \ifdim \wd\@tempboxa >\hsize
        #1\hskip 1em #2\par
      \else
        \hbox to\hsize{\hfil#1\hskip 1em #2\hfil}
      \fi }}



\newcounter{figure}

\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{Fig.~\thefigure.}

\newcounter{table}

\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
\def\fnum@table{TABLE~\thetable.}

\newcounter{notice}
\def\thenotice{\@arabic\c@notice}
\def\fps@notice{b}
\def\ftype@notice{4}
\def\ext@notice{not}
\def\notice{\@float{notice}}
\def\fnum@notice{\reset@font\normalsize}
\let\endnotice\end@float
\@namedef{notice*}{\@dblfloat{notice}}
\@namedef{endnotice*}{\end@dblfloat}

\newcounter{plate}
\def\fps@plate{b}
\def\ftype@plate{8}
\def\ext@plate{lof}
\def\fnum@plate{Plate~\theplate.}


\if@twocolumn
  \def\figure{\@float{figure}} \let\endfigure\end@float
  \@namedef{figure*}{\@dblfloat{figure}} \@namedef{endfigure*}{\end@dblfloat}
  \def\table{\@float{table}} \let\endtable\end@float
  \@namedef{table*}{\@dblfloat{table}} \@namedef{endtable*}{\end@dblfloat}
  \def\plate{\@float{plate}} \let\endplate\end@float
  \@namedef{plate*}{\@dblfloat{plate}} \@namedef{endplate*}{\end@dblfloat}

\else
  \begingroup
    \catcode `|=0 \catcode `[= 1
    \catcode`]=2 \catcode `\{=12 \catcode `\}=12
    \catcode`\^^M=13 \catcode`\\=12 %
|long|gdef|@vfig#1\end{figure}[|def|@term[\end{figure}]%
          |expandafter|writelof#1^^M\end{figure}^^M|end[figure]]%
|long|gdef|@vsfig#1\end{figure*}[|def|@term[\end{figure*}]%
          |expandafter|writelof#1^^M\end{figure*}^^M|end[figure*]]%
|long|gdef|@vpla#1\end{plate}[|def|@term[\end{plate}]%
          |expandafter|writelof#1^^M\end{plate}^^M|end[plate]]%
|long|gdef|@vspla#1\end{plate*}[|def|@term[\end{plate*}]%
          |expandafter|writelof#1^^M\end{plate*}^^M|end[plate*]]%
|long|gdef|@vtab#1\end{table}[|def|@term[\end{table}]%
          |expandafter|writelot#1^^M\end{table}^^M|end[table]]%
|long|gdef|@vstab#1\end{table*}[|def|@term[\end{table*}]%
          |expandafter|writelot#1^^M\end{table*}^^M|end[table*]]%
|long|gdef|@fcaponly#1\caption[|endgroup|@fcaption]%
|long|gdef|@pcaponly#1\caption[|endgroup|@pcaption]%
|long|gdef|@feject#1\end{figure}[|end[figure]]%
|long|gdef|@peject#1\end{plate}[|end[plate]]%
  |endgroup

  {\catcode`\^^M=13%
    \long\gdef\writelof#1^^M{\def\@tempb{#1}%
        \ifx\@tempb\@term\let\@tempa\relax\else
        \@writefile{lof}{#1}\let\@tempa\writelof\fi \@tempa}
    \long\gdef\writelot#1^^M{\def\@tempb{#1}%
        \ifx\@tempb\@term\let\@tempa\relax\else
        \@writefile{lot}{#1}\let\@tempa\writelot\fi \@tempa}
  }%


  \def\@fcaption{\refstepcounter\@captype \@ifnextchar[{\@@fcapopt}{\@@fcap}}
  \def\@@fcapopt[#1]#2{\@caption\@captype[]{#2}\begingroup\set@literal\@feject}
  \def\@@fcap#1{\@caption\@captype[]{#1}\begingroup\set@literal\@feject}
  \def\@pcaption{\refstepcounter\@captype \@ifnextchar[{\@@pcapopt}{\@@pcap}}
  \def\@@pcapopt[#1]#2{\@caption\@captype[]{#2}\begingroup\set@literal\@peject}
  \def\@@pcap#1{\@caption\@captype[]{#1}\begingroup\set@literal\@peject}

  \def\figure{\begingroup\set@literal\@ifnextchar[{\@figure}{\@figure[]}}
  \def\@figure[#1]{\@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}%
    \refstepcounter{figure}\xmarginpar{\fbox{Figure~\thefigure}}%
    \def\@captype{figure}%
    \@writefile{lof}{\string\begin{figure}}\@vfig}

  \def\endfigure{\endgroup\@writefile{lof}{\string\end{figure}}}

  \@namedef{figure*}{\begingroup\set@literal
       \@ifnextchar[{\@sfigure}{\@sfigure[]}}%
  \def\@sfigure[#1]{\@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}%
    \refstepcounter{figure}\xmarginpar{\fbox{Figure~\thefigure}}%
    \def\@captype{figure}%
    \@writefile{lof}{\string\begin{figure}}\@vsfig}

  \@namedef{endfigure*}{\endfigure}

  \def\plate{\begingroup\set@literal\@ifnextchar[{\@plate}{\@plate[]}}
  \def\@plate[#1]{\@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}%
    \refstepcounter{plate}\xmarginpar{\fbox{Plate~\theplate}}%
    \def\@captype{plate}%
    \@writefile{lof}{\string\begin{plate}}\@vpla}

  \def\endplate{\endgroup\@writefile{lof}{\string\end{plate}}}

  \@namedef{plate*}{\begingroup\set@literal\@ifnextchar[{\@splate}{\@splate[]}}
  \def\@splate[#1]{\@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}%
    \refstepcounter{plate}\xmarginpar{\fbox{Plate~\theplate}}%
    \def\@captype{plate}%
    \@writefile{lof}{\string\begin{plate}}\@vspla}

  \@namedef{endplate*}{\endplate}

  \def\table{\begingroup\set@literal\@ifnextchar[{\@table}{\@table[]}}
  \def\@table[#1]{\@ifundefined{tf@lot}{\newwrite\tf@lot
       \immediate\openout\tf@lot\jobname.lot}{}%
    \refstepcounter{table}\xmarginpar{\fbox{Table~\thetable}}%
    \def\@captype{table}%
    \@writefile{lot}{\string\begin{table}}\@vtab}

  \def\endtable{\endgroup\@writefile{lot}{\string\end{table}}}

  \@namedef{table*}{\begingroup\set@literal\@ifnextchar[{\@stable}{\@stable[]}}
  \def\@stable[#1]{\@ifundefined{tf@lot}{\newwrite\tf@lot
       \immediate\openout\tf@lot\jobname.lot}{}%
    \refstepcounter{table}\xmarginpar{\fbox{Table~\thetable}}%
    \def\@captype{table}%
    \@writefile{lot}{\string\begin{table*}}\@vstab}

  \@namedef{endtable*}{\endgroup\@writefile{lot}{\string\end{table*}}}
\fi

\def\figmarkoff{\gdef\xmarginpar##1{\relax}}
\def\figmarkon{\global\let\xmarginpar=\marginpar}
\figmarkon

{\catcode`\^^M=\active \gdef\cr@relax{\catcode`\^^M=\active \let^^M=\relax}}
\def\set@literal{\cr@relax \let\do\@makeother\dospecials}

\def\@figurecaps{\@ifundefined{tf@lof}{}{\immediate\closeout\tf@lof
  \clearpage\noappendix\section*{Figure Captions}\vspace{1cm}
  \def\figure{\def\@captype{figure}\begingroup\set@literal\@fcaponly}
   \def\endfigure{\endgroup\vspace{1cm}}
  \def\plate{\def\@captype{plate}\begingroup\set@literal\@pcaponly}
   \let\endplate=\endfigure
   \unappendix
  {\let\@makecaption=\@makefcaption
  \@input{\jobname.lof}}%
  \clearpage}}%

\def\@tablepage{\@ifundefined{tf@lot}{}{\immediate\closeout\tf@lot
  \clearpage\noappendix\section*{Tables}%
   \def\table{\def\@captype{table}\vbox\bgroup}\def\endtable{\egroup\bigskip}%
   \@namedef{table*}{\def\@captype{table}\floatedge\hsize
     \advance\floatedge by-\@dblfigwidth \divide\floatedge by2
      \moveright\floatedge\vbox\bgroup\hsize\@dblfigwidth}
   \@namedef{endtable*}{\egroup\bigskip}%
  \unappendix
  \@input{\jobname.lot}%
  \clearpage}}

\def\printfigures{\if@twocolumn\else\def\@figurepage{\@ifundefined{tf@lof}{}{%
  \clearpage
  \begingroup
  \oddsidemargin0pt \evensidemargin0pt \hsize=15cm
  \def\figure{\def\@captype{figure}\vbox\bgroup}\def\endfigure{\egroup
    \vspace{20pt}}%
  \def\plate{\def\@captype{plate}\vbox\bgroup}\let\endplate=\endfigure
  \pagestyle{empty}\def\@widecaption####1####2{}\def\label####1{}
  \unappendix
  \@input{\jobname.lof}\newpage\endgroup}}\fi}

\def\@figurepage{\relax}

\let\@nddoc=\enddocument
\def\enddocument{\@figurecaps\@tablepage\@figurepage\@nddoc}


\def\maketitle{\gdef\xmaketitle{\par
 \begingroup
   \if@twocolumn
     \clearpage
     \twocolumn[\@maketitle]
     \par{\it Abstract}.\ \unhbox\@abstract\par
     \global\@topnum\z@        % Prevents figures from going at top of page.
   \else \newpage
     \@tempdima=19cm \advance\@tempdima by -\textwidth \divide\@tempdima by2
     \moveleft\@tempdima\vbox{\hsize=19cm\@maketitle}
\if@draft \vskip 2cm \if!\@titlenote!\else
    \begin{center}\@titlenote\end{center}\gdef\@titlenote{}\fi
 \newpage \xsection*{Abstract}\unhbox\@abstract\newpage\else %Draft
     \vskip -6pt
     \par{\it Abstract}.\ \unhbox\@abstract\par
     \vskip 11pt
\fi %end non-draft part of if
   \fi \if@twocolumn \thispagestyle{plain} \fi
     \if@twocolumn
       \setbox\@tempboxa\hbox{\@copyright\@titlenote}
       \ifdim \wd\@tempboxa >\z@
         \begin{notice}[b]
         \caption[]{%
       \rightskip=\@flushglue \leftskip=0pt\parindent=1em
       \setbox\@tempboxa\hbox{\@titlenote}%
       \ifdim \wd\@tempboxa >\z@%
          \par\vspace{-1em}\noindent\vbox{\hrule width 4pc}
          {\let\\=\par\\\@titlenote\\}\fi
       \setbox\@tempboxa\hbox{\@copyright}
       \ifdim \wd\@tempboxa >\z@
       \vspace{1ex}
       \@copyright\fi}\end{notice} \fi \fi
  \endgroup
 \setcounter{footnote}{0}
 \global\let\maketitle\relax
 \global\let\xmaketitle\relax
 \global\let\@maketitle\relax
 \gdef\@author{}\gdef\@title{}\let\thanks\relax}}

\def\@maketitle{
 \if@draft \thispagestyle{empty}\setcounter{page}{0}\else
\begin{center}\@date\end{center} \fi
 \vskip 2em                % Vertical space above title.
 \begin{center}
  {\uppercase\expandafter{\@title} \par}
  \vskip 1em
   {\def\\{\@centercr[1em]\def\\{\and}} \@author}%for consistency old version
  \vskip 1em              % Vertical space after author.
\end{center} }


\def\@title{}
\def\@author{\strut}  %Author must contain something; null won't do.
\def\@titlenote{}
\def\xmaketitle{\relax}
\newbox\@abstract
\setbox\@abstract\hbox{}
\def\abstract{\global\setbox\@abstract\hbox\bgroup}
\def\endabstract{\egroup\maketitle\xmaketitle}


\def\paperno#1{\gdef\thepaperno{Paper number #1}}
\def\thepaperno{Paper number XXXXXXXXX}

\def\and{\@centercr[1em]}


\mark{{}{}}   % Initializes TeX's marks



\if@twoside         % If two-sided printing.
 \def\ps@headings{\let\@mkboth\markboth
  \def\@oddfoot{}\def\@evenfoot{}%       No feet.
  \def\@evenhead{\rm \thepage\hfil \sc \leftmark\hfil}%        Left heading.
  \def\@oddhead{\hfil{\sc \rightmark}\hfil \rm\thepage}% Right heading.
  \def\sectionmark##1{\markboth {}{}}
  \def\subsectionmark##1{\markright {}}}
\else               % If one-sided printing.
 \def\ps@headings{\let\@mkboth\markboth
  \def\@oddfoot{}\def\@evenfoot{}%     No feet.
  \def\@oddhead{\hfil{\sc \rightmark}\hfil \rm\thepage}% Heading.
  \def\sectionmark##1{\markright {}}}
\fi

\def\ps@myheadings{\let\@mkboth\@gobbletwo
 \def\@oddhead{\hfil{\sc\rightmark}\hfil \rm\thepage}%
 \def\@oddfoot{}\def\@evenhead{\rm \thepage\hfil\sc\leftmark\hfil}%
 \def\@evenfoot{}\def\sectionmark##1{}\def\subsectionmark##1{}}

\pagestyle{myheadings}
\markboth{}{}

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



\def\acknowledgments{\par\vspace{11pt}{\it Acknowledgments.}}
\def\endacknowledgments{\par}
\let\acknowledgements\acknowledgments
\let\endacknowledgements\endacknowledgments



\def\sublabon#1{\orisubon{#1}\def\@tempb{#1}
    \if@twocolumn\else
    \def\@tempa{figure}\ifx\@tempa\@tempb
    \@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}
        \@writefile{lof}{\string\orisubon{figure}}\fi
    \def\@tempa{plate}\ifx\@tempa\@tempb
    \@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}
        \@writefile{lof}{\string\orisubon{plate}}\fi
    \def\@tempa{table}\ifx\@tempa\@tempb
    \@ifundefined{tf@lot}{\newwrite\tf@lot
       \immediate\openout\tf@lot\jobname.lot}{}
        \@writefile{lot}{\string\orisubon{table}}\fi\fi
}
\def\sublaboff#1{\orisuboff{#1}\def\@tempb{#1}
    \if@twocolumn\else
    \def\@tempa{figure}\ifx\@tempa\@tempb
    \@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}
        \@writefile{lof}{\string\orisuboff{figure}}\fi
    \def\@tempa{plate}\ifx\@tempa\@tempb
    \@ifundefined{tf@lof}{\newwrite\tf@lof
       \immediate\openout\tf@lof\jobname.lof}{}
        \@writefile{lof}{\string\orisuboff{plate}}\fi
    \def\@tempa{table}\ifx\@tempa\@tempb
    \@ifundefined{tf@lot}{\newwrite\tf@lot
       \immediate\openout\tf@lot\jobname.lot}{}
        \@writefile{lot}{\string\orisuboff{table}}\fi\fi
}
\def\orisubon#1{\@bsphack
\@ifundefined{c@#1}{\@latexerr{\string\sublabon\space called for a
  non-existent counter}{\@eha}}{%
\@ifundefined{c@sb@#1}{\expandafter\newcount\csname c@sb@#1\endcsname
  \setcounter{sb@#1}{-1}}{}%
\ifnum\@nameuse{c@sb@#1}<0\else\sublaboff{#1}\fi
\stepcounter{#1}%
\setcounter{sb@#1}{0}%
\def\@tempa{eqnarray}\ifx \@tempa\@currenvir
    \addtocounter{equation}{-1}\setcounter{sb@equation}{1}\fi
\global\expandafter\let\csname @ldthe#1\expandafter\endcsname
    \csname the#1\endcsname
\expandafter\gdef\csname the#1\endcsname{%
   \@nameuse{@ldthe#1}{\substyle{sb@#1}}}
}\@esphack}

\def\orisuboff#1{\@bsphack
\@ifundefined{c@#1}{\@latexerr{\string\sublaboff\space called for a
  non-existent counter}{\@eha}}{%
\@ifundefined{c@sb@#1}{\@warning{\string\sublaboff{#1} called without
  any previous^^J \string\sublabon{#1} command}}{%
\ifnum\@nameuse{c@sb@#1}<0\@warning{\string\sublaboff{#1} called without
  a previous^^J \string\sublabon{#1} command being active}\else
\ifnum\@nameuse{c@sb@#1}=0\addtocounter{#1}{-1}\fi
\setcounter{sb@#1}{-1}%
\global\expandafter\let\csname the#1\expandafter\endcsname
    \csname @ldthe#1\endcsname
\def\@tempa{eqnarray}\ifx \@tempa\@currenvir
    \stepcounter{equation}\fi
\fi}}\@esphack}

\def\substyle#1{\it\alph{#1}}

\def\ref#1{\@ifundefined{r@#1}{{\reset@font\bf ??}\@warning
   {Reference `#1' on page \thepage \space
    undefined}}{%
       {\let\prm=\relax\let\psf=\relax\let\ptt=\relax\let\pbf=\relax
        \let\psl=\relax\let\psc=\relax\let\pit=\relax
\xdef\@tempa{\@nameuse{r@#1}}}\expandafter
    \@car\@tempa \@nil\null}}

\let\@ldstepcounter=\stepcounter
\def\stepcounter#1{%
\@ifundefined{c@sb@#1}{\@ldstepcounter{#1}}{\ifnum\@nameuse{c@sb@#1}<0\relax
  \@ldstepcounter{#1}\else \@ldstepcounter{sb@#1}\fi}%
}

\let\@ldendeqnarray=\endeqnarray
\def\endeqnarray{\@ldendeqnarray
  \@ifundefined{c@sb@equation}{}{\ifnum\c@sb@equation<0\else
  \addtocounter{equation}{1}\addtocounter{sb@equation}{-1}\fi}}

\def\sublabelon{\@bsphack
  \sublabon{equation}\sublabon{figure}\sublabon{plate}\sublabon{table}%
  \@esphack}
\def\sublabeloff{\@bsphack
  \sublaboff{equation}\sublaboff{figure}\sublaboff{plate}\sublaboff{table}%
  \@esphack}


\def\titlemark#1{$^{#1}$}
\def\titlenote#1{\gdef\@titlenote{#1}}
\def\@titlenote{}

\def\authorlist{\vskip 6pt\hrule width 4pc\nobreak \vskip 4pt
      \nobreak\let\\=\par
}
\def\endauthorlist{\par}
\def\received#1#2#3{\vskip 12pt
  \begin{center}(Received #1;\\
  \setbox\@tempboxa\hbox{#2}
  \ifdim \wd\@tempboxa =\z@ \else revised #2;\\ \fi
  accepted #3.)
  \end{center}
  \if@twocolumn \else \vskip 20pt\par
    \setbox\@tempboxa\hbox{\@titlenote}\ifdim \wd\@tempboxa =\z@ \else
     {\hrule width 4pc\vskip4pt\let\\=\par
         \rightskip=\@flushglue \leftskip=0pt\parindent=1em
           \@titlenote}\fi
    \vskip1ex
    \begin{flushleft}%
                           \parindent=0pt\hskip 1em
    \@copyright \par \end{flushleft} \fi}

\def\copyright#1{\gdef\@copyright{#1}}
\gdef\@copyright{}
\gdef\@date{\ }

\def\runninghead#1#2{\if@twocolumn \else
  \moveleft 5pc \vbox{\hsize=30pc
  \vskip 2pc \begin{center}
  \@tempcnta=0 \loop \ifnum \@tempcnta<#2 \advance\@tempcnta by1
  #1 \\[12pt] \repeat \end{center} } \fi }

\def\@balancecol{\if@twocolumn
  \setbox0=\vbox{\unvbox\@outputbox} \@tempdima=\ht0
  \advance\@tempdima by \topskip \advance\@tempdima by -\baselineskip
  \divide\@tempdima by 2 \splittopskip=\topskip
  {\vbadness=\@M \loop \global\setbox3=\copy0
   \global\setbox1=\vsplit3 to \@tempdima
   \ifdim\ht3>\@tempdima \global\advance\@tempdima by 1pt \repeat}
   \setbox\@leftcolumn=\vbox to \@tempdima{\unvbox1}
   \setbox\@outputbox=\vbox to \@tempdima{\dimen2=\dp3\unvbox3\kern-\dimen2
       \vfil}
  \fi}
\newif\if@balance
\global\@balancefalse
\newif\if@balanceone
\global\@balanceonefalse
\def\balance{\global\@balancetrue}
\def\nobalance{\global\@balancefalse}
\newdimen\oldvsize
\def\@outputdblcol{
  \if@firstcolumn \if@balance \unvbox\@outputbox \penalty\outputpenalty
       \global\oldvsize=\@colht \global\multiply \@colht by 2
       \global\@balanceonetrue \else
    \global\setbox\@leftcolumn\box\@outputbox
       \fi \global\@firstcolumnfalse
  \else \global\@firstcolumntrue
    \if@balanceone \global\@balanceonefalse\@balancecol
      \global\@colht=\oldvsize \fi
    \setbox\@outputbox\vbox to \@colht{\hbox to\textwidth{\hbox to\columnwidth
      {\box\@leftcolumn \hss}\hfil \vrule width\columnseprule\hfil
       \hbox to\columnwidth{\box\@outputbox \hss}}\vfil}\@combinedblfloats
       \@outputpage \begingroup \@dblfloatplacement \@startdblcolumn
       \@whilesw\if@fcolmade \fi{\@outputpage\@startdblcolumn}\endgroup
    \fi}



\pagenumbering{arabic}
\if@twoside\else\raggedbottom\fi
\if@twocolumn
\else
 \onecolumn
\fi


\endinput
%% 
%% End of file `art-grl.sty'.
