%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Copyright (C) 1988,1989 Chiaki Tsukamoto
%%
% aspm.sty  ver. 1.0  C. Tsukamoto  30 Nov. 89
%      style file for AmSTeX based on amsppt.sty
%%
\hoffset=60pt % These values set the print position.
\voffset=60pt % Adjust them for your printer.
%%
% issue head
% The \def of \pretitle must be changed for each volume.
%%
\def\pretitle{\vbox to 0pt{\setbox0=\vtop{\ninepoint\hbox{\sstrut %
%
Advanced Studies in Pure Mathematics ??, 200?}\hbox{\sstrut %
Lie Groups, Geometric Structures and Differential Equations%
}\hbox{\sstrut %
%
pp.~\number\firstpage--\number\lastpage}}%
%
\skip0=\headsep \advance\skip0by-\dp0
\global\titlesep=-\skip0
\vss\box0\vskip\skip0}}
%%
% Hereinafter the text should not be modified in any circumstances!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\catcode`\@=11
\ifx\aspmloaded@AmS\relax
\catcode`\@=\active\let\next\endinput\else
\let\aspmloaded@AmS\relax\relaxnext@\fi
\next
%
\def\CR@@{\W@{aspm.sty - ver. 1.0, Test Version for AmS-TeX Version 2.x}}
\CR@@
\everyjob{\CR@\CR@@}
%%
\hsize312\p@
\vsize504\p@
\parindent18\p@
\smallskipamount4\p@ plus1\p@ minus1\p@
\medskipamount8\p@ plus2\p@ minus2\p@
\bigskipamount16\p@ plus4\p@ minus4\p@
\skip\footins\bigskipamount
%
\captionwidth@\hsize \advance\captionwidth@-6pc
%
\newskip\headsep \headsep16\p@
\newskip\titlesep \titlesep\z@skip
%
\def\sstrut{\strut@}
%
\newcount\firstpage
\newcount\lastpage
\firstpage\z@ \lastpage\z@
%%
%\font@\twelverm=cmr10 scaled\magstep1
\font@\twelverm=cmr12
% \tenrm=cmr10
\font@\ninerm=cmr9
%\font@\eightrm=cmr8
% \sevenrm=cmr7
\font@\sixrm=cmr6
% \fiverm=cmr5
%
%\font@\twelvei=cmmi10 scaled\magstep1 \skewchar\twelvei='177
\font@\twelvei=cmmi12   \skewchar\twelvei='177
% \teni=cmmi10
\font@\ninei=cmmi9      \skewchar\ninei='177
%\font@\eighti=cmmi8    \skewchar\eighti='177
% \seveni=cmmi7
\font@\sixi=cmmi6       \skewchar\sixi='177
% \fivei=cmmi5
%
\font@\twelvesy=cmsy10 scaled\magstep1 \skewchar\twelvesy='60
% \tensy=cmsy10
\font@\ninesy=cmsy9     \skewchar\ninesy='60
%\font@\eightsy=cmsy8   \skewchar\eightsy='60
% \sevensy=cmsy7
\font@\sixsy=cmsy6      \skewchar\sixsy='60
% \fivesy=cmsy5
%
%\font@\twelvebf=cmbx10 scaled\magstep1
\font@\twelvebf=cmbx12
% \tenbf=cmbx10
\font@\ninebf=cmbx9
%\font@\eightbf=cmbx8
% \sevenbf=cmbx7
\font@\sixbf=cmbx6
% \fivebf=cmbx5
%
%\font@\twelveit=cmti10 scaled\magstep1
\font@\twelveit=cmti12
% \tenit=cmti10
\font@\nineit=cmti9
%\font@\eightit=cmti8
%
\font@\twelvebi=cmbxti10 scaled\magstep1
\font@\tenbi=cmbxti10
%\font@\ninebi=cmbxti10 scaled900
%
%\font@\twelvesl=cmsl10 scaled\magstep1
\font@\twelvesl=cmsl12
% \tensl=cmsl10
\font@\ninesl=cmsl9
%\font@\eightsl=cmsl8
%
%Hereafter, definition of AMS-TeX extra fonts
%
%add 4 lines below.
%
\loadmsam
\loadmsbm
\loadeufm
\UseAMSsymbols
%
\font@\twelvemsa=msam10 scaled\magstep1
\font@\tenmax=msam10
\font@\ninemsa=msam9
\font@\eightmsa=msam8
\font@\sevenmsa=msam7
\font@\sixmsa=msam6
\font@\fivemsa=msam5
%
\font@\twelvemsb=msbm10 scaled\magstep1
\font@\tenmsb=msbm10
\font@\ninemsb=msbm9
\font@\eightmsb=msbm8
\font@\sevenmsb=msbm7
\font@\sixmsb=msbm6
\font@\fivemsb=msbm5
%
\font@\twelveeuf=eufm10 scaled\magstep1
\font@\teneuf=eufm10
\font@\nineeuf=eufm9
\font@\eighteuf=eufm8
\font@\seveneuf=eufm7
\font@\sixeuf=eufm6
\font@\fiveeuf=eufm5
%
%
%End of definition
%
%
\font@\twelvesmc=cmcsc10 scaled\magstep1
\font@\tensmc=cmcsc10
%\font@\eightsmc=amcsc8
%%
%Addition of AmS Fonts
%
% \ifx\undefined\eufbfam
% \else \font@\eighteufb=eufb8 \font@\sixeufb=eufb6
%   \ifsyntax@\else \addto\tenpoint{\textfont\eufbfam=\teneufb
%      \scriptfont\eufbfam=\seveneufb \scriptscriptfont\eufbfam=\fiveeufb}%
%    \addto\eightpoint{\textfont\eufbfam=\eighteufb
%      \scriptfont\eufbfam=\sixeufb \scriptscriptfont\eufbfam=\fiveeufb}%
%   \fi
% \fi
% \ifx\undefined\eusmfam
% \else \font@\eighteusm=eusm8 \font@\sixeusm=eusm6
%   \ifsyntax@\else \addto\tenpoint{\textfont\eusmfam=\teneusm
%       \scriptfont\eusmfam=\seveneusm \scriptscriptfont\eusmfam=\fiveeusm}%
%     \addto\eightpoint{\textfont\eusmfam=\eighteusm
%       \scriptfont\eusmfam=\sixeusm \scriptscriptfont\eusmfam=\fiveeusm}%
%   \fi
% \fi
% \ifx\undefined\eusbfam
% \else \font@\eighteusb=eusb8 \font@\sixeusb=eusb6
%   \ifsyntax@\else \addto\tenpoint{\textfont\eusbfam=\teneusb
%       \scriptfont\eusbfam=\seveneusb \scriptscriptfont\eusbfam=\fiveeusb}%
%     \addto\eightpoint{\textfont\eusbfam=\eighteusb
%       \scriptfont\eusbfam=\sixeusb \scriptscriptfont\eusbfam=\fiveeusb}%
%   \fi
% \fi
% \ifx\undefined\eurmfam
% \else \font@\eighteurm=eurm8 \font@\sixeurm=eurm6
%   \ifsyntax@\else \addto\tenpoint{\textfont\eurmfam=\teneurm
%       \scriptfont\eurmfam=\seveneurm \scriptscriptfont\eurmfam=\fiveeurm}%
%     \addto\eightpoint{\textfont\eurmfam=\eighteurm
%       \scriptfont\eurmfam=\sixeurm \scriptscriptfont\eurmfam=\fiveeurm}%
%   \fi
% \fi
% \ifx\undefined\eurbfam
% \else \font@\eighteurb=eurb8 \font@\sixeurb=eurb6
%   \ifsyntax@\else \addto\tenpoint{\textfont\eurbfam=\teneurb
%       \scriptfont\eurbfam=\seveneurb \scriptscriptfont\eurbfam=\fiveeurb}%
%    \addto\eightpoint{\textfont\eurbfam=\eighteurb
%       \scriptfont\eurbfam=\sixeurb \scriptscriptfont\eurbfam=\fiveeurb}%
%   \fi
% \fi
% \ifx\undefined\cmmibfam
% \else \font@\eightcmmib=cmmib8 \font@\sixcmmib=cmmib6
%   \ifsyntax@\else \addto\tenpoint{\textfont\cmmibfam=\tencmmib
%       \scriptfont\cmmibfam=\sevencmmib
\scriptscriptfont\cmmibfam=\fivecmmib}%
%    \addto\eightpoint{\textfont\cmmibfam=\eightcmmib
%       \scriptfont\cmmibfam=\sixcmmib
\scriptscriptfont\cmmibfam=\fivecmmib}%
%   \fi
% \fi
% \ifx\undefined\cmbsyfam
% \else \font@\eightcmbsy=cmbsy8 \font@\sixcmbsy=cmbsy6
%   \ifsyntax@\else \addto\tenpoint{\textfont\cmbsyfam=\tencmbsy
%      \scriptfont\cmbsyfam=\sevencmbsy
\scriptscriptfont\cmbsyfam=\fivecmbsy}%
%    \addto\eightpoint{\textfont\cmbsyfam=\eightcmbsy
%      \scriptfont\cmbsyfam=\sixcmbsy
\scriptscriptfont\cmbsyfam=\fivecmbsy}%
%   \fi
% \fi
%
%End of addition
%
\def\twelvepoint{%
\normalbaselineskip15\p@
\normallineskiplimit2.7\p@
\normallineskip\normallineskiplimit
\textonlyfont@\rm\twelverm
\textonlyfont@\it\twelveit
\textonlyfont@\sl\twelvesl
\textonlyfont@\bf\twelvebf
\textonlyfont@\bi\twelvebi
\textonlyfont@\smc\twelvesmc
\ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else\let\big\twelvebig@
\textfont\z@\twelverm   \scriptfont\z@\ninerm   \scriptscriptfont\z@\sixrm
\textfont\@ne\twelvei   \scriptfont\@ne\ninei   \scriptscriptfont\@ne\sixi
\textfont\tw@\twelvesy  \scriptfont\tw@\ninesy  \scriptscriptfont\tw@\sixsy
\textfont\thr@@\tenex   \scriptfont\thr@@\tenex
\scriptscriptfont\thr@@\tenex
\textfont\itfam\twelveit
\textfont\slfam\twelvesl
\textfont\bffam\twelvebf
\scriptfont\bffam\ninebf
\scriptscriptfont\bffam\sixbf
\textfont\msafam=\twelvemsa
\scriptfont\msafam=\ninemsa
\scriptscriptfont\msafam=\sixmsa
\textfont\msbfam=\twelvemsb
\scriptfont\msbfam=\ninemsb
\scriptscriptfont\msbfam=\sixmsb
\textfont\eufmfam=\twelveeuf
\scriptfont\eufmfam=\nineeuf
\scriptscriptfont\eufmfam=\sixeuf
\fi
\setbox\strutbox\hbox{\vrule height10.5\p@ depth4.5\p@ width\z@}%
\setbox\strutbox@\hbox{\vrule height9.5\p@ depth3.5\p@ width\z@}%
\normalbaselines
\twelverm
\ex@=.2326ex}
\def\twelvebig@#1{{\hbox{$\left#1\vbox to10.5\p@{}\right.\n@space$}}}
%%
\def\tenpoint{%
\normalbaselineskip12\p@
\normallineskiplimit1.8\p@
\normallineskip\normallineskiplimit
\abovedisplayskip 9\p@ plus3\p@ minus3\p@
\belowdisplayskip\abovedisplayskip
\abovedisplayshortskip \z@ plus3\p@
\belowdisplayshortskip 6\p@ plus3\p@ minus3\p@
\textonlyfont@\rm\tenrm
\textonlyfont@\it\tenit
\textonlyfont@\sl\tensl
\textonlyfont@\bf\tenbf
\textonlyfont@\bi\tenbi
\textonlyfont@\smc\tensmc
\ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else\let\big\tenbig@
\textfont\z@\tenrm      \scriptfont\z@\sevenrm  \scriptscriptfont\z@\fiverm
\textfont\@ne\teni      \scriptfont\@ne\seveni  \scriptscriptfont\@ne\fivei
\textfont\tw@\tensy     \scriptfont\tw@\sevensy \scriptscriptfont\tw@\fivesy
\textfont\thr@@\tenex   \scriptfont\thr@@\tenex
\scriptscriptfont\thr@@\tenex
\textfont\itfam\tenit
\textfont\slfam\tensl
\textfont\bffam\tenbf
\scriptfont\bffam\sevenbf
\scriptscriptfont\bffam\fivebf
\textfont\msafam=\tenmsa
\scriptfont\msafam=\sevenmsa
\scriptscriptfont\msafam=\fivemsa
\textfont\msbfam=\tenmsb
\scriptfont\msbfam=\sevenmsb
\scriptscriptfont\msbfam=\fivemsb
\textfont\eufmfam=\teneuf
\scriptfont\eufmfam=\seveneuf
\scriptscriptfont\eufmfam=\fiveeuf
\fi
\setbox\strutbox\hbox{\vrule height8.5\p@ depth3.5\p@ width\z@}%
\setbox\strutbox@\hbox{\vrule height8\p@ depth3\p@ width\z@}%
\normalbaselines
\tenrm
\ex@=.2326ex}
\def\tenbig@#1{{\hbox{$\left#1\vbox to8.5\p@{}\right.\n@space$}}}
%%
\def\ninepoint{%
\normalbaselineskip11\p@
\normallineskiplimit1.8\p@
\normallineskip\normallineskiplimit
\abovedisplayskip8.1\p@ plus2.7\p@ minus2.7\p@
\belowdisplayskip\abovedisplayskip
\abovedisplayshortskip\z@ plus2.7\p@
\belowdisplayshortskip5.4\p@ plus2.7\p@ minus2.7\p@
\textonlyfont@\rm\ninerm
\textonlyfont@\it\nineit
\textonlyfont@\sl\ninesl
\textonlyfont@\bf\ninebf
\ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else\let\big\ninebig@
\textfont\z@\ninerm     \scriptfont\z@\sixrm    \scriptscriptfont\z@\fiverm
\textfont\@ne\ninei     \scriptfont\@ne\sixi    \scriptscriptfont\@ne\fivei
\textfont\tw@\ninesy    \scriptfont\tw@\sixsy   \scriptscriptfont\tw@\fivesy
\textfont\thr@@\tenex   \scriptfont\thr@@\tenex
\scriptscriptfont\thr@@\tenex
\textfont\itfam\nineit
\textfont\slfam\ninesl
\textfont\bffam\ninebf
\scriptfont\bffam\sixbf
\scriptscriptfont\bffam\fivebf
\textfont\msafam=\ninemsa
\scriptfont\msafam=\sixmsa
\scriptscriptfont\msafam=\fivemsa
\textfont\msbfam=\ninemsb
\scriptfont\msbfam=\sixmsb
\scriptscriptfont\msbfam=\fivemsb
\textfont\eufmfam=\nineeuf
\scriptfont\eufmfam=\sixeuf
\scriptscriptfont\eufmfam=\fiveeuf
\fi
\setbox\strutbox\hbox{\vrule height7.75\p@ depth3.25\p@ width\z@}%
\setbox\strutbox@\hbox{\vrule height7\p@ depth2.5\p@ width\z@}%
\normalbaselines
\ninerm
\ex@=.2326ex}
\def\ninebig@#1{{\hbox{$\left#1\vbox to7.25\p@{}\right.\n@space$}}}
%%
\newcount\footmarkcount@
\footmarkcount@\z@
\def\footmarkform@#1{$^{#1}$}
\let\thefootnotemark\footmarkform@
%
\def\makefootnote@#1#2{\insert\footins
{\interlinepenalty\interfootnotelinepenalty
\ninepoint
\splittopskip\ht\strutbox
\splitmaxdepth\dp\strutbox
\floatingpenalty\@MM
\leftskip\z@skip\rightskip\z@skip\spaceskip\z@skip\xspaceskip\z@skip
\noindent{#1}\footstrut\ignorespaces#2\unskip
\lower\dp\strutbox
\vbox to\dp\strutbox{}}}
%
\def\footnotemark{\let\@sf\empty\relaxnext@
\ifhmode\edef\@sf{\spacefactor\the\spacefactor}\/\fi
\def\next@{\ifx[\next
\let\next\nextii@\else\ifx"\next
\let\next\nextiii@\else
\let\next\nextiv@\fi\fi\next}%
\def\nextii@[##1]{\footmarkform@{##1}\@sf}%
\def\nextiii@"##1"{{##1}\@sf}%
\def\nextiv@{\global\advance\footmarkcount@\@ne
\footmarkform@{\number\footmarkcount@}\@sf}%
\futurelet\next\next@}
%
\def\footnotetext{\relaxnext@
\def\next@{\ifx[\next
\let\next\nextii@\else\ifx"\next
\let\next\nextiii@\else
\let\next\nextiv@\fi\fi\next}%
\def\nextii@[##1]##2{\makefootnote@{\footmarkform@{##1}}{##2}}%
\def\nextiii@"##1"##2{\makefootnote@{##1}{##2}}%
\def\nextiv@##1{\makefootnote@{\footmarkform@{\number\footmarkcount@}}{##1}}
%
\futurelet\next\next@}
%
\def\footnote{\let\@sf\empty\relaxnext@
\ifhmode\edef\@sf{\spacefactor\the\spacefactor}\/\fi
\def\next@{\ifx[\next
\let\next\nextii@\else\ifx"\next
\let\next\nextiii@\else
\let\next\nextiv@\fi\fi\next}%
\def\nextii@[##1]##2{\footnotemark[##1]\footnotetext[##1]{##2}}%
\def\nextiii@"##1"##2{\footnotemark"##1"\footnotetext"##1"{##2}}%
\def\nextiv@##1{\footnotemark\footnotetext{##1}}%
\futurelet\next\next@}
%
\def\adjustfootnotemark#1{\advance\footmarkcount@#1\relax}
%%
\let\topmatter\relax
%%
\def\@SPMerr#1{\errhelp\n@goy@help\errmessage{ASPM style error: #1}}
\newhelp\n@goy@help{For further help, please refer to the editorial board^^J
of ``Advanced Study in Pure Mathematics'' in Nagoya University.^^J}
\defaulthelp@=\n@goy@help
%
\Invalid@\nofrills
\Invalid@\usualspace
%
\def\overlong{\W@{\string\overlong\space is ignored.}}
\def\filhss@{plus\@m\p@\relax}
%
\newif\ifnofrills@
\def\usualspace@#1{\ifnofrills@\def\usualspace{#1}\fi}
%
\def\nofrills@#1#2{\def\next@{\ifx\next\nofrills
\nofrills@true\let#2\relax\def\next@\nofrills{\nextii@}\else
\nofrills@false\def#2{#1}\let\next@\nextii@\fi
\next@}}
%
\newif\iftitlep@ge
\titlep@gefalse
%
\newbox\titlebox@
\setbox\titlebox@\vbox{}
\def\title#1\endtitle{\begingroup
\let\\=\cr
\global\setbox\titlebox@\vbox{\tabskip\z@\filhss@
\twelvepoint\bf
\halign to\hsize{\hfil\ignorespaces##\unskip\hfil\cr#1\cr}}\endgroup
\titlep@getrue}
%
\newif\ifsubtitl@
\newbox\subtitl@box
\setbox\subtitl@box\vbox{}
\def\subtitle#1\endsubtitle{\begingroup
\let\\=\cr
\global\setbox\subtitl@box\vbox{\tabskip\z@\filhss@
\tenpoint\bf
\halign to\hsize{\hfil\ignorespaces##\unskip\hfil\cr#1\cr}}\endgroup
\subtitl@true}
%
\newbox\authorbox@
\setbox\authorbox@\vbox{}
\def\author#1\endauthor{\begingroup
\let\\=\cr
\global\setbox\authorbox@\vbox{\tabskip\z@\filhss@
\tenpoint\bf
\halign to\hsize{\hfil\ignorespaces##\unskip\hfil\cr#1\cr}}\endgroup}
%
\def\affil#1\endaffil{\W@{\string\affil...\string\endaffil\space is
ignored.}}
%
\newif\ifdedic@
\newbox\dedic@box
\def\dedication#1\enddedication{\begingroup
\let\\=\cr
\global\setbox\dedic@box\vbox{\tabskip\z@\filhss@
\tenpoint\bi
\halign to\hsize{\hfil\ignorespaces##\unskip\hfil\cr#1\cr}}\endgroup
\dedic@true}
%
\newif\ifaddress@f
\newcount\addresscount@
\addresscount@\@ne
\def\address{\begingroup
\def\next@##1\endaddress{\expandafter\gdef
\csname address\number\addresscount@\endcsname{##1}\endgroup
\advance\addresscount@\@ne}%
\obeylines
\next@}
%
\def\date#1{\makefootnote@{}{\indent\ignorespaces#1\unskip}}
\let\thanks\date
%
\def\eatnofrills@{\relaxnext@
\def\next@{\ifx\next\nofrills
\def\next@\nofrills{\eat@}\else
\let\next@\eat@\fi\next@}%
\futurelet\next\next@}
\def\keywords{\W@{\string\keywords\space are ignored.}\eatnofrills@}
\def\subjclass{\W@{\string\subjclass\space is ignored.}\eatnofrills@}
%
\newif\ifabstract@
\def\theabstract@{}
\def\abstract{\relaxnext@
\nofrills@{{\bf\noindent Abstract.\smallskip}}\abstract@
\long\def\nextii@##1{\long\gdef\theabstract@{\usualspace@{{\smallskip}}
\ninepoint\abstract@\ignorespaces##1\par}}%
\global\abstract@true
\futurelet\next\next@}
%
\def\presubtitle{}
\def\preauthor{}
\def\prededication{}
\def\preabstract{}
\def\prepaper{}
%
\def\endtopmatter{\hrule height\z@\vskip-\topskip
\pageno=\firstpage
\pretitle
\advance\titlesep36\p@ plus4\p@ minus2\p@
\vskip\titlesep
\unvbox\titlebox@
\presubtitle
\ifsubtitl@\vskip12\p@\unvbox\subtitl@box\fi
\preauthor
\vskip18\p@
\unvbox\authorbox@
\prededication
\ifdedic@\vskip18\p@\unvbox\dedic@box\fi
\preabstract
\ifabstract@\vskip18\p@
{\leftskip\parindent\rightskip\parindent\noindent\theabstract@}\fi
\prepaper
\outer\def\proclaim{\innerproclaim@}%
\outer\def\endproclaim{\innerendproclaim@}%
\vskip24\p@ plus4\p@ minus2\p@
\tenpoint}
%
\def\lastmatter{}
\outer\def\enddocument{\relaxnext@
\vskip\z@ plus.2\vsize\relax
\penalty1000\vskip\z@ plus-.2\vsize\relax
\bigskip
\sfcode`\.=3000
\leftskip\z@skip
\begingroup
\ninepoint\it
\parskip\z@skip
\everypar={\setbox\z@=\lastbox\ignorespaces}%
\def\next@{\relax\ifaddress@f\endgroup\endgraf\nobreak\else
\endgraf\nobreak\fi}%
\def\of{\begingroup\address@ftrue\rm\noindent}%
\let\par=\next@
\count@\z@
\loop\advance\count@\@ne\ifnum\count@<\addresscount@
{\obeylines\csname address\number\count@\endcsname}%
\penalty1000\medskip
\repeat
\removelastskip
\endgroup
\vfill
\lastmatter
\supereject
{\advance\pageno by-\@ne
\ifnum\lastpage=\pageno\else
\W@{Please check \string\lastpage\space
(\string\lastpage\space was \number\lastpage)}\fi}%
\end}
%%
\def\c@ption#1#2{\centerline{\dimen@=\z@
\setbox\@ne\hbox{\ignorespaces#1\unskip}%
\setbox\tw@\hbox{\ignorespaces#2\unskip}%
\ifdim\wd\@ne=\z@\else\ifdim\wd\tw@=\z@\else\dimen@1em\fi\fi
\advance\dimen@\wd\@ne \wd\@ne=\dimen@
\dimen@i\dimen@ \advance\dimen@i\wd\tw@
\ifdim\dimen@i>\captionwidth@
\vtop{\hsize=\captionwidth@
\hangindent\dimen@ \hangafter\@ne
\noindent \box\@ne
\ignorespaces#2\unskip}\else
\hbox{\box\@ne\box\tw@}\fi}}
%
\def\Caption#1#2{\par
\removelastskip\unpenalty\nobreak\smallskip
\begingroup
\ninepoint
\c@ption{#1}{#2}%
\endgroup
\bigbreak}
%
\newcount\figureno \figureno\z@
%
\def\Figure#1#2#3{\midinsert
\vbox to #1{}%
\nobreak\smallskip
\ninepoint
\c@ption{#2}{#3}%
\endinsert}
%
\def\figure#1#2{\advance\figureno\@ne\Figure{#1}{Fig.~\number\figureno.}{#2}
}
%%
\newcount\chapterno \chapterno\z@
%
\newcount\sectionno \sectionno\z@
%
\newcount\subsectionno \subsectionno\z@
%
\def\Chapter#1#2{\bigbreak
\begingroup\bf
\c@ption{#1}{#2}%
\nobreak\medskip
\endgroup}
%
\def\chapter#1{\advance\chapterno\@ne
\Chapter{Chapter~\uppercase\expandafter{\romannumeral\chapterno.}}{#1}%
\sectionno\z@ \subsectionno\z@}
%
\def\Section#1#2{\bigbreak
\begingroup\bf
\setbox\z@\hbox{\ignorespaces#1\unskip}%
\ifdim\wd\z@=\z@\dimen@i=\z@\else\dimen@i1em\fi
\hangindent\wd\z@ \hangafter\@ne
\noindent
\box\z@
\hskip\dimen@i
\ignorespaces#2\par
\nobreak\medskip
\endgroup}
%
\def\section#1{\advance\sectionno\@ne
\Section{\S\number\sectionno.}{#1}%
\subsectionno\z@}
%
\def\Subsection#1#2{\medbreak
\begingroup\bf
\setbox\z@\hbox{\ignorespaces#1\unskip}%
\ifdim\wd\z@=\z@\dimen@i=\z@\else\dimen@i1em\fi
\leftskip\parindent\rightskip\parindent
\hangindent\wd\z@ \hangafter\@ne
\noindent
\box\z@
\hskip\dimen@i
\ignorespaces#2\par
\nobreak\smallskip
\endgroup}
%
\def\subsection#1{\advance\subsectionno\@ne
\Subsection{\number\sectionno.\number\subsectionno.}{#1}}
%
\def\Paragraph#1{\medbreak
\indent
\begingroup\bf
\ignorespaces#1\unskip
\endgroup
\quad\ignorespaces}
%
\def\paragraph{\advance\subsectionno\@ne
\Paragraph{\number\sectionno.\number\subsectionno.}}
%%
\newif\ifproclaim@
\def\innerproclaim@{\relaxnext@
\nofrills@{.\quad}\proclaim@
\def\nextii@##1{\medbreak\indent\usualspace@{{\bf\quad}}%
\bf\ignorespaces##1\unskip\proclaim@
\it
\ifproclaim@\Err@{Previous \expandafter\eat@\string\\proclaim
has no matching \expandafter\eat@\string\\endproclaim}\else
\proclaim@true\fi
\ignorespaces}\futurelet\next\next@}
%
\def\innerendproclaim@{\proclaim@false\par\penalty50\medskip\rm}
%
\def\demo{\relaxnext@
\nofrills@{.\quad}\demo@
\def\nextii@##1{\medbreak\indent{\usualspace@{{\it\quad}}%
\it\ignorespaces##1\unskip\demo@}%
\rm
\ifproclaim@\Err@{Previous \expandafter\eat@\string\\proclaim
has no matching \expandafter\eat@\string\\endproclaim}\fi
\ignorespaces}\futurelet\next\next@}
%
\def\enddemo{\par\penalty50\medskip}
%
\def\Proof{\demo{Proof}}
%
\def\QED{{\unskip\nobreak\hfil\penalty50\quad\null\nobreak\hfil
\hbox{\rm Q.E.D.}\parfillskip\z@skip\finalhyphendemerits\z@\par
\penalty-100\medskip}}
%
\def\cite#1{\def\nextii@##1,##2\end@{[##1,##2]}\in@,{#1}\ifin@
\def\next@{\nextii@#1\end@}\else
\def\next@{[#1]}\fi
\next@}
%
\newcount\rostercount@
\newif\iffirstitem@
\newtoks\everypartoks@
\let\plainitem@\item
%
\def\par@{\everypartoks@=\expandafter{\the\everypar}\everypar{}}
%
\def\roster{\relaxnext@
\edef\leftskip@{\leftskip\the\leftskip}\rostercount@\z@
\def\item{\futurelet\next\rosteritem@}%
\def\next@{\ifx\next\runinitem
\let\next\nextii@\else
\let\next\nextiii@\fi\next}%
\def\nextii@\runinitem{\unskip
\def\next@{\ifx[\next
\let\next\nextii@\else\ifx"\next
\let\next\nextiii@\else
\let\next\nextiv@\fi\fi\next}%
\def\nextii@[####1]{\rostercount@####1\relax
\enspace{\rm(\number\rostercount@)}~\ignorespaces}%
\def\nextiii@"####1"{\enspace{\rm####1}~\ignorespaces}%
\def\nextiv@{\enspace{\rm(1)}\rostercount@\@ne~}%
\par@\firstitem@false
\futurelet\next\next@}%
\def\nextiii@{\par\par@\skip@\lastskip\removelastskip\penalty\@m
\ifdim\skip@<\smallskipamount
\smallskip\else
\vskip\skip@\vskip-\parskip\fi
\firstitem@true}%
\futurelet\next\next@}
%
\def\rosteritem@{\iffirstitem@\firstitem@false\else\par\vskip-\parskip\fi
\leftskip2\parindent\noindent
\def\next@[##1]{\rostercount@##1\relax
\llap{\hbox to1.5\parindent{\hss\rm(\number\rostercount@)}%
\hskip.5\parindent}\ignorespaces}%
\def\nextii@"##1"{%
\llap{\hbox to1.5\parindent{\hss\rm##1}\hskip.5\parindent}\ignorespaces}%
\def\nextiii@{\advance\rostercount@\@ne
\llap{\hbox to1.5\parindent{\hss\rm(\number\rostercount@)}%
\hskip.5\parindent}}%
\ifx[\next
\let\next\next@\else\ifx"\next
\let\next\nextii@\else
\let\next\nextiii@\fi\fi\next}
%
\def\therosteritem#1{{\rm(\ignorespaces#1\unskip)}}
\newif\ifnextRunin@
\def\endroster{\relaxnext@
\par\leftskip@
\penalty-50 \vskip-\parskip \smallskip
\def\next@{\ifx\next\Runinitem
\let\next@\relax
\else\nextRunin@false\let\item\plainitem@
\ifx\next\par
\def\next@\par{\everypar=\expandafter{\the\everypartoks@}}\else
\def\next@{\noindent\everypar=\expandafter{\the\everypartoks@}}\fi
\fi\next@}\futurelet\next\next@}
%
\newcount\rosterhangafter@
\def\Runinitem#1\roster\runinitem{\relaxnext@
\rostercount@\z@
\def\item{\futurelet\next\rosteritem@}%
\def\runinitem@{#1}%
\def\next@{\ifx[\next
\let\next\nextii@\else\ifx"\next
\let\next\nextiii@\else
\let\next\nextiv@\fi\fi\next}%
\def\nextii@[##1]{\rostercount@##1\relax\def\item@{{\rm(\number
\rostercount@)}}\nextv@}%
\def\nextiii@"##1"{\def\item@{{\rm##1}}\nextv@}%
\def\nextiv@{\advance\rostercount@\@ne\def\item@{{\rm(\number
\rostercount@)}}\nextv@}%
\def\nextv@{\setbox\z@\vbox{\ifnextRunin@\noindent\fi
\runinitem@\unskip\enspace\item@~\par
\global\rosterhangafter@\prevgraf}\firstitem@false
\ifnextRunin@\else\par\fi
\hangafter\rosterhangafter@\hangindent2\parindent
\ifnextRunin@\noindent\fi
\runinitem@\unskip\enspace
\item@~\ifnextRunin@\else\par@\fi
\nextRunin@true\ignorespaces}\futurelet\next\next@}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% references
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newskip\refindent
\def\maxkey{\relaxnext@
\def\next@{\ifx[\next
\let\next@\nextii@\else
\let\next@\nextiii@\fi\next@}%
\def\nextii@[##1]{\setbox0\hbox{\ninepoint[##1]\quad}\global\refindent=\wd0
\ignorespaces}%
\def\nextiii@##1{\global\refindent=##1}%
\futurelet\next\next@}
\maxkey[99]
%
\newif\ifref@ne
%
\outer\def\Refs{\relaxnext@
\def\refskip@{\hskip\@ne sp\hskip\m@ne sp}%
\def\next@{\ifx\next\nofrills
\def\next@\nofrills{\nextii@}\else
\def\next@{\nextii@{References}}\fi\next@}%
\def\nextii@##1{\par
\vskip\z@ plus.2\vsize\relax\penalty-100
\vskip\z@ plus-.2\vsize\relax\bigskip
\vbox{\kern4\p@
\hbox to\hsize{\hfil\bf\ignorespaces##1\unskip\hfil}}\nobreak
\medskip\sfcode`.=\@m
\ninepoint}%
\ref@netrue
\futurelet\next\next@}
%
\newbox\nobox@ \newbox\keybox@
\newbox\bybox@ \newbox\bysamebox@
\newbox\paperbox@ \newbox\paperinfobox@
\newbox\jourbox@ \newbox\volbox@ \newbox\issuebox@
\newbox\yrbox@ \newbox\pagesbox@
\newbox\bookbox@ \newbox\bookinfobox@
\newbox\publbox@ \newbox\publaddrbox@
\newbox\finalinfobox@
%\newbox\refinfobox@
%
\newif\ifno@ \newif\ifkey@
\newif\ifby@ \newif\ifmanyby@ \newif\ifbysame@
\newif\ifpaper@ \newif\ifpaperinfo@
\newif\ifjour@ \newif\ifvol@ \newif\ifissue@
\newif\ifyr@ \newif\iftoappear@
\newif\ifpages@ \newif\ifpage@
\newif\ifbook@ \newif\ifinbook@ \newif\ifbookinfo@
\newif\ifpubl@ \newif\ifpubladdr@
\newif\iffinalinfo@
%\newif\ifrefinfo@
\newif\ifnojourinfo@
\newif\ifafterbook@
\newif\iffirstref@ \newif\iflastref@
\newif\ifprevjour@ \newif\ifprevinbook@
%\newif\ifprevbook@
%
\newdimen\maxbysamerule@ \maxbysamerule@24\p@
%
\def\ref@{\global\no@false\global\key@false
\global\by@false\global\bysame@false
\global\paper@false\global\paperinfo@false
\global\jour@false\global\vol@false\global\issue@false\global\yr@false
\global\toappear@false
\global\pages@false\global\page@false
\global\book@false\global\inbook@false\global\bookinfo@false
\global\publ@false\global\publaddr@false
\global\finalinfo@false
\bgroup\ignorespaces}
%
\Invalid@\moreref
%
\outer\def\ref{\ifref@ne\ref@nefalse\else\penalty-50\fi
\begingroup
\advance\leftskip by \refindent
\hangindent=1em
\hangafter\@ne
\noindent
\firstref@true\lastref@false
\def\moreref{\egroup\endref@\global\firstref@false\ref@}\ref@}
%
\def\refdef@#1#2{\def#1{\egroup
\csname\expandafter\eat@\string#1@true\endcsname
\expandafter\setbox
\csname\expandafter\eat@\string#1box@\endcsname\hbox\bgroup#2}}
%
\refdef@\no\relax \refdef@\key\relax
%
\def\by{\egroup\by@true\bysame@false\global\manyby@false
\setbox\bybox@\hbox\bgroup}
%
\def\manyby{\egroup\global\manyby@true\by@true\setbox\bybox@\hbox\bgroup}
%
\def\bysame{\egroup\bysame@true\bgroup}
%
\refdef@\paper\relax \refdef@\paperinfo\relax
%
\def\jour{\egroup\jour@true
\prevjour@true\previnbook@false
\setbox\jourbox@\hbox\bgroup}
%
\refdef@\vol\bf \refdef@\issue\relax \refdef@\yr\relax
%
\def\toappear{\egroup\toappear@true\bgroup}
%
\refdef@\pages\relax
%
\def\page{\egroup\page@true\setbox\pagesbox@\hbox\bgroup}
%
\def\book{\egroup\book@true\prevjour@false\setbox\bookbox@\hbox\bgroup}
%
\def\inbook{\egroup\inbook@true
\previnbook@true\prevjour@false
\setbox\bookbox@\hbox\bgroup}
%
\refdef@\bookinfo\relax \refdef@\publ\relax
\refdef@\publaddr\relax \refdef@\finalinfo\relax
%
%\refdef@\refinfo\relax
%
\def\setpunct@{\def\prepunct@{\lastpenalty@\ifafterbook@''\fi,\penalty@\rela
x
\space\afterbook@false}}
\def\lastpenalty@{\ifnum\lastpenalty<0
\edef\penalty@{\penalty\the\lastpenalty}\unpenalty
\else\ifdim\lastskip=\@ne sp
\unskip\unskip
\edef\penalty@{\penalty\the\lastpenalty}\unpenalty
\else
\let\penalty@\relax
\fi\fi}
%
\def\ppunbox@#1{\prepunct@\unhbox#1\unskip}
%
\def\endref@{\let\prepunct@\relax
\iffirstref@
\ifno@\hbox to\z@{\hskip-\refindent[\hbox to 1em{\hss
\unhbox\nobox@\unskip\hss}]\hss}\fi
\ifkey@\hbox to\z@{\hskip-\refindent[\unhbox\keybox@\unskip]\hss}\fi
\ifmanyby@
\ifby@
\hbox{\unhcopy\bybox@\unskip}\setpunct@
\global\setbox\bysamebox@\hbox{\unhcopy\bybox@\unskip}\else
\ifbysame@
\ifdim\wd\bysamebox@>\maxbysamerule@
\hbox to\maxbysamerule@{\leaders\hrule\hfill}\else
\hbox to\wd\bysamebox@{\leaders\hrule\hfill}\fi
\setpunct@
\fi\fi\else
\ifby@\unhcopy\bybox@\unskip\setpunct@\fi
\fi\fi
\ifpaper@\ppunbox@\paperbox@\setpunct@\fi
\ifpaperinfo@\ppunbox@\paperinfobox@\setpunct@\fi
\ifjour@
\ppunbox@\jourbox@\setpunct@
\ifvol@\ppunbox@\volbox@\setpunct@\fi
\ifissue@\ \unhbox\issuebox@\unskip\setpunct@\fi
\ifyr@\ (\unhbox\yrbox@\unskip\lastpenalty@)\penalty@\relax\setpunct@\fi
\iftoappear@\prepunct@{to appear}\setpunct@\fi
\ifpages@\ppunbox@\pagesbox@\setpunct@\fi
\ifpage@\prepunct@ p.~\unhbox\pagesbox@\unskip\setpunct@\fi
\else
\ifprevjour@
\unskip
\nojourinfo@false
\ifvol@\else\ifissue@\else\ifyr@\else\nojourinfo@true\fi\fi\fi
\ifnojourinfo@\else,\fi
\ifvol@\ppunbox@\volbox@\setpunct@\fi
\ifissue@\ \unhbox\issuebox@\unskip\setpunct@\fi
\ifyr@\ (\unhbox\yrbox@\unskip\lastpenalty@)\penalty@\relax\setpunct@\fi
\iftoappear@\prepunct@{to appear}\setpunct@\fi
\ifpages@\ppunbox@\pagesbox@\setpunct@\fi
\ifpage@\prepunct@ p.~\unhbox\pagesbox@\unskip\setpunct@\fi
\fi\fi
\ifbook@\prepunct@``\unhbox\bookbox@\unskip\afterbook@true\setpunct@\fi
\ifinbook@
\prepunct@\unskip\ in ``\unhbox\bookbox@\unskip
\afterbook@true\setpunct@\global\book@true
\fi
\ifbookinfo@\ppunbox@\bookinfobox@\setpunct@\fi
\ifpubl@\ppunbox@\publbox@\setpunct@\fi
\ifpubladdr@\ppunbox@\publaddrbox@\setpunct@\fi
\ifbook@
\ifyr@\prepunct@\unhbox\yrbox@\unskip\setpunct@\fi
\iftoappear@\prepunct@{to appear}\setpunct@\fi
\ifpages@\prepunct@ pp.~\unhbox\pagesbox@\unskip\setpunct@\fi
\ifpage@\prepunct@ p.~\unhbox\pagesbox@\unskip\setpunct@\fi
\else
\ifprevinbook@\unskip
\ifyr@\prepunct@\unhbox\yrbox@\unskip\setpunct@\fi
\iftoappear@\prepunct@{to appear}\setpunct@\fi
\ifpages@\prepunct@ pp.~\unhbox\pagesbox@\unskip\setpunct@\fi
\ifpage@\prepunct@ p.~\unhbox\pagesbox@\unskip\setpunct@\fi
\fi\fi
\iffinalinfo@\ifafterbook@''\fi.\afterbook@false
\spacefactor3000\relax\space\unhbox\finalinfobox@
\else
\iflastref@\ifafterbook@''\fi.\afterbook@false\else
\lastpenalty@\ifafterbook@''\fi;\afterbook@false\penalty@\relax\space
\fi\fi}
%
\def\endref{\egroup\global\lastref@true\endref@
\global\prevjour@false\global\previnbook@false
\par\endgroup}
%%
\let\ldots\plainldots@
\let\cdots\plaincdots@
%%
\let\nopagenumbers\relax
%
\newtoks\lefthe@d \newtoks\righthe@d
\def\setheadline#1#2{%
\lefthe@d={\ninepoint\number\pageno\hfil\hbox{#1}\hfil}%
\righthe@d={\ninepoint\hfil\hbox{\it#2}\hfil\number\pageno}}
%%
\output={\output@}
\def\output@{\shipout\vbox{%
\iftitlep@ge
\global\titlep@gefalse\else
\ifodd\pageno
\setbox\z@=\hbox to\hsize{\the\righthe@d}\else
\setbox\z@=\hbox to\hsize{\the\lefthe@d}\fi
\vtop to\z@{\vss\dp\z@=\z@\box\z@}\nointerlineskip\fi
\vskip\headsep
\vbox to\vsize{\boxmaxdepth=\maxdepth \pagecontents}}%
\global\advance\pageno\@ne
\ifnum\outputpenalty>-\@MM\else\dosupereject\fi}
%
\def\footnoterule{\vskip-3.4\p@\hrule width 96\p@ \vskip 3\p@}
%%
\def\proclaim{\innerproclaim@}
\def\endproclaim{\innerendproclaim@}
\tenpoint
%%
\catcode`\@=\active
%
\def\styname{aspm}\def\styversion{1.0}




