\def\@makechapterhead#1{%
  \hrule height1pt %太さ1ptの横罫線を引く
  \vskip.5\baselineskip
        {\parindent \z@ \raggedright \normalfont
          \centering
          \ifnum \c@secnumdepth >\m@ne
          \if@mainmatter
          \Large\headfont \@chapapp\thechapter\@chappos
          \hskip 1zw %%% この 1zw という寸法は適宜変更します．
          %%% %%% オリジナルの定義では直前の 1 行が次の 2 行になっています．
          %%% \par\nobreak
          %%% \vskip \Cvs % 欧文は20pt
          \fi
          \fi
          \interlinepenalty\@M
          \LARGE \headfont #1\par\nobreak
          \vskip.5\baselineskip            
          \hrule height1pt %太さ1ptの横罫線を引く
          \vskip 1.5\Cvs}} % 欧文は40pt

\def\@makeschapterhead#1{\hbox{}%
  \vskip .5\Cvs
  {\parindent\z@
%  \raggedright% オリジナルの定義(左揃え)
   \centering% 中央揃え
%  \raggedleft% 右揃え
   \reset@font\LARGE\bfseries
   \setlength\@tempdima{\linewidth}%
   \vtop{\hsize\@tempdima#1}}\vskip1.5\Cvs}

\renewcommand{\section}{%
    \if@slide\clearpage\fi
    \@startsection{section}{1}{\z@}%
    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
    {.5\Cvs \@plus.3\Cdp}% 後アキ
    {\normalfont\fontsize{13pt}{0cm}\selectfont\headfont\raggedright}}

\renewcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
   {.9\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
   {.1\Cvs \@plus.3\Cdp}%
   {\normalfont\fontsize{11pt}{0cm}\headfont\raggedright}}

\renewcommand{\subsubsection}{\@startsection{subsubsection}{3}{\z@}%
   {.2\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
   {.1\Cvs \@plus.1\Cdp}%
   {\reset@font\normalsize\bfseries}}   
