% Minor revision on 6 Dec 97: introduced a \vfill before the
% footnotetext which contains  the sender's address so that it
% does not float up the page when a pagebreak splits the first
% page too soon. 
%
% -- pjr

\typeout{Document Style `letterunicamp' by Pedro J. de Rezende <6 Dec 97>.}

\def\@ptsize{0}                     % Default is 10pt.
\@namedef{ds@10pt}{\relax}
\@namedef{ds@11pt}{\def\@ptsize{1}} % 11pt option.
\@namedef{ds@12pt}{\def\@ptsize{2}} % 12pt option.

\@twosidefalse

\def\ds@draft{\overfullrule 5pt}  % Causes overfull hboxes to be marked.

\def\ds@personal{\def\theheadbox{\personalletter}
   \def\datefont{\it}
   \def\standardreturnaddress{\frompersonalname \\ \frompersonaladdress}}

\def\ds@formal{\def\theheadbox{\formalletter}
   \def\datefont{\rm}
   \def\standardreturnaddress{\fromname\\\fromdepartment \\ \fromuniversity \\
						\fromaddress}}
\ds@formal

\def\ds@portugues{
\def\tol@bel{PARA}
\def\froml@bel{DE}
\def\datel@bel{DATA}
\def\subjectl@bel{ASSUNTO}
\def\he@dingTo{}
\def\he@dingPage{P\'agina }
\def\today{\number\day\space de \ifcase\month\or
  janeiro\or fevereiro\or {mar\c co}\or abril\or maio\or junho\or
  julho\or agosto\or setembro\or outubro\or novembro\or dezembro\fi
  \space de \number\year}
}

\let\portugues=\ds@portugues

\def\ds@english{
\def\tol@bel{TO}
\def\froml@bel{FROM}
\def\datel@bel{DATE}
\def\subjectl@bel{SUBJECT}
\def\he@dingTo{To }
\def\he@dingPage{Page }
\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}
}

\let\english=\ds@english

\ds@english

\def\ds@dcc{\input{abaco.tex}\def\dccl@go{\hfill\hbox{\ABACO{1}{9}{6}{9}{0.75}}}}
\def\dccl@go{}

\@options

\lineskip 1pt            % \lineskip is 1pt for all font sizes.
\normallineskip 1pt
\def\baselinestretch{1}

\ifcase \@ptsize\relax   % 10pt option

\def\@normalsize{\@setsize\normalsize{12pt}\xpt\@xpt  
\abovedisplayskip 10pt plus2pt minus5pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6pt plus3pt minus3pt}

\def\small{\@setsize\small{11pt}\ixpt\@ixpt
\abovedisplayskip 8.5pt plus 3pt minus 4pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus2pt%
\belowdisplayshortskip 4pt plus2pt minus 2pt}

\def\footnotesize{\@setsize\footnotesize{9.5pt}\viiipt\@viiipt
\abovedisplayskip 6pt plus 2pt minus 4pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt%
\belowdisplayshortskip 3pt plus 1pt minus 2pt}

\def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}

\or  % 11pt option

\def\@normalsize{\@setsize\normalsize{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6.5pt plus3.5pt minus3pt}

\def\small{\@setsize\small{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6pt plus3pt minus3pt}

\def\footnotesize{\@setsize\footnotesize{11pt}\ixpt\@ixpt
\abovedisplayskip 8pt plus 2pt minus 4pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt%
\belowdisplayshortskip 4pt plus 2pt minus 2pt}

\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{14pt}\xiipt\@xiipt}
\def\Large{\@setsize\Large{18pt}\xivpt\@xivpt}
\def\LARGE{\@setsize\LARGE{22pt}\xviipt\@xviipt}
\def\huge{\@setsize\huge{25pt}\xxpt\@xxpt}
\def\Huge{\@setsize\Huge{30pt}\xxvpt\@xxvpt}

\or  % 12pt option

\def\@normalsize{\@setsize\normalsize{15pt}\xiipt\@xiipt
\abovedisplayskip 12pt plus3pt minus7pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6.5pt plus3.5pt minus3pt}

\def\small{\@setsize\small{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6.5pt plus3.5pt minus3pt}

\def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt%
\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip  \z@ plus3pt%   
\belowdisplayshortskip  6pt plus3pt minus3pt}

\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{18pt}\xivpt\@xivpt}
\def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
\def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
\def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
\let\Huge=\huge
\fi

\normalsize  % Choose the normalsize font.

\oddsidemargin   25pt      % Left margin on odd-numbered pages.
\evensidemargin  25pt      % Left margin on even-numbered pages.
\marginparwidth  65pt      % Width of marginal notes.
\marginparsep     8pt      % Horizontal space between outer margin and 
                           % marginal note
\marginparpush 5pt         % Minimum vertical space between marginal notes.

                         % Top of page:
\topmargin -23pt         %    Nominal distance from top of page to top of
                         %    box containing running head.
\headheight 12pt         %    Height of box containing running head.
\headsep 25pt            %    Space between running head and text.
                         % Bottom of page:
\footheight 12pt         %    Height of box containing running foot.
\footskip 25pt           %    Distance from baseline of box containing foot 
                         %    to baseline of last line of text.

%\textheight 648pt        % Height of text (including footnotes and figures, 
\textheight 684pt        % Height of text (including footnotes and figures, 
                         % excluding running head and foot).
\textwidth 434pt         % Width of text line.
                         % For two-column mode: 
\columnsep 10pt          %    Space between columns 
\columnseprule 0pt       %    Width of rule between columns.

\raggedbottom             % 'ragged bottom' (all pages set to natural
                          % height, with no stretch or shrinkage) 

\footnotesep 12pt    % Height of strut placed at the beginning of every
                     % footnote.
\skip\footins 10pt plus 2pt minus 4pt  % Space between last line of text and 
                                       % top of first footnote.

\floatsep 12pt plus 2pt minus 2pt
\textfloatsep  20pt plus 2pt minus 4pt
\intextsep 12pt plus 2pt minus 2pt
\dblfloatsep 12pt plus 2pt minus 2pt
\dbltextfloatsep 20pt plus 2pt minus 4pt
\@maxsep 20pt
\@dblmaxsep 20pt
\@fptop 0pt plus 1fil
\@fpsep 8pt plus 2fil
\@fpbot 0pt plus 1fil
\@dblfptop 0pt plus 1fil
\@dblfpsep 8pt plus 2fil
\@dblfpbot 0pt plus 1fil

\newdimen\subjectwidth

\def\subject#1{\thispagestyle{empty}
    {\formalletter\vskip30pt}
    {\noindent\parbox[t]{\linewidth}{
	\subjectwidth = \linewidth
	\advance \subjectwidth by -1in
        \makebox[1in][l]{\tol@bel:}\ifx\toname\@empty\else
		\parbox[t]{\subjectwidth}{\toname}\fi\\[\belowdisplayshortskip]
        \makebox[1in][l]{\froml@bel:}%
		\parbox[t]{\subjectwidth}{\fromname}\\[\belowdisplayshortskip]
        \makebox[1in][l]{\datel@bel:}\thedate\\[\belowdisplayshortskip]
        \makebox[1in][l]{\subjectl@bel:}\parbox[t]{\subjectwidth}{#1}\par}}
  \vspace{2\parskip}\nobreak\noindent}

\newdimen\longindentation
\longindentation=.5\textwidth
\newdimen\indentedwidth
\indentedwidth=\textwidth
\advance\indentedwidth -\longindentation

\def\use@ddress{\thispagestyle{empty}
    {\theheadbox\noindent\vskip15pt plus 10pt minus 10pt
      \noindent\hspace*{\longindentation}{\datefont\thedate}\par}}

\def\opening#1{\ifx\@empty\fromaddress
  \ifx\@empty\frompersonaladdress
  \thispagestyle{firstpage} 
    {\raggedleft\thedate\par}
  \else  % home address
  \use@ddress
  \fi
  \else
  \use@ddress
  \fi
  \vspace{2\parskip}
  {\raggedright \ifx\toname\@empty\else\toname\\ \ifx\toaddress\@empty\else
\toaddress\fi\fi \par}\vspace{2\parskip}
  \noindent#1\par\nobreak}

\long\def\closing#1{\par\nobreak\vspace{\parskip}
  \stopbreaks
  \noindent
  \hspace*{\longindentation}\parbox{\indentedwidth}{\raggedright
       \ignorespaces #1\\[6\medskipamount]\ifx\@empty\fromname
       \else \fromsig \fi\strut}\par}

\def\ps{\parindent=0pt\par\startbreaks}

\def\cc#1{\par\noindent
\parbox[t]{\textwidth}{\@hangfrom{\rm  cc: }\ignorespaces #1\strut}\par}

\def\encl#1{\par\noindent
\parbox[t]{\textwidth}{\@hangfrom{\rm  encl: }\ignorespaces #1\strut}\par}

\def\stopletter{\ifnum\c@page=1\vskip 0pt plus .1fil\relax\fi}

\def\returnaddress{\protect\parbox[t]{3in}{\protect\standardreturnaddress}}
\newcount\labelcount

\def\startlabels{\labelcount=0 \baselineskip=0pt \lineskip=0pt
\pagestyle{empty}
\let\@texttop=\relax
\topmargin -50pt
\headsep 0pt
\oddsidemargin -35pt
\evensidemargin -35pt
\textheight 10in
\@colht\textheight  \@colroom\textheight \vsize\textheight
\textwidth 550pt
\columnsep 25pt
\xpt
\baselineskip=0pt
\lineskip=0pt
\boxmaxdepth=0pt
\twocolumn\relax}

\def\mlabel#1#2{\setbox0\vbox{\parbox[b]{3.6in}{\strut\ignorespaces #2}}
         \vbox to 2in{\vss \box0 \vss}}

\long\def\memo#1{\newpage
  \c@page\@ne
  \interlinepenalty=200 % smaller than the TeXbook value
  \gdef\toname{#1}}

\def\endmemo{\stopletter\@@par\pagebreak\@@par}

\long\def\letter#1{\newpage
  \c@page\@ne
  \interlinepenalty=200 % smaller than the TeXbook value
  \@processto{#1}}

\def\endletter{\stopletter\@@par\pagebreak\@@par
  \if@filesw 
    \begingroup 
      \def\protect{\string}
      \let\\=\relax
      \def\protect##1{\string##1\space}
      \immediate\write\@auxout{\string\mlabel{\returnaddress}{\ifx\toname\@empty\else\toname\fi
           \\\ifx\toaddress\@empty\else\toaddress\fi}}
    \endgroup 
  \fi}

\long\def\@processto#1{\@xproc #1\\@@@\ifx\toaddress\@empty 
    \else \@yproc #1@@@\fi}
\long\def\@xproc #1\\#2@@@{\gdef\toname{#1}\def\toaddress{#2}}
\long\def\@yproc #1\\#2@@@{\def\toaddress{#2}}

\def\stopbreaks{\interlinepenalty \@M
   \def\par{\@@par\nobreak}\let\\=\@nobreakcr
   \let\vspace\@nobreakvspace}

\def\@nobreakvspace{\@ifstar{\@nobreakvspacex}{\@nobreakvspacex}}

\def\@nobreakvspacex#1{\ifvmode\nobreak\vskip #1\relax\else
               \@bsphack\vadjust{\nobreak\vskip #1}\@esphack\fi}

\def\@nobreakcr{\vadjust{\penalty\@M}\@ifstar{\@xnewline}{\@xnewline}}

\def\startbreaks{\let\\=\@normalcr
   \interlinepenalty 200\def\par{\@@par\penalty 200}}

\def\name#1{\def\fromname{#1}}  	  % Goes on the letterhead.
\def\fromname{}

\def\signature#1{\def\fromsig{#1}}	  % Optional. Default is empty.
\def\fromsig{}

\long\def\address#1{\def\fromaddress{#1}} % Goes on the letterhead. Default is
\def\fromaddress{}			  % empty.

\def\institute#1{\def\frominstitute{#1}}  % Goes on the letterhead. Default is
\def\frominstitute{}		          % empty. 

\def\telephone#1{\def\telephonenum{#1}}   % Goes on the letterhead. Default is
\def\telephonenum{}			  % empty.

\def\fax#1{\def\faxnumber{#1}}
\def\faxnumber{}

\def\telex#1{\def\telexnumber{#1}}
\def\telexnumber{}

\def\university#1{\def\fromuniversity{#1}}	% Goes on the letterhead. Default is empty.
\def\fromuniversity{}

\def\department#1{\def\fromdepartment{#1}}% Goes on the letterhead. Default is
\def\fromdepartment{}			  % empty. 

\def\internet#1{\def\internetaddr{#1}}% Goes on the letterhead. Default: empty.
\def\internetaddr{}

\def\personalname#1{\def\frompersonalname{#1}}
\def\frompersonalname{}

\def\personaladdress#1{\def\frompersonaladdress{\protect{#1}}}
\def\frompersonaladdress{}

\def\date#1{\def\thedate{#1}}	% Optional. Default is today's date.
\def\thedate{\today}

\def\personal{\def\theheadbox{\personalletter}
   \def\datefont{\it}
   \def\standardreturnaddress{\frompersonalname \\ \frompersonaladdress}}

\font\xiv@it=cmti10 at 14.4truept
\def\personalletter{
   \vspace*{-80pt}
   \begin{center}
     {\parbox[t]{5in}{\xiv@it\baselineskip16pt
	\begin{center}
	  \frompersonalname\\
	  \frompersonaladdress
	\end{center}}}
   \end{center}}

\def\formal{ds@formal}

\def\Logotipo{{\hoffset=-1in\oddsidemargin=\hoffset
\textwidth=528pt\linewidth=\textwidth\hsize=\textwidth\columnwidth=\textwidth
\long\def\@makefntext##1{\noindent \hangindent 5pt\hbox to 5pt{\hss}##1}
%\gdef\footnoterule{}
%\input /home/staff/rezende/tex/inputs/unicamplogo.tex 
\special{psfile=/home/staff/rezende/tex/inputs/unicamp-logo.ps voffset=-60 hoffset=-54}%\dccl@go
\vbox{}%
\footnotetext{%
\vfill % This line was introduced on 6 Dec 97 by pjr.
\hspace*{-67pt}
\mbox{\begin{minipage}[t]{\textwidth}%
\font\sfx cmss10 at 10pt
\gdef\footnoterule{}{\sfx
      \vspace{2pt}
      \hrule
      \vspace{2pt}
%\hbox{\vbox{%
\parbox[b]{9cm}{{%
\fromname\\
\fromdepartment\\
\frominstitute\\
\fromuniversity\\
\fromaddress}}%
%
\dccl@go\hfill
%
%\hbox{\vbox{%
\parbox[b]{6.75cm}{{%
\raggedleft
\hfill\internetaddr\\
\hfill\hbox{\telephonenum}\\
\hfill\faxnumber\\
\hfill\telexnumber\\
~}}}%
\vspace{2ex}%
%\fromname\hfill\internetaddr\\
%\fromdepartment\hfill\telephonenum\\
%\frominstitute\hfill\faxnumber\\
%\fromuniversity\hfill\telexnumber\\
%\fromaddress\vspace{2ex}}%
\end{minipage}}
}}}

\def\formalletter{
\parindent=0pt%
\gdef\footnoterule{}
\Logotipo
%\gdef\footnoterule{\kern-1\p@   
%\hrule width .4\columnwidth 
%\kern .6\p@}
}

\def\document{\endgroup
  \@colht\textheight  \@colroom\textheight \vsize\textheight
   \columnwidth\textwidth \@clubpenalty\clubpenalty
   \if@twocolumn \advance\columnwidth -\columnsep 
      \divide\columnwidth\tw@ \hsize\columnwidth \@firstcolumntrue 
   \fi
  \hsize\columnwidth \linewidth\hsize
  \begingroup\@floatplacement\@dblfloatplacement\endgroup
  \if@filesw \immediate\openout\@mainaux=\jobname.aux
   \immediate\write\@mainaux{\string\startlabels\string\@startlabels}\fi
  \def\do##1{\let ##1\@notprerr}
  \@preamblecmds
  \let\do\noexpand  
  \@normalsize\everypar{}}

\def\enddocument{\@checkend{document}\newpage\begingroup  
\if@filesw \immediate\closeout\@mainaux 
\makeatletter\input \jobname.aux\clearpage
\fi\endgroup\deadcycles\z@\@@end}

\def\makelabels{\@fileswtrue}

\def\@startlabels{}

\def\@texttop{}

\def\headingTo{\he@dingTo} \def\headingPage{\he@dingPage}
\def\ps@headings{\def\@oddhead{\ifx\toname\@empty\else\small\sl\headingTo
	\ignorespaces\toname\hfil\fi\thedate \hfil \headingPage
	\thepage}\def\@oddfoot{}}

\def\ps@empty{\def\@oddhead{}\def\@oddfoot{}%
\def\@evenhead{}\def\@evenfoot{}}

\def\ps@firstpage{\def\@oddhead{}\def\@oddfoot{\raisebox
   {-45pt}[0pt]{\hbox to \textwidth
  {\hspace*{100pt}\xpt\fromlocation \hfill \telephonenum}}\hss}%
\def\@evenhead{}\def\@evenfoot{}}

\def\ps@plain{\def\@oddhead{}\def\@oddfoot{\rm\hfil\thepage
     \hfil}\def\@evenhead{}\let\@evenfoot\@oddfoot}

\parskip .7em                      % Extra vertical space between paragraphs.
\parindent 2em                     % Width of paragraph indentation.
\topsep .4em                       % Extra vertical space, in addition to 
                                   % \parskip, added above and below list and
                                   % paragraphing environments.
\partopsep 0pt                     % Extra vertical space, in addition to 
                                   % \parskip and \topsep, added when user
                                   % leaves blank line before environment.
\itemsep .4em                      % Extra vertical space, in addition to
                                   % \parskip, added between list items.

\@lowpenalty   51      % Produced by \nopagebreak[1] or \nolinebreak[1]
\@medpenalty  151      % Produced by \nopagebreak[2] or \nolinebreak[2]
\@highpenalty 301      % Produced by \nopagebreak[3] or \nolinebreak[3]

\@beginparpenalty -\@lowpenalty    % Before a list or paragraph environment.
\@endparpenalty   -\@lowpenalty    % After a list or paragraph environment.
\@itempenalty     -\@lowpenalty    % Between list items.

\leftmargini   2.5em
\leftmarginii  2.2em    % > \labelsep + width of '(m)'
\leftmarginiii 1.87em   % > \labelsep + width of 'vii.'
\leftmarginiv  1.7em    % > \labelsep + width of 'M.'
\leftmarginv   1em
\leftmarginvi  1em

\leftmargin\leftmargini
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\labelsep 5pt
\parsep 0pt
\let\@listi\relax

\def\@listii{\leftmargin\leftmarginii
   \labelwidth\leftmarginii\advance\labelwidth-\labelsep}

\def\@listiii{\leftmargin\leftmarginiii
    \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
    \topsep .2em 
    \itemsep \topsep}

\def\@listiv{\leftmargin\leftmarginiv
     \labelwidth\leftmarginiv\advance\labelwidth-\labelsep}

\def\@listv{\leftmargin\leftmarginv
     \labelwidth\leftmarginv\advance\labelwidth-\labelsep}

\def\@listvi{\leftmargin\leftmarginvi
     \labelwidth\leftmarginvi\advance\labelwidth-\labelsep}

\def\labelenumi{\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 -15pt\listparindent \itemindent 
          \rightmargin\leftmargin\advance\leftmargin 15pt}\item[]}
\let\endverse\endlist

\def\quotation{\list{}{\listparindent 1.5em
    \itemindent\listparindent
    \rightmargin\leftmargin}\item[]}
\let\endquotation=\endlist

\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hfil \it #1}

\def\description{\list{}{\leftmargin\descriptionmargin
       \labelwidth\leftmargin \advance\labelwidth -\labelsep 
       \let\makethelabel\descriptionlabel}}

\let\enddescription\endlist

\newdimen\descriptionmargin
\descriptionmargin=3em

\def\theequation{\arabic{equation}}

\arraycolsep 5pt     % Half the space between columns in an array environment.
\tabcolsep 6pt       % Half the space between columns in a tabular environment.
\arrayrulewidth .4pt % Width of rules in array and tabular environment.
\doublerulesep 2pt   % Space between adjacent rules in array or tabular env.

\tabbingsep \labelsep   % Space used by the \' command.  (See LaTeX manual.)

\skip\@mpfootins = \skip\footins

\fboxsep = 3pt    % Space left between box and text by \fbox and \framebox.
\fboxrule = .4pt  % Width of rules in box made by \fbox and \framebox.

\def\footnoterule{\kern-1\p@   
  \hrule width .4\columnwidth 
  \kern .6\p@}                 % The \hrule has default height of .4pt .

\long\def\@makefntext#1{\noindent % Macro to make the text of a footnote
    \hangindent 5pt\hbox 
    to 5pt{\hss $^{\@thefnmark}$}#1}

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

\smallskipamount=.5\parskip  % These values are used by the letter macros.
\medskipamount=\parskip
\bigskipamount=2\parskip

\ps@headings                 % 'headings' page style
\pagenumbering{arabic}       % Arabic page numbers
\onecolumn                   % Single-column
\@fileswfalse                % Inhibits writing of .AUX file.