% Use with:
%
% \documentstyle[jtwocolumn,ykgnct]{jarticle}
%
% or
%
% \documentstyle[ykgnct,multicol]{jarticle}
% \multicolsep=0pt
%
%-----------------------------------------------------
% \setgenkou{char}{line} : set char/line and line/page
%                          works only with ASCII-jLaTeX
\newskip\genkoubaseline
\def\setgenkou#1#2{ % #1=char/line, #2=line/page
 \@normalsize%
 \@tempcnta=#1\relax\advance\@tempcnta by -1%
 \@tempdima=\textwidth%
 \advance\@tempdima by -\columnsep%
 \divide\@tempdima by 2%
 \advance\@tempdima by -1zw%
 \divide\@tempdima by \@tempcnta%
 \advance\@tempdima by -1zw%
 \kanjiskip=\@tempdima plus .05zw minus .05zw%
 \xkanjiskip=\kanjiskip%
 \mathsurround=\kanjiskip%
 \parindent=1zw\advance\parindent by \kanjiskip%
 \hfuzz=\parindent%
 \advance\hfuzz by 1pt%
%
 \@tempcntb=#2\relax\advance\@tempcntb by -1%
 \@tempdimb=\textheight\advance\@tempdimb by -1zh%
 \divide\@tempdimb by \@tempcntb%
 \genkoubaseline=\@tempdimb plus 0.02zh minus 0.02zh%
 \let\@@setsize=\@setsize%
 \def\@setsize##1##2{\@@setsize##1{\genkoubaseline}}%
 \def\baselinestretch{1}%
 \large\@normalsize%
}
%-------------------------------------------------------------
\oddsidemargin=25mm
\topmargin=25mm
\advance\oddsidemargin by -1in
\advance\topmargin by -1in
\topskip=1pt
\topsep=0pt
\parsep=0pt
\partopsep 0pt
\parskip 0pt
\headheight 0pt
\headsep 0pt
\footskip 0pt 
\footheight 0pt
\textwidth=160mm
\textheight=242mm
\columnsep=10mm

\setgenkou{22}{50}%

\newskip\ykgncttitleheight
\ykgncttitleheight=2\genkoubaseline\advance\ykgncttitleheight by 1zh
\advance\ykgncttitleheight by -1pt

\def\maketitle{\par
 \begingroup
 \if@twocolumn 
  \twocolumn[\@maketitle] 
  \else \newpage
  \global\@topnum\z@ \@maketitle \fi
 \endgroup
 \let\maketitle\relax
 \let\@maketitle\relax
 \gdef\@author{}\gdef\@title{}%
 }

\def\@maketitle{%
  \vbox to \ykgncttitleheight{%
    \centering
    {\LARGE\bf \@title \par}}
  \vbox to 2\genkoubaseline{%
    \centering
    {\large\bf 
%      \begin{tabular}[t]{c}
        \@author
%      \end{tabular}
      \par}}}

\long\def\@makecaption#1#2{
 \vskip 10pt 
 \setbox\@tempboxa\hbox{#1\quad #2}
 \ifdim \wd\@tempboxa >\hsize \unhbox\@tempboxa\par \else \hbox
to\hsize{\hfil\box\@tempboxa\hfil} 
 \fi}

\def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
     \let\@svsec\@empty\else
     \refstepcounter{#1}\edef\@svsec{\csname the#1\endcsname\hskip 1em}\fi
     \@tempskipa #5\relax
      \ifdim \@tempskipa>\z@
        \begingroup #6\relax
          \underline{\@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}}%
        \endgroup
       \csname #1mark\endcsname{#7}\addcontentsline
         {toc}{#1}{\ifnum #2>\c@secnumdepth \else
                      \protect\numberline{\csname the#1\endcsname}\fi
                    #7}\else
        \def\@svsechd{#6\hskip #3\relax  %% \relax added 2 May 90
                   \underline{\@svsec #8\csname #1mark\endcsname
                      {#7}}\addcontentsline
                           {toc}{#1}{\ifnum #2>\c@secnumdepth \else
                             \protect\numberline{\csname the#1\endcsname}\fi
                       #7}}\fi
     \@xsect{#5}}

\def\thesection {\arabic{section}.}
\def\section{\@startsection {section}{1}{\z@}{1sp}{-1zw plus -.2zw}{\bf}}
\def\@listI{\parsep=\z@ \topsep=\z@
\itemsep=\z@}

\pagestyle{empty}
