%    \begin{macrocode}

%<doctor>\ProvidesFile{doctor.rtx}

%<*doctor>
%    \end{macrocode}
% \subsubsection{Стиль докторской диссертации}
%
% Нумерация.
%    \begin{macrocode}
\newcommand\doctor@the{\default@the}
\doctor@the

%    \end{macrocode}
% Титульный лист.
% \DescribeMacro{\maketitle}\index{Макросы!\verb*+\maketitle+}
%    \begin{macrocode}
\if@titlepage\renewcommand\maketitle[1][]{
\ifthenelse{\equal{#1}{en}}{\@titlepage@entrue}{\@titlepage@enfalse}
\if@titlepage@en
  \def\appos{Head of Department}
  \def\sconname{Scientific Consultant}
  \def\sconlabel{\sconname}
  \def\sconsndname{\sconname}
  \def\sconsndlabel{\sconname}
  \def\topicname{Topic}
  \def\asmanuscript{As Manuscript}
\fi

%    \end{macrocode}
% Вертикальные интервалы между элементами титульного листа.
% \DescribeMacro{\firstskip}\index{Интервалы!\verb*+\firstskip+}
% \DescribeMacro{\secondskip}\index{Интервалы!\verb*+\secondskip+}
% \DescribeMacro{\thirdskip}\index{Интервалы!\verb*+\thirdskip+}
% \DescribeMacro{\fourthskip}\index{Интервалы!\verb*+\fourthskip+}
% \DescribeMacro{\fifthskip}\index{Интервалы!\verb*+\fifthskip+}
% \DescribeMacro{\sixthskip}\index{Интервалы!\verb*+\sixthskip+}
% \DescribeMacro{\specskip}\index{Интервалы!\verb*+\specskip+}
%    \begin{macrocode}
\ifx\firstskip\undefined
  \newlength\firstskip
  \ifx\@libcatnum\empty
    \setlength\firstskip{4ex}
  \else
    \setlength\firstskip{2ex}
  \fi
\fi
\ifundeflength\secondskip{3cm}
\ifundeflength\thirdskip{1cm}
\ifundeflength\fourthskip{1cm}
\ifundeflength\fifthskip{1cm}
\ifundeflength\sixthskip{0cm}
\ifundeflength\libcatskip{0cm}
\ifundeflength\specskip{-6pt}

%    \end{macrocode}
% Шрифты элементов титульного листа.
% \DescribeMacro{\titlefont}\index{Макросы!\verb*+\titlefont+}
% \DescribeMacro{\topicfont}\index{Макросы!\verb*+\topicfont+}
% \DescribeMacro{\authorfont}\index{Макросы!\verb*+\authorfont+}
% \DescribeMacro{\specfont}\index{Макросы!\verb*+\specfont+}
%    \begin{macrocode}
\def\titlefont{\normalsize}
\def\topicfont{\Large\bfseries}
\def\authorfont{\large}
\def\specfont{\normalsize}

\thispagestyle{empty}
\enlargethispage{1cm}
\vspace*{-2cm}
%    \end{macrocode}
% \paragraph{Название организации}
%    \begin{macrocode}
\begin{center}
  \instfont\@institution\par
\end{center}
\vskip\firstskip
\begin{flushright}
%    \end{macrocode}
% Гриф секретности
%    \begin{macrocode}
  \ifDis@classified\classify\fi
%    \end{macrocode}
% На правах рукописи
%    \begin{macrocode}
  \asmanuscript
%    \end{macrocode}
% Факсимиле
%    \begin{macrocode}
  \ifDis@facsimile\facsimile\fi
%    \end{macrocode}
% Номер УДК
%    \begin{macrocode}
  \ifx\@libcatnum\empty\else
    \vskip\libcatskip
    {\libcatname\ \@libcatnum}
  \fi
\end{flushright}
\begin{center}
%    \end{macrocode}
% Автор
%    \begin{macrocode}
  \vskip\secondskip
  {\authorfont\@author}
%    \end{macrocode}
% Название диссертации
%    \begin{macrocode}
  \vskip\thirdskip
  {\topicfont\@topic\par}
%    \end{macrocode}
% Шифр и наименование специальности
%    \begin{macrocode}
  \vskip\fourthskip
  {\specfont\@specnum~--\ \@spec}
  \ifx\@specsndnum\empty\else
    \vskip\specskip
    {\specfont\@specsndnum~--\ \@specsnd}
  \fi
%    \end{macrocode}
% Диссертация на соискание ученой степени...
%    \begin{macrocode}
  \vskip\fifthskip
  {\titlefont\@title}
\end{center}
%    \end{macrocode}
% Научный консультант
%    \begin{macrocode}
\ifx\@scon\empty\else
  \vskip\sixthskip
  \disserfield{scon}
\fi
\ifx\@sconsnd\empty\else
  \vskip\sixthskip
  \disserfield{sconsnd}
\fi
%    \end{macrocode}
% \paragraph{Город и год}
%    \begin{macrocode}
\vfill
\begin{center}
  {\@city\cdsep\@date}
\end{center}
\normalfont\clearpage
}\fi
%</doctor>
%    \end{macrocode}