view resume/compsoft-sjis.sty @ 24:f36296a02b5b default tip

fix
author Yutaka_Kinjyo
date Mon, 13 Sep 2010 10:14:34 +0900 (2010-09-13)
parents e5f74d4de3ad
children
line wrap: on
line source
% compsoft.sty 2009-06-27 by Hideya IWASAKI
% compsoft.sty last updated 2007-08-17 by Kazunori UEDA
% compsoft.sty ASCII-version modified 25-March-92 by N. YAMANOUCHI
% compsoft.sty 22-April-92 by Yasuki SAITO
% compsoft.sty 18-July-90 by Hideki ISOZAKI 
% j-article.sty 10-Feb-89 from report.sty 16-Mar-88

\newif\ifASCII \ASCIIfalse
\ifx\jintercharskip\undefined\ASCIItrue\fi
\newif\if@LaTeX@e \@LaTeX@efalse                                % 1.06(1)
\newif\if@LaTeX@eN \@LaTeX@eNfalse                              % 2.00(1)
\def\@tempa{LaTeX2e}                                            % 1.06(1)
\ifx\fmtname\@tempa \@LaTeX@etrue                               % 1.06(1)
\ifx\xpt\undefined \@LaTeX@eNtrue \fi\fi                        % 2.00(1)

\newif\if@hissha \@hisshafalse

\expandafter\ifx\csname ver@jssst.cls\endcsname\relax
\typeout{Document Style `compsoft' ascii version <23 Mar 92>.}
\fi

\if@LaTeX@e
\newdimen\@maxsep
\newdimen\@dblmaxsep
\fi

\def\ds@twoside{\@twosidetrue \@mparswitchtrue}
\def\ds@draft{\overfullrule5pt} 

%\@options
% you must do this at the end, at least after def's of \ds@... for
% various \@maketitle

\ds@twoside

\if@LaTeX@e                                                     % 2.00(8)>>
\if@LaTeX@eN
\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
\DeclareRobustCommand*{\cal}{\@fontswitch{\relax}{\mathcal}}
\DeclareRobustCommand*{\mit}{\@fontswitch{\relax}{\mathnormal}}
\ifASCII
\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
\fi\fi
\ifASCII
\def\dm{\mc}
\def\dg{\gt}
\fi\fi                                                          % 2.00(8)<<

\ifASCII
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ascii-jtex.sty  modified on 2/6/92 by N. Yamanouchi 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ascii-jtex.sty        prepared by N. Yamanouchi (IBM/TRL) 12/04/91
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% This style file is intended to absorb the difference between NTT
% JTex and ASCII JTeX for JSSST journal style files ``compsoft.sty''
% and ``compsoft9.sty''.  The original information comes from the
% work of S. Tomura in ETL (marked as ST).
%

%
%dskfonts.sty begins %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% dskfonts.sty modified on 6 Feb 92 by N. Yamanouchi
% dskfonts.sty prepared by N. Yamanouchi
%
%% dskfonts.sty is based on skfonts.sty.
%% skfonts.sty is for adjusting NTT-version of JSSST style file to
%% ASCII JTeX environment.  skfonts.sty defines all CTS fonts, while
%% dskfonts.sty substitutes the fonts by regular fonts like min10/goth10.

%% �p���n�̂��߂̂ӂ��‚̃��j�b�g
\newdimen \JQ	\JQ .259817mm	%%%	\JQ/\Q = 10pt/9.62216pt
\newdimen \Q	\Q  .25mm	%%%	Quarter of 1mm

%% �x�[�X���C���X�L�b�v�̒l�D
%% �f�t�H���g�l��21.5Q�CEronbun, Etokushuronbun�ł�17.5Q
%% �ɐ؂�ւ���D
\newdimen\@Baseline
\@Baseline=21.5\Q


% �t�H���g�̍Ē�`
% �܂��a���F
%\font\sevmin	skhmnlaa at 8.5\JQ 	% 8.5Q �{������ LHM
\font\sevmin	min10 at 8.5\JQ 	% 8.5Q min10�ʼn��z�I�ɏo��
%\font\sevgt	skgotoaa at 8.5\JQ	% 8.5Q �����S�V�b�N DG-KL
\font\sevgt	goth10 at 8.5\JQ	% 8.5Q goth10�ʼn��z�I�ɏo��
% \font\egtmin	skhmnlaa at 10\JQ 	% 10Q �{������ LHM
\font\egtmin	min10 at 10\JQ	 	% 10Q min10�ʼn��z�I�ɏo��
% \font\egtgt	skgotoaa at 10\JQ	% 10Q �����S�V�b�N DG-KL
\font\egtgt	goth10 at 10\JQ		% 10Q goth10�ʼn��z�I�ɏo��
%\font\ninmin	skhmnlaa at 11.5\JQ	% 11.5Q �{������ LHM
\font\ninmin	min10 at 11.5\JQ	% 11.5Q min10�ʼn��z�I�ɏo��
%\font\ningt	skgotoaa at 11.5\JQ	% 11.5Q �����S�V�b�N DG-KL
\font\ningt	goth10 at 11.5\JQ	% 11.5Q goth10�ʼn��z�I�ɏo��
%\font\tenmin	skhmnlaa at 13\JQ	% 13Q �{������ LHM
\font\tenmin	min10 at 13\JQ		% 13Q min10�ʼn��z�I�ɏo��
%\font\tengt	skgotoaa at 13\JQ	% 13Q �����S�V�b�N DG-KL
\font\tengt	goth10 at 13\JQ		% 13Q goth10�ʼn��z�I�ɏo��

%\font\twlvgona	sknagoaa at 16\JQ	% 16Q �S�i�c for �u�`���[�g���A���v
\font\twlvgona	goth10 at 16\JQ	% 20Q min10�ʼn��z�I�ɏo�� for�u�`���[�g���A���v

% \font\svtnmin	skminsaa at 20\JQ	% 20Q ������ for author
\font\svtnmin	min10 at 20\JQ	% 20Q min10�ʼn��z�I�ɏo�� for author

% \font\twtygt	skgotsaa at 28\JQ	% 28Q ���S�V�b�N for title
\font\twtygt	goth10 at 28\JQ	% 28Q goth10�ʼn��z�I�ɏo�� for title

% �����ĉ����F
%   �v�����[�h����Ă郍�[�}���t�H���g�͐����� \textfont0 �Ƃ��Ă�
%   �g���邽�߁A�ʖ��̂Ń��[�h���ăT�C�Y�‹��𑀍삷��̂�����H
%%\font\egtrm	secntmm	at 10\Q
%%\font\ninrm	secntmm	at 11.5\Q
%%\font\tenrm	secntmm at 13\Q

%%\font\egtit	secntmmi at 10\Q
%%\font\ninit	secntmmi at 11.5\Q
%%\font\tenit	secntmmi at 13\Q

%%\font\egtbf	secntqm	at 10\Q
%%\font\ninbf	secntqm	at 11.5\Q
%%\font\tenbf	secntqm	at 13\Q

%%\font\titleb	sebdnqm at 28\Q		% �^�C�g���p�{�h�j�{�[���h
\font\titleb	min10 at 28\Q		% �^�C�g���p�{�h�j�{�[���h

% �ŖʓV�n�ƃp�����[�^�̐ݒ�
%
% \textheight
%    = \topskip + \baselineskip * 39 lines
%    = 12Q      + 21.5Q         * 39 lines
%    = 850.5Q

\headsep	15\Q		% ���m�Ȓl�ł͂Ȃ�
\topskip	12\Q		% 12Q ��荂���s�̓x�[�X���C���������
\baselineskip	\@Baseline		% 11.5Q �s�� 10Q
\lineskip	0pt
\lineskiplimit	0pt

\textheight	850.89\Q	% 850.5Q (21.5Q * 39line + \topskip) ��
				% �͂����� 40 �s����Ȃ����߁A����������
				% ���₵�Ă��̒l�ɂȂ���

\maxdepth	5\Q		%

%TI%% We don't need foot* because we don't use footer
%TI%\footskip	0pt
%TI%\footheight	0pt

\parindent1zw

%\parskip	0pt plus.001\Q	% ���ׂẴp�����[�^������ł�����
				% �p���O���t�Ԃɂ킸���̎��R�x��u�������B
				% �e�X�g���͎��R�x�͂Ȃ��ق��������B

\kanjiskip 0pt plus .1zw minus 0.05zw
				% �a�������Ԃ͔�r�I���R�x���傫��

%\overfullrule	10pt		% ���������͖ڗ������Ē���

%
% �ꕔ�̃}�N���̍Ē�`
%

% \def\@maketitle{\newpage \null
%  \vbox to 235.2\Q{		%% �v�Z�ł� 236.5Q �̂͂������A�A�A
%  \begin{flushleft}
%   \rule{\textwidth}{1mm}%
%   \vskip.7cm
%   {\titleb\hskip 6.5mm
%   \twtygt\@title\kanjiskip -3mm plus0mm minus0mm % �l�߂����̂ɋl��Ȃ��A�A�A
%   }
%   \vskip.7cm
%   \huge\hskip 6.5mm
%   \begin{tabular}[t]{@{}l}\@author\end{tabular}
%  \end{flushleft}
%  \par
%  \vss
%  \hrule	% height0pt		%% �̍ق����܂����� 0pt �ɂ���
%  }}

% \long\def\@makecaption#1#2{  %% \vskip 10pt
% \setbox\@tempboxa\hbox{\small\bf\egtbf\egtgt~~#1~~#2~~}
%   \ifdim \wd\@tempboxa >\hsize 
%     {\small\bf\egtbf\egtgt\setlength{\baselineskip}{12pt}
%        \newbox\@tempboxb \setbox\@tempboxb\hbox{#1~~}
%        \leftskip=15pt \hangindent=\wd\@tempboxb #1~~#2\par}
%   \else \hbox to\hsize{\hfil\box\@tempboxa\hfil} 
%  \fi}

% \def\section{\@startsection{section}{1}{0\jspaceskip}
%  {8\Q plus.1\Q minus.1\Q}	% �㕔�O���[ (�o���l)
%  {1.6\Q plus.1\Q minus.1\Q}	% �����O���[
%  {\vrule width	.4pt		%% �̍ق����܂����� 0pt �ɂ���B
% 	 height	30\Q		%% �y�[�W���� \topskip �ɓ͂��悤�ɁB
% 	 depth	14\Q		%% �{���� 1 �s�ڂɐڂ���悤�ɁB
%   \font@s}}
% 
% \def\subsection{\@startsection{subsection}{2}{\jspaceskip}
%  {1\baselineskip plus.1\Q minus.1\Q}
%  {0.1\Q plus.1\Q minus.1\Q}
%  {\font@ss}}

%TI%\pagestyle{headings}
\flushbottom			% �y�[�W���[�����낦��
%dskfonts.sty ends %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%---------------------------
% ``dskfonts.sty' uses CM and min** fonts for preminary printing.
% For production-run, use ``skfonts.sty'' instead of ``dskfonts.sty''.
%---------------------------

\let\sevendm=\sevmin                                    %ST
\let\sevendg=\sevgt                                     %ST
\let\eightdm=\egtmin                                    %ST
\let\eightdg=\egtgt                                     %ST
\let\ninedm=\ninmin                                     %ST
\let\ninedg=\ningt                                      %ST
\let\gona=\twlvgona             % N. Yamanouchi for �u�`���[�g���A���v

\if@LaTeX@e\else
\def\dm{\mc}\def\pdm{\pmc}                                      %ST
\def\dg{\gt}\def\pdg{\pgt}                                      %ST
\fi

\let\setjglues=\relax
\let\jintercharskip=\kanjiskip
\let\jasciikanjiskip=\xkanjiskip

\if@LaTeX@e\else
\def\dm{\mc}\def\pdm{\pmc}                                      %ST
\def\dg{\gt}\def\pdg{\pgt}                                      %ST
\fi

\def\defjintercharskip#1#2#3#4{
\fontdimen2#1=#2                                                %ST
\fontdimen3#1=#3                                                %ST
\fontdimen4#1=#4}                                               %ST
\def\defjasciikanjiskip#1#2#3#4{%                               %ST
\fontdimen7#1=#2                                                %ST
\fontdimen7#1=#3                                                %ST
\fontdimen7#1=#4}                                               %ST
\def\defmathkanjiskip#1#2#3#4{}                                 %ST
\def\defjspaceskip#1#2#3#4{%                                    %ST
\fontdimen6#1=#1}                                               %ST
\let\setjglues=\relax                                           %ST
\let\jintercharskip=\kanjiskip                                  %ST
\let\jasciikanjiskip=\xkanjiskip                                %ST
\newdimen\jspaceskip                                            %ST
\jspaceskip=2.875mm             %yamanouchi%                    %ST
%%\jspaceskip=1zw                                               %ST

\newdimen\jmathkanjiskip        %yamanouchi 3/25/92%
\jmathkanjiskip=\kanjiskip      %yamanouchi 3/25/92%            
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\fi

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% compsoft9.sty ASCII version modified 25 March 1992 by N. YAMANOUCHI
% compsoft9.sty 23 March 1992 By Yasuki SAITO
% compsoft9.sty Apr. 24 '91 By Hideki ISOZAKI
% j-art10.sty 10-Feb-89 from art10.sty 22-Dec-87

% 1mm = 2.8452755905pt, 1pt = .3514598035mm, 1Q = 0.25mm = .7113188976pt
%
% For footnotesize
% depth_of_8pt_kanji = 1.4454pt
% height_of_8pt_kanji = 5.781592pt
% line = height_plus_depth_of_8pt_kanji = 7.226992pt = 2.53999mm ~= 10Q
% baselineskip = line + gap = 15Q = 3.75mm = 10.6697834645pt
% gap = baselineskip - line = 10.66978 - 7.226992 = 3.4427914645pt

% For references
% baselineskip = line + gap = 14.5Q = 3.625mm = 10.314124pt
% gap = baselineskip - line = 10.314124pt - 7.226992pt = 3.087132pt
%                                    ~= 4.5Q = 1.125mm = 3.2009350393pt
% gap + depth = 3.087132 + 1.4454 = 4.532532pt

% For normalsize
% depth_of_9pt_kanji = 1.44539pt
% line = height_plus_depth_of_9pt_kanji = 8.1906pt
%                              ~= 11.5Q = 8.1801673228pt
% 212.5mm = 212.5mm * 72.27pt / 25.4mm = 604.62106299212598425196pt
% baselineskip = line + gap = 11.5Q + 10Q = 21.5Q = 15.2933562992pt
% gap = 21.5Q - line(8.1906pt) = 7.1027562992pt ~= 10Q = 7.1131889763pt
% gap + depth = 8.54815pt

\ifASCII\else
\newlength{\Q} \setlength{\Q}{0.25mm} % commented out for ASCII version
                                         % by N. Yamanouchi
\let\kanjiskip=\jintercharskip
\let\xkanjiskip\jasciikanjiskip
\fi

\lineskip\z@ \normallineskip\z@ \jot\z@ \lineskiplimit\z@
\def\baselinestretch{1}

\if@LaTeX@e
\def\normalsize{\@setsize\normalsize{\@Baseline}\ixpt\@ixpt
%\renewcommand{\normalsize}{%
%\@setfontsize\normalsize{12\JQ}{21.5\Q}
\abovedisplayskip \z@\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@\belowdisplayshortskip\z@
\let\@listi\@listI} 
\else
\def\@normalsize{\@setsize\normalsize{\@Baseline}\ixpt\@ixpt
\abovedisplayskip \z@\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@\belowdisplayshortskip\z@
\let\@listi\@listI} 
\fi

\def\small{\@setsize\small{15\Q}\viiipt\@viiipt
%\newcommand{\small}{%
%\@setfontsize\normalsize{11\JQ}{15\Q}
\abovedisplayskip \z@\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@\belowdisplayshortskip\z@
\let\@listi\@listI}

\def\footnotesize{\@setsize\footnotesize{15\Q}\viiipt\@viiipt
%\newcommand{\footnotesize}{%
%\@setfontsize\normalsize{11\JQ}{15\Q}
\abovedisplayskip\z@\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@\belowdisplayshortskip\z@
\let\@listi\@listI}

\def\scriptsize{\@setsize\scriptsize{11pt}\vipt\@vipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{21.5\Q}\xpt\@xpt}% baselineskip=>normalsize
\def\Large{\@setsize\Large{20pt}\xiipt\@xiipt}
\def\LARGE{\@setsize\LARGE{25pt}\xivpt\@xivpt}
\def\huge{\@setsize\huge{30pt}\xviipt\@xviipt}
\def\Huge{\@setsize\Huge{35pt}\xxpt\@xxpt}

\@ifundefined{normalsize}{\let\normalsize\@Normalsize}

\normalsize 
\oddsidemargin 0pt \evensidemargin 0pt
\advance\oddsidemargin-.5in
\advance\evensidemargin-.5in
\topmargin -25pt

\headheight 12.5\Q
\addtolength{\headheight}{0.1087pt}
% headheight was increased a little bit to avoid annoying overful vbox
% in sample.tex, but this also shifts entire headline upward a little bit.
% So, \headsep is decreased a little to compensate this.

\headsep 17\Q
\addtolength{\headsep}{-0.1087pt}

%\footskip 2\baselineskip % This isn't necessary, no foot in this style

\newdimen\@mojihaba
\settowidth{\@mojihaba}{��}

\textheight = 212.5mm % for simple twocolumn setup

% topskip = line - depth_of_9pt_kanji
\topskip = 6.74521pt

% columnsep = 2\@mojihaba = 2*11.5Q = 23Q = 5.75mm = 16.3603346456pt
%          ~= 8.1906pt * 2 = 16.3812pt
\columnsep 16.3812pt 

\textwidth 50\jspaceskip
\advance\textwidth by \columnsep
\columnseprule 0pt 

%% 15 Jul 2009  Iwasaki & Matsuzaki
\def\adjustAfour{%
\oddsidemargin210mm
\advance\oddsidemargin-\textwidth
\oddsidemargin.5\oddsidemargin
\advance\oddsidemargin-1in
\evensidemargin\oddsidemargin
\topmargin297mm
\advance\topmargin-\headheight
\advance\topmargin-\headsep
\advance\topmargin-\textheight
\topmargin.5\topmargin
\advance\topmargin-1in
}



%\footnotesep must be \baselineskip-\depth = 10.6697835pt-1.4454pt
% = 9.2243835pt, but this is too wide
%\footnotesep 9.2243835pt
%\footnotesep 7.226992pt % = line height
\footnotesep 8.672392pt % = line height + depth = 7.226992pt + 1.4454pt
% you want to make a gap between footnoterule and first footnote 2Q, but...
%\footnotesep 2\Q % This does not work! you must do something in \@makecol

%\skip\footins 10\Q plus 21.5\Q
\skip\footins 10\Q plus 11.5\Q minus 1\Q

\floatsep \baselineskip \textfloatsep \baselineskip 
\intextsep \baselineskip \@maxsep \baselineskip
\dblfloatsep \baselineskip \dbltextfloatsep \baselineskip
\@dblmaxsep \baselineskip
\@fptop 0pt plus 1fil \@fpsep 0pt plus 2fil \@fpbot 0pt plus 1fil 
\@dblfptop 0pt plus 1fil \@dblfpsep 0pt plus 2fil \@dblfpbot 0pt plus 1fil

\parskip\z@ \parindent \@mojihaba \partopsep\z@
\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301 
\@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
-\@lowpenalty 



\def\section{\@startsection {section}{1}{\jspaceskip}{17.5\Q}{4\Q}{\font@s}}
\def\subsection
 {\@startsection{subsection}{2}{\jspaceskip}{\baselineskip}{0.001pt}{\font@ss}}
\def\subsubsection
 {\@startsection{subsubsection}{3}{\jspaceskip}{0.001pt}{0.001pt}{\font@sss}}
\def\paragraph{\@startsection
 {paragraph}{4}{\jspaceskip}{0.001pt}{0.001pt}{\normalsize\bf}}
\def\subparagraph{\@startsection
 {subparagraph}{5}{\jspaceskip}{\baselineskip}{0.001pt}{\normalsize\bf}}

\setcounter{secnumdepth}{5}

\def\appendix{\par
 \setcounter{section}{0}
 \setcounter{subsection}{0}
 \def\thesection{\Alph{section}}}

\def\sectionfont#1#2#3{\gdef\font@s{#1}\gdef\font@ss{#2}\gdef\font@sss{#3}}
\sectionfont{\large\bf}{\normalsize\bf}{\normalsize\bf}



\leftmargini2\@mojihaba
\leftmarginii2\@mojihaba
\leftmarginiii2\@mojihaba
\leftmarginiv2\@mojihaba
\leftmarginv2\@mojihaba
\leftmarginvi2\@mojihaba
\leftmargin\leftmargini

\def\@listI{\leftmargin\leftmargini\parsep\z@\topsep\z@\itemsep\z@
\labelsep 0.75\@mojihaba % 3/4*\@mojihaba
\labelwidth=0.25\@mojihaba
%\itemindent=\@mojihaba
}
\let\@listi\@listI
%\@listi 

\def\@listii{\leftmargin\leftmarginii
\labelsep 0.75\@mojihaba % 3/4*\@mojihaba
\labelwidth=0.25\@mojihaba
%\itemindent=\@mojihaba
 \topsep\z@ \parsep\z@ \itemsep\parsep}

\def\@listiii{\leftmargin\leftmarginiii
\labelsep 0.75\@mojihaba % 3/4*\@mojihaba
\labelwidth=0.25\@mojihaba
%\itemindent=\@mojihaba
 \topsep\z@ \parsep\z@ \itemsep\topsep}

\def\@listiv{\leftmargin\leftmarginiv
\labelsep 0.75\@mojihaba % 3/4*\@mojihaba
\labelwidth=0.25\@mojihaba
%\itemindent=\@mojihaba
}

\def\@listv{\leftmargin\leftmarginv
\labelsep 0.75\@mojihaba % 3/4*\@mojihaba
\labelwidth=0pt%
%\itemindent=\@mojihaba
}

\def\@listvi{\leftmargin\leftmarginvi
\labelsep 0.75\@mojihaba % 3/4*\@mojihaba
\labelwidth=0pt%
%\itemindent=\@mojihaba
}

% 2009/12/03 Iwasaki
% It seems that the \labelsep parameter has to be set as a moderate
% positive dimension value to make environments defined by \newtheorem
% correctly work.
% Without the following line, \labelsep's value is 0.0pt, which causes
% no space between a theorem number and the first word of the theorem.
\labelsep 5.0pt



%% JTeX glues

\ifASCII
\defjintercharskip{\ninedm}{0pt}{1.8pt}{0.18pt}
\defjintercharskip{\ninedg}{0pt}{1.8pt}{0.18pt}
\defjintercharskip{\eightdm}{0pt}{1.5pt}{0.15pt}
\defjintercharskip{\eightdg}{0pt}{1.5pt}{0.15pt}
\defjintercharskip{\sevendm}{0pt}{1.4pt}{0.14pt}
\defjintercharskip{\sevendg}{0pt}{1.4pt}{0.14pt}

\setjglues
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



\def\labelenumi{\theenumi.} 
\def\theenumi{\arabic{enumi}} 
\def\labelenumii{(\theenumii)}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\theenumiii.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\theenumiv.}
\def\theenumiv{\Alph{enumiv}} 
\def\p@enumiv{\p@enumiii\theenumiii}

\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}

\def\verse{\let\\=\@centercr 
 \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent 
 \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist
\def\abstquotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \leftmargin 5mm
 \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endabstquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist


%\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\descriptionlabel#1{\bf #1}
\def\description{\list{}{\labelwidth\z@ %\itemindent-\leftmargin
 %\itemindent=\@mojihaba
 \labelsep=0.75\@mojihaba %
 \let\makelabel\descriptionlabel}}
\let\enddescription\endlist

\def\enumerate{\ifnum \@enumdepth >3 \@toodeep\else
      \advance\@enumdepth \@ne 
      \edef\@enumctr{enum\romannumeral\the\@enumdepth}\list
      {\csname label\@enumctr\endcsname}{\usecounter
        {\@enumctr}\def\makelabel##1{##1\hss}}\fi}

\let\endenumerate =\endlist

\def\itemize{\ifnum \@itemdepth >3 \@toodeep\else \advance\@itemdepth \@ne
\edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
\list{\csname\@itemitem\endcsname}{\def\makelabel##1{##1\hss}}\fi}

\let\enditemize =\endlist





\def\theequation{\arabic{equation}}

\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt 
\tabbingsep \labelsep 

\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt 



\newcounter{part}
\newcounter{section}
\newcounter{subsection}[section]
\newcounter{subsubsection}[subsection]
\newcounter{paragraph}[subsubsection]
\newcounter{subparagraph}[paragraph]

\def\thepart{\Roman{part}} \def\thesection {\arabic{section}}
\def\thesubsection {\thesection.\,\arabic{subsection}}
\def\thesubsubsection {\thesubsection.\,\arabic{subsubsection}}
\def\theparagraph {\thesubsubsection.\,\arabic{paragraph}}
\def\thesubparagraph {\theparagraph.\,\arabic{subparagraph}}



% Do not delete BEFORESKIP even if \section is on top of page
% Is this functioning?
% \@startsection {NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}
\def\@startsection#1#2#3#4#5#6{\if@noskipsec \leavevmode \fi
   \par \@tempskipa #4\relax
   \@afterindenttrue
   \ifdim \@tempskipa <\z@ \@tempskipa -\@tempskipa \@afterindentfalse\fi
   \@minipagefalse % this line is added by Hiroshi Nakashima
   \if@nobreak \everypar{}\else
     \addpenalty{\@secpenalty}%
        \ifnum#2=\@ne%\message{topskip=\the\topskip,beforeskip=\the\@tempskipa}
%\message{prevdepth=\the\prevdepth}%
\ifdim\prevdepth=0pt\vspace*{-21.5\Q}\else\vskip-\prevdepth\fi
%\vspace{-\prevdepth} % seems to be the same as above, but does not work!!
%       \advance\@tempskipa-17.5\Q \addvspace{17.5\Q}
% 13.89347pt = 17.5Q + depth(1.44539pt)
        \advance\@tempskipa-13.89347pt \addvspace{13.89347pt}
        \vspace*{\@tempskipa}%
        \else\addvspace{\@tempskipa}\fi\fi \@ifstar
     {\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}

% to include section/subsection title modification
\def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
     \def\@svsec{}\else 
%     \refstepcounter{#1}\edef\@svsec{\csname the#1\endcsname\hskip 1em }\fi
     \refstepcounter{#1}\edef\@svsec{\csname the#1\endcsname\hskip\@mojihaba}\fi
     \@tempskipa #5\relax
      \ifdim \@tempskipa>\z@ 
        \begingroup #6\relax
          \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M\@mojidori{#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\@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\@ssect#1#2#3#4#5{\@tempskipa #3\relax
   \ifdim \@tempskipa>\z@
     \begingroup #4\@hangfrom{\hskip #1}{\interlinepenalty \@M\@mojidori{#5}\par}\endgroup
   \else \def\@svsechd{#4\hskip #1\relax #5}\fi
    \@xsect{#3}}

\newlength\@currentmojihaba

\def\@mojidori#1{\setbox0\hbox{#1}\settowidth{\@currentmojihaba}{��}%
 \ifdim\wd0>5\@currentmojihaba #1\else%
  \ifdim\wd0=2\@currentmojihaba {\jasciikanjiskip=2\@currentmojihaba%
     \jmathkanjiskip=2\@currentmojihaba%
     \jintercharskip=2\@currentmojihaba #1}\else%
   {\jasciikanjiskip=0.2\@currentmojihaba%
     \jmathkanjiskip=0.2\@currentmojihaba%
     \jintercharskip=0.2\@currentmojihaba #1}\fi\fi}


\newlength\twodigits

\newbox\bibbox
\setbox\bibbox=\hbox{{999}}{\relax}
\def\@biblabel#1{\hbox to\wd\bibbox{{[\hss#1\hss]}}}

\def\thebibliography#1{\subsection*{\refname\@mkboth{\refname}{\refname}}%
\vskip7\Q % = 21.5\Q - 14.5\Q (the difference in two baselineskips)
\settowidth\twodigits{#1}\list
 {~~[\hbox to \twodigits{\hss\arabic{enumi}\hss}]}
 {\setlength\labelwidth{10\Q}\leftmargin\labelwidth\labelsep\labelwidth
 \advance\leftmargin\labelsep
 \itemindent=0pt
 \usecounter{enumi}\footnotesize\baselineskip=14.5\Q}
 \def\newblock{\hskip .11em plus .33em minus .07em}
 \sloppy\clubpenalty4000\widowpenalty4000
 \sfcode`\.=1000\relax}
\let\endthebibliography=\endlist

\def\refname{�Q �l �� ��}  % will be changed in English articles



\newif\if@restonecol
\def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
\columnseprule \z@
\columnsep 35pt\twocolumn[\section*{\indexname}]
 \@mkboth{\indexname}{\indexname}\thispagestyle{plain}\parindent\z@
 \parskip\z@ plus .3pt\relax\let\item\@idxitem}
\def\@idxitem{\par\hangindent 40pt}
\def\subitem{\par\hangindent 40pt \hspace*{20pt}}
\def\subsubitem{\par\hangindent 40pt \hspace*{30pt}}
\def\endtheindex{\if@restonecol\onecolumn\else\clearpage\fi}
\def\indexspace{\par \vskip 10pt plus 5pt minus 3pt\relax}



% You may need to change following parameters
\setcounter{topnumber}{4} \def\topfraction{.9}
\setcounter{bottomnumber}{4} \def\bottomfraction{.9}
\setcounter{totalnumber}{8}
\def\textfraction{.1}
\def\floatpagefraction{.9}
\setcounter{dbltopnumber}{4} \def\dbltopfraction{.9}
\def\dblfloatpagefraction{.9}

% You cannot handle double column bottom figures yet!!!

\newskip\@beforecaptionskip
\newskip\@aftercaptionskip
% initial default values for under caption
\@beforecaptionskip=10\Q \@aftercaptionskip=0pt

% addcontentsline is omitted to allow `\\' containing argument
\long\def\@caption#1[#2]#3{\par\begingroup
    \@parboxrestore
%    \normalsize
    \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
  \endgroup}

\newbox\@tempboxb
% following makecaption is for under caption.
% you may need to define another makecaption for over caption!!
\long\def\@makecaption#1#2{\vskip\@beforecaptionskip
 \setbox\@tempboxa\hbox{\footnotesize\bf #1\hskip\jspaceskip #2}
 \ifdim \wd\@tempboxa >\hsize
 \begin{center}
%  \setbox\@tempboxb\hbox{\footnotesize\bf #1\hskip\jspaceskip}
%  \hangindent=\wd\@tempboxb \hangafter=1
  {\footnotesize\bf #1\hskip\jspaceskip #2}\par
 \end{center}
 \else
  \hbox to\hsize{\hfil\box\@tempboxa\hfil}
%  \center{\footnotesize\bf #1\hskip\jspaceskip #2}
  \fi\vskip\@aftercaptionskip}

\newcounter{figure}
\def\thefigure{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{\figurename \thefigure}
\def\figure{\bgroup\@beforecaptionskip=10\Q\@aftercaptionskip=0pt\@float{figure}}
\def\endfigure{\end@float\egroup}
\@namedef{figure*}{\bgroup\@beforecaptionskip=10\Q\@aftercaptionskip=0pt\@dblfloat{figure}}
\@namedef{endfigure*}{\end@dblfloat\egroup}

\newcounter{table}
\def\thetable{\@arabic\c@table}
\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
\def\fnum@table{\tablename \thetable}
\def\table{\bgroup\@beforecaptionskip=0pt\@aftercaptionskip=7\Q\@float{table}}
\def\endtable{\end@float\egroup}
\@namedef{table*}{\bgroup\@beforecaptionskip=0pt\@aftercaptionskip=7\Q\@dblfloat{table}}
\@namedef{endtable*}{\end@dblfloat\egroup}

% height adjustment code insertion into float ending routines
\newdimen\@floatheight
\newcount\@floatlinecount

\def\end@float{\par\vskip\z@\egroup %% \par\vskip\z@ added 15 Dec 87
\color@endbox
\@floatheight=\ht\@currbox
\advance\@floatheight \dp\@currbox
\divide\@floatheight\baselineskip \@floatlinecount=\@floatheight
\advance\@floatlinecount\@ne
\@floatheight=\@floatlinecount\baselineskip
%\fboxrule=0.01pt\fboxsep=0pt% for debugging
%\global\setbox\@currbox=\hbox{\fbox{\vbox to\@floatheight{\vfil\copy\@currbox\vfil}}}%
\global\setbox\@currbox=\vbox to\@floatheight{\vfil\copy\@currbox\vfil}%
   \ifnum\@floatpenalty <\z@
     \@cons\@currlist\@currbox
     \ifdim \ht\@currbox >\textheight 
        \ht\@currbox\textheight \fi
     \ifnum\@floatpenalty < -\@Mii 
        \penalty -\@Miv 
        \@tempdima\prevdepth    %% saving and restoring \prevdepth added
        \vbox{}                 %% 26 May 87 to prevent extra vertical
        \prevdepth \@tempdima   %% space when used in vertical mode
        \penalty\@floatpenalty
      \else \vadjust{\penalty -\@Miv \vbox{}\penalty\@floatpenalty}\@esphack
     \fi\fi}

\def\end@dblfloat{\if@twocolumn
     \par\vskip\z@\egroup %% \par\vskip\z@ added 15 Dec 87\egroup
\color@endbox
\@floatheight=\ht\@currbox
\advance\@floatheight \dp\@currbox
\divide\@floatheight\baselineskip \@floatlinecount=\@floatheight
\advance\@floatlinecount\@ne
\@floatheight=\@floatlinecount\baselineskip
%\fboxrule=0.01pt\fboxsep=0pt% for debugging
%\global\setbox\@currbox=\hbox{\fbox{\vbox to\@floatheight{\vfil\copy\@currbox\vfil}}}%
\global\setbox\@currbox=\vbox to\@floatheight{\vfil\copy\@currbox\vfil}%
     \ifnum\@floatpenalty <\z@ \@cons\@dbldeferlist\@currbox\fi
      \ifnum \@floatpenalty =-\@Mii \@esphack\fi\else\end@float\fi}



\def\maketitle{\par
 \begingroup
 \def\thefootnote{}%
 \def\@makefnmark{}%
 \if@twocolumn 
 \twocolumn[\@maketitle] 
 \else \newpage
 \global\@topnum\z@ \@maketitle \fi\thispagestyle{plain}\@thanks
 \endgroup
 \setcounter{footnote}{0}

 \thispagestyle{myheadings} % to avoid running head on title page
 \if@hissha
 \thispagestyle{hisshatop}
 \fi
 \let\maketitle\relax
 \let\@maketitle\relax
 \gdef\@thanks{}\gdef\@author{}\gdef\@title{}\let\thanks\relax}

\newbox\@temptitlebox

% abstract

\long\def\Jabstract#1{\global\long\def\Jabstcontent{\noindent\ignorespaces #1}}
\long\def\Eabstract#1{\global\long\def\Eabstcontent{\noindent\ignorespaces #1}}
\def\Jabstcontent{\relax}
\def\Eabstcontent{\relax}
\def\JEabstInsert{%
  \begin{adjustvboxheight}\vfill
  \begin{small}
    \begin{abstquotation}
      \Jabstcontent
      \par\hbox{ }\par
      \Eabstcontent
    \end{abstquotation}
  \end{small}\vskip8mm
  \end{adjustvboxheight}}
\def\EabstInsert{%
  \begin{adjustvboxheight}\vfill
  \begin{small}
    \begin{abstquotation}
      \Eabstcontent
    \end{abstquotation}
  \end{small}\vskip8mm
  \end{adjustvboxheight}}

\def\Jarticle{%
\global\def\@maketitle{\newpage \null
\hbox{\vbox to193.5\Q{\baselineskip=10mm % 193.5\Q = 9*\baselineskip
\begin{flushleft}
\JarticleHeader
% following extra vskip together with baselineskip(10mm) will produce
% appropriate 10mm/6mm gap between the rule and title
% This assumes that title is typeset with 28Q(7mm) font, and baseline
% is set 1mm above the bottom of the font.
\setbox\@temptitlebox\hbox{JarticleTitle}\ifdim\wd\@temptitlebox>\textwidth\vskip2mm\else\vskip6mm\fi
\leftskip=5mm
\JarticleTitle
\vskip6mm % to leave 10mm gap between title and author
\JarticleAuthor
\end{flushleft}\vfil}}
\JEabstInsert
}}

\def\Earticle{%
\def\refname{References}%
\def\tablename{Table~}
\def\figurename{Fig.~}
\global\def\@maketitle{\newpage \null
\hbox{\vbox to193\Q{\baselineskip=8mm % 193.5\Q = 9*\baselineskip
\begin{flushleft}
\EarticleHeader
% following extra vskip together with baselineskip(8mm) will produce
% appropriate 10mm/6mm gap between the rule and title
% This assumes that title is typeset with 28Q(7mm) font, and baseline
% is set 1mm above the bottom of the font.
\setbox\@temptitlebox\hbox{EarticleTitle}\ifdim\wd\@temptitlebox>\textwidth\vskip4mm\else\vskip8mm\fi
\leftskip=5mm
\EarticleTitle
\vskip6mm % to leave 10mm gap between title and author
\EarticleAuthor
\end{flushleft}\vfil}}
\EabstInsert
}
\@Baseline=17.5\Q}

\def\JarticleWithoutAbst{%
\global\def\@maketitle{\newpage \null
\hbox{\vbox to193.5\Q{\baselineskip=10mm % 193.5\Q = 9*\baselineskip
\begin{flushleft}
\JarticleHeader
\setbox\@temptitlebox\hbox{JarticleTitle}\ifdim\wd\@temptitlebox>\textwidth\vskip2mm\else\vskip6mm\fi
\leftskip=5mm
\JarticleTitle
\vskip6mm % to leave 10mm gap between title and author
\JarticleAuthor
\end{flushleft}\vfil}}}}

\def\leaderfill{\leaders\hbox{\rule{1mm}{1mm}}\hfill}
\def\leaderfillB{\leaders\hbox to1mm{%
 \vbox{\rule{1mm}{0.1mm}\vskip0.4mm
       \rule{1mm}{0.1mm}\vskip0.4mm
       \rule{1mm}{0.1mm}\vskip0.4mm
       \rule{1mm}{0.1mm}}}\hfill}

\newdimen\strokeinterval \newdimen\strokewidth
\newdimen\rightstrokewidth
\strokeinterval=\textwidth \advance\strokeinterval by-0.1mm
\divide\strokeinterval by150
\strokewidth=\strokeinterval
\multiply\strokewidth by150 \advance\strokewidth by0.1mm
\rightstrokewidth=\strokeinterval
\multiply\rightstrokewidth by9
\def\leaderfillstrokeL{\leaders\hbox to\strokeinterval{%
 \rule{0.1mm}{1.6mm}\hfil}\hfill}

\newdimen\boxinterval \newdimen\boxwidth
\newdimen\leftboxwidth
\boxinterval=\textwidth \advance\boxinterval by-1mm
\divide\boxinterval by99
\boxwidth=\boxinterval
\multiply\boxwidth by99 \advance\boxwidth by1mm
\leftboxwidth=\boxinterval
\multiply\leftboxwidth by6
\def\leaderfillboxL{\leaders\hbox to\boxinterval{%
 \rule{0.9mm}{1mm}\hfil}\hfill}

\ifASCII\else
\jfont\gona=dg12      % in ASCII, moved to (d)skfonts.
\fi

% default title header
% you must devise various headers for topics, tokushu, shohyo etc.
%
% 2009/04/22  H.Iwasaki
% ==========================================================
% �X�^�C���t�@�C���̕ύX�C���̖ړI�͈ȉ��̓��
%   �E2009�N6�����_�����e�K�肪���������̂ɍ��킹��
%   �E2009�N�x�̑��_���t�H�[�}�b�g�����p����悤�ɂ���
%

%%%
% �_�����
%   �R���s���[�^�\�t�g�E�F�A���Ɍf�ڂ����_����
%       �����_��/�\�t�g�E�F�A�_��/����_��
%   ��3�ʂ�ł��邪�C���\�e�����̃X�^�C���t�@�C�����g�����Ƃɂ����̂ŁC
%   �֋X�I�ɁC���\�e���_����ʂ̈��Ƃ���D
%   
%   ���ǘ_����ʂ́C
%     �����_��/�\�t�g�E�F�A�_��/����_��/���\�e
%   ��4�ʂ�̂����ꂩ�D���̂��ꂼ��ɂ‚��Ęa���Ɖp�������蓾�邪�C
%   �p������_���͂��܂�z�肵�Ă��Ȃ��D
%   �܂��C�`���[�g���A���͉���_���̈�킾���C1�y�[�W�ڂ̓�������
%   �قȂ�̂ŁC���ʂ̉���_���ƂΕʂ̎�ʕ�����p�ӂ����D
%
% \documentclass[..]{compsoft} �� [...] �̒��ɘ_����ʁC���ǎ�ʁC����
% ���w�肷��D
%
% �_�����
%   P   �����_�� (�f�t�H���g)
%   S   �\�t�g�E�F�A�_��
%   K   ���ʂ̉���_��
%   U   �`���[�g���A��
%   T   ���_�� (���_���͕֋X�I�ɘ_����ʂ̈��Ƃ��Ĉ���)
%
% ���ǎ�� (���_���̎��ɂ͎w�肵�Ȃ�)
%   R   �ʏ�_�� (�f�t�H���g)
%   L   ���^�[�_��
%
% ����
%   J   �a�� (�f�t�H���g)
%   E   �p��
%
% \ronbunShubetsu �́C�_����ʂ�\���ꕶ�� (P, S, K, U, T �̂����ꂩ)
% \sadokuShubets  �́C���ǎ�ʂ�\���ꕶ�� (R�CL �̂����ꂩ)
% \ronbunLang     �́C�����\���ꕶ�� (J, E �̂����ꂩ)

\let\ronbunShubetsu=P     % �_����ʂ̃f�t�H���g�l�͌����_��
\let\sadokuShubetsu=R     % ���ǎ�ʂ̃f�t�H���g�l�͒ʏ�_��
\let\ronbunLang=J         % �f�t�H���g�͘a���_��
\def\JarticleHeader{\rule{\textwidth}{1mm}}
\def\JarticleTitle{{\huge\bf\@title}}
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}

%
% �_�����
%

\def\ifRonbun#1{\ifx\ronbunShubetsu P{#1}\else\relax\fi}
\def\ifSoftRonbun#1{\ifx\ronbunShubetsu S{#1}\else\relax\fi}
\def\ifKaisetsu#1{\ifx\ronbunShubetsu K{#1}\else\relax\fi}
\def\ifTutorial#1{\ifx\ronbunShubetsu U{#1}\else\relax\fi}
\def\ifTaikai#1{\ifx\ronbunShubetsu T{#1}\else\relax\fi}
\def\ifNotTaikai#1{\ifx\ronbunShubetsu T\relax\else{#1}\fi}

% ��P �i�����_���j
\def\ds@P{
\let\ronbunShubetsu=P%
\def\JarticleHeader{\rule{\textwidth}{1mm}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��S �i�\�t�g�E�F�A�_���j
\def\ds@S{
\let\ronbunShubetsu=S%
\def\JarticleHeader{%
\hbox to \strokewidth{\leaderfillboxL\rule{0.9mm}{1mm}}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��K �i���ʂ̉���_���j
\def\ds@K{
\let\ronbunShubetsu=K%
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}\vskip0.4mm
\rule{\textwidth}{0.1mm}\vskip0.4mm
\rule{\textwidth}{0.1mm}\vskip0.4mm
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona ���@��}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��U �i�`���[�g���A�� --- ����_���̈��j
\def\ds@U{
\let\ronbunShubetsu=U%
\def\JarticleHeader{{\offinterlineskip
\hbox to \strokewidth{\leaderfillstrokeL\rule{0.1mm}{1.6mm}}
\hbox to\strokewidth{\hbox to0.1mm{{\vbox to8mm{\vss\rule{0.1mm}{9.5mm}}}}%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �`���[�g���A��}}\vfil}\hfil%
\hbox to0.1mm{\vbox to8mm{\vss\rule{0.1mm}{9mm}}}}
\rule{\strokewidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��T �i���_���j
\def\ds@T{
\let\ronbunShubetsu=T%
\def\JarticleHeader{\rule{\textwidth}{1mm}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle\adjustAfour}

%
% ���ǎ�� --- �ʏ�_��/���^�[�_�� ��2�ʂ�
%

\def\ifRegular#1{\ifx\sadokuShubetsu R{#1}\else\relax\fi}
\def\ifLetter#1{\ifx\sadokuShubetsu L{#1}\else\relax\fi}

% ��R �i�ʏ�_���j
\def\ds@R{
\let\sadokuShubetsu=R
}

% ��L �i���^�[�_���j
\def\ds@L{
\let\sadokuShubetsu=L
}

%
% ����
%

% ��J �i�a���j
\def\ds@J{
\let\ronbunLang=J%
\Jarticle}

% ��E �i�p���j
\def\ds@E{
\let\ronbunLang=E%
\def\EarticleHeader{\JarticleHeader}
\def\EarticleTitle{\JarticleTitle}
\def\EarticleAuthor{\JarticleAuthor}
\Earticle}

%%%
% ���W�̏ꍇ
%   \tokushu{���W�̃^�C�g��}
% �Ƃ���D���̃^�C�g���́C1�y�[�W�ڂ̏�̕��ɏo�͂����D

\def\tokushu#1{%
\def\tokushutitle{#1}%
\ifRonbun{%
\gdef\articleHeader{\hbox to\textwidth{\rule{3\@mojihaba}{1mm}%
\hbox{\small\bf\hskip1mm ���W��\tokushutitle}\leaderfill}}}%
\ifSoftRonbun{%
\gdef\articleHeader{\hbox to\textwidth{%
\hbox to \leftboxwidth{\leaderfillboxL}%
\hbox{\small\bf\hskip1mm ���W��\tokushutitle}\leaderfillboxL
\rule{0.9mm}{1mm}}}}%
\ifKaisetsu{%
\gdef\articleHeader{{\offinterlineskip
\hbox to \textwidth{\leaderfillB\hbox{\small\bf\hskip1mm ���W��\tokushutitle
\hskip1mm}%
\hbox to3\@mojihaba{%
 \vbox{\rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}}}}%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona ���@��}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}}%
\ifTutorial{%
\gdef\articleHeader{{\offinterlineskip
\hbox to \strokewidth{\leaderfillstrokeL
\hbox{\small\bf\hskip1mm ���W��\tokushutitle\hskip2mm}%
\hbox to\rightstrokewidth{\leaderfillstrokeL}\rule{0.1mm}{1.6mm}}%
\hbox to\strokewidth{\hbox to0.1mm{{\vbox to8mm{\vss\rule{0.1mm}{9mm}}}}%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �`���[�g���A��}}\vfil}\hfil%
\hbox to0.1mm{\vbox to8mm{\vss\rule{0.1mm}{9mm}}}}
\rule{\strokewidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}}%
\gdef\JarticleHeader{\articleHeader}%
\gdef\EarticleHeader{\articleHeader}}

%%%
% ���E�̏ꍇ
%   \suisen{�^�C�g��}
% �Ƃ���D���̃^�C�g���́C1�y�[�W�ڂ̏�̕��ɏo�͂����D

\def\suisen#1{%
\def\suisentitle{#1}%
\ifRonbun{%
\gdef\articleHeader{\hbox to\textwidth{\rule{3\@mojihaba}{1mm}%
\hbox{\small\bf\hskip1mm ���E�_����\suisentitle}\leaderfill}}}%
\ifSoftRonbun{%
\gdef\articleHeader{\hbox to\textwidth{%
\hbox to \leftboxwidth{\leaderfillboxL}%
\hbox{\small\bf\hskip1mm ���E�_����\suisentitle}\leaderfillboxL
\rule{0.9mm}{1mm}}}}%
\ifKaisetsu{%
\gdef\articleHeader{{\offinterlineskip
\hbox to \textwidth{\leaderfillB\hbox{\small\bf\hskip1mm ���E�_����\suisentitle
\hskip1mm}%
\hbox to3\@mojihaba{%
 \vbox{\rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}}}}%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona ���@��}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}}%
\gdef\JarticleHeader{\articleHeader}%
\gdef\EarticleHeader{\articleHeader}}

%%%
% ���\�e�̏ꍇ
%   \taikai{�N�x}
% �����Ȃ���΂Ȃ�Ȃ��D�񐔂͔N�x���玩���I�Ɍv�Z�����D
% �� = �N�x - 1983
% ���̃^�C�g���́C1�y�[�W�ڂ̏�̕��ɏo�͂����D

\def\leaderfilll{\leaders\hbox{\rule{0.2mm}{0.2mm}}\hfill}

\def\taikai#1{%
\ifTaikai{%
\newcount\currentYear%
\newcount\currentKai%
\currentYear=#1%
\currentKai=\currentYear\advance\currentKai by-1983%
\global\xdef\taikaititle{���{�\�t�g�E�F�A�Ȋw���\number\currentKai ����%
(\number\currentYear �N�x)�u���_���W}%
\gdef\articleHeader{\hbox to\textwidth{\rule{3\@mojihaba}{0.2mm}%
\hbox{\small\bf\hskip1mm \taikaititle\hskip1mm}\leaderfilll}}%
\gdef\JarticleHeader{\articleHeader}%
\gdef\EarticleHeader{\articleHeader}%
\gdef\@oddheadcontents{\taikaititle}%
\gdef\@evenheadcontents{\taikaititle}}}

%%%
% 1�y�[�W�ڂ̍����ɏo�͂�������
\def\ejtitle#1{\thanks{#1}}

\def\shozoku#1#2#3{\thanks{#1, #2, #3.}}

\def\shutten{%
\ifNotTaikai{%
  \thanks{\kanjiskip 0pt minus 0.15zw %
  �R���s���[�^�\�t�g�E�F�A, \kern-0.75pt Vol.\arabic{����}, %
  \kern-0.75pt No.\arabic{����} \kern-1.25pt(\arabic{�N��}), %
  \kern-0.75pt pp.\arabic{firstpage}--\arabic{lastpage}.}}}

\def\ronbunKind{%
  \ifRonbun{����}\ifSoftRonbun{�\�t�g�E�F�A}%
  \ifKaisetsu{���}\ifTutorial{���}�_��%
  \ifRegular{\relax}\ifLetter{(���^�[)}}

\def\uketsuke#1#2#3{\ifNotTaikai{\thanks{[\ronbunKind] #1�N#2��#3����t.}}}

\def\note#1{\thanks{#1}}

% ���������͌݊����̂��߂ɁC������Ă��Ȃ�
%
% ==========================================================
% ��ronbun �i�_���j
\def\ds@ronbun{
\def\JarticleHeader{\rule{\textwidth}{1mm}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��Eronbun �i�p���_���j
\def\ds@Eronbun{
\def\EarticleHeader{\rule{\textwidth}{1mm}}%
\def\EarticleTitle{{\huge\bf\@title}}%
\def\EarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Earticle}

% ==========================================================
% ��ronbungaiyou �i�_���T�v�j
\def\ds@ronbungaiyou{
\def\pages##1{\long\def\pp{##1}}
\let\Jabstcontent\relax
\let\Eabstcontent\relax
\def\maketitle{\par
 \@lastpagebalancingfalse
 \begingroup
 \def\thefootnote{}%
 \def\@makefnmark{}%
 \@maketitle
 \thispagestyle{plain}\@thanks
 \endgroup
 \setcounter{footnote}{0}
 \thispagestyle{myheadings} % to avoid running head on title page
\gdef\@thanks{}\gdef\@author{}\gdef\@title{}
\let\Jabstcontent\relax
\let\Eabstcontent\relax
% \let\thanks\relax
}%
%
\def\JarticleHeader{\hbox to25\jspaceskip{\rule{2\@mojihaba}{1mm}\hbox{\small\bf\hskip1mm �T�C�o�[�y�[�W�_���T�v\hskip1mm}\leaderfill}}%
\def\JarticleTitle{{\Large\bf\@title}}%
\def\JarticleAuthor{\large\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\global\def\@maketitle{\newpage \null 
\hbox{\vbox to193.5\Q{\baselineskip=6mm % 193.5\Q = 9*\baselineskip
\begin{flushleft}
\JarticleHeader
\vskip5mm
\leftskip=0mm
\JarticleTitle
\vskip3mm % to leave 7mm gap between title and author
\JarticleAuthor
\end{flushleft}\vfil}}
% \begin{small}
\begingroup
\ifx\Jabstcontent\relax
\baselineskip=19.5Q
\Eabstcontent\par
\else
\baselineskip=19.5Q
\Jabstcontent\par
\fi
\leavevmode\null\hfill 
[\kern1pt pp.~\pp\kern1pt]\par
\endgroup
% \end{small}
}}

% ==========================================================
% ��softwareronbun �i�\�t�g�E�F�A�_���j
\def\ds@softwareronbun{
\def\JarticleHeader{%
\hbox to \strokewidth{\leaderfillboxL\rule{0.9mm}{1mm}}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ==========================================================
% ��tutorial �i�`���[�g���A���j
\def\ds@tutorial{
\def\JarticleHeader{{\offinterlineskip
\hbox to \strokewidth{\leaderfillstrokeL\rule{0.1mm}{1.6mm}}
\hbox to\strokewidth{\hbox to0.1mm{{\vbox to8mm{\vss\rule{0.1mm}{9.5mm}}}}%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �`���[�g���A��}}\vfil}\hfil%
\hbox to0.1mm{\vbox to8mm{\vss\rule{0.1mm}{9mm}}}}
\rule{\strokewidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ==========================================================
% ��kaisetsu �i����j
\def\ds@kaisetsu{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}\vskip0.4mm
\rule{\textwidth}{0.1mm}\vskip0.4mm
\rule{\textwidth}{0.1mm}\vskip0.4mm
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona ���@��}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ==========================================================
% ��topics �i�g�s�b�N�X�j
\def\ds@topics{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �g�s�b�N�X}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��software �i�\�t�g�E�F�A�Љ�j
\def\ds@softwareshokai{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �\�t�g�E�F�A�Љ�}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��forum �i�t�H�[�����j
\def\ds@forum{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �t�H�[����}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��zadankai �i���k��j
\def\ds@zadankai{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona ���k��}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��column �i�R�����j
\def\ds@column{
\global\advance\textheight by-3mm
\global\advance\leftskip by3mm
\global\advance\rightskip by3mm
\global\def\@maketitle{\newpage \null
\hbox{\vbox to165\Q{% 172\Q = 7*\baselineskip
\begin{flushleft}
\null\vskip11.2mm
\leftskip=8mm \baselineskip10mm
{\huge\bf\@title}
\vskip1.5mm % to leave hmode and start a new paragraph
\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}%
\end{flushleft}\vfil}}}% 
\columnsep 0pt     % ueda
}

% ��review �i���]�j
\def\ds@bookreview{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona ���@�]}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��pioneer �i�p�C�I�j�A�j
\def\ds@pioneer{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �p�C�I�j�A}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��memoriam �i�Ǔ��L���j
\def\ds@memoriam{
\def\JarticleHeader{{\offinterlineskip
\rule{\textwidth}{0.1mm}
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona }\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ==========================================================
% ���W�␄�E�̖��O�����邽�߂̃}�N���B���[�U�ɒ�`���Ă��炤�B
\def\tokushutitle{}
\def\suisentitle{}

% ��tokushuronbun �i���W�_���j
\def\ds@tokushuronbun{
\def\JarticleHeader{\hbox to\textwidth{\rule{3\@mojihaba}{1mm}\hbox{\small\bf\hskip1mm ���W��\tokushutitle}\leaderfill}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��Etokushuronbun �i�p�����W�_���j
\def\ds@Etokushuronbun{
\def\EarticleHeader{\hbox to\textwidth{\rule{3\@mojihaba}{1mm}\hbox{\small\bf\hskip1mm ���W��\tokushutitle}\leaderfill}}%
\def\EarticleTitle{{\huge\bf\@title}}%
\def\EarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Earticle}

% ��tokushusoftwareronbun �i���W�\�t�g�E�F�A�_���j
\def\ds@tokushusoftwareronbun{
\def\JarticleHeader{\hbox to\textwidth{%
\hbox to \leftboxwidth{\leaderfillboxL}%
\hbox{\small\bf\hskip1mm ���W��\tokushutitle}\leaderfillboxL
\rule{0.9mm}{1mm}}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��tokushututorial �i���W�`���[�g���A���j
\def\ds@tokushututorial{
\def\JarticleHeader{{\offinterlineskip
\hbox to \strokewidth{\leaderfillstrokeL
\hbox{\small\bf\hskip1mm ���W��\tokushutitle\hskip2mm}%
\hbox to\rightstrokewidth{\leaderfillstrokeL}\rule{0.1mm}{1.6mm}}%
\hbox to\strokewidth{\hbox to0.1mm{{\vbox to8mm{\vss\rule{0.1mm}{9mm}}}}%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �`���[�g���A��}}\vfil}\hfil%
\hbox to0.1mm{\vbox to8mm{\vss\rule{0.1mm}{9mm}}}}
\rule{\strokewidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��tokushukaisetsu �i���W����j
\def\ds@tokushukaisetsu{
\def\JarticleHeader{{\offinterlineskip
\hbox to \textwidth{\leaderfillB\hbox{\small\bf\hskip1mm ���W��\tokushutitle
\hskip1mm}%
\hbox to3\@mojihaba{%
 \vbox{\rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}\vskip0.4mm
       \rule{3\@mojihaba}{0.1mm}}}}%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona ���@��}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��topics �i���W�g�s�b�N�X�j
\def\ds@tokushutopics{
\def\JarticleHeader{{\offinterlineskip
%
\hbox to\textwidth{%
\setbox0=\hbox{\small\bf\hskip1mm ���W��\tokushutitle\hskip1mm}%
\leaders\hbox{\rule{1mm}{0.1mm}}\hfill
\vbox to0pt{\hsize\wd0\vss\box0\vss}\hbox{\rule{3\@mojihaba}{0.1mm}}}
% \hbox{\rule{3\@mojihaba}{0.1mm}}}
%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �g�s�b�N�X}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��topics �i���W�\�t�g�E�F�A�Љ�j
\def\ds@tokushusoftwareshokai{
\def\JarticleHeader{{\offinterlineskip
%
\hbox to\textwidth{%
\setbox0=\hbox{\small\bf\hskip1mm �����W��\tokushutitle\hskip1mm}%
\leaders\hbox{\rule{1mm}{0.1mm}}\hfill
\vbox to0pt{\hsize\wd0\vss\box0\vss}\hbox{\rule{3\@mojihaba}{0.1mm}}}
% \hbox{\rule{3\@mojihaba}{0.1mm}}}
%
\vbox to8mm{\vfil\hbox{\hskip5mm{\gona �\�t�g�E�F�A�Љ�}\hfil}\vfil}
\rule{\textwidth}{0.1mm}
\vskip0pt}% to end the paragraph and use new baselineskip
}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\JarticleWithoutAbst}

% ��suisenronbun �i���E�_���j
\def\ds@suisenronbun{
\def\JarticleHeader{\hbox to\textwidth{\rule{3\@mojihaba}{1mm}\hbox{\small\bf\hskip1mm ���E�_����\suisentitle}\leaderfill}}%
\def\JarticleTitle{{\huge\bf\@title}}%
\def\JarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Jarticle}

% ��Esuisenronbun �i�p�����E�_���j
\def\ds@Esuisenronbun{
\def\EarticleHeader{\hbox to\textwidth{\rule{3\@mojihaba}{1mm}\hbox{\small\bf\hskip1mm ���E�_����\suisentitle}\leaderfill}}%
\def\EarticleTitle{{\huge\bf\@title}}%
\def\EarticleAuthor{\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}}%
\Earticle}
% ==========================================================

% ==========================================================
% ��kantogen �i�������j
\def\ds@kantogen{
\global\def\@maketitle{\newpage \null
\hbox{\vbox{
\begin{flushleft}
\offinterlineskip
\vspace*{-\topskip}
\rule{\textwidth}{0.1mm}
\vskip6mm{\gona ������}\hskip15mm{\huge\@title}\vskip5mm\hskip27mm%
\Large\begin{tabular}[t]{@{}l}\@author\end{tabular}%
\vskip10mm plus10mm minus10mm% you must adjust this size
\vskip22.5\Q
\end{flushleft}
\vfil}}}
\leftskip=27mm
\@totalleftmargin=27mm
\@rightskip=27mm
\onecolumn
\baselineskip=22.5\Q
\global\tendm\global\rm % This does not work, I don't know why!
}
% ==========================================================

% ==========================================================
% ��tokushutobira �i���W�̕ҏW�ɂ������āj
\def\ds@tokushutobira{
\global\def\@maketitle{\newpage \null
\vspace*{-\baselineskip}
\begin{flushleft}
\hbox to\textwidth
{\rule{3\@mojihaba}{1mm}\hbox{\small\bf\hskip1mm ���W��\tokushutitle}\leaderfill}%
\vskip12mm\hskip5mm{\huge\bf\@title}\vskip1mm\hskip5mm%
\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}%
\vskip10mm%
\end{flushleft}%\vfil
}
% tokushutobira must be flush left on even page, and flush right on
% odd page.
\ifodd\c@page
\leftskip=7\@mojihaba \rightskip=0pt
\@totalleftmargin=7\@mojihaba % for list environment such as itemize
\@rightskip=7\@mojihaba % for list environment such as itemize
\else
\leftskip=0pt \rightskip=7\@mojihaba
\@totalleftmargin=0pt
\@rightskip=7\@mojihaba
\fi
\onecolumn
}
% ==========================================================

% ==========================================================
% ��tobira �i�����j
\def\ds@tobira{
\global\def\@maketitle{\newpage \null
\vspace*{-\baselineskip}
\begin{flushleft}
\rule{\textwidth}{1mm}
\vskip12mm\hskip5mm{\huge\bf\@title}\vskip1mm\hskip5mm%
\LARGE\begin{tabular}[t]{@{}l}\@author\end{tabular}%
\vskip10mm%
\end{flushleft}%\vfil
}
% tokushutobira must be flush left on even page, and flush right on
% odd page.
\ifodd\c@page
\leftskip=7\@mojihaba \rightskip=0pt
\@totalleftmargin=7\@mojihaba % for list environment such as itemize
\@rightskip=7\@mojihaba % for list environment such as itemize
\else
\leftskip=0pt \rightskip=7\@mojihaba
\@totalleftmargin=0pt
\@rightskip=7\@mojihaba
\fi
\onecolumn
}
% ==========================================================

% ==========================================================
% ��gakkaikiji �i�w��L���j
% Gakkai-Kiji header added by yaski
\def\ds@gakkaikiji{
\global\def\@maketitle{\newpage \null
\hbox{\vbox to64.5\Q{% 43\Q=3*21.5\Q
\begin{flushleft}
{\offinterlineskip
\noindent
\hbox to \hsize{{\LARGE ���{�\�t�g�E�F�A�Ȋw��} \leaders\hrule height 2mm\hfill}
\vspace{2mm}
\hbox to \hsize{\footnotesize\bf 
Japan Society for Software Science and Technology \hfil}}
\end{flushleft}\vfil}}}
}
% ==========================================================

% ==========================================================
% �� henshu header added by yaski (�ҏW�����)
\def\ds@henshu{
\global\def\@maketitle{\newpage \null
\hbox{\vbox to64.5\Q{% 43\Q=3*21.5\Q
\begin{flushleft}
{\offinterlineskip
\noindent
\hbox to \hsize{{\LARGE ���{�\�t�g�E�F�A�Ȋw��} \leaders\hrule height 2mm\hfill}
\vspace{2mm}
\hbox to \hsize{\footnotesize\bf 
Japan Society for Software Science and Technology \hfil}}
\end{flushleft}\vfil}}}
}
% ==========================================================

% ==========================================================
% <13> hissha header added by ohno (�M�ҏЉ�)
\def\ds@hissha{
\setlength\headsep{47.5mm}
\setlength\textheight{160mm}
\pagestyle{hissha}
\@hisshatrue
% ----------------
\raggedbottom
\global\def\@maketitle{\newpage \null
%\thispagestyle{hisshatop}
%\vskip-45mm % added by iwamoto 92.10.15
%\vskip-55mm % added by iwamoto 92.10.15
\vskip-53mm
%\hbox to \textwidth{\hrulefillx}
\vskip 10mm
\hbox{\vbox to40mm{%
\noindent
\vskip8mm
\begin{tabular}{l}
{\LARGE\bf �M\hspace{2mm}��\hspace{2mm}��\hspace{2mm}��}
\end{tabular}
\vfil}}}
}
\def\ds@newsletr{
\input{newsletr.sty}
}

% ==========================================================
% ���ڎ�
\def\ds@somokuji{
\setlength\headsep{30mm}
\setlength\textheight{190mm}
\pagestyle{hissha}
\@hisshatrue
% ----------------
\raggedbottom
\global\def\@maketitle{\newpage \null
%\thispagestyle{hisshatop}
%\vskip-45mm % added by iwamoto 92.10.15
%\vskip-55mm % added by iwamoto 92.10.15
%\vskip-30mm
%\hbox to \textwidth{\hrulefillx}
\vskip -20mm
\hbox{\vbox to21mm{%
\noindent
\vskip1mm
\begin{tabular}{l}
{\LARGE\bf \@title}
\end{tabular}
\vfil}}}
}

% You must define ���]�p header here!


\mark{{}{}} 

% volpage�i�{�����[���ʂ��y�[�W�jhas been abolished as of Vol.22 (2005),
% but the counter volpageoffset is kept alive for backward compatibility
% because many papers still say \setcounter{volpageoffset}{...} .
%
% \newcounter{volpage}
\newcounter{volpageoffset} % You must set this to appropriate value
% \setcounter{volpageoffset}{0} % for each issue!

% \def\thevolpage{\setcounter{volpage}{\value{page}}%
%  \addtocounter{volpage}{\value{volpageoffset}}%
%   \hbox to21pt{(\hfil\arabic{volpage}\hfil)}}
\let\thevolpage=\null

\newcounter{����} \newcounter{����}
\newcounter{�N��}
\newcounter{firstpage}
\newcounter{lastpage}

\def\volNoPp#1#2#3#4{%
  \ifNotTaikai{%
  \setcounter{����}{#1}\setcounter{����}{#2}%
  \setcounter{�N��}{1983}\addtocounter{�N��}{\value{����}}%
  \setcounter{firstpage}{#3}\setcounter{lastpage}{#4}\setcounter{page}{#3}}}

\def\@oddheadcontents
 {Vol.~\arabic{����}\hskip\@mojihaba No.~\arabic{����}\hskip\@mojihaba
  \ifcase\value{����}\or Jan.\or Apr.\or July\or Oct.\else\fi
  \hskip.5\@mojihaba \setcounter{�N��}{1983}\addtocounter{�N��}{\value{����}}
  \arabic{�N��}}

\def\@evenheadcontents{�R���s���[�^�\�t�g�E�F�A}

\def\ps@headings{\let\@mkboth\markboth
\def\@oddfoot{}
\def\@evenfoot{}
\def\@evenhead{\normalsize
 \thepage\phantom{\thevolpage}\hfil\@evenheadcontents
  \hfil\phantom{\thepage}\thevolpage}
\def\@oddhead{\normalsize
 \thevolpage\phantom{\thepage}\hfil\@oddheadcontents
  \hfil\phantom{\thevolpage}\thepage}
\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth>\z@
 \thesection\hskip 1em\relax \fi ##1}}{}}
\def\subsectionmark##1{\markright{\ifnum \c@secnumdepth >\@ne
 \thesubsection\hskip 1em\relax \fi ##1}}}

\def\ps@hissha{\let\@mkboth\markboth
\def\@oddfoot{}
\def\@evenfoot{}
\def\@evenhead{\vbox to221.5mm{\hbox to\textwidth{\normalsize
 \thepage\phantom{\thevolpage}\hfil{�R���s���[�^�\�t�g�E�F�A}
  \hfil\phantom{\thepage}\thevolpage}\vskip3.5mm\rule{\textwidth}{0.1mm}\vfill\rule{\textwidth}{0.1mm}}}
\def\@oddhead{\vbox to221.5mm{\hbox to\textwidth{\normalsize
 \thevolpage\phantom{\thepage}\hfil\@oddheadcontents
  \hfil\phantom{\thevolpage}\thepage}\vskip3.5mm\rule{\textwidth}{0.1mm}\vfill\rule{\textwidth}{0.1mm}}}
\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth>\z@
 \thesection\hskip 1em\relax \fi ##1}}{}}
\def\subsectionmark##1{\markright{\ifnum \c@secnumdepth >\@ne
 \thesubsection\hskip 1em\relax \fi ##1}}}

\def\ps@hisshatop{\let\@mkboth\markboth
\def\@oddfoot{}
\def\@evenfoot{}
\def\@evenhead{\vbox to221.5mm{\vskip.7mm\hbox to\textwidth{\normalsize
 \thepage\phantom{\thevolpage}\hfil\phantom{�R���s���[�^�\�t�g�E�F�A}
  \hfil\phantom{\thepage}\thevolpage}\vskip3.5mm\rule{\textwidth}{0.1mm}\vfill\rule{\textwidth}{0.1mm}}}
\def\@oddhead{\vbox to221.5mm{\vskip.7mm\hbox to\textwidth{\normalsize
 \thevolpage\phantom{\thepage}\hfil\phantom{\@oddheadcontents}
  \hfil\phantom{\thevolpage}\thepage}\vskip3.5mm\rule{\textwidth}{0.1mm}\vfill\rule{\textwidth}{0.1mm}}}
\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth>\z@
 \thesection\hskip 1em\relax \fi ##1}}{}}
\def\subsectionmark##1{\markright{\ifnum \c@secnumdepth >\@ne
 \thesubsection\hskip 1em\relax \fi ##1}}}

\def\ps@newsheadings{\let\@mkboth\markboth
%\newfont{\cmssi}{cmssi10 scaled \magstep1}
%\def\cmssi{\usefont{OT1}{cmss}{m}{it}}
\font\cmssi=cmssi10 scaled \magstep1
\def\@oddfoot{}
\def\@evenfoot{}
\def\@evenhead{\vbox to20mm{\vskip.7mm\hbox to\textwidth{\normalsize
 \thepage\phantom{\thevolpage}\hfil{�@�@�@�@}
  \hfil\phantom{\thepage}\thevolpage}\vskip2mm\hbox to\textwidth{%\hskip2mm
\rule{29mm}{0.1mm}\hss\raisebox{-.5mm}{\cmssi NewsLetter}\hss\rule{97mm}{0.1mm}%\hskip2mm
}\vfill}}
\def\@oddhead{\vbox to20mm{\vskip.7mm\hbox to\textwidth{\normalsize
 \thevolpage\phantom{\thepage}\hfil{�@�@�@�@}
  \hfil\phantom{\thevolpage}\thepage}\vskip2mm\hbox to\textwidth{%\hskip2mm
\rule{29mm}{0.1mm}\hss\raisebox{-.5mm}{\cmssi NewsLetter}\hss\rule{97mm}{0.1mm}%\hskip2mm
}\vfill}}
\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth>\z@
 \thesection\hskip 1em\relax \fi ##1}}{}}
\def\subsectionmark##1{\markright{\ifnum \c@secnumdepth >\@ne
 \thesubsection\hskip 1em\relax \fi ##1}}}

\def\ps@myindexheadings{\let\@mkboth\markboth
%\newfont{\cmssi}{cmssi10 scaled \magstep1}
%\def\cmssi{\usefont{OT1}{cmss}{m}{it}}
\font\cmssi=cmssi10 scaled \magstep1
\def\@oddfoot{}
\def\@evenfoot{}
\def\@evenhead{\vbox to20mm{\vskip.7mm\hbox to\textwidth{\normalsize
 \thepage\phantom{\thevolpage}\hfil{�@�@�@�@}
  \hfil\phantom{\thepage}\thevolpage}\vskip2mm\hbox to\textwidth{\hskip2mm\rule{27mm}{0.1mm}\hss\raisebox{-.5mm}{\cmssi NewsLetter}\hss\rule{95mm}{0.1mm}\hskip2mm}\vfill}}
\def\@oddhead{\vbox to20mm{\vskip.7mm\hbox to\textwidth{\normalsize
 \thevolpage\phantom{\thepage}\hfil{�@�@�@�@}
  \hfil\phantom{\thevolpage}\thepage}\vskip2mm\hbox to\textwidth{\hskip2mm\rule{27mm}{0.1mm}\hss\raisebox{-.5mm}{\cmssi NewsLetter}\hss\rule{95mm}{0.1mm}\hskip2mm}\vfill}}
\def\sectionmark##1{\markboth {\uppercase{\ifnum \c@secnumdepth>\z@
 \thesection\hskip 1em\relax \fi ##1}}{}}
\def\subsectionmark##1{\markright{\ifnum \c@secnumdepth >\@ne
 \thesubsection\hskip 1em\relax \fi ##1}}}

\def\ps@myheadings{\let\@mkboth\@gobbletwo
\def\@oddhead{\normalsize \thevolpage\hfil\thepage}
\def\@oddfoot{}
\def\@evenfoot{}
\def\@evenhead{\normalsize \thepage\hfil\thevolpage}
\def\sectionmark##1{}\def\subsectionmark##1{}}

\pagestyle{headings}
\pagenumbering{arabic}

\def\tablename{�\}
\def\figurename{�}}

\if@LaTeX@e
\ifASCII
\def\bf{\normalfont\gtfamily\bfseries}
\fi
\else
\def\bf{\protect\pdg\protect\pbf}
\fi

\def\today{\the\year �N \the\month �� \the\day ��}

\def\sloppy{\tolerance 9000 \hfuzz .5\p@ \vfuzz .5\p@}

\flushbottom



% To balance the final page,
% following code is borrowed from nicetwocolumn style
\newdimen\dimen@@

\def\balancecolumns{\setbox0\vbox{\unvbox\@outputbox} \dimen@@=\ht0
   \advance\dimen@@ by\topskip \advance\dimen@@ by-\baselineskip
   \divide\dimen@@ by2 \splittopskip=\topskip
   {\vbadness=10000 \loop \global\setbox3=\copy0
     \global\setbox1=\vsplit3 to\dimen@@
     \ifdim\ht3>\dimen@@ \global\advance\dimen@@ by1pt\repeat}
   \ifdim\dimen@@>\textheight \dimen@@=\textheight\fi
   \setbox0=\vbox to \dimen@@{\unvbox1} \setbox2=\vbox to \dimen@@{\unvbox3}
   \if\ht0>\ht2 \setbox2=\vbox to\ht0{\unvbox2}\dimen@@=\ht0\else
   \if\ht2>\ht0 \setbox0=\vbox to\ht2{\unvbox0}\dimen@@=\ht2\fi\fi
  \wd0=\hsize \wd2=\hsize
%\message{in balancecolumns dimen@@=\the\dimen@@, dp0=\the\dp0, dp2=\the\dp2}
\ifdim\dp0>\dp2\advance\dimen@@ by\dp0\else\advance\dimen@@ by\dp2\fi
\setbox\@outputbox\vbox to\dimen@@{\hbox to\textwidth{\box0\hfil\box2}\vfill}}


% you can refrain from balancing by falsifying following switch!
\newif\if@lastpagebalancing \@lastpagebalancingtrue % default is to balance

% incorporate balanced output to \enddocument
\def\enddocument{\if@lastpagebalancing \global\let\@outputdblcol=\balancing@outputdblcol\fi%
\@checkend{document}\clearpage
\begingroup  
\if@filesw \immediate\closeout\@mainaux 
\def\global\@namedef##1##2{}\def\newlabel{\@testdef r}%
\def\bibcite{\@testdef b}\@tempswafalse \makeatletter\input \jobname.aux
\if@tempswa \@warning{Label(s) may have changed.  Rerun to get
cross-references right}\fi\fi\endgroup
\deadcycles\z@\@@end}

\newlength{\@interlinegap}

% to change \interlinegap appropriately at appropriate time
\def\@outputdblcol{\if@firstcolumn \global\@firstcolumnfalse
    \global\setbox\@leftcolumn\box\@outputbox
% Following interlinegap value may be wrong!!
% It is set to gap+depth for normalsize, and depth(2.031999Q) for footnotesize.
% This setting is inconsistent, but seems to work properly now.
%\ifx \@currsize\normalsize \global\@interlinegap 8.54815pt\else% setup
% reset to 10Q after final page footnote hack!
\ifx \@currsize\normalsize \global\@interlinegap 10\Q\else% setup
 \ifx \@currsize\footnotesize \global\@interlinegap 2.03199\Q\else% appropriate
  \ifx \@currsize\small \global\@interlinegap 3.08713pt\fi\fi\fi% gap here!
  \else \global\@firstcolumntrue
\if@leftfootnoteexist\setbox\@leftcolumn\vbox to\@colht{\boxmaxdepth\maxdepth
\@texttop\dimen128=\dp\@leftcolumn
\unvbox\@leftcolumn\vskip\skip\footins\footnoterule%
%\message{in outputdblcol leftcolumnfootnote=ht:\the\ht\@leftcolumnfootnote, dp:\the\dp\@leftcolumnfootnote, wd:\the\wd\@leftcolumnfootnote}
\unvbox\@leftcolumnfootnote
\vskip-\dimen128\@textbottom}
\global\maxdepth\@maxdepth\else
\setbox\@leftcolumn\vbox to\@colht{\boxmaxdepth\maxdepth
\@texttop\dimen128=\dp\@leftcolumn
\unvbox\@leftcolumn\vfill%
\vskip-\dimen128\@textbottom}
\global\maxdepth\@maxdepth\fi
\if@rightfootnoteexist\setbox\@outputbox\vbox to\@colht{\boxmaxdepth\maxdepth
\@texttop\dimen128=\dp\@outputbox
\unvbox\@outputbox\vskip\skip\footins\footnoterule%
%\message{in outputdblcol rightcolumnfootnote=ht:\the\ht\@rightcolumnfootnote, dp:\the\dp\@rightcolumnfootnote, wd:\the\wd\@rightcolumnfootnote}
\unvbox\@rightcolumnfootnote
\vskip-\dimen128\@textbottom}
\global\maxdepth\@maxdepth\else
\setbox\@outputbox\vbox to\@colht{\boxmaxdepth\maxdepth
\@texttop\dimen128=\dp\@outputbox
\unvbox\@outputbox\vfill%
\vskip-\dimen128\@textbottom}
\global\maxdepth\@maxdepth\fi
    \setbox\@outputbox\vbox{\hbox to\textwidth{\hbox to\columnwidth
      {\box\@leftcolumn \hss}\hfil \vrule width\columnseprule\hfil
       \hbox to\columnwidth{\box\@outputbox \hss}}}\@combinedblfloats
       \@outputpage \begingroup \@dblfloatplacement \@startdblcolumn
       \@whilesw\if@fcolmade \fi{\@outputpage\@startdblcolumn}\endgroup
    \fi}

\def\balancing@outputdblcol{\if@firstcolumn %\global\@firstcolumnfalse
 \else \global\@firstcolumntrue
  \setbox\@outputbox\vbox{\unvbox\@leftcolumn\vskip\@interlinegap%
   \penalty\interlinepenalty\unvbox\@outputbox}
 \fi
 \balancecolumns \@combinedblfloats
\if@leftfootnoteexist\setbox\@outputbox\vbox to\@colht{\boxmaxdepth\maxdepth
\@texttop\dimen128=\dp\@outputbox
\unvbox\@outputbox\vfill\vskip\skip\footins\footnoterule%
%\message{in balancing@outputdblcol leftcolumnfootnote=ht:\the\ht\@leftcolumnfootnote, dp:\the\dp\@leftcolumnfootnote, wd:\the\wd\@leftcolumnfootnote}
\unvbox\@leftcolumnfootnote
\if@rightfootnoteexist
%\message{in balancing@outputdblcol rightcolumnfootnote=ht:\the\ht\@rightcolumnfootnote, dp:\the\dp\@rightcolumnfootnote, wd:\the\wd\@rightcolumnfootnote}
\unvbox\@rightcolumnfootnote\fi
\vskip-\dimen128
\@textbottom}
\global\maxdepth\@maxdepth\fi
 \@outputpage \begingroup \@dblfloatplacement \@startdblcolumn
 \@whilesw\if@fcolmade \fi{\@outputpage\@startdblcolumn}\endgroup}

\newbox\@leftcolumnfootnote \newbox\@rightcolumnfootnote
\newif\if@leftfootnoteexist \newif\if@rightfootnoteexist

% Extra \@texttop somehow found its way into \@makecol.  Deleted
% 1 Dec 86.  (Found by Mike Harrison)

\def\@makecol{\if@twocolumn
\if@firstcolumn
\ifvoid\footins \setbox\@outputbox\box\@cclv
%\message{in makecol @outputbox=(\the\ht\@outputbox, \the\dp\@outputbox, \the\wd\@outputbox)}
\global\@leftfootnoteexistfalse
   \else\global\@leftfootnoteexisttrue
\setbox\@outputbox\box\@cclv
%\message{in makecol with foot @outputbox=(\the\ht\@outputbox, \the\dp\@outputbox, \the\wd\@outputbox)}
\global\setbox\@leftcolumnfootnote\box\footins
%\message{in makecol leftcolumnfootnote=ht:\the\ht\@leftcolumnfootnote, dp:\the\dp\@leftcolumnfootnote, wd:\the\wd\@leftcolumnfootnote}
\fi
     \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
\else %if@firstcolumn
\ifvoid\footins \setbox\@outputbox\box\@cclv
%\message{in makecol right @outputbox=(\the\ht\@outputbox, \the\dp\@outputbox, \the\wd\@outputbox)}
\global\@rightfootnoteexistfalse
   \else\global\@rightfootnoteexisttrue
\setbox\@outputbox\box\@cclv
%\message{in makecol right with foot @outputbox=(\the\ht\@outputbox, \the\dp\@outputbox, \the\wd\@outputbox)}
\global\setbox\@rightcolumnfootnote\box\footins
%\message{in makecol rightcolumnfootnote=ht:\the\ht\@rightcolumnfootnote, dp:\the\dp\@rightcolumnfootnote, wd:\the\wd\@rightcolumnfootnote}
\fi
     \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
\fi %if@firstcolumn
\else % if@twocolumn
\ifvoid\footins \setbox\@outputbox\box\@cclv
   \else\setbox\@outputbox
     \vbox{\boxmaxdepth \maxdepth
     \unvbox\@cclv\vskip\skip\footins\footnoterule\unvbox\footins}\fi
     \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
     \setbox\@outputbox\vbox to\@colht{\boxmaxdepth\maxdepth
        \@texttop\dimen128=\dp\@outputbox\unvbox\@outputbox
        \vskip-\dimen128\@textbottom}%
     \global\maxdepth\@maxdepth
\fi}



\if@LaTeX@e
\long\def\@footnotetext#1{\insert\footins{%
    \reset@font\footnotesize
    \interlinepenalty\interfootnotelinepenalty
    \splittopskip\footnotesep
    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
    \hsize\columnwidth \@parboxrestore\leftskip10\Q
        \ifnum\value{footnote}>9\hangindent=20\Q\advance\hangindent by 5.2pt
        \else\hangindent=20\Q\fi \hangafter=1
    \protected@edef\@currentlabel{%
       \csname p@footnote\endcsname\@thefnmark
    }%
    \color@begingroup
      \@makefntext{%
        \rule\z@\footnotesep\ignorespaces#1\@finalstrut\strutbox}%
    \color@endgroup}}%
\else
\long\def\@footnotetext#1{\insert\footins{\footnotesize
    \interlinepenalty\interfootnotelinepenalty
    \splittopskip\footnotesep
    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
    \hsize\columnwidth \@parboxrestore\leftskip10\Q
% extra indent of 5.2pt is decided empirically, roughly the width of a digit
        \ifnum\value{footnote}>9\hangindent=20\Q\advance\hangindent by 5.2pt
        \else\hangindent=20\Q\fi \hangafter=1
%    \hangindent=20\Q \hangafter=1
   \edef\@currentlabel{\csname p@footnote\endcsname\@thefnmark}\@makefntext
    {\rule{\z@}{\footnotesep}\ignorespaces#1\strut}}}
\fi

\long\def\@makefntext#1{\noindent$\@thefnmark$\hskip10\Q #1}

\def\@makefnmark{\smash{\hbox{$^{\@thefnmark}$}}} % smashed to make it
                                                  % zero height

\def\thefootnote{\mbox{\dag}\arabic{footnote}}

% Following \footnoterule is changed to make a gap between footnoterule
% and first footnote text about 2Q.
%\def\footnoterule{\kern-3\p@ \hrule width 35mm \kern 2.6\p@} 
\def\footnoterule{\kern0\p@ \hrule width 35mm \kern-0.4\p@}


\def\thanks#1{\footnotemark\begingroup
\def\protect{\noexpand\protect\noexpand}\xdef\@thanks{\@thanks
  \protect\specialfootnotetext[\the\c@footnote]{\noindent #1}}\endgroup}

\def\specialfootnotetext{\@ifnextchar
    [{\@specialxfootnotenext}{\xdef\@thefnmark{\thempfn}\@specialfootnotetext}}

\def\@specialxfootnotenext[#1]{\begingroup \csname c@\@mpfn\endcsname #1\relax
   \xdef\@thefnmark{\thempfn}\endgroup \@specialfootnotetext}

\def\@mpfn{footnote}
\def\thempfn{\thefootnote}

\long\def\@specialfootnotetext#1{\insert\footins{\footnotesize
    \interlinepenalty\interfootnotelinepenalty
    \splittopskip\footnotesep
    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
    \hsize\columnwidth \@parboxrestore\leftskip10\Q
    \hangindent=10\Q \hangafter=1
   \edef\@currentlabel{\csname p@footnote\endcsname\@thefnmark}\@specialmakefntext
    {\rule{\z@}{\footnotesep}\ignorespaces#1\strut}}}

\long\def\@specialmakefntext#1{\noindent\llap{$\@thefnmark$ }#1}



% to add extra space before citation by yamanouchi
\def\cite{{\hskip 1pt}\@ifnextchar [{\@tempswatrue\@citex}{\@tempswafalse\@citex[]}}

\def\@citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi
        \def\@citea{}%
        {\footnotesize\@for\@citeb:=#2\do
%               {\@citea\def\@citea{\penalty\@m\ }%
                {\@citea\def\@citea{\penalty\@m{\hskip 1pt}}%
                 \@ifundefined{b@\@citeb}%
                        {{\bf ?}\@warning{Citation 
                                `\@citeb' on page \thepage \space undefined}}%
                \hbox{[\csname b@\@citeb\endcsname]}}}}

% to make citations within sentences 11.5Q (same as other characters)
% new command \Cite similar to \cite is defined as follows.
% (normally citation numbers are typeset using \footnotesize)
\def\Cite{{\hskip 1pt}\@ifnextchar [{\@tempswatrue\@Citex}{\@tempswafalse\@Citex[]}}

\def\@Citex[#1]#2{\if@filesw\immediate\write\@auxout{\string\citation{#2}}\fi
        \def\@citea{}%
        {\@for\@citeb:=#2\do
%               {\@citea\def\@citea{\penalty\@m\ }%
                {\@citea\def\@citea{\penalty\@m{\hskip 1pt}}%
                 \@ifundefined{b@\@citeb}%
                        {{\bf ?}\@warning{Citation 
                                `\@citeb' on page \thepage \space undefined}}%
                \hbox{[\csname b@\@citeb\endcsname]}}}}

% you must place 1-moji space just right of eqation number
\def\@eqnnum{{\rm (\theequation)\hskip\@mojihaba}} 



% height adjusting environment
% you must use this as separate paragraph

\newbox\adjustbox
\newdimen\adjustheight
\newcount\adjustlinecount

\newenvironment{adjustvboxheight}{%\message{prevdepth=\the\prevdepth}
\vskip-\prevdepth\vskip1.4454pt % to cancel out various depth and set
                               % it to normal 1.445pt.  For this to
                               % work properly, it is necessary to use
                               % this environment as a separate paragraph!!
\global\setbox\adjustbox=\vbox\bgroup%
\hsize\columnwidth }{\egroup%
\adjustheight=\ht\adjustbox%
\advance\adjustheight \dp\adjustbox%
\divide\adjustheight\baselineskip \adjustlinecount=\adjustheight%
\advance\adjustlinecount by 1 %
\adjustheight=\adjustlinecount\baselineskip%
% you must ajust the position of top box somehow!!!
\vskip-.5\Q\vskip-1.445pt\vspace*{.5\Q}\vspace*{1.445pt}%
%\fboxrule=0.01pt\fboxsep=0pt% for debugging
\vskip5\Q % = 1/2 gap
%\noindent\fbox{\vbox to\adjustheight{\vfil\box\adjustbox\vfil}}%
\noindent\vbox to\adjustheight{\vfil\box\adjustbox\vfil}%
\vskip-5\Q % = 1/2 gap
\vskip-1.445pt\noindent}

\clubpenalty=-1000 \widowpenalty=-1000 % we allow club and widow lines ?
\displaywidowpenalty=-1000

% The following redefinition influences \linebreak etc.
\def\sloppy{\tolerance 9999 \hfuzz .5\p@ \vfuzz .5\p@}

% use twocolumn instead of multicol
\twocolumn

\vbadness10001 \hbadness5000
\tolerance 9999 \pretolerance\m@ne

\@options

\@ifundefined{@maketitle}{\ds@ronbun}{} % to setup default title style


\if@LaTeX@e
\ifASCII
\DeclareFontShape{JY1}{mc}{m}{it}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{it}{<->ssub*mc/m/n}{}
\DeclareFontShape{JY1}{mc}{m}{sl}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{sl}{<->ssub*mc/m/n}{}
\DeclareFontShape{JY1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{sc}{<->ssub*mc/m/n}{}

\DeclareFontShape{JY1}{gt}{m}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{gt}{m}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JY1}{gt}{m}{sl}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{gt}{m}{sl}{<->ssub*gt/m/n}{}
\DeclareFontShape{JY1}{gt}{m}{sc}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{gt}{m}{sc}{<->ssub*gt/m/n}{}

\DeclareFontShape{JY1}{mc}{bx}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{mc}{bx}{it}{<->ssub*gt/m/n}{}
\DeclareFontShape{JY1}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{mc}{bx}{sl}{<->ssub*gt/m/n}{}
\DeclareFontShape{JY1}{mc}{bx}{sc}{<->ssub*gt/m/n}{}
\DeclareFontShape{JT1}{mc}{bx}{sc}{<->ssub*gt/m/n}{}
\fi
\fi

\newcommand{\�F}{\hbox to1zw{\hss:\hss}}

\endinput