% pnas.sty 19-Jan-90
%Hacked by Cindy Fisher. No guarantees on results!
%Used for submissions to Proceedings of the National Academy of Sciences
\typeout{Document Style `pnas' <19 Jan 1990>.}
\def\@ptsize{0} \@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}}
\def\ds@twoside{\@twosidetrue \@mparswitchtrue} \def\ds@draft{\overfullrule
5pt}
\@options
\input /asd/mu/fisher/tex/sty/crcart1\@ptsize.sty\relax
\def\labelenumi{\arabic{enumi}.}
\def\theenumi{\arabic{enumi}}
\def\labelenumii{(\alph{enumii})}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\roman{enumiii}.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\Alph{enumiv}.}
\def\theenumiv{\Alph{enumiv}}
\def\p@enumiv{\p@enumiii\theenumiii}
\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}
\def\verse{\let\\=\@centercr
\list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent
\rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em
\itemindent\listparindent
\rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist
\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
\let\makelabel\descriptionlabel}}
\let\enddescription\endlist
\def\theequation{\arabic{equation}}
\def\titlepage{\@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
\else \newpage \fi \thispagestyle{empty}\c@page\z@}
\def\endtitlepage{\if@restonecol\twocolumn \else \newpage \fi}
\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt
\tabbingsep \labelsep
\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt
\newcounter{part}
\newcounter {section}[part]
\newcounter {subsection}[section]
\newcounter {subsubsection}[subsection]
\newcounter {paragraph}[subsubsection]
\newcounter {subparagraph}[paragraph]
\def\thepart{\Roman{part}. }
\def\thesection {\Alph{section}.}
\def\thesubsection {\arabic{subsection}.}
\def\thesubsubsection {\alph{subsubsection}.}
\def\theparagraph {\arabic{paragraph}.}
\def\thesubparagraph {\arabic{subparagraph}.}
\def\@pnumwidth{1.55em}
\def\@tocrmarg {2.55em}
\def\@dotsep{4.5}
\setcounter{tocdepth}{3}
\def\tableofcontents{\section*{TABLE OF CONTENTS\@mkboth{TABLE OF CONTENTS}
{TABLE OF CONTENTS}}
\@starttoc{toc}}
\def\l@part#1#2{\addpenalty{\@secpenalty}
\addvspace{2.25em plus 1pt} \begingroup
\@tempdima 3em \parindent \z@ \rightskip \@pnumwidth \parfillskip
-\@pnumwidth
{\leavevmode #1\hfil \hbox to\@pnumwidth{\hss #2}}\par
\nobreak \endgroup}
\def\l@section{\@dottedtocline{2}{1.5em}{2.3em}}
\def\l@subsection{\@dottedtocline{3}{3.8em}{3.2em}}
\def\l@subsubsection{\@dottedtocline{4}{7.0em}{4.1em}}
\def\l@paragraph{\@dottedtocline{5}{10em}{5em}}
\def\l@subparagraph{\@dottedtocline{6}{13em}{5.8em}}
\def\listoffigures{\section*{List of Figures\@mkboth
{LIST OF FIGURES}{LIST OF FIGURES}}\@starttoc{lof}}
\def\l@figure{\@dottedtocline{1}{1.5em}{2.3em}}
\def\listoftables{\section*{List of Tables\@mkboth
{LIST OF TABLES}{LIST OF TABLES}}\@starttoc{lot}}
\let\l@table\l@figure
\def\thebibliography#1{\section*{REFERENCES\@mkboth
{}{}}\list
{\arabic{enumi}.}{\settowidth\labelwidth{#1.}\leftmargin\labelwidth
\advance\leftmargin\labelsep
\usecounter{enumi}}
\def\newblock{\hskip .11em plus .33em minus -.07em}
\sloppy\clubpenalty4000\widowpenalty4000
\sfcode`\.=1000\relax}
\let\endthebibliography=\endlist
% CITE.STY -- compress numerical citations.
% See also OVERCITE.STY.
%
% Copyright (C) 1989 by Donald Arseneau
% These macros may be freely transmitted, reproduced, or modified for
% non-commercial purposes provided that this notice is left intact.
%
% Instructions follow \endinput.
% ----------------------------------
%
% Pull out the code that writes the aux file citation and formats
% the number. \citen can be used by itself to give citation numbers
% without the other formatting; e.g., "See also ref.~\citen{junk}."
%
\def\citen#1{%
\if@filesw \immediate \write \@auxout {\string \citation {#1}}\fi
\@tempcntb\m@ne \let\@h@ld\relax \def\@citea{}%
\@for \@citeb:=#1\do {%
\@ifundefined {b@\@citeb}%
{\@h@ld\@citea\@tempcntb\m@ne{\bf ?}%
\@warning {Citation `\@citeb ' on page \thepage \space undefined}}%
% else
{\@tempcnta\@tempcntb \advance\@tempcnta\@ne
\setbox\z@\hbox\bgroup\ifcat0\csname b@\@citeb \endcsname \relax
\egroup \@tempcntb\number\csname b@\@citeb \endcsname \relax
\else \egroup \@tempcntb\m@ne \fi
\ifnum\@tempcnta=\@tempcntb % Number follows previous--hold on to it
\ifx\@h@ld\relax
% % first pair of successives
\edef \@h@ld{\@citea\csname b@\@citeb\endcsname}%
\else
% % compressible list of successives
% % use \hbox to avoid easy \exhyphenpenalty breaks on-line
\edef\@h@ld{\hbox{--}\penalty\@highpenalty
\csname b@\@citeb\endcsname}%
\fi
\else % non-successor--dump what's held and do this one
\@h@ld\@citea\csname b@\@citeb \endcsname
\let\@h@ld\relax
\fi}%
%% To put space after the comma, use:
%% \def\@citea{,\penalty\@highpenalty\hskip.13em plus.13em minus.13em}%
%% For no space after comma, use:
\def\@citea{,\penalty\@highpenalty}% penalty is for on-line with note.
%%
}\@h@ld}
%
% Replacement for \@citex:
%
\def\@citex[#1]#2{\@cite{\citen{#2}}{#1}}%
%
% Replacement for \@cite
%
\def\@cite#1#2{({#1}{#2})}
%\def\@cite#1#2{\leavevmode\unskip
% \ifnum\lastpenalty=\z@\penalty\@highpenalty\fi% highpenalty before
% \ [{\multiply\@highpenalty 3 #1% % triple-highpenalties within.
% \if@tempswa,\penalty\@highpenalty\ #2\fi}]} % and before note.
%
%\endinput
\newif\if@restonecol
\def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
\columnseprule \z@
\columnsep 35pt\twocolumn[\section*{Index}]
\@mkboth{INDEX}{INDEX}\thispagestyle{plain}\parindent\z@
\parskip\z@ plus .3pt\relax\let\item\@idxitem}
\def\@idxitem{\par\hangindent 40pt}
\def\subitem{\par\hangindent 40pt \hspace*{20pt}}
\def\subsubitem{\par\hangindent 40pt \hspace*{30pt}}
\def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}
\def\footnoterule{\kern-3\p@
\hrule width .4\columnwidth
\kern 2.6\p@}
\long\def\@makefntext#1{\parindent 1em\noindent
\hbox to 1.8em{\hss$^{\@thefnmark}$}#1}
\setcounter{topnumber}{2}
\def\topfraction{.7}
\setcounter{bottomnumber}{1}
\def\bottomfraction{.3}
\setcounter{totalnumber}{3}
\def\textfraction{.2}
\def\floatpagefraction{.5}
\setcounter{dbltopnumber}{2}
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}
\long\def\@makecaption#1#2{
\vskip 10pt
\setbox\@tempboxa\hbox{#1: #2}
\ifdim \wd\@tempboxa >\hsize #1: #2\par \else \hbox
to\hsize{\hfil\box\@tempboxa\hfil}
\fi}
\newcounter{figure}
\def\thefigure{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{Fig. \thefigure}
\def\figure{\@float{figure}}
\let\endfigure\end@float
\@namedef{figure*}{\@dblfloat{figure}}
\@namedef{endfigure*}{\end@dblfloat}
\newcounter{table}
\def\thetable{\@arabic\c@table}
\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
\def\fnum@table{Table \thetable}
\def\table{\@float{table}}
\let\endtable\end@float
\@namedef{table*}{\@dblfloat{table}}
\@namedef{endtable*}{\end@dblfloat}
\def\maketitle{\par
\begingroup
\def\thefootnote{\fnsymbol{footnote}}
\def\@makefnmark{\hbox
to 0pt{$^{\@thefnmark}$\hss}}
\if@twocolumn
\twocolumn[\@maketitle]
\else \newpage
\global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}\@thanks
\endgroup
\setcounter{footnote}{0}
\let\maketitle\relax
\let\@maketitle\relax
\gdef\@thanks{}\gdef\@author{}\gdef\@title{}\let\thanks\relax}
\def\@maketitle{\newpage
\null
\vskip 2em \begin{center}
{\large \@title \par} \vskip 1.5em {\large \lineskip .5em
\begin{tabular}[t]{c}\@author
\end{tabular}\par}
\end{center}
\par
\vskip 1.5em}
\def\abstract{\if@twocolumn
\section*{Abstract}
\else \small
\begin{center}
{\bf Abstract\vspace{-.5em}\vspace{0pt}}
\end{center}
\quotation
\fi}
\def\endabstract{\if@twocolumn\else\endquotation\fi}
\mark{{}{}}
\if@twoside \def\ps@headings{\let\@mkboth\markboth
\def\@oddfoot{}\def\@evenfoot{}\def\@evenhead{\rm \thepage\hfil \sl
\leftmark}\def\@oddhead{\hbox{}\sl \rightmark \hfil
\rm\thepage}\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth
>\z@
\thesection\hskip 1em\relax \fi ##1}}{}}\def\subsectionmark##1{\markright
{\ifnum \c@secnumdepth >\@ne
\thesubsection\hskip 1em\relax \fi ##1}}}
\else \def\ps@headings{\let\@mkboth\markboth
\def\@oddfoot{}\def\@evenfoot{}\def\@oddhead{\hbox {}\sl \rightmark \hfil
\rm\thepage}\def\sectionmark##1{\markright {\uppercase{\ifnum \c@secnumdepth
>\z@
\thesection\hskip 1em\relax \fi ##1}}}}
\fi
% \def\ps@myheadings{\let\@mkboth\@gobbletwo
% \def\@oddhead{\hbox{}\sl\rightmark \hfil
% \rm\thepage}\def\@oddfoot{}\def\@evenhead{\rm \thepage\hfil\sl\leftmark\hbox
% {}}\def\@evenfoot{}\def\sectionmark##1{}\def\subsectionmark##1{}}
\def\ps@myheadings{\def\@oddhead{\hbox{}\myleft \hfil\myright}
\def\@oddfoot{\centerline{\rm\thepage}}\def\@evenhead{\hfil\myleft
\hfil\myright\hbox{}}\def\@evenfoot{\centerline{\rm\thepage}}}
\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}
\ps@plain \pagenumbering{arabic} \onecolumn \if@twoside\else\raggedbottom\fi
|