1 \def\currversion{April 15, 2008}

     2 

     3   %*****************************************************************%

     4   %*                                                               *%

     5   %*     Prepared by Amy Hendrickson, TeXnology Inc.               *%

     6   %*     Copyright (C) 2004 by Amy Hendrickson, TeXnology Inc.,    *%

     7   %*     All rights reserved.                                      *%

     8   %*                                                               *%

     9   %*     TeXnology Inc.: 617 738-8029                              *%

    10   %*                     amyh@texnology.com                        *%

    11   %*                     www.texnology.com                         *%

    12   %*                                                               *%

    13   %*     For assistance, please contact the PNAS Editorial Office: *%

    14   %*     202-334-2679                                              *%

    15   %*     pnas@nas.edu                                              *%

    16   %*                                                               *%

    17   %*****************************************************************%

    18 

    19 \typeout{^^J^^J

    20 Two Column Journal Style for the^^J

    21 Proceedings of the National Academy of Science 

    22 ^^J

    23 Written by Amy Hendrickson, TeXnology, Inc., 9/04^^J

    24 ^^J

    25 This version is dated \currversion^^J^^J}

    26 

    27 \ProvidesClass{pnastwo}

    28 \newcommand\@ptsize{}

    29 \newif\if@restonecol

    30 \newif\if@titlepage

    31 \@titlepagefalse

    32 \if@compatibility\else

    33 \DeclareOption{a4paper}

    34    {\setlength\paperheight {297mm}%

    35     \setlength\paperwidth  {210mm}}

    36 \DeclareOption{a5paper}

    37    {\setlength\paperheight {210mm}%

    38     \setlength\paperwidth  {148mm}}

    39 \DeclareOption{b5paper}

    40    {\setlength\paperheight {250mm}%

    41     \setlength\paperwidth  {176mm}}

    42 \DeclareOption{letterpaper}

    43    {\setlength\paperheight {11in}%

    44     \setlength\paperwidth  {8.5in}}

    45 \DeclareOption{legalpaper}

    46    {\setlength\paperheight {14in}%

    47     \setlength\paperwidth  {8.5in}}

    48 \DeclareOption{executivepaper}

    49    {\setlength\paperheight {10.5in}%

    50     \setlength\paperwidth  {7.25in}}

    51 \DeclareOption{landscape}

    52    {\setlength\@tempdima   {\paperheight}%

    53     \setlength\paperheight {\paperwidth}%

    54     \setlength\paperwidth  {\@tempdima}}

    55 \fi

    56 \if@compatibility

    57   \renewcommand\@ptsize{0}

    58 \else

    59 \DeclareOption{10pt}{\renewcommand\@ptsize{0}}

    60 \fi

    61 \DeclareOption{11pt}{\renewcommand\@ptsize{1}}

    62 \DeclareOption{12pt}{\renewcommand\@ptsize{2}}

    63 \if@compatibility\else

    64 \DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}

    65 \fi

    66 \DeclareOption{twoside}{\@twosidetrue  \@mparswitchtrue}

    67 \DeclareOption{draft}{\setlength\overfullrule{5pt}}

    68 \if@compatibility\else

    69 \DeclareOption{final}{\setlength\overfullrule{0pt}}

    70 \fi

    71 \DeclareOption{titlepage}{\@titlepagetrue}

    72 \if@compatibility\else

    73 \DeclareOption{notitlepage}{\@titlepagefalse}

    74 \fi

    75 \if@compatibility\else

    76 \DeclareOption{onecolumn}{\@twocolumnfalse}

    77 \fi

    78 \DeclareOption{twocolumn}{\@twocolumntrue}

    79 \DeclareOption{leqno}{\input{leqno.clo}}

    80 \DeclareOption{fleqn}{\input{fleqn.clo}}

    81 \DeclareOption{openbib}{%

    82   \AtEndOfPackage{%

    83    \renewcommand\@openbib@code{%

    84       \advance\leftmargin\bibindent

    85       \itemindent -\bibindent

    86       \listparindent \itemindent

    87       \parsep \z@

    88       }%

    89    \renewcommand\newblock{\par}}%

    90 }

    91 \ExecuteOptions{letterpaper,twoside,onecolumn,final}

    92 \ProcessOptions

    93 %% size10.clo ==>>

    94 \renewcommand\normalsize{%

    95    \@setfontsize\normalsize\@ixpt\@xpt

    96    \abovedisplayskip 8\p@ \@plus2\p@ \@minus5\p@

    97    \abovedisplayshortskip \z@ \@plus3\p@

    98    \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@

    99    \belowdisplayskip \abovedisplayskip

   100                \topsep 0\p@

   101                \parsep 0\p@

   102    \let\@listi\@listI}

   103 \normalsize

   104                \topsep 0\p@

   105                \parsep 0\p@

   106 

   107 \newcommand\small{%

   108    \@setfontsize\small\@viiipt{9}%

   109    \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@

   110    \abovedisplayshortskip \z@ \@plus2\p@

   111    \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@

   112    \def\@listi{\leftmargin\leftmargini

   113                \topsep 0\p@ 

   114                \parsep 0\p@ 

   115                \itemsep \parsep}%

   116    \belowdisplayskip \abovedisplayskip

   117 }

   118 \newcommand\footnotesize{%

   119    \@setfontsize\footnotesize\@vipt{7}%

   120    \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p@

   121    \abovedisplayshortskip \z@ \@plus\p@

   122    \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@

   123    \def\@listi{\leftmargin\leftmargini

   124                \topsep 3\p@ \@plus\p@ \@minus\p@

   125                \parsep 2\p@ \@plus\p@ \@minus\p@

   126                \itemsep \parsep}%

   127    \belowdisplayskip \abovedisplayskip

   128 }

   129 \newcommand\scriptsize{\@setfontsize\scriptsize\@vpt\@viipt}

   130 \newcommand\tiny{\@setfontsize\tiny\@vpt\@vipt}

   131 \newcommand\large{\@setfontsize\large\@xiipt{14}}

   132 \newcommand\Large{\@setfontsize\Large\@xivpt{18}}

   133 \newcommand\LARGE{\@setfontsize\LARGE\@xviipt{22}}

   134 \newcommand\huge{\@setfontsize\huge\@xxpt{25}}

   135 \newcommand\Huge{\@setfontsize\Huge\@xxvpt{30}}

   136 \if@twocolumn

   137   \setlength\parindent{1em}

   138 \else

   139   \setlength\parindent{15\p@}

   140 \fi

   141 \setlength\smallskipamount{3\p@ \@plus 1\p@ \@minus 1\p@}

   142 \setlength\medskipamount{6\p@ \@plus 2\p@ \@minus 2\p@}

   143 \setlength\bigskipamount{12\p@ \@plus 4\p@ \@minus 4\p@}

   144 \setlength\headheight{12\p@}

   145 \setlength\headsep   {25\p@}

   146 \setlength\topskip   {10\p@}

   147 \setlength\footskip{20\p@}

   148 \if@compatibility \setlength\maxdepth{4\p@} \else

   149 \setlength\maxdepth{.5\topskip} \fi

   150 \if@compatibility

   151   \if@twocolumn

   152     \setlength\textwidth{410\p@}

   153   \else

   154     \setlength\textwidth{345\p@}

   155   \fi

   156 \else

   157   \setlength\@tempdima{\paperwidth}

   158   \addtolength\@tempdima{-2in}

   159   \setlength\@tempdimb{345\p@}

   160   \if@twocolumn

   161     \ifdim\@tempdima>2\@tempdimb\relax

   162       \setlength\textwidth{2\@tempdimb}

   163     \else

   164       \setlength\textwidth{\@tempdima}

   165     \fi

   166   \else

   167     \ifdim\@tempdima>\@tempdimb\relax

   168       \setlength\textwidth{\@tempdimb}

   169     \else

   170       \setlength\textwidth{\@tempdima}

   171     \fi

   172   \fi

   173 \fi

   174 \if@compatibility\else

   175   \@settopoint\textwidth

   176 \fi

   177 \if@compatibility

   178   \setlength\textheight{43\baselineskip}

   179 \else

   180   \setlength\@tempdima{\paperheight}

   181   \addtolength\@tempdima{-2in}

   182   \addtolength\@tempdima{-1.5in}

   183   \divide\@tempdima\baselineskip

   184   \@tempcnta=\@tempdima

   185   \setlength\textheight{\@tempcnta\baselineskip}

   186 \fi

   187 \addtolength\textheight{\topskip}

   188 \if@twocolumn

   189  \setlength\marginparsep {10\p@}

   190 \else

   191   \setlength\marginparsep{11\p@}

   192 \fi

   193 \setlength\marginparpush{5\p@}

   194 \if@compatibility

   195   \if@twoside

   196      \setlength\oddsidemargin   {44\p@}

   197      \setlength\evensidemargin  {82\p@}

   198      \setlength\marginparwidth {107\p@}

   199   \else

   200      \setlength\oddsidemargin   {63\p@}

   201      \setlength\evensidemargin  {63\p@}

   202      \setlength\marginparwidth  {90\p@}

   203   \fi

   204   \if@twocolumn

   205      \setlength\oddsidemargin  {30\p@}

   206      \setlength\evensidemargin {30\p@}

   207      \setlength\marginparwidth {48\p@}

   208   \fi

   209 \else

   210   \if@twoside

   211     \setlength\@tempdima        {\paperwidth}

   212     \addtolength\@tempdima      {-\textwidth}

   213     \setlength\oddsidemargin    {.4\@tempdima}

   214     \addtolength\oddsidemargin  {-1in}

   215     \setlength\marginparwidth   {.6\@tempdima}

   216     \addtolength\marginparwidth {-\marginparsep}

   217     \addtolength\marginparwidth {-0.4in}

   218   \else

   219     \setlength\@tempdima        {\paperwidth}

   220     \addtolength\@tempdima      {-\textwidth}

   221     \setlength\oddsidemargin    {.5\@tempdima}

   222     \addtolength\oddsidemargin  {-1in}

   223     \setlength\marginparwidth   {.5\@tempdima}

   224     \addtolength\marginparwidth {-\marginparsep}

   225     \addtolength\marginparwidth {-0.4in}

   226     \addtolength\marginparwidth {-.4in}

   227   \fi

   228   \ifdim \marginparwidth >2in

   229      \setlength\marginparwidth{2in}

   230   \fi

   231   \@settopoint\oddsidemargin

   232   \@settopoint\marginparwidth

   233   \setlength\evensidemargin  {\paperwidth}

   234   \addtolength\evensidemargin{-2in}

   235   \addtolength\evensidemargin{-\textwidth}

   236   \addtolength\evensidemargin{-\oddsidemargin}

   237   \@settopoint\evensidemargin

   238 \fi

   239 \if@compatibility

   240   \setlength\topmargin{27pt}

   241 \else

   242   \setlength\topmargin{\paperheight}

   243   \addtolength\topmargin{-2in}

   244   \addtolength\topmargin{-\headheight}

   245   \addtolength\topmargin{-\headsep}

   246   \addtolength\topmargin{-\textheight}

   247   \addtolength\topmargin{-\footskip}     % this might be wrong!

   248   \addtolength\topmargin{-.5\topmargin}

   249   \@settopoint\topmargin

   250 \fi

   251 \setlength\footnotesep{6.65\p@}

   252 \setlength{\skip\footins}{19\p@ \@plus 4\p@ \@minus 2\p@}

   253 \setlength\floatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}

   254 \setlength\textfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}

   255 \setlength\intextsep   {12\p@ \@plus 2\p@ \@minus 2\p@}

   256 \setlength\dblfloatsep    {12\p@ \@plus 2\p@ \@minus 2\p@}

   257 \setlength\dbltextfloatsep{20\p@ \@plus 2\p@ \@minus 4\p@}

   258 \setlength\@fptop{0\p@ \@plus 1fil}

   259 \setlength\@fpsep{8\p@ \@plus 2fil}

   260 \setlength\@fpbot{0\p@ \@plus 1fil}

   261 \setlength\@dblfptop{0\p@ \@plus 1fil}

   262 \setlength\@dblfpsep{8\p@ \@plus 2fil}

   263 \setlength\@dblfpbot{0\p@ \@plus 1fil}

   264 \setlength\partopsep{2\p@ \@plus 1\p@ \@minus 1\p@}

   265 \def\@listi{\leftmargin\leftmargini

   266             \parsep 1sp%4\p@ \@plus2\p@ \@minus\p@

   267             \topsep 8\p@ \@plus2\p@ \@minus4\p@

   268             \itemsep1sp%4\p@ \@plus2\p@ \@minus\p@

   269 }

   270 \let\@listI\@listi

   271 \@listi

   272 

   273 \def\@listii {\leftmargin\leftmarginii

   274               \labelwidth\leftmarginii

   275               \advance\labelwidth-\labelsep

   276               \topsep    4\p@ \@plus2\p@ \@minus\p@

   277               \parsep    2\p@ \@plus\p@  \@minus\p@

   278               \itemsep   \parsep}

   279 \def\@listiii{\leftmargin\leftmarginiii

   280               \labelwidth\leftmarginiii

   281               \advance\labelwidth-\labelsep

   282               \topsep    2\p@ \@plus\p@\@minus\p@

   283               \parsep    \z@

   284               \partopsep \p@ \@plus\z@ \@minus\p@

   285               \itemsep   \topsep}

   286 \def\@listiv {\leftmargin\leftmarginiv

   287               \labelwidth\leftmarginiv

   288               \advance\labelwidth-\labelsep}

   289 \def\@listv  {\leftmargin\leftmarginv

   290               \labelwidth\leftmarginv

   291               \advance\labelwidth-\labelsep}

   292 \def\@listvi {\leftmargin\leftmarginvi

   293               \labelwidth\leftmarginvi

   294               \advance\labelwidth-\labelsep}

   295 

   296 

   297 %% <<== size10.clo

   298 

   299 \setlength\lineskip{1\p@}

   300 \setlength\normallineskip{1\p@}

   301 \renewcommand\baselinestretch{}

   302 \setlength\parskip{0\p@ \@plus \p@}

   303 \@lowpenalty   51

   304 \@medpenalty  151

   305 \@highpenalty 301

   306 \setcounter{topnumber}{2}

   307 \renewcommand\topfraction{.7}

   308 \setcounter{bottomnumber}{1}

   309 \renewcommand\bottomfraction{.3}

   310 \setcounter{totalnumber}{3}

   311 \renewcommand\textfraction{.2}

   312 \renewcommand\floatpagefraction{.5}

   313 \setcounter{dbltopnumber}{2}

   314 \renewcommand\dbltopfraction{.7}

   315 \renewcommand\dblfloatpagefraction{.5}

   316 

   317 \newif\iftitlepage

   318   \def\ps@headings{%

   319       \let\@evenhead\relax

   320    \def\@oddhead{\hfill\rlap{\hskip14pt\vtop to 0pt{\vskip-1pt\makesidesquares

   321 \vss}}}%

   322 \def\@oddfoot{{\dospecialaccents%

   323 \iftitlepage\global\titlepagefalse%

   324 \footlinefont

   325 \ifodd\c@page

   326 \hbox to \textwidth{\footlinefont \let\it\footlineit

   327 \theurl\hfill\footlinefont PNAS\hskip6pt  \vrule depth 2pt\hskip6pt 

   328 {\foliofont\theissuedate}\hskip6pt\vrule\hskip6pt\thevolume\hskip6pt 

   329 \vrule\hskip6pt\theissuenumber\hskip6pt \vrule\hskip6pt

   330 \the\c@page{\footlineit--}\expandafter\ifx\csname 

   331 lastpage\endcsname\relax ??\else\lastpage\fi}%

   332 \else

   333 \hbox to \textwidth{\footlinefont \let\it\footlineit

   334 {\foliofont\the\c@page{\footlineit--}\expandafter\ifx\csname 

   335 lastpage\endcsname\relax ??\else\lastpage\fi}\hskip6pt

   336 \vrule depth 2pt\hskip6pt PNAS\hskip6pt

   337 \vrule\hskip6pt{\foliofont\theissuedate}\hskip6pt\vrule\hskip6pt

   338 \thevolume\hskip6pt\vrule\hskip6pt\theissuenumber\hfill

   339 \theurl}%

   340 \fi\else%

   341 \ifodd\c@page

   342 \hbox to\textwidth{{\let\it\footlineit\footlinefont\thefootlineauthor}\hfill

   343 \footlinefont PNAS\hskip6pt\vrule depth 2pt\hskip6pt{\foliofont\theissuedate}%

   344 \hskip6pt\vrule depth2pt\hskip6pt\thevolume\hskip6pt\vrule depth 2pt\hskip6pt\theissuenumber\hskip6pt\vrule\hskip6pt{\foliofont\the\c@page}}%

   345 \else%

   346 \hbox to\textwidth{\let\it\footlineit\footlinefont{\foliofont \the\c@page}%

   347 \hskip6pt\vrule depth 2pt height 6pt\hskip6pt\theurl\hfill\thefootlineauthor}\fi\fi}}

   348 \let\@evenfoot\@oddfoot

   349 %

   350       \let\@mkboth\markboth

   351     \def\sectionmark##1{%

   352       \markboth {\MakeUppercase{%

   353         \ifnum \c@secnumdepth >\z@

   354           \thesection\quad

   355         \fi

   356         ##1}}{}}%

   357     \def\subsectionmark##1{%

   358       \markright {%

   359         \ifnum \c@secnumdepth >\@ne

   360           \thesubsection\quad

   361         \fi

   362         ##1}}}

   363 

   364 

   365 \newcount\affilcount

   366 \newcount\saveaffilcount

   367 \newcount\c@fnaffilcount

   368 \def\affil#1#2{\normalsize\affilfont\ \affilcount=#1

   369 \ifnum\affilcount>\saveaffilcount\global\saveaffilcount\affilcount\fi

   370 \expandafter\ifx\csname affil\the\affilcount\endcsname\relax

   371 \global\advance\c@footnote by1

   372 \expandafter\xdef\csname affilsymb\the\affilcount\endcsname%

   373 {\the\c@footnote}{$^{\@fnsymbol\c@footnote}$}% 

   374 \expandafter\gdef\csname affil\the\affilcount\endcsname{#2}\else

   375 $^{\expandafter\@fnsymbol\csname affilsymb\the\affilcount\endcsname}$

   376 \fi\authorfont}

   377 

   378 \newcommand\maketitle{\par

   379 \global\titlepagetrue

   380   \begingroup

   381 \dospecialaccents

   382 \parindent=0pt

   383 \def\and{ and }

   384     \renewcommand\thefootnote{\@fnsymbol\c@footnote}%

   385     \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%

   386     \long\def\@makefntext##1{\parindent0pt\noindent

   387                 \@textsuperscript{\normalfont\@thefnmark}##1}%

   388       \newpage

   389       \global\@topnum\z@   % Prevents figures from going at top of page.

   390       \@maketitle

   391 \@thanks

   392 % according to sample, Dec 2007, copyright no longer wanted here

   393 %    \renewcommand\thefootnote{}%

   394 % \footnotetext{\vrule height 8pt width0pt\copyright \thecopyrightyear\ by The % National Academy of Sciences of the USA}

   395   \endgroup

   396   \setcounter{footnote}{0}%

   397   \global\let\thanks\relax

   398   \global\let\maketitle\relax

   399   \global\let\@maketitle\relax

   400   \global\let\@thanks\@empty

   401   \global\let\@author\@empty

   402   \global\let\@date\@empty

   403   \global\let\@title\@empty

   404   \global\let\@contributor\@empty

   405   \global\let\title\relax

   406   \global\let\date\relax

   407   \global\let\and\relax

   408 }

   409 \def\@maketitle{%

   410 \global\firsttimetrue

   411 %% To get equation numbers in square brackets and bold

   412 \gdef\tagform@##1{\maketag@@@{\bf[\hskip1pt\ignorespaces##1\unskip\@@italiccorr\hskip1pt]}}

   413 \gdef\@eqnnum{{\normalfont\bf \normalcolor [\hskip1pt\theequation\hskip1pt]}}

   414   \newpage

   415 \def\\ {\vskip1pt}

   416   \let \footnote \thanks

   417     {\hsize=\textwidth \raggedright

   418 \noindent\huge\baselineskip= 24pt\titlefont \@title \par}%

   419     \vskip6pt

   420     {\normalsize\authorfont

   421         \@author

   422 \par

   423 {\vskip4pt

   424 \raggedright

   425 \affilcount=0

   426 \footnotesize\affilfont

   427 \loop \ifnum\affilcount< \saveaffilcount 

   428 \expandafter\ifx\csname affil\the\affilcount\endcsname\relax\else

   429 $^{\expandafter\@fnsymbol\csname affilsymb\the\affilcount\endcsname}$%

   430 \csname affil\the\affilcount\endcsname,\fi

   431 \global\advance\affilcount by1

   432 \repeat\ifnum\saveaffilcount=1\else\ and \fi

   433 $^{\expandafter\@fnsymbol\csname affilsymb\the\affilcount\endcsname}$%

   434 \expandafter\csname affil\the\affilcount\endcsname

   435 }}%

   436     \vskip 4pt%

   437     {\affilfont \@contributor}%

   438   \par

   439   \vskip 1.5em}

   440 

   441 \def\contributor#1{\def\@contributor{#1}}

   442 \let\@contributor\relax

   443 

   444 \contributor{Submitted to Proceedings

   445 of the National Academy of Sciences of the United States of America}

   446 

   447 

   448 

   449 \setcounter{secnumdepth}{3}

   450 \newcounter {part}

   451 \newcounter {section}

   452 \newcounter {subsection}[section]

   453 \newcounter {subsubsection}[subsection]

   454 \newcounter {paragraph}[subsubsection]

   455 \newcounter {subparagraph}[paragraph]

   456 \renewcommand \thepart {\@Roman\c@part}

   457 \renewcommand \thesection {\@arabic\c@section}

   458 \renewcommand\thesubsection   {\thesection.\@arabic\c@subsection}

   459 \renewcommand\thesubsubsection{\thesubsection .\@arabic\c@subsubsection}

   460 \renewcommand\theparagraph    {\thesubsubsection.\@arabic\c@paragraph}

   461 \renewcommand\thesubparagraph {\theparagraph.\@arabic\c@subparagraph}

   462 \newcommand\part{%

   463    \if@noskipsec \leavevmode \fi

   464    \par

   465    \addvspace{4ex}%

   466    \@afterindentfalse

   467    \secdef\@part\@spart}

   468 

   469 \def\@part[#1]#2{%

   470     \ifnum \c@secnumdepth >\m@ne

   471       \refstepcounter{part}%

   472       \addcontentsline{toc}{part}{\thepart\hspace{1em}#1}%

   473     \else

   474       \addcontentsline{toc}{part}{#1}%

   475     \fi

   476     {\parindent \z@ \raggedright

   477      \interlinepenalty \@M

   478      \normalfont

   479      \ifnum \c@secnumdepth >\m@ne

   480        \Large\bfseries \partname~\thepart

   481        \par\nobreak

   482      \fi

   483      \huge \bfseries #2%

   484      \markboth{}{}\par}%

   485     \nobreak

   486     \vskip 3ex

   487     \@afterheading}

   488 \def\@spart#1{%

   489     {\parindent \z@ \raggedright

   490      \interlinepenalty \@M

   491      \normalfont

   492      \huge \bfseries #1\par}%

   493      \nobreak

   494      \vskip 3ex

   495      \@afterheading}

   496 

   497 \def\@startsection#1#2#3#4#5#6{%

   498   \if@noskipsec \leavevmode \fi

   499   \par

   500   \@tempskipa #4\relax

   501   \@afterindenttrue

   502   \ifdim \@tempskipa <\z@

   503     \@tempskipa -\@tempskipa \@afterindentfalse

   504   \fi

   505   \if@nobreak

   506     \everypar{}%

   507   \else

   508     \addpenalty\@secpenalty\addvspace\@tempskipa

   509   \fi

   510   \@ifstar

   511     {\@ssect{#3}{#4}{#5}{#6}}%

   512     {\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}

   513 

   514 \def\@sect#1#2#3#4#5#6[#7]#8{%

   515   \ifnum #2>\c@secnumdepth

   516     \let\@svsec\@empty

   517   \else

   518     \refstepcounter{#1}%

   519     \protected@edef\@svsec{\@seccntformat{#1}\relax}%

   520   \fi

   521   \@tempskipa #5\relax

   522   \ifdim \@tempskipa>\z@

   523     \begingroup

   524       #6{%

   525         \@hangfrom{\hskip #3\relax\@svsec

   526 }%

   527           \interlinepenalty \@M #8\@@par}%

   528     \endgroup

   529     \csname #1mark\endcsname{#7}%

   530     \addcontentsline{toc}{#1}{%

   531       \ifnum #2>\c@secnumdepth \else

   532         \protect\numberline{\csname the#1\endcsname}%

   533       \fi

   534       #7}%

   535   \else

   536     \def\@svsechd{%

   537       #6{\hskip #3\relax

   538       \@svsec #8\ifnum#2=2.\fi}% <<==

   539       \csname #1mark\endcsname{#7}%

   540       \addcontentsline{toc}{#1}{%

   541         \ifnum #2>\c@secnumdepth \else

   542           \protect\numberline{\csname the#1\endcsname}%

   543         \fi

   544         #7}}%

   545   \fi

   546   \@xsect{#5}}

   547 

   548 \newcommand\section{\@startsection {section}{1}{\z@}%

   549                                    {-10pt \@plus -1ex \@minus -.2ex}%

   550                                    {.5ex }%

   551                                    {\normalfont\Large\bfseries\sectionfont}}

   552 \newcommand\subsection{\@startsection{subsection}{2}{\z@}%

   553                                      {10pt\@plus 1ex \@minus .2ex}%

   554                                      {-0.5ex \@plus .2ex}%

   555                                      {\normalfont\large\bfseries\subsectionfont}}

   556 \newcommand\subsubsection{\@startsection{subsubsection}{3}{\z@}%

   557                                      {-3.25ex\@plus -1ex \@minus -.2ex}%

   558                                      {1.5ex \@plus .2ex}%

   559                                      {\normalfont\normalsize\bfseries}}

   560 \newcommand\paragraph{\@startsection{paragraph}{4}{\z@}%

   561                                     {3.25ex \@plus1ex \@minus.2ex}%

   562                                     {-1em}%

   563                                     {\normalfont\normalsize\bfseries}}

   564 \newcommand\subparagraph{\@startsection{subparagraph}{5}{\parindent}%

   565                                        {3.25ex \@plus1ex \@minus .2ex}%

   566                                        {-1em}%

   567                                       {\normalfont\normalsize\bfseries}}

   568 

   569 \setlength\leftmargini {12pt}

   570 \leftmargin  \leftmargini

   571 \setlength\leftmarginii  {12pt}

   572 \setlength\leftmarginiii {12pt}

   573 \setlength\leftmarginiv  {12pt}

   574 

   575 \if@twocolumn

   576   \setlength\leftmarginv  {.5em}

   577   \setlength\leftmarginvi {.5em}

   578 \else

   579   \setlength\leftmarginv  {1em}

   580   \setlength\leftmarginvi {1em}

   581 \fi

   582 \setlength  \labelsep  {.5em}

   583 \setlength  \labelwidth{\leftmargini}

   584 \addtolength\labelwidth{-\labelsep}

   585 \@beginparpenalty -\@lowpenalty

   586 \@endparpenalty   -\@lowpenalty

   587 \@itempenalty     -\@lowpenalty

   588 \renewcommand\theenumi{\@arabic\c@enumi}

   589 \renewcommand\theenumii{\@alph\c@enumii}

   590 \renewcommand\theenumiii{\@roman\c@enumiii}

   591 \renewcommand\theenumiv{\@Alph\c@enumiv}

   592 \newcommand\labelenumi{\theenumi.}

   593 \newcommand\labelenumii{(\theenumii)}

   594 \newcommand\labelenumiii{\theenumiii.}

   595 \newcommand\labelenumiv{\theenumiv.}

   596 \renewcommand\p@enumii{\theenumi}

   597 \renewcommand\p@enumiii{\theenumi(\theenumii)}

   598 \renewcommand\p@enumiv{\p@enumiii\theenumiii}

   599 \newcommand\labelitemi{\raise1.5pt\llap{\small\textbullet\hskip2pt}}

   600 \newcommand\labelitemii{\normalfont\bfseries \textendash}

   601 \newcommand\labelitemiii{\textasteriskcentered}

   602 \newcommand\labelitemiv{\textperiodcentered}

   603 \newenvironment{description}

   604                {\list{}{\labelwidth\z@ \itemindent-\leftmargin

   605                         \let\makelabel\descriptionlabel}}

   606                {\endlist}

   607 \newcommand*\descriptionlabel[1]{\hspace\labelsep

   608                                 \normalfont\bfseries #1}

   609 

   610 \def\abstract{\bgroup

   611 \parindent=0pt

   612 \hsize=\columnwidth

   613 \font\it\helveticaboldoblique at 8pt

   614 \font\bf\helveticabold at 8pt

   615 \def\textit##1{{\it ##1}}

   616 \def\textbf##1{{\bf ##1}}

   617 \small

   618 \abstractfont\dospecialaccents}

   619 

   620 \def\endabstract{\vskip11pt

   621 \egroup}

   622 

   623 

   624 

   625 \newenvironment{verse}

   626                {\let\\\@centercr

   627                 \list{}{\itemsep      \z@

   628                         \itemindent   -1.5em%

   629                         \listparindent\itemindent

   630                         \rightmargin  \leftmargin

   631                         \advance\leftmargin 1.5em}%

   632                 \item\relax}

   633                {\endlist}

   634 \newenvironment{quotation}

   635                {\list{}{\listparindent 1.5em%

   636                         \itemindent    \listparindent

   637                         \rightmargin   \leftmargin

   638                         \parsep        \z@ \@plus\p@}%

   639                 \item\relax}

   640                {\endlist}

   641 \newenvironment{quote}

   642                {\list{}{\rightmargin\leftmargin}%

   643                 \item\relax}

   644                {\endlist}

   645 \if@compatibility

   646 \newenvironment{titlepage}

   647     {%

   648       \if@twocolumn

   649         \@restonecoltrue\onecolumn

   650       \else

   651         \@restonecolfalse\newpage

   652       \fi

   653       \setcounter{page}\z@

   654     }%

   655     {\if@restonecol\twocolumn \else \newpage \fi

   656     }

   657 \else

   658 \newenvironment{titlepage}

   659     {%

   660       \if@twocolumn

   661         \@restonecoltrue\onecolumn

   662       \else

   663         \@restonecolfalse\newpage

   664       \fi

   665       \setcounter{page}\@ne

   666     }%

   667     {\if@restonecol\twocolumn \else \newpage \fi

   668      \if@twoside\else

   669         \setcounter{page}\@ne

   670      \fi

   671     }

   672 \fi

   673 \newcommand\appendix{\par

   674   \setcounter{section}{0}%

   675   \setcounter{subsection}{0}%

   676   \gdef\thesection{\@Alph\c@section}}

   677 \setlength\arraycolsep{5\p@}

   678 \setlength\tabcolsep{6\p@}

   679 \setlength\arrayrulewidth{.4\p@}

   680 \setlength\doublerulesep{2\p@}

   681 \setlength\tabbingsep{\labelsep}

   682 \skip\@mpfootins = \skip\footins

   683 \setlength\fboxsep{3\p@}

   684 \setlength\fboxrule{.4\p@}

   685 \renewcommand \theequation {\@arabic\c@equation}

   686 \newcounter{figure}

   687 \renewcommand \thefigure {\@arabic\c@figure}

   688 \def\fps@figure{tbp}

   689 \def\ftype@figure{1}

   690 \def\ext@figure{lof}

   691 \def\fnum@figure{\figurename~\thefigure}

   692 \newenvironment{figure}

   693                {\@float{figure}}

   694                {\end@float}

   695 \newenvironment{figure*}

   696                {\@dblfloat{figure}}

   697                {\end@dblfloat}

   698 \newcounter{table}

   699 \renewcommand\thetable{\@arabic\c@table}

   700 \def\fps@table{tbp}

   701 \def\ftype@table{2}

   702 \def\ext@table{lot}

   703 \def\fnum@table{\tablename~\thetable}

   704 \newenvironment{table}

   705                {\@float{table}}

   706                {\end@float}

   707 \newenvironment{table*}

   708                {\@dblfloat{table}}

   709                {\end@dblfloat}

   710 

   711 

   712 \newenvironment{xtable}

   713                {\@dblfloat{table}}

   714                {\end@dblfloat}

   715 \newenvironment{xfigure}

   716                {\@dblfloat{figure}}

   717                {\end@dblfloat}

   718 

   719 \newlength\abovecaptionskip

   720 \newlength\belowcaptionskip

   721 \setlength\abovecaptionskip{2\p@}

   722 \setlength\belowcaptionskip{4\p@}

   723 

   724 \long\def\@makecaption#1#2{%

   725 \ifx\@captype\xtable

   726 \let\currtabcaption\relax

   727 \gdef\currtabcaption{

   728 \tabnumfont\relax #1. \tabtextfont\relax#2\par

   729 \vskip\belowcaptionskip

   730 }

   731 \else

   732  \vskip\abovecaptionskip

   733   \sbox\@tempboxa{\fignumfont#1.\figtextfont\hskip.5em\relax #2}%

   734   \ifdim \wd\@tempboxa >\hsize

   735 \fignumfont\relax #1.\figtextfont\hskip.5em\relax#2\par

   736   \else

   737     \global \@minipagefalse

   738     \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%

   739   \fi

   740 \fi

   741 }

   742 \DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}

   743 \DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}

   744 \DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}

   745 \DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}

   746 \DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}

   747 \DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}

   748 \DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}

   749 \DeclareRobustCommand*\cal{\@fontswitch\relax\mathcal}

   750 \DeclareRobustCommand*\mit{\@fontswitch\relax\mathnormal}

   751 \newcommand\@pnumwidth{1.55em}

   752 \newcommand\@tocrmarg{2.55em}

   753 \newcommand\@dotsep{4.5}

   754 \setcounter{tocdepth}{3}

   755 \newcommand\tableofcontents{%

   756     \section*{\contentsname

   757         \@mkboth{%

   758            \MakeUppercase\contentsname}{\MakeUppercase\contentsname}}%

   759     \@starttoc{toc}%

   760     }

   761 \newcommand*\l@part[2]{%

   762   \ifnum \c@tocdepth >-2\relax

   763     \addpenalty\@secpenalty

   764     \addvspace{2.25em \@plus\p@}%

   765     \begingroup

   766       \parindent \z@ \rightskip \@pnumwidth

   767       \parfillskip -\@pnumwidth

   768       {\leavevmode

   769        \large \bfseries #1\hfil \hb@xt@\@pnumwidth{\hss #2}}\par

   770        \nobreak

   771        \if@compatibility

   772          \global\@nobreaktrue

   773          \everypar{\global\@nobreakfalse\everypar{}}%

   774       \fi

   775     \endgroup

   776   \fi}

   777 \newcommand*\l@section[2]{%

   778   \ifnum \c@tocdepth >\z@

   779     \addpenalty\@secpenalty

   780     \addvspace{1.0em \@plus\p@}%

   781     \setlength\@tempdima{1.5em}%

   782     \begingroup

   783       \parindent \z@ \rightskip \@pnumwidth

   784       \parfillskip -\@pnumwidth

   785       \leavevmode \bfseries

   786       \advance\leftskip\@tempdima

   787       \hskip -\leftskip

   788       #1\nobreak\hfil \nobreak\hb@xt@\@pnumwidth{\hss #2}\par

   789     \endgroup

   790   \fi}

   791 \newcommand*\l@subsection{\@dottedtocline{2}{1.5em}{2.3em}}

   792 \newcommand*\l@subsubsection{\@dottedtocline{3}{3.8em}{3.2em}}

   793 \newcommand*\l@paragraph{\@dottedtocline{4}{7.0em}{4.1em}}

   794 \newcommand*\l@subparagraph{\@dottedtocline{5}{10em}{5em}}

   795 \newcommand\listoffigures{%

   796     \section*{\listfigurename

   797       \@mkboth{\MakeUppercase\listfigurename}%

   798               {\MakeUppercase\listfigurename}}%

   799     \@starttoc{lof}%

   800     }

   801 \newcommand*\l@figure{\@dottedtocline{1}{1.5em}{2.3em}}

   802 \newcommand\listoftables{%

   803     \section*{\listtablename

   804       \@mkboth{%

   805           \MakeUppercase\listtablename}{\MakeUppercase\listtablename}}%

   806     \@starttoc{lot}%

   807     }

   808 \let\l@table\l@figure

   809 \newdimen\bibindent

   810 \setlength\bibindent{1.5em}

   811 

   812 \newskip\bibskip

   813 \bibskip=0pt plus 3pt

   814 \newenvironment{thebibliography}[1]

   815      {\endgroup\endtwocolumns\vskip24pt\twocolumns\begingroup

   816 \def\@currenvir{thebibliography}

   817 \let\savebibitem\bibitem

   818 \def\bibitem{\vskip\bibskip\savebibitem}

   819 \tiny\baselineskip=8pt\bibfont

   820 \let\it\bibitfont

   821 \let\bf\bibbffont

   822 \let\em\bibitfont

   823 \let\sc\bibfont

   824 \def\textit##1{{\bibitfont ##1}}

   825 \def\textbf##1{{\bibbffont ##1}}

   826       \list{\@biblabel{\@arabic\c@enumiv}}%

   827            {\settowidth\labelwidth{\@biblabel{#1}}%

   828             \leftmargin\labelwidth

   829             \advance\leftmargin\labelsep

   830             \@openbib@code

   831             \usecounter{enumiv}%

   832             \let\p@enumiv\@empty

   833             \renewcommand\theenumiv{\@arabic\c@enumiv}}%

   834       \sloppy

   835       \clubpenalty4000

   836       \@clubpenalty \clubpenalty

   837       \widowpenalty4000%

   838       \sfcode`\.\@m}

   839      {\def\@noitemerr

   840        {\@latex@warning{Empty `thebibliography' environment}}%

   841       \endlist

   842 }

   843 \newcommand\newblock{\hskip .11em\@plus.33em\@minus.07em}

   844 \let\@openbib@code\@empty

   845 

   846 \renewcommand\footnoterule{%

   847   \kern-3\p@

   848   \hrule\@width6pc%.4\columnwidth

   849   \kern2.6\p@}

   850 \newcommand\@makefntext[1]{%

   851     \parindent 1em%

   852     \noindent

   853     \hb@xt@1.8em{\hss\@makefnmark}#1}

   854 \newcommand\contentsname{Contents}

   855 \newcommand\listfigurename{List of Figures}

   856 \newcommand\listtablename{List of Tables}

   857 \newcommand\refname{References}

   858 \newcommand\indexname{Index}

   859 \newcommand\figurename{Fig.}

   860 \newcommand\tablename{Table}

   861 \newcommand\partname{Part}

   862 \newcommand\appendixname{Appendix}

   863 \newcommand\abstractname{Abstract}

   864 \def\today{\ifcase\month\or

   865   January\or February\or March\or April\or May\or June\or

   866   July\or August\or September\or October\or November\or December\fi

   867   \space\number\day, \number\year}

   868 \setlength\columnsep{10\p@}

   869 \setlength\columnseprule{0\p@}

   870 \pagenumbering{arabic}

   871 \if@twoside

   872 \else

   873   \raggedbottom

   874 \fi

   875 \if@twocolumn

   876   \twocolumn

   877   \sloppy

   878   \flushbottom

   879 \else

   880   \onecolumn

   881 \fi

   882 

   883 %%%%%%%%%%%%%%%%%

   884 % Additions to article.cls for PNASONE ==>>

   885 %%%%%%%%%%%%%%%%%

   886 \hoffset-.25in

   887 \pagestyle{headings}

   888 \textwidth= 42.5pc

   889 \textheight= 56.5pc

   890 

   891 \def\xrelax{\relax}

   892 

   893 

   894 %%%%%%%%%%

   895 %% Footnotes, endnotes

   896 

   897 \newcount\footnum

   898 \newcount\savefootnum

   899 

   900 \def\notes{

   901 {\ifnum\footnum=0\else

   902 \savefootnum=\footnum

   903 \footnum=0

   904 \noindent\loop\ifnum\savefootnum>\footnum%

   905 \global\advance\footnum by1\relax%

   906 \csname foot\the\footnum\endcsname\relax%

   907 \expandafter\gdef\csname foot\the\footnum\endcsname{\relax}\relax%

   908 \repeat\global\footnum=0\relax\fi}}

   909 

   910 

   911 \long\def\endnotes#1{\global\advance\footnum by 1\relax$^{\the\footnum}$%

   912 \long\expandafter\gdef\csname foot\the\footnum\endcsname{%

   913 \vbox{\footnotesize\everypar={\hskip-10pt\everypar={}}

   914 \leftskip=10pt\relax

   915 \noindent\hbox to10pt{\the\footnum.\hfill}{\def\@currentlabel{\the\footnum}%

   916 #1\strut\vskip1sp}}\vskip1pt}}

   917 

   918 \def\endnotetext#1{\global\advance\footnum by 1\relax

   919 \long\expandafter\gdef\csname foot\the\footnum\endcsname{%

   920 \vtop{\footnotesize%

   921 \leftskip=12pt\relax\parindent=-12pt

   922 \indent\hbox to12pt{\the\footnum.\hfill}{#1\strut\vskip1sp}}\vskip1pt}}

   923 

   924 %\let\footnote\endnotes

   925 

   926      \setlength\oddsidemargin   {0\p@}

   927      \setlength\evensidemargin   {0\p@}

   928 

   929 

   930 \def\dropcap#1{\setbox1=\hbox{\dropcapfont\uppercase{#1}\hskip1pt}

   931 \hangindent=\wd1

   932 \hangafter-2

   933 \noindent\llap{\vbox to0pt{\vskip-7pt\copy1\vss}}}

   934 

   935 %%% Theorem environment %%%%%%%%%

   936 

   937 %% added \theoremfont for theorem name and number

   938 

   939 \def\@begintheorem#1#2{\trivlist

   940    \item[\hskip \labelsep{\theoremfont #1\ #2.}]\itshape}

   941 \def\@opargbegintheorem#1#2#3{\trivlist

   942       \item[\hskip \labelsep{\theoremfont #1\ #2.\ (#3)}]\itshape}

   943 \def\@endtheorem{\endtrivlist}

   944 

   945 %%%%%%

   946 %%Macros for Footline on titlepage

   947 

   948 \def\url#1{\def\theurl{#1}}

   949 \def\issuedate#1{\def\theissuedate{#1}}

   950 \def\copyrightyear#1{\def\thecopyrightyear{#1}}

   951 \def\volume#1{\def\thevolume{#1}}

   952 \def\issuenumber#1{\def\theissuenumber{#1}}

   953 \def\footlineauthor#1{\def\thefootlineauthor{\let\it\footlineit#1}}

   954 

   955 \ps@headings

   956 

   957 %% References

   958 

   959 \def\@biblabel#1{#1.}

   960 

   961 %%% code to get text in tables to extend all the way to left and right

   962 %%% of table

   963 

   964 \def\xtable{table}

   965 \def\@array[#1]#2{\tabletextfont

   966 \setbox\@arstrutbox=\hbox{\vrule

   967      height\arraystretch \ht\strutbox

   968      depth\arraystretch \dp\strutbox

   969      width\z@}\@mkpream{#2}\edef\@preamble{\halign \noexpand\@halignto

   970 \bgroup%

   971 \tabskip\z@\@arstrut\@preamble

   972 \ifx\@captype\xtable\hskip-\tabcolsep\fi%% <==== Changed

   973 \tabskip\z@ \cr}%

   974 \let\@startpbox\@@startpbox \let\@endpbox\@@endpbox%

   975   \if #1t\vtop \else \if#1b\vbox \else \vcenter \fi\fi%

   976   \bgroup\let\par\relax%

   977   \let\@sharp##\let\protect\relax \lineskip\z@\baselineskip\z@\@preamble}

   978 

   979 %% new

   980 \def\new@tabacol{\edef\@preamble{\@preamble\hskip0pt}}

   981 

   982 \def\@tabclassz{\ifcase \@lastchclass\@acolampacol%

   983 \or \@ampacol \or

   984    \or \or \@addamp \or \@acolampacol\or \@firstampfalse

   985 \ifx\@captype\xtable \new@tabacol\else\@tabacol \fi%

   986 \fi%

   987 \edef\@preamble{\@preamble%

   988   \ifcase \@chnum%

   989      \hfil\ignorespaces\@sharp\unskip\hfil%

   990      \or \ignorespaces\@sharp\unskip\hfil%

   991      \or \hfil\hskip\z@ \ignorespaces\@sharp\unskip\fi}}

   992 

   993 \setcounter{secnumdepth}{0}

   994 

   995     \long\def\@makefntext#1{\parindent0pt\noindent

   996                 \@textsuperscript{\normalfont\@thefnmark}#1}%

   997 

   998 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

   999 %%                                                                      %%

  1000 %% LaTeX Style for Multiple Columns with Floating Insertions            %%

  1001 %%                                                                      %%

  1002 %% Copyright 2004, Amy Hendrickson, TeXnology Inc.                      %%

  1003 %% All rights reserved                                                  %%

  1004 %%                                                                      %%

  1005 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

  1006 

  1007 %%%%%%%% 

  1008 %%% Double column output routines, 

  1009 %%% with single and double column insertions,

  1010 %%% to be positioned at page or column top, page or column bottom, page 

  1011 %%% or column center, or full page floating insertion.

  1012 %%% This code was originally based on Frank Mittlebach's multicol.sty.

  1013 %%% The concept of how to balance columns is due to Donald Knuth. The

  1014 %%% way to integrate the changed output routine into the standard LaTeX 

  1015 %%% output routine is due to Frank. 

  1016 %%% The method of making the single and double column insertions and the

  1017 %%% changes in the output routines to accomodate these features are mine.

  1018 %%% A.H., August 2004

  1019 %%

  1020 

  1021 \newskip\abovefigcaptionskip

  1022 \newskip\abovetabcaptionskip

  1023 \newskip\abovetableskip

  1024 \newif\ifcentermultiplelines

  1025 \newif\ifcentersingleline

  1026 \newif\ifcentersingletabline

  1027 \newif\iflineabovetabcaption

  1028 \newif\iflinebelowtabcaption

  1029 \newdimen\belowtabcaptionskip

  1030 

  1031 %% Parameters you can set:

  1032 \columnsep=16pt

  1033 \newdimen\saveparskip

  1034 \saveparskip=\parskip

  1035 

  1036 %%

  1037 \newdimen\captionskip %% space between caption and figure or table

  1038 \captionskip=0pt

  1039 %%%

  1040 

  1041 \newdimen\PushOneColTopFig

  1042 \newdimen\PushOneColBotFig

  1043 

  1044 \PushOneColTopFig=5.5pt %% push down from top of text page

  1045 \PushOneColBotFig=-4.5pt % 

  1046 

  1047 %%

  1048 \newdimen\PushOneColTopTab

  1049 \newdimen\PushOneColBotTab

  1050 

  1051 \PushOneColTopTab=2.5pt  %% push down from top of text page

  1052 \PushOneColBotTab=0pt %% push up from bottom of text page

  1053 

  1054 %%

  1055 \newdimen\PushTwoColTopFig

  1056 \newdimen\PushTwoColBotFig

  1057 

  1058 \PushTwoColTopFig=2.5pt %% push down from top of text page

  1059 \PushTwoColBotFig=1.5pt   %% push up from bottom of text page

  1060 

  1061 %%

  1062 \newdimen\PushTwoColTopTab

  1063 \newdimen\PushTwoColBotTab

  1064 

  1065 \PushTwoColTopTab=1.5pt %% push down from top of text page

  1066 \PushTwoColBotTab=1.5pt %% push up from bottom of text page

  1067 

  1068 %%

  1069 

  1070 \newskip\intextfloatskip

  1071 \intextfloatskip=20pt %%  Space between figure or table and text. 

  1072          %% (Need to subtract 4pt to get what you want)

  1073 

  1074 %% Normal and Appendix Figure and Table Numbers

  1075 

  1076 \def\appthefigure{\Alph{section}\the\c@appfigure\theletter}

  1077 \def\appthetable{\Alph{section}\the\c@apptable\theletter}

  1078 \def\apptheplate{\Alph{section}\the\c@appplate\theletter}

  1079 

  1080 \newcount\c@appfigure

  1081 \newcount\c@apptable

  1082 \newcount\c@appplate

  1083 

  1084 %% <=== end of parameters you can set

  1085 

  1086 %% do one column at a time so that we can get single col

  1087 %% floats for first col.

  1088 

  1089 %%% New version of \@makecol that includes dbltopins and dblbotins,

  1090 %%% insertions that span both columns at the top and bottom of text page.

  1091 

  1092 %%% 

  1093 

  1094 \def\new@makecol{\setbox\@outputbox

  1095      \vbox{\boxmaxdepth \maxdepth

  1096 \ifdim\ht\dbltopins<1pt\else\unvbox\dbltopins\fi

  1097      \unvbox\@cclv

  1098 \ifdim\ht\dblbotins<1pt\else\unvbox\dblbotins\fi%

  1099 \ifvoid\footins\else\vskip\skip\footins\footnoterule\unvbox\footins\fi\vss}

  1100 %\global\savefigandtabnumber\figandtabnumber

  1101 %\global\advance\savefigandtabnumber by 1 %% Because loop stops one short 

  1102                                          %% of the total number of figs

  1103 \global\savedblfigandtabnumber\dblfigandtabnumber

  1104    \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats

  1105    \setbox\@outputbox\vbox to\@colht{\boxmaxdepth\maxdepth

  1106    \@texttop\dimen128=\dp\@outputbox\unvbox\@outputbox

  1107    \vskip-\dimen128\@textbottom}%

  1108    \global\maxdepth\@maxdepth}

  1109 

  1110 %% 

  1111 \let\@makecol\new@makecol %%

  1112 

  1113 %% Default Latex output routine, to return to after balance columns

  1114 %% This should make it possible to capture the output routine of 

  1115 %% any version of 2e as well as 2.09. ==>>

  1116 

  1117 \edef\curroutput{\the\output}

  1118 \let\latexoutput\curroutput

  1119 

  1120 %% table* and figure*  outside two columns keep default definitions.

  1121 

  1122 \newif\ifnonewpage

  1123 \def\nonewpage{\global\nonewpagetrue}

  1124 

  1125 %% Begin twocolumns ==>>

  1126 \newdimen\checkforspace

  1127 \def\twocolumns{\par \penalty\z@

  1128 \checkforspace=\pagegoal

  1129 \advance\checkforspace-\pagetotal

  1130 \advance\checkforspace-\ht\partialpage

  1131 \advance\checkforspace-\dp\partialpage

  1132 \advance\checkforspace by -2\ht\dbltopins

  1133 \advance\checkforspace by -2\dp\dbltopins

  1134 \advance\checkforspace by -2\ht\dblbotins

  1135 \advance\checkforspace by -2\dp\dblbotins