#      This is a shell archive.
#      Remove everything above and including the cut line.
#      Then run the remaining file through sh.  On non-Unix
#      systems, unbundle this file with a text editor.
#-----cut here------cut here------cut here------cut here-----#
#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  imappt.sty sample.tex imapptdoc.tex
# Wrapped by dna@fredholm on Wed Jan 31 15:30:12 1990
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'imappt.sty' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'imappt.sty'\"
else
echo shar: Extracting \"'imappt.sty'\" \(21581 characters\)
sed "s/^X//" >'imappt.sty' <<'END_OF_FILE'
X% This is the IMA preprint style file for amstex, imappt.sty.
X%  RCS information: $Revision: 1.7 $, $Date: 90/01/31 11:49:47 $.
X%  Authors: Bradley J. Lucier and Douglas N. Arnold.
X%
X% This is a style file for typesetting preprints and reports with AmSTeX,
X% version 1.0 or later.  It is used by the Institute of Mathematics and
X% its Applications for its preprint series.  There is a set of 
X% instructions for using this style file.  To obtain a copy, send the
X% message
X%
X% send imappt from siam
X%
X%  to research!netlib or netlib@research.att.com or netlib@ornl.gov,
X%  or contact
X%
X%   Prof. D. Arnold
X%   Department of Mathematics
X%   The Pennsylvania State University
X%   University Park, PA  16802
X%      dna@math.psu.edu
X%
X% This style file is unsupported.
X\catcode`\@=11
X\ifx\imapptloaded@AmS\relax\catcode`\@=\active
X \endinput\else\let\imapptloaded@AmS\relax\fi
X\ifnum\mag=1000
X  \hsize 6.5 in
X  \vsize 9.0 in
X  \captionwidth@\hsize
X  \advance\captionwidth@-1.5in
X\else
X  \hsize 6.5 true in
X  \vsize 9.0 true in
X  \captionwidth@\hsize
X  \advance\captionwidth@-1.5 true in
X\fi
X\def\footertext{{\hbox to\hsize{\hfil\tenpoint\number\pageno\hfil}}}
X\newif\ifdraft@
X\draft@false
X\def\draft{%
X\draft@true
X\def\footertext{\hbox to\hsize{\relaxnext@\hphantom{\eightpoint\jobname\quad
X  \number\month/\number\day/\number\year\quad DRAFT}\hfil
X  \tenpoint\number\pageno\hfil
X  \eightpoint\jobname\quad\number\month/\number\day/\number\year\quad DRAFT}}
X}
X\def\footnoterule{\vskip-3\p@\hrule width 2 in \vskip 2.6\p@}
X\def\m@g{\mag\count@
X  \hsize 6.5 true in\vsize 9.0 true in\dimen\footins 8 true in\captionwidth@\hsize
X  \advance\captionwidth@-1.5 true in
X}
X\normallineskiplimit\p@
X\font@\ninerm=cmr9
X\font@\eightrm=cmr8
X\font@\sixrm=cmr6
X\font@\ninei=cmmi9    \skewchar\ninei='177
X\font@\eighti=cmmi8   \skewchar\eighti='177
X\font@\sixi=cmmi6     \skewchar\sixi='177
X\font@\ninesy=cmsy9   \skewchar\ninesy='60
X\font@\eightsy=cmsy8  \skewchar\eightsy='60
X\font@\sixsy=cmsy6    \skewchar\sixsy='60
X\font@\ninebf=cmbx9
X\font@\eightbf=cmbx8
X\font@\sixbf=cmbx6
X\font@\nineit=cmti9
X\font@\eightit=cmti8
X\font@\ninesl=cmsl9
X\font@\eightsl=cmsl8
X\font@\ninemsx=msxm9
X\font@\eightmsx=msxm8
X\font@\sixmsx=msxm6
X\font@\ninemsy=msym9
X\font@\eightmsy=msym8
X\font@\sixmsy=msym6
X\font@\tensmc=cmcsc10
X\font@\eightsmc=cmcsc10 scaled 800
X\def\tenpoint{\def\pointsize@{10}%
X \normalbaselineskip 13.333333 pt
X \abovedisplayskip 13.333333 pt plus 3.333333 pt minus 9.999999 pt
X \belowdisplayskip 13.333333 pt plus 3.333333 pt minus 9.999999 pt
X \abovedisplayshortskip 0 pt plus 3.333333 pt
X \belowdisplayshortskip 7.777777 pt plus 3.333333 pt minus 4.444444 pt
X \smallskipamount= 3.333333 pt plus 1.111111 pt minus 1.111111 pt
X \medskipamount=6.666666 pt plus 2.222222 pt minus 2.222222 pt
X \bigskipamount=13.333333 pt plus 4.444444 pt minus 4.444444 pt
X \parskip=2 pt plus 1 pt
X \parindent 16.666666 pt
X \textfont@\rm\tenrm
X \textfont@\it\tenit
X \textfont@\sl\tensl
X \textfont@\bf\tenbf
X \textfont@\smc\tensmc
X \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else
X \let\big\tenbig@
X \textfont\z@\tenrm  \scriptfont\z@\sevenrm  \scriptscriptfont\z@\fiverm
X \textfont\@ne\teni  \scriptfont\@ne\seveni  \scriptscriptfont\@ne\fivei
X \textfont\tw@\tensy \scriptfont\tw@\sevensy \scriptscriptfont\tw@\fivesy
X \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
X \textfont\itfam\tenit
X \textfont\slfam\tensl
X \textfont\bffam\tenbf \scriptfont\bffam\sevenbf
X  \scriptscriptfont\bffam\fivebf
X \textfont\msxfam=\tenmsx
X \scriptfont\msxfam=\sevenmsx
X \scriptscriptfont\msxfam=\fivemsx
X \textfont\msyfam=\tenmsy
X \scriptfont\msyfam=\sevenmsy
X \scriptscriptfont\msyfam=\fivemsy
X \fi
X \setbox\strutbox\hbox{\vrule height8.5\p@ depth3.5\p@ width\z@}%
X \setbox\strutbox@\hbox{\vrule height8\p@ depth3\p@ width\z@}%
X \normalbaselines\tenrm\ex@=.2326ex}
X\def\eightpoint{\def\pointsize@{8}%
X \normalbaselineskip10\p@
X \abovedisplayskip10\p@ plus2.4\p@ minus7.2\p@
X \belowdisplayskip10\p@ plus2.4\p@ minus7.2\p@
X \abovedisplayshortskip\z@ plus2.4\p@
X \belowdisplayshortskip5.6\p@ plus2.4\p@ minus3.2\p@
X \smallskipamount=3\p@ plus 1\p@ minus 1\p@
X \medskipamount=6\p@ plus 2\p@ minus 2\p@
X \bigskipamount=12\p@ plus 4\p@ minus 4\p@
X \parskip=0\p@ plus 1\p@
X \parindent 11.111111 pt
X \textfont@\rm\eightrm
X \textfont@\it\eightit
X \textfont@\sl\eightsl
X \textfont@\bf\eightbf
X \textfont@\smc\eightsmc
X \ifsyntax@\def\big##1{{\hbox{$\left##1\right.$}}}\else
X \let\big\eightbig@
X \textfont\z@\eightrm \scriptfont\z@\sixrm  \scriptscriptfont\z@\fiverm
X \textfont\@ne\eighti \scriptfont\@ne\sixi  \scriptscriptfont\@ne\fivei
X \textfont\tw@\eightsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivesy
X \textfont\thr@@\tenex \scriptfont\thr@@\tenex \scriptscriptfont\thr@@\tenex
X \textfont\itfam\eightit
X \textfont\slfam\eightsl
X \textfont\bffam\eightbf \scriptfont\bffam\sixbf
X   \scriptscriptfont\bffam\fivebf
X \textfont\msxfam=\eightmsx
X \scriptfont\msxfam=\sixmsx
X \scriptscriptfont\msxfam=\fivemsx
X \textfont\msyfam=\eightmsy
X \scriptfont\msyfam=\sixmsy
X \scriptscriptfont\msyfam=\fivemsy
X \fi
X \setbox\strutbox\hbox{\vrule height7\p@ depth3\p@ width\z@}%
X \setbox\strutbox@\hbox{\vrule height6.5\p@ depth2.5\p@ width\z@}%
X \normalbaselines\eightrm\ex@=.2326ex}
X\def\tenbig@#1{{\hbox{$\left#1\vbox to8.5\p@{}\right.\n@space$}}}
X\def\eightbig@#1{{\hbox{$\textfont\z@\ninerm\textfont\tw@\ninesy
X \left#1\vbox to6.5\p@{}\right.\n@space$}}}
X\def\footmarkform@#1{$^{#1}$}
X\let\thefootnotemark\footmarkform@
X\def\makefootnote@#1#2{\insert\footins
X {\interlinepenalty\interfootnotelinepenalty
X \eightpoint\splittopskip\ht\strutbox\splitmaxdepth\dp\strutbox
X \floatingpenalty\@MM\leftskip\z@\rightskip\z@\spaceskip\z@\xspaceskip\z@
X \indent{#1}\footstrut\ignorespaces#2\unskip\lower\dp\strutbox
X \vbox to\dp\strutbox{}}}
X\footmarkcount@\z@
X\def\footnotemark{\let\@sf\empty\relaxnext@\ifhmode\edef
X \@sf{\spacefactor\the\spacefactor}\/\fi
X \def\next@{\ifx[\next\let\next\nextii@\else
X  \ifx"\next\let\next\nextiii@\else
X  \let\next\nextiv@\fi\fi\next}%
X \def\nextii@[##1]{\footmarkform@{##1}\@sf}%
X \def\nextiii@"##1"{{##1}\@sf}%
X \def\nextiv@{\global\advance\footmarkcount@\@ne
X  \footmarkform@{\number\footmarkcount@}\@sf}%
X \futurelet\next\next@}
X\def\footnotetext{\relaxnext@
X \def\next@{\ifx[\next\let\next\nextii@\else
X  \ifx"\next\let\next\nextiii@\else
X  \let\next\nextiv@\fi\fi\next}%
X \def\nextii@[##1]##2{\makefootnote@{\footmarkform@{##1}}{##2}}%
X \def\nextiii@"##1"##2{\makefootnote@{##1}{##2}}%
X \def\nextiv@##1{\makefootnote@{\footmarkform@{\number\footmarkcount@}}{##1}}%
X \futurelet\next\next@}
X\def\footnote{\let\@sf\empty\relaxnext@\ifhmode\edef
X \@sf{\spacefactor\the\spacefactor}\/\fi
X \def\next@{\ifx[\next\let\next\nextii@\else
X  \ifx"\next\let\next\nextiii@\else
X  \let\next\nextiv@\fi\fi\next}%
X \def\nextii@[##1]##2{\footnotemark[##1]\footnotetext[##1]{##2}}%
X \def\nextiii@"##1"##2{\footnotemark"##1"\footnotetext"##1"{##2}}%
X \def\nextiv@##1{\footnotemark\footnotetext{##1}}%
X \futurelet\next\next@}
X\def\adjustfootnotemark#1{\advance\footmarkcount@#1\relax}
X\let\topmatter\relax
X\newbox\titlebox@
X\setbox\titlebox@\vbox{}
X\Invalid@\overlong
X\def\overlong@{\def\next@{\ifx\next\overlong\def\filhss@
X {plus\@m\p@ minus\@m\p@}\def\next@\overlong{\nextii@}\else
X \def\filhss@{plus\@m\p@\relax}\let\next@\nextii@\fi\next@}}
X\def\title{\relaxnext@
X \def\nextii@##1\endtitle{{\let\\=\cr
X \global\setbox\titlebox@\vbox{\tabskip\z@\filhss@
X \halign to\hsize{\tenpoint\bf\hfil\ignorespaces####\unskip\hfil\cr##1\cr}}}}%
X \overlong@
X \futurelet\next\next@}
X\newif\ifauthor@
X\newbox\authorbox@
X\def\author{\relaxnext@
X \def\nextii@##1\endauthor{{\let\\=\cr
X \global\setbox\authorbox@\vbox{\tabskip\z@\filhss@
X \halign to\hsize{\tenpoint\smc\hfil\ignorespaces####\unskip\hfil\cr##1\cr
X }}}}\overlong@\global\author@true
X \futurelet\next\next@}
X\def\affil{\Err@{Do not use \string\affil\space in the IMA style}}
X\def\endaffil{\Err@{Do not use \string\endaffil\space in the IMA style}}
X\def\address{\Err@{Do not use \string\address\space in the IMA style}}
X\def\date{\Err@{Do not use \string\date\space in the IMA style}}
X\def\thanks{\Err@{Do not use \string\thanks\space in the IMA style}}
X\Invalid@\nofrills
X\Invalid@\usualspace
X\newif\ifnofrills@
X\def\usualspace@#1{\ifnofrills@\def\usualspace{#1}\fi}
X\def\nofrills@#1#2{\def\next@{\ifx\next\nofrills\nofrills@true\let#2\relax
X \def\next@\nofrills{\nextii@}\else\nofrills@false
X \def#2{#1}\let\next@\nextii@\fi\next@}}
X\def\proclaim{\innerproclaim@}
X\def\endproclaim{\innerendproclaim@}
X\newif\ifabstract@
X\def\theabstract@{}
X\def\abstract{\relaxnext@\nofrills@{{\bf Abstract.\enspace}}\abstract@
X \long\def\nextii@##1{\long\gdef\theabstract@{\usualspace@
X  {{\eightpoint\enspace}}\eightpoint\abstract@\ignorespaces##1\par}}%
X \global\abstract@true
X \futurelet\next\next@}
X\newif\ifkeywords@
X\def\thekeywords@{}
X\def\keywords{\relaxnext@\nofrills@{{\bf Key words.\enspace}}\keywords@
X \long\def\nextii@##1{\long\gdef\thekeywords@{\usualspace@
X  {{\eightpoint\enspace}}\eightpoint\keywords@\ignorespaces##1\par}}%
X \global\keywords@true
X \futurelet\next\next@}
X\newif\ifsubjclass@
X\def\thesubjclass@{}
X\def\subjclass{\relaxnext@\nofrills@{{\bf AMS(MOS) subject classifications (1985 revision).\enspace}}\subjclass@
X \long\def\nextii@##1{\long\gdef\thesubjclass@{\usualspace@
X  {{\eightpoint\enspace}}\eightpoint\subjclass@\ignorespaces##1\par}}%
X \global\subjclass@true
X \futurelet\next\next@}
X\def\pretitle{}
X\def\preauthor{}
X\def\preabstract{}
X\def\prekeywords{}
X\def\presubjclass{}
X\def\prepaper{}
X\def\endtopmatter{\hrule height\z@\vskip-\topskip
X \pretitle
X \vskip 26.666666 pt plus 13.333333 pt minus 13.333333 pt
X \unvbox\titlebox@
X \preauthor
X \ifauthor@\vskip 13.333333 pt plus 6.666666 pt minus 3.333333 pt\unvbox\authorbox@\fi
X \preabstract
X \ifabstract@\vskip 16.666666 pt plus 13.333333 pt minus 13.333333 pt
X  {\eightpoint\indent\theabstract@}\fi
X \prekeywords
X \ifkeywords@\vskip 8.333333 pt plus 6.666666 pt minus 6.666666 pt
X  {\eightpoint\indent\thekeywords@}\fi
X \presubjclass
X \ifsubjclass@\vskip 8.333333 pt plus 6.666666 pt minus 6.666666 pt
X  {\eightpoint\indent\thesubjclass@}\fi
X \prepaper
X \outer\def\proclaim{\innerproclaim@}%
X \outer\def\endproclaim{\innerendproclaim@}%
X \vskip 20 pt plus 13.333333 pt minus 6.666666 pt \tenpoint}
X\outer\def\enddocument{\vfill\supereject\end}
X\newbox\headingbox@
X\outer\def\heading{\relaxnext@
X \def\nextii@{\bigbreak\bgroup\let\\=\cr
X \global\setbox\headingbox@\vbox\bgroup\tabskip\z@\filhss@
X \halign to\hsize\bgroup\tenpoint\smc\hfil\ignorespaces####\unskip\hfil\cr}%
X \overlong@
X \futurelet\next\next@}
X\def\endheading{\cr\egroup\egroup\egroup\unvbox\headingbox@
X \nobreak\medskip}
X\def\subheading{\relaxnext@\nofrills@{.\enspace}\subheading@
X \def\nextii@##1{\medbreak\indent{\usualspace@{{\bf\enspace}}%
X  \tenpoint\bf\ignorespaces##1\unskip\subheading@}\ignorespaces}%
X \futurelet\next\next@}
X\newif\ifproclaim@
X\def\innerproclaim@{\relaxnext@\nofrills@{.\enspace}\proclaim@
X \def\nextii@##1{\medbreak\indent\def\next{8}%
X  {\usualspace@{{\smc\enspace}}\smc\ignorespaces##1\unskip\proclaim@}\sl
X  \ifproclaim@\Err@{Previous \expandafter
X \eat@\string\\proclaim has no matching \expandafter
X \eat@\string\\endproclaim}\else\proclaim@true\fi\ignorespaces}%
X \futurelet\next\next@}
X\def\innerendproclaim@{\proclaim@false\par\rm
X \ifdim\lastskip<\medskipamount\removelastskip\penalty55 \medskip\fi}
X\def\demo{\relaxnext@\nofrills@{.\enspace}\demo@
X \def\nextii@##1{\par\ifdim\lastskip<\smallskipamount\removelastskip
X  \smallskip\fi\indent{\usualspace@{{\sl\enspace}}%
X  \sl\ignorespaces##1\unskip\demo@}\rm
X  \ifproclaim@\Err@{Previous \expandafter
X  \eat@\string\\proclaim had no matching \expandafter
X  \eat@\string\\endproclaim}\fi\ignorespaces}%
X \futurelet\next\next@}
X\def\enddemo{\par\smallskip}
X\def\qed{\ifhmode\unskip\nobreak\fi\ifmmode\ifinner\else\hskip5\p@\fi\fi
X \hbox{\hskip5\p@\lower 1.5 pt\hbox{\vrule width .2 pt \vbox{\hrule width 4 pt height .2 pt \vskip 7.1 pt\hrule width 4 pt height .2 pt }\unskip\vrule width .2 pt}\hskip\p@}}
X\def\cite#1{\relaxnext@
X \def\nextiii@##1,##2\end@{[{\rm##1},##2]}%
X \in@,{#1}\ifin@\def\next{\nextiii@#1\end@}\else
X \def\next{[{\rm#1}]}\fi\next}
X\newcount\rostercount@
X\newdimen\rosterindent
X\newdimen\rosterindent@
X\newdimen\labelwidth@
X\rosterindent=16.666667 pt
X\rosterindent@=16.666667 pt
X\newif\iffirstitem@
X\newtoks\everypartoks@
X\let\plainitem@\item
X\def\par@{\everypartoks@=\expandafter{\the\everypar}\everypar{}}
X\def\roster{\global\advance\rosterindent@\rosterindent\labelwidth@=\rosterindent@
X \advance\labelwidth@-3.888888 pt\relax
X \edef\leftskip@{\leftskip\the\leftskip}\relaxnext@
X \rostercount@\z@\def\item{\futurelet\next\rosteritem@}%
X \def\next@{\ifx\next\runinitem\let\next\nextii@\else
X  \let\next\nextiii@\fi\next}%
X \def\nextii@\runinitem{\unskip
X  \def\next@{\ifx\next[\let\next\nextii@\else
X   \ifx\next"\let\next\nextiii@\else\let\next\nextiv@\fi\fi\next}%
X  \def\nextii@[####1]{\rostercount@####1\relax
X   \enspace{\rm(\number\rostercount@)}~\ignorespaces}%
X  \def\nextiii@"####1"{\enspace{\rm####1}~\ignorespaces}%
X  \def\nextiv@{\enspace{\rm(1)}\rostercount@\@ne~}%
X  \par@\firstitem@false
X  \futurelet\next\next@}%
X \def\nextiii@{\par\par@\penalty\@m\smallskip
X  \firstitem@true}%
X \futurelet\next\next@}
X\def\rosteritem@{\iffirstitem@\firstitem@false\else\par\fi
X \leftskip\rosterindent@\noindent
X \def\next@[##1]{\rostercount@##1\relax
X  \llap{\hbox to\labelwidth@{\hss\rm(\number\rostercount@)}\hskip
X  3.888888 pt}\ignorespaces}%
X \def\nextii@"##1"{%
X  \llap{\hbox to\labelwidth@{\hss\rm##1}\hskip3.888888 pt}\ignorespaces}%
X \def\nextiii@{\advance\rostercount@\@ne
X  \llap{\hbox to\labelwidth@{\hss\rm(\number\rostercount@)}\hskip
X  3.888888 pt}}%
X \ifx\next[\let\next\next@\else\ifx\next"\let\next\nextii@\else
X \let\next\nextiii@\fi\fi\next}
X\def\therosteritem#1{{\rm(\ignorespaces#1\unskip)}}
X\newif\ifnextRunin@
X\def\endroster{\global\advance\rosterindent@-\rosterindent\relax
X \relaxnext@\par\leftskip@
X \penalty-50 \vskip-\parskip\smallskip
X \def\next@{\ifx\next\Runinitem\let\next@\relax
X  \else\nextRunin@false\let\item\plainitem@\ifx\next\par
X  \def\next@\par{\everypar=\expandafter{\the\everypartoks@}}%
X  \else\def\next@{\noindent\everypar=\expandafter{\the\everypartoks@}}%
X  \fi\fi\next@}%
X \futurelet\next\next@}
X\newcount\rosterhangafter@
X\def\Runinitem#1\roster\runinitem{\relaxnext@\rostercount@\z@
X \def\item{\futurelet\next\rosteritem@}%
X \def\runinitem@{#1}%
X \def\next@{\ifx\next[\let\next\nextii@\else\ifx\next"\let\next\nextiii@
X  \else\let\next\nextiv@\fi\fi\next}%
X \def\nextii@[##1]{\rostercount@##1\relax\def\item@{{\rm(\number
X  \rostercount@)}}\nextv@}%
X \def\nextiii@"##1"{\def\item@{{\rm##1}}\nextv@}%
X \def\nextiv@{\advance\rostercount@\@ne\def\item@{{\rm(\number
X  \rostercount@)}}\nextv@}%
X \def\nextv@{\setbox\z@\vbox
X  {\ifnextRunin@\noindent\fi
X  \runinitem@\unskip\enspace\item@~\par
X  \global\rosterhangafter@\prevgraf}%
X  \firstitem@false\ifnextRunin@\else\par\fi
X  \hangafter\rosterhangafter@\hangindent\rosterindent@
X  \ifnextRunin@\noindent\fi\runinitem@\unskip\enspace
X  \item@~\ifnextRunin@\else\par@\fi\nextRunin@true\ignorespaces}%
X \futurelet\next\next@}
X\outer\def\Refs{\relaxnext@\def\refskip@{\hskip\@ne sp\hskip\m@ne sp}%
X \def\next@{\ifx\next\nofrills\def\next@\nofrills{\nextii@}\else
X  \def\next@{\nextii@{REFERENCES}}\fi\next@}%
X \def\nextii@##1{\bigskip\goodbreak\hbox to\hsize{\hfil\eightpoint
X  \rm\ignorespaces##1\unskip\hfil}\nobreak
X  \bigskip\eightpoint\sfcode`.=\@m}%
X \futurelet\next\next@}
X\newbox\nobox@        \newbox\keybox@        \newbox\bybox@
X\newbox\bysamebox@    \newbox\paperbox@      \newbox\paperinfobox@
X\newbox\jourbox@      \newbox\volbox@        \newbox\issuebox@
X\newbox\yrbox@                               \newbox\pagesbox@
X\newbox\bookbox@
X\newbox\bookinfobox@  \newbox\publbox@       \newbox\publaddrbox@
X\newbox\finalinfobox@
X\newif\ifno@          \newif\ifkey@          \newif\ifby@ \newif\ifmanyby@
X\newif\ifbysame@      \newif\ifpaper@        \newif\ifpaperinfo@
X\newif\ifjour@        \newif\ifvol@          \newif\ifissue@
X\newif\ifyr@ \newif\iftoappear@              \newif\ifpages@ \newif\ifpage@
X\newif\ifbook@ \newif\ifinbook@
X\newif\ifbookinfo@    \newif\ifpubl@         \newif\ifpubladdr@
X\newif\iffinalinfo@   \newif\ifafterbook@
X\newif\iffirstref@    \newif\iflastref@      \newif\ifprevjour@
X\newif\ifprevbook@    \newif\ifprevinbook@   \newif\ifnojourinfo@
X\newdimen\maxbysamerule@
X\maxbysamerule@1in
X\def\ref@{\global\no@false\global\key@false\global\by@false
X \global\bysame@false\global\paper@false\global\paperinfo@false
X \global\jour@false\global\vol@false\global\issue@false
X \global\yr@false\global\toappear@false\global\pages@false\global\page@false
X \global\book@false\global\inbook@false
X \global\bookinfo@false\global\publ@false\global\publaddr@false
X \global\finalinfo@false
X \bgroup\ignorespaces}
X\Invalid@\moreref
X\outer\def\ref{\begingroup
X \noindent\hangindent 22.222222 pt\hangafter\@ne\firstref@true
X \lastref@false\def\moreref{\egroup\endref@\global\firstref@false\ref@}\ref@}
X\def\refdef@#1#2{\def#1{\egroup
X \csname\expandafter\eat@\string#1@true\endcsname
X \expandafter\setbox
X \csname\expandafter\eat@\string#1box@\endcsname\hbox\bgroup#2}}
X\refdef@\no\relax \refdef@\key\relax
X\def\manyby{\egroup\global\manyby@true\by@true\setbox\bybox@\hbox\bgroup\smc}
X\def\by{\egroup\by@true\bysame@false\global\manyby@false
X \setbox\bybox@\hbox\bgroup\smc}
X\def\bysame{\egroup\bysame@true\bgroup}
X\refdef@\paper\sl
X\refdef@\paperinfo\relax
X\def\jour{\egroup\jour@true\prevjour@true\setbox
X \jourbox@\hbox\bgroup}
X\refdef@\vol\rm
X\refdef@\issue\relax \refdef@\yr\relax
X\def\toappear{\egroup\toappear@true\bgroup}
X\refdef@\pages\relax
X\def\page{\egroup\page@true\setbox\pagesbox@\hbox\bgroup}
X\refdef@\book\sl
X\def\inbook{\egroup\inbook@true\previnbook@true\setbox
X \bookbox@\hbox\bgroup\rm}
X\refdef@\bookinfo\relax
X\refdef@\publ\relax
X\refdef@\publaddr\relax
X\refdef@\finalinfo\relax
X\def\setpunct@{\def\prepunct@{\ifnum\lastpenalty<0
X \edef\penalty@{\penalty\the\lastpenalty}\unpenalty,
X  \penalty@\relax\space\else
X \ifdim\lastskip=\@ne sp\unskip\unskip
X \edef\penalty@{\penalty\the\lastpenalty}\unpenalty,
X  \penalty@\relax\space
X \else,\space\fi\fi\afterbook@false}}
X\def\ppunbox@#1{\prepunct@\unhbox#1\unskip}
X\def\endref@{\let\prepunct@\relax
X \iffirstref@
X  \ifno@\hbox to 22.222222 pt {\hss[\unhbox\nobox@\unskip]\kern 8.5 pt}\else
X  \ifkey@\hbox to 22.222222 pt{\hss\unhbox\keybox@\unskip\kern 8.5pt}\else\hbox to 8.5pt {}\fi\fi
X  \ifmanyby@
X   \ifby@\hbox{\unhcopy\bybox@\unskip}\setpunct@
X  \global\setbox\bysamebox@\hbox{\unhcopy\bybox@\unskip}\else
X  \ifbysame@\ifdim\wd\bysamebox@>\maxbysamerule@
X    \hbox to\maxbysamerule@{\leaders\hrule height 2.2pt depth -2pt\hfill}\else
X    \hbox to \wd\bysamebox@{\leaders\hrule height 2.2pt depth -2pt\hfill}\fi\,\setpunct@\fi
X   \fi
X  \else
X  \ifby@\unhcopy\bybox@\unskip\setpunct@\fi\fi
X \fi
X \ifpaper@\ppunbox@\paperbox@\setpunct@\fi
X \ifpaperinfo@\ppunbox@\paperinfobox@\setpunct@\fi
X \ifjour@\ppunbox@\jourbox@\setpunct@
X   \ifvol@\ppunbox@\volbox@\unskip\setpunct@\fi
X   \ifissue@\ \unhbox\issuebox@\unskip\setpunct@\fi
X   \ifyr@\ (\unhbox\yrbox@\unskip)\setpunct@\fi
X   \iftoappear@\ (to appear)\setpunct@\fi
X   \ifpages@\prepunct@ pp.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X   \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X \else
X  \ifprevjour@\unskip\nojourinfo@false
X   \ifvol@\else\ifissue@\else\ifyr@\else\nojourinfo@true\fi\fi\fi
X   \ifnojourinfo@\else,\fi
X   \ifvol@\ppunbox@\volbox@\unskip\setpunct@\fi
X   \ifissue@\ \unhbox\issuebox@\unskip\setpunct@\fi
X   \ifyr@\ (\unhbox\yrbox@\unskip)\setpunct@\fi
X   \iftoappear@\ (to appear)\setpunct@\fi
X   \ifpages@\prepunct@ pp.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X   \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X  \fi
X \fi
X \ifbook@\prepunct@\unhbox\bookbox@\unskip\afterbook@true\setpunct@\fi
X \ifinbook@\prepunct@\unskip\ in \unhbox\bookbox@\unskip\afterbook@true
X  \setpunct@\global\book@true\fi
X \ifbookinfo@\ppunbox@\bookinfobox@\setpunct@\fi
X \ifpubl@\ppunbox@\publbox@\setpunct@\fi
X \ifpubladdr@\ppunbox@\publaddrbox@\setpunct@\fi
X \ifbook@
X  \ifyr@\prepunct@\unhbox\yrbox@\unskip\setpunct@\fi
X  \iftoappear@\ifafterbook@\fi\prepunct@ to appear\afterbook@false
X   \setpunct@\fi
X  \ifpages@\prepunct@ pp.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X  \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X \else
X  \ifprevinbook@\unskip
X   \ifyr@\prepunct@\unhbox\yrbox@\unskip\setpunct@\fi
X   \iftoappear@\prepunct@ to appear\setpunct@\fi
X   \ifpages@\prepunct@ pp.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X   \ifpage@\prepunct@ p.\ \unhbox\pagesbox@\unskip\setpunct@\fi
X  \fi
X \fi
X\iffinalinfo@.\afterbook@false
X\spacefactor3000\relax\space\unhbox\finalinfobox@\else
X \iflastref@.\afterbook@false\else;
X  \afterbook@false\space\fi
X\fi}
X\def\endref{\egroup\global\lastref@true\endref@\global\prevjour@false\global
X \previnbook@false\par\endgroup}
X\newif\iflogo@
X\def\nologo{\logo@false}
X\def\logo{\logo@true}
X\logo@false
X\output={\output@}
X\def\output@{%
X \ifnum\pageno=\@ne\shipout\vbox{\vbox to\vsize
X  {\boxmaxdepth\maxdepth\pagecontents}\baselineskip2pc
X  \iflogo@\hbox to\hsize{\hfil\eightpoint Typeset by \AmSTeX}
X  \else\ifdraft@\footertext\fi\fi}\else
X \shipout\vbox{\vbox to\vsize
X  {\boxmaxdepth\maxdepth\pagecontents}\baselineskip2pc
X  \footertext}%
X \fi
X \global\advance\pageno\@ne
X \ifnum\outputpenalty>-\@MM\else\dosupereject\fi}
X\tenpoint
X\catcode`\@=\active
X\def\styname{imappt}\def\styversion{1.2}
END_OF_FILE
if test 21581 -ne `wc -c <'imappt.sty'`; then
    echo shar: \"'imappt.sty'\" unpacked with wrong size!
fi
# end of 'imappt.sty'
fi
if test -f 'sample.tex' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'sample.tex'\"
else
echo shar: Extracting \"'sample.tex'\" \(6219 characters\)
sed "s/^X//" >'sample.tex' <<'END_OF_FILE'
X\magnification=\magstep1
X\input amstex
X\documentstyle{imappt}
X%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
X% Macros specific to this paper   %
X\define\BbbR{{\Bbb R}}            %
X\define\loner{{L^1(\BbbR)}}       %
X\define\linfr{{L^\infty(\BbbR)}}  %
X\define\bvr{{BV(\BbbR)}}          %
X\define\TV{{\roman {TV}}}         %
X\define\sdot{\,\cdot\,}           %
X%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
X\topmatter
X\title
XA SAMPLE PAPER TO ILLUSTRATE THE \\
XIMA PREPRINT STYLE\footnote"*"{Unlikely to appear.}
X\endtitle
X\author
XBRADLEY J. LUCIER\footnote"\dag"{Department of Mathematics, Purdue University,
XWest Lafayette, Indiana 47907.
XThe work of the first author was not supported by the
XWolf Foundation.
X} and
XDOUGLAS N. ARNOLD\footnote"\ddag"{Department of Mathematics, University
Xof Maryland, College Park, Maryland 20742.}
X\endauthor
X\abstract{This nonsense paper exemplifies the IMA preprint style file for \AmSTeX\,
Ximappt.sty.
XThe IMA preprint style file, which 
Xis used by the Institute for Mathematics
Xand its Applications for its preprints,
Xis offered as a general purpose preprint style for mathematical papers.
XIt is a modification of the amsppt style of
XMichael Spivak.  This paper also serves to illustrate many of the amstex
Xmacros as used with the imappt style file.}
X
X\keywords{porous medium, interface curves}
X\subjclass{65N60}
X\endtopmatter
X\document
X\subheading{1. Introduction}
XWe are concerned with numerical approximations to the so-called
Xporous-medium equation \cite{5},
X$$
X\alignedat2
X  &u_t=\phi(u)_{xx},&&\qquad x\in\BbbR,\quad t>0,\quad\phi(u)=u^m,\quad m>1,
X\\
X  &u(x,0)=u_0(x),&&\qquad x\in\BbbR.
X\endalignedat
X\tag 1.1
X$$
XWe assume that the initial data $u_0(x)$ has bounded support, that
X$0\leq u_0\leq M$, and that $\phi(u_0)_x\in\bvr$.
XIt is well known that a unique solution $u(x,t)$ of (1.1) exists,
Xand that $u$ satisfies
X$$
X  0\leq u\leq M\text{ and }\TV\phi(u(\,\cdot\,,t))_x\leq\TV\phi(u_0)_x.
X\tag 1.2
X$$
XIf the data has slightly more regularity, then this too is satisfied
Xby the solution. Specifically, if $m$ is no greater than two and
X$u_0$ is Lipschitz continuous, then $u(\,\cdot\,,t)$ is also Lipschitz;
Xif $m$ is greater than two and $(u_0^{m-1})_x\in\linfr$, then
X$(u(\,\cdot\,,t)^{m-1})_x\in\linfr$ 
X(see [3]). (This will follow from results presented here, also.)
XWe also use the fact that the solution $u$ is H\"older continuous in $t$.
X
X\subheading{2. $\linfr$ error bounds}
XAfter a simple definition, we state a theorem
Xthat expresses the error of approximations $u^h$ in
Xterms of the weak truncation error $E$.
X\proclaim{Definition 2.1}\rm A {\it definition}
Xis the same as a theorem set in roman
Xtype.
X\endproclaim
X\proclaim{Theorem 2.1}
XLet $\{u^h\}$ be a family of approximate solutions satisfying
Xthe following conditions for $0\leq t\leq T$:
X\roster
X\item For all $x\in\BbbR$ and positive $t$, $0\leq u^h(x,t)\leq M$;
X\item Both $u$ and $u^h$ are H\"older--$\alpha$ in $x$
Xfor some $\alpha\in(0,1\wedge 1/(m-1))$; $u^h$ is right continuous in $t$;
Xand $u^h$ is H\"older continuous in $t$ on
Xstrips $\BbbR\times(t^n,t^{n+1})$, with the set $\{t^n\}$ having no
Xlimit points; and
X\item There exists a positive function $\omega(h,\epsilon)$ such that:
Xwhenever $\{w^\epsilon\}_{0<\epsilon\leq\epsilon_0}$ is a family of functions
Xin $\bold X$ for which
X{\roster
X\item"(a)" there is a sequence of positive numbers $\epsilon$ tending
Xto zero, such that for these  values of
X$\epsilon$, $\|w^\epsilon\|_\infty\leq 1/\epsilon$,
X\item"(b)" for all positive
X$\epsilon$, $\|w_x^\epsilon(\sdot,t)\|_\loner\leq 1/\epsilon^2$, and
X\item"(c)" for all $\epsilon>0$, 
X$$
X\sup\Sb
Xx\in\BbbR\\0\leq t_1,t_2\leq T\endSb
X\dfrac{|w^\epsilon(x,t_2)-w^\epsilon(x,t_1)|}{|t_2-t_1|^p}\leq 1/\epsilon^2,
X$$
Xwhere $p$ is some number not exceeding $1$,
X\endroster}
Xthen $|E (u^h,w^\epsilon,T)|\leq\omega(h,\epsilon).$
X\endroster
XThen, there is a constant $C=C(m,M,T)$ such that
X$$
X\|u-u^h\|_{\infty,\BbbR\times[0,T]}\leq
XC\left[
X\sup \left |\int_\BbbR(u_0(x)-u^h(x,0))  w(x,0) \,dx\right|+
X\omega(h,\epsilon)+\epsilon^\alpha\right],
X\tag 2.1
X$$
Xwhere the supremum is taken over all $w\in\bold X$.
X\endproclaim
X\demo{Proof}Let $z$ be in $\bold X$. Because $E(u,\sdot,\sdot)\equiv0$,
XEquation (1.5) implies that
X$$
X\int_\BbbR\Delta uz|^T_0dx=\int_0^T\int_\BbbR
X\Delta u(z_t+\phi[u,u^h]z_{xx})\,dx\,dt-
XE(u^h,z,t),
X\tag 2.2
X$$
Xwhere $\Delta u=u-u^h$ and 
X$$
X\phi[u,u^h]=\dfrac{\phi(u)-\phi(u^h)}{u-u^h}.
X$$
XExtend $\phi[u,u^h](\cdot,t)=\phi[u,u^h](\cdot,0)$ for negative $t$, and
X$\phi[u,u^h](\cdot,t)=\phi[u,u^h](\cdot,T)$
Xfor $t>T$.\footnote{This is an obvious ploy, but we need a footnote.}
XFix a point $x_0$ and a number $\epsilon>0$. Let $j_\epsilon$
Xbe a smooth function of $x$ with integral $1$ and support in 
X$[-\epsilon,\epsilon]$,
Xand let $J_\delta$ be a smooth function of
X$x$ and $t$ with integral $1$ and support in 
X$[-\delta,\delta]\times[-\delta,\delta]$; $\delta$ and $\epsilon$ are
Xpositive numbers to be specified later.
XWe choose $z=z^{\epsilon\delta}$ to satisfy
X$$
X\aligned
X  &z_t+(\delta+J_\delta*\phi[u,u^h])z_{xx}=0,\qquad x\in\BbbR,\;0\leq t\leq T,
X\\
X  &z(x,T)=j_\epsilon(x-x_0).
X\endaligned
X\tag 2.3
X$$
XThe conclusion of the theorem now follows from (2.1) and the fact that
X$$
X|j_\epsilon*\Delta u(x_0,t)-\Delta u(x_0,t)|\leq C\epsilon^\alpha,
X$$
Xwhich follows from  Assumption 2.\qed
X\enddemo
X\Refs
X\ref 
X  \no 1
X  \by K. Hollig and M. Pilant
X  \paper Regularity of the free boundary for the porous medium equation
X  \paperinfo MRC Tech. Rep. 2742
X\endref
X\ref 
X  \no 2
X  \by J. Jerome
X  \book Approximation of Nonlinear Evolution Systems 
X  \publ Academic Press 
X  \publaddr New York 
X  \yr 1983
X\endref
X\ref
X  \no 3
X  \manyby R. J. LeVeque
X  \paper Convergence of a large time step generalization of Godunov's method 
X         for conservation laws
X  \jour Comm. Pure Appl. Math.
X  \vol 37 
X  \yr 1984
X  \pages 463--478
X\endref
X\ref
X  \no 4
X  \bysame
X  \paper A large time step generalization of Godunov's method for systems
X         of conservation laws
X  \jour
X  \toappear
X\endref
X\ref 
X  \no 5
X  \by B. J. Lucier
X  \paper On nonlocal monotone difference methods for scalar conservation laws
X  \jour Math. Comp.
X  \vol 47
X  \yr 1986
X  \pages 19--36
X\endref
X\enddocument
END_OF_FILE
if test 6219 -ne `wc -c <'sample.tex'`; then
    echo shar: \"'sample.tex'\" unpacked with wrong size!
fi
# end of 'sample.tex'
fi
if test -f 'imapptdoc.tex' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'imapptdoc.tex'\"
else
echo shar: Extracting \"'imapptdoc.tex'\" \(9207 characters\)
sed "s/^X//" >'imapptdoc.tex' <<'END_OF_FILE'
X% This is the file imapptdoc.tex.  Typeset with plain TeX.
X\magnification=\magstephalf
X\def\beginverbatim{\par\begingroup\setupverbatim\doverbatim}
X{\catcode`\|=0 \catcode`\\=12 % | is temporary escape character
X  |obeylines|gdef|doverbatim^^M#1\endverbatim{#1|endgroup}}
X\def\setupverbatim{\tentt \obeylines \uncatcodespecials \obeyspaces}
X{\obeyspaces\global\let =\ } % let active space = control space
X\def\uncatcodespecials{\def\do##1{\catcode`##1=12}\dospecials}
X{\catcode`\^^M=13 \gdef\gobblecr{\ifnextchar
X{\gobble}{\ignorespaces}}}
X{\catcode`\ =\active\gdef\vobeyspaces{\catcode`\ \active \let \xobeysp}}
X \def\xobeysp{\leavevmode{} }
X\begingroup \catcode `|=0 \catcode `[= 1
X\catcode`]=2 \catcode `\{=12 \catcode `\}=12
X\catcode`\\=12 |gdef|@xverbatim#1\end{verbatim}[#1|end[verbatim]]
X|gdef|@sxverbatim#1\end{verbatim*}[#1|end[verbatim*]]
X|endgroup
X\def\makeother#1{\catcode`#112\relax}
X\def\verb{\begingroup \tt \uncatcodespecials
X\averb}
X\def\sverb#1{\def\tempa ##1#1{##1\endgroup}\tempa}
X\def\averb{\obeyspaces \frenchspacing \sverb}
X\font\textfontii = cmsy10
X\font\eightpt = cmr8
X\def\heading#1{\medskip\noindent{\bf #1.\ }}
X\def\AmSTeX{{\textfontii A}\kern-.1667em\lower.5ex\hbox
X {\textfontii M}\kern-.125em{\textfontii S}-\TeX}
X\def\qed{\ifhmode\unskip\nobreak\fi\ifmmode\ifinner\else\hskip5pt\fi\fi
X \hbox{\hskip5 pt \lower 1.5 pt\hbox{\vrule width .2 pt 
X \vbox{\hrule width 4 pt height .2 pt \vskip 7.1 pt
X \hrule width 4 pt height .2 pt }\unskip\vrule width .2 pt}}}
X\centerline{\bf USING  THE IMA PREPRINT STYLE FILE}
X\medskip
X{\eightpt\centerline{DOUGLAS N. ARNOLD and BRADLEY J. LUCIER}}
X\bigskip
XThis document explains the use of the IMA preprint style file
Xto typeset preprints and reports with 
X\AmSTeX. The IMA preprint style file, which is a
Xmodification of the amsppt style of Michael Spivak, is
Xintended as a general purpose preprint style for mathematical papers.
XIt has been used by the Institute
Xfor Mathematics and its Applications since 1987 for its preprint series.
XIn these instructions we assume familiarity with \AmSTeX\ and amsppt,
Xas documented in
X{\it The Joy of \TeX\ }
Xby Michael Spivak.
X
XMost of the points introduced below are illustrated in
Xthe nonsense paper {\it A sample paper to illustrate the
XIMA preprint style}.
X
X\heading{Document style}  Include the commands \verb"\input amstex"
Xand \verb"\documentstyle{imappt}" near the top of your document.
X
X\heading{Magnification} To obtain reasonable results, you {\it must} set
X\verb"\magnification=\magstep 1" {\it before} the command \verb"\input
Xamstex".
X
X\heading{Title} Use \verb"\title" and \verb"\endtitle".
XType the title in all caps.
XAttach any footnotes (see below) that apply to the paper
Xas a whole to the title.
X
X\heading{Author} Use \verb"\author" and \verb"\endauthor".
XType the author's name in all caps.  For multiple authors type the word
X``and'' in lowercase.
X
X\heading{Author's affiliation}  Give the  affiliation of each author
Xin a footnote (see below) attached to each author's name.  Statements
Xacknowledging support should be contained in the same footnote.
XDo {\it not} use the \verb"\affil" or \verb"\address" macros.
X
X\heading{Abstract} If there is an abstract, use \verb"\abstract".
X
X\heading{Keywords} If there are keywords,
Xuse \verb"\keywords" with commas between keywords
Xbut without ending punctuation.
X
X\heading{Subject classifications} If there are AMS
Xsubject classifications, use \verb"\subjclass"
Xwith commas between classifications
Xbut without ending punctuation.
X
X\heading{Footnotes} Use \verb"\footnote".
XFor the topmatter, use footnote symbols.
XIn the rest of the paper
Xuse numbered footnotes. 
XThe order of footnote symbols is star (*\thinspace=\thinspace\verb"*"),
Xdagger (\dag\thinspace=\thinspace\verb"\dag"), double-dagger
X(\ddag\thinspace=\thinspace\verb"\ddag"),
Xsection-marker (\S\thinspace=\thinspace\verb"\S").
X
X\heading{Headings} Use \verb"\heading" without ending punctuation.
XThe argument consists of the section number followed by a period
Xand then the section name with only the first word capitalized.
XVery long papers could use \verb"\heading" and \verb"\endheading"
Xfor major headings and \verb"\heading" for minor headings.  If
X\verb"\heading" is used start heading name with a section mark
X(\S\thinspace=\thinspace\verb"\S") and the section number followed by a period and the
Xsection title with the first letter of each major word capitalized.
X
X\heading{Equation numbers}  Use \verb"\tag".
X
X\heading{Theorems, etc} Use \verb"\proclaim" and \verb"\endproclaim"
Xfor theorems, lemmas, corollaries, claims, propositions, etc.  The
Xargument to \verb"\proclaim" takes no ending punctuation.
X
X\heading{Definitions} Use \verb"\proclaim" and \verb"\endproclaim",
Xbut use \verb"\rm" to set the body of the definition in roman.
X
X\heading{Proofs, etc} Use \verb"\demo" and \verb"\enddemo"
Xfor proofs, examples, remarks, cases, etc.  The
Xargument to \verb"\demo" takes no ending punctuation.  The
Xend-of-proof mark is an open box (\qed\ =\thinspace\verb"\qed").
X
X\heading{Lists and sublists}  Use \verb"\roster" and \verb"\endroster".
XRosters use default labels of the form (1), (2), etc.
XSubrosters are permitted.  Each subroster {\it must} be enclosed
Xin a separate pair of braces. Note that subrosters are {\it not}
Xstandard \AmSTeX.
X 
X\heading{References} These can be done exactly as in {\it The Joy
Xof \TeX} using \verb"\Refs" and \verb"\ref".
X
X\heading{Table of contents} There are no special macros provided to set
Xa table of contents.  If a table of contents is desired, follow these
Xguidelines.  Switch to eight point type (\verb"\eightpoint").
XCenter the word ``CONTENTS'' in caps.  Capitalize only the first word
Xof entries.  Runover lines align with the start of entries.
XPlace the section number flush left with one em to section title,
Xspaced dots from end of entry to page number, and two ems between the
Xdots and page number.  Leave 18--20 points 
Xof vertical space, (baseline
Xto baseline, before magnification) to the text above and below.
X
X\heading{Tables} There are no special macros provided to set
Xtables.  Follow these guidelines.
XSwitch to eight point type (\verb"\eightpoint").
XCenter the table on the page width.  Put a minimum
Xof  18 points
Xspace (baseline to baseline, before magnification) above and/or below the table.
XCenter the label over the table.  The label
Xshould be of the form \verb"{\smc Table~1.}"  The title of the table should
Xbe in slanted roman centered over the table with only the first word capitalized.
XColumn headings may be in set in six point type if necessary to fit properly
Xover the columns.  Place  standard \TeX\ rules (0.4 point thick, before
Xmagnification)
Xabove and below the column headings, and at the end of the table.
X
X\heading{Figure legends} Use \verb"\topspace" or \verb"\midspace".
XSet the caption as, for example,
X\verb"\topspace{3 in}\caption{\eightpoint{\smc Fig\. 1.\enspace}\it Type caption here.}".
X
X\heading{New control sequences available in the IMA preprint style}
XThe amount that each roster is indented is controlled by the value of
X\verb"\rosterindent".  For most lists the default value need not
Xbe changed.
XTo get a footer that indicates
Xthat the paper is a draft, give the command \verb"\draft" immediately
Xafter the \verb"\documentstyle" command.  This will also print the
Xdate and the file name in the footer.
XShould you ever want to set the footer text explicitly,
Xyou may redefine  \verb"\footertext".
X
X\heading{Control sequences available
Xin the amsppt style but not the IMA preprint style}
XDo not use the commands
X\verb"\affil", \verb"\endaffil", \verb"\address", \verb"\date", and
X\verb"\thanks".  They have been redefined in the IMA preprint style file
Xto give error messages when used, because
Xtheir function has been taken over by other constructions, mainly footnotes
Xto the title of the paper and the authors' names.
X
X\heading{Fonts} The font \verb"cmcsc10" is
Xused at 8 point (\verb"cmcsc10 at 8 pt") so there is a
Xcaps-and-small-caps font for use in references, etc.  You must
Xhave the appropriate \verb"pxl", \verb"pk" or \verb"gf" file for
Xyour printer driver. (See your local \TeX\ guru.  He or she may
Xbe able to generate the font in the right size using Metafont.) 
XAlternatively, you can redefine the font \verb"\eightsmc"
Xto be another font which you have available.
XIf you have no eight point caps-and-small-caps font, then
Xgive the command \verb"\font\eightsmc=cmr8" to substitute
Xeight point roman.
X
XThe file uses the newer \verb"cm" (computer modern) family of fonts
X(\verb"cmr9", \verb"cmr8", \verb"cmr6", \verb"cmmi9", \verb"cmmi8",
X\verb"cmmi6", \verb"cmsy9", \verb"cmsy8", \verb"cmsy6", \verb"cmbx9",
X\verb"cmbx8", \verb"cmbx6", \verb"cmti9", \verb"cmti8", \verb"cmsl9",
X\verb"cmsl8", \verb"cmcsc10", and \verb"cmcsc10 at 8 pt"), so you will
Xhave to change these references to the appropriate \verb"am" (almost
Xmodern) fonts if that is all you have available at your site.  The
Xstyle file also assumes the existence of the American Mathematical
XSociety fonts \verb"msxm9", \verb"msxm8", \verb"msxm6", \verb"msym9",
X\verb"msym8", and \verb"msym6".  If you do not have these fonts, then
Xcomment out the lines in imappt.sty that reference them.
X
X\bye
END_OF_FILE
if test 9207 -ne `wc -c <'imapptdoc.tex'`; then
    echo shar: \"'imapptdoc.tex'\" unpacked with wrong size!
fi
# end of 'imapptdoc.tex'
fi
echo shar: End of shell archive.
exit 0
