如何减少名称/程序与下方线条之间的间隙

Question

这是代码

% Source: http://tex.stackexchange.com/a/5374/23931
\documentclass{article}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[margin=1in]{geometry}

\newcommand{\HRule}{\rule{\linewidth}{0.3mm}}

\makeatletter% since there's an at-sign (@) in the command name
\renewcommand{\@maketitle}{%
  \parindent=0pt% don't indent paragraphs in the title block
  % \centering
  % {\Large \bfseries\textsc{\@title}}
  {\@author \hfill \@date }
  \HRule\par
    \centering
  \vspace*{10pt}{\underline{\Large \bfseries\textsc{\@title}}}\vspace*{10pt}
  
}
\makeatother% resets the meaning of the at-sign (@)

\title{Statement of Purpose}
\author{Name}
\date{Program}

\begin{document}
  \maketitle% prints the title block

\parindent=0pt
\input{SOP}
  
\end{document}

这就是结果

我想减少名称/程序和下面一行之间的间隙并使其像 Word 文件中的标题一样。