% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}[12/16/1998]
\ProvidesPackage{dina4}

\newlength{\aiv@width}
\setlength{\aiv@width}{210mm}
\newlength{\tmp@width}
\setlength{\tmp@width}{\aiv@width}

\if@twocolumn \textwidth175mm \marginparsep2.5mm
\else \ifcase \@ptsize\relax \textwidth145mm \or \textwidth154mm
                   \or \textwidth164mm \fi \marginparsep4mm \fi
\addtolength{\tmp@width}{-\textwidth}

\ifcase \@ptsize\relax \textheight 59\baselineskip
             \or \textheight 52\baselineskip
             \or \textheight 49\baselineskip \fi
\addtolength{\textheight}{\topskip}

\if@twoside \if@twocolumn \setlength{\oddsidemargin}{0.6\tmp@width}
                  \setlength{\evensidemargin}{0.4\tmp@width}
            \else \setlength{\oddsidemargin}{0.6\tmp@width}
                  \setlength{\evensidemargin}{0.4\tmp@width} \fi
\else \setlength{\oddsidemargin}{0.5\tmp@width}
      \setlength{\evensidemargin}{\oddsidemargin} \fi

\setlength{\marginparwidth}{\evensidemargin}
\addtolength{\marginparwidth}{-\marginparsep}
\addtolength{\marginparwidth}{-6mm}
\addtolength{\oddsidemargin}{-1in}
\addtolength{\evensidemargin}{-1in}

\topmargin-11.9mm \columnsep5mm \parskip0pt plus2pt
%    \end{macrocode}