\NeedsTeXFormat{pLaTeX2e}
\ProvidesClass{e-ergo}
  [2002/12/09 v1.1]
% 本文級数、版型など大幅変更
%  [2001/09/27 v1.0b]
% タイトルページが偶数のときの柱の出力を変更
%  [2001/04/27 v1.0a]
% タイトルページのノンブルの書体を他と揃えた
%  [2000/02/15 v1.0]
% 三美印刷(株)
%\ProvidesClass{jarticle}
%  [1998/04/07 v1.1m Standard pLaTeX class]
\newcounter{@paper}
\newif\if@landscape \@landscapefalse
\newcommand{\@ptsize}{}
\newif\if@restonecol
\newif\if@titlepage
\@titlepagefalse
\hour\time \divide\hour by 60\relax
\@tempcnta\hour \multiply\@tempcnta 60\relax
\minute\time \advance\minute-\@tempcnta
\newif\if@stysize \@stysizefalse
\newif\if@enablejfam \@enablejfamtrue
\newif\if@Proof \@Prooffalse
\DeclareOption{Proof}{\@Prooftrue}

\DeclareOption{a4paper}{\setcounter{@paper}{1}%
  \setlength\paperheight {297mm}%
  \setlength\paperwidth  {210mm}}

\if@compatibility
  \renewcommand{\@ptsize}{0}
\else
  \DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
\fi

\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
\DeclareOption{landscape}{\@landscapetrue
  \setlength\@tempdima{\paperheight}%
  \setlength\paperheight{\paperwidth}%
  \setlength\paperwidth{\@tempdima}}
\DeclareOption{tombow}{%
  \tombowtrue \tombowdatetrue
  \setlength{\@tombowwidth}{.1\p@}%
  \@bannertoken{%
     \jobname\space:\space\number\year/\number\month/\number\day
      (\number\hour:\number\minute)}
  \maketombowbox}
\DeclareOption{tombo}{%
  \tombowtrue \tombowdatefalse
  \setlength{\@tombowwidth}{.1\p@}%
  \maketombowbox}
\DeclareOption{mentuke}{%
  \tombowtrue
  \setlength{\@tombowwidth}{\z@}%
  \@bannertoken\@empty
  \maketombowbox}
\DeclareOption{tate}{%
  \AtBeginDocument{\tate\message{《縦組モード》}%
                   \adjustbaseline}%
}
\DeclareOption{oneside}{\@twosidefalse}
\DeclareOption{twoside}{\@twosidetrue}
\DeclareOption{onecolumn}{\@twocolumnfalse}
\DeclareOption{twocolumn}{\@twocolumntrue}
\DeclareOption{titlepage}{\@titlepagetrue}
\DeclareOption{notitlepage}{\@titlepagefalse}
%%\DeclareOption{leqno}{\input{leqno.clo}}
%%\DeclareOption{fleqn}{\input{fleqn.clo}}
\DeclareOption{openbib}{%
  \AtEndOfPackage{%
   \renewcommand\@openbib@code{%
      \advance\leftmargin\bibindent
      \itemindent -\bibindent
      \listparindent \itemindent
      \parsep \z@
      }%
   \renewcommand\newblock{\par}}}
\if@compatibility
\else
  \DeclareOption{disablejfam}{\@enablejfamfalse}
\fi
\DeclareOption{draft}{\setlength\overfullrule{5pt}}
\DeclareOption{final}{\setlength\overfullrule{0pt}}
%\ExecuteOptions{a4paper,10pt,oneside,onecolumn,final}
\ExecuteOptions{a4paper,10pt,twoside,twocolumn,final}%%!! tombo,
\ProcessOptions\relax


%\input{jsize10.clo}
%\NeedsTeXFormat{pLaTeX2e}
%\ProvidesFile{jsize10.clo}
%  [1998/04/07 v1.1m Standard pLaTeX file (size option)]

%--- SANBI定義 --------------
\newdimen\h
\h=0.25mm
\newdimen\JQ %
\JQ=0.7392507pt
\newdimen\Q %
\Q=0.71144pt
\newdimen\@bs
\@bs=18\h
%----------------------------

 \DeclareFontShape{JY1}{mc}{m}{n}{<5> <6> sgen*min
 <5> s * [1.03495] min5      %  7級  tiny
 <6> s * [1.10888] min6      %  9級  scriptsize
 <7> s * [1.05571] min7      % 10級  footnotesize
 <8> s * [1.01647] min8      % 11級  
 <9> s * [0.98567] min9      % 12級  small
 <10> s * [0.961] min10      % 13級  normalsize
% <10.95> s * [1.01267] min10 % 15級
% <12> s * [0.98567] min10    % 16級  
 <10.95> s * [0.94516] min10 % 14級
 <12> s * [0.92406] min10    % 15級  
 <14.4> s * [0.92406] min10  % 18級  
 <17.28> s * [0.85561] min10 % 20級  
 <20.74> s * [.85545] min10  % 24級  
 <24.88> s * [0.9508] min10  % 32級  
 <-> min10
 }{}
 \DeclareFontShape{JY1}{mc}{bx}{n}{<5> <6> sgen*min
 <5> s * [1.03495] goth5      %  7級  tiny
 <6> s * [1.10888] goth6      %  9級  scriptsize
 <7> s * [1.05571] goth7      % 10級  footnotesize
 <8> s * [1.01647] goth8      % 11級  
 <9> s * [0.98567] goth9      % 12級  small
 <10> s * [0.961] goth10      % 13級  normalsize
% <10.95> s * [1.01267] goth10 % 15級
% <12> s * [0.98567] goth10    % 16級  
 <10.95> s * [0.94516] goth10 % 14級
 <12> s * [0.92406] goth10    % 15級  
 <14.4> s * [0.92406] goth10  % 18級  
 <17.28> s * [0.85561] goth10 % 20級  
 <20.74> s * [.85545] goth10  % 24級  
 <24.88> s * [0.9508] goth10  % 32級  
 <-> min10
 }{}

%
 \DeclareFontShape{JY1}{gt}{m}{n}{<5> <6> sgen*goth
 <5> s * [1.03495] goth5      %  7級  tiny
 <6> s * [1.10888] goth6 
 <7> s * [1.05571] goth7 
 <8> s * [1.01647] goth8      % 11級  
 <9> s * [0.98567] goth9      % 12級  small
 <10> s * [0.961] goth10      % 13級  normalsize
% <10.95> s * [1.01267] goth10 % 15級
% <12> s * [0.98567] goth10
 <10.95> s * [0.94516] goth10 % 15級
 <12> s * [0.92406] goth10
 <14.4> s * [0.92406] goth10
 <17.28> s * [0.85561] goth10 % 20級  
 <20.74> s * [.85545] goth10  % 24級  
 <24.88> s * [0.9508] goth10  
 <-> goth10
 }{}
 \DeclareFontShape{JY1}{gt}{bx}{n}{<5> <6> sgen*goth
 <5> s * [1.03495] goth5      %  7級  tiny
 <6> s * [1.10888] goth6 
 <7> s * [1.05571] goth7 
 <8> s * [1.01647] goth8      % 11級  
 <9> s * [0.98567] goth9      % 12級  small
 <10> s * [0.961] goth10      % 13級  normalsize
% <10.95> s * [1.01267] goth10 % 15級
% <12> s * [0.98567] goth10
 <10.95> s * [0.94516] goth10 % 15級
 <12> s * [0.92406] goth10
 <14.4> s * [0.92406] goth10
 <17.28> s * [0.85561] goth10 % 20級  
 <20.74> s * [.85545] goth10  % 24級  
 <24.88> s * [0.9508] goth10  
 <-> goth10
 }{}
%
% \DeclarePreloadSizes{JY1}{mc}{m}{n}
%   {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}
% \DeclarePreloadSizes{JY1}{gt}{m}{n}
%   {5,6,7,8,9,10,10.95,12,14.4,17.28,20.74,24.88}


%%% from ieice.cls(uls) -----------------------------
 %% JY1 it
 \DeclareFontShape{JY1}{mc}{m}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JY1}{mc}{bx}{it}{<->ssub*gt/m/n}{}
 \DeclareFontShape{JY1}{gt}{m}{it}{<->ssub*gt/m/n}{}
 \DeclareFontShape{JY1}{gt}{bx}{it}{<->ssub*gt/m/n}{}
 %%
 \DeclareFontShape{JY1}{mc}{b}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JY1}{mc}{eb}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JY1}{gt}{b}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JY1}{gt}{eb}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JY1}{gt}{ub}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JY1}{mc}{m}{sl}{<->ssub*mc/m/n}{}
 %% JT1 it
 \DeclareFontShape{JT1}{mc}{m}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JT1}{mc}{bx}{it}{<->ssub*gt/m/n}{}
 \DeclareFontShape{JT1}{gt}{m}{it}{<->ssub*gt/m/n}{}
 \DeclareFontShape{JT1}{gt}{bx}{it}{<->ssub*gt/m/n}{}
 %%
 \DeclareFontShape{JT1}{mc}{b}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JT1}{mc}{eb}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JT1}{gt}{b}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JT1}{gt}{eb}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JT1}{gt}{ub}{it}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JT1}{mc}{m}{sl}{<->ssub*mc/m/n}{}
 %% sc
 \DeclareFontShape{JY1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
 \DeclareFontShape{JT1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
 %% n
 \DeclareFontShape{JY1}{gt}{b}{n}{<->ssub*gt/m/n}{}
 \DeclareFontShape{JT1}{gt}{b}{n}{<->ssub*gt/m/n}{}
%%% -------------------------------------------------


% 13Q 22H 送り%%新
\renewcommand{\normalsize}{%
    \@setfontsize\normalsize\@xpt{22\h}%
  \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@
  \abovedisplayshortskip \z@ \@plus3\p@
  \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@
   \belowdisplayskip \abovedisplayskip
   \let\@listi\@listI}
\normalsize
\setbox0\hbox{\char\euc"A1A1}%
\setlength\Cht{\ht0}
\setlength\Cdp{\dp0}
\setlength\Cwd{\wd0}
\setlength\Cvs{\baselineskip}
\setlength\Chs{\wd0}

% 12Q 18H 送り%%新
\newcommand{\small}{%
  \@setfontsize\small\@ixpt{18\h}%
  \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@
  \abovedisplayshortskip \z@ \@plus2\p@
  \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@
  \def\@listi{\leftmargin\leftmargini
              \topsep 4\p@ \@plus2\p@ \@minus2\p@
              \parsep 2\p@ \@plus\p@ \@minus\p@
              \itemsep \parsep}%
  \belowdisplayskip \abovedisplayskip}

% 10Q 15H 送り
\newcommand{\footnotesize}{%
  \@setfontsize\footnotesize\@viipt{15\h}%
  \abovedisplayskip 6\p@ \@plus2\p@ \@minus4\p@
  \abovedisplayshortskip \z@ \@plus\p@
  \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@
  \def\@listi{\leftmargin\leftmargini
              \topsep 3\p@ \@plus\p@ \@minus\p@
              \parsep 2\p@ \@plus\p@ \@minus\p@
              \itemsep \parsep}%
  \belowdisplayskip \abovedisplayskip}

\newcommand{\scriptsize}{\@setfontsize\scriptsize\@vipt\@viipt}
\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vpt}
\newcommand{\large}{\@setfontsize\large\@xiipt{17}}
\newcommand{\Large}{\@setfontsize\Large\@xivpt{21}}
\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
\newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}


\setlength\headheight{0mm}
\setlength\headsep{9.5mm}%9
\setlength\topskip{1\Cht}
\setlength\footskip{7.5mm}
\setlength\maxdepth{.5\topskip}


\baselineskip=22\h%%新
\setlength\textwidth{170.625mm}% 25zw x 13Q x 2 + 8.125mm = 170.625mm%%新
\@settopoint\textwidth
\setlength\textheight{44\baselineskip}%% 45 lines%%新
 \advance \textheight \topskip
 \advance \textheight .405mm%% limit .275mm
\@settopoint\textheight
\if@twocolumn
  \setlength\marginparsep{5mm}
\else
  \setlength\marginparsep{5mm}
\fi
\setlength\marginparpush{5pt}

\marginparwidth 20mm
\@settopoint\marginparwidth


\hoffset-10mm%%新
\voffset-4mm%
%---- uls 
\iftombow
 \topmargin\paperheight
 \advance \topmargin -\textheight
 \advance \topmargin -\headheight
 \advance \topmargin -\headsep
 \advance \topmargin -\footskip
 \divide \topmargin \tw@
 \advance \topmargin 0mm%%新
 \advance \topmargin -1in
 \@settopoint\topmargin
 \oddsidemargin\paperwidth
 \advance \oddsidemargin -\textwidth
 \divide \oddsidemargin \tw@
 \advance \oddsidemargin -1in
 \advance \oddsidemargin -.25mm%%!!
 \@settopoint\oddsidemargin
 \evensidemargin\oddsidemargin
 \@settopoint\evensidemargin
\else
 \topmargin \z@
 \@settopoint\topmargin
 \oddsidemargin\z@
 \@settopoint\oddsidemargin
 \evensidemargin\z@
 \@settopoint\evensidemargin
\fi
%----- 


\setlength\footnotesep{2.5mm}
\setlength{\skip\footins}{9\p@ \@plus 4\p@ \@minus 2\p@}


\setlength\intextsep   {1\Cvs \@plus 1.5mm \@minus 2mm}
\setlength\floatsep    {1\Cvs \@plus 1.5mm \@minus 2mm}
\setlength\dblfloatsep {1\Cvs \@plus 1.5mm \@minus 2mm}
\setlength\textfloatsep{1.5\Cvs \@plus 2mm \@minus 3mm}
\setlength\dbltextfloatsep{1.5\Cvs \@plus 2mm \@minus 3mm}


\setlength\@fptop{0\p@ \@plus 1fil}
\setlength\@fpsep{8\p@ \@plus 2fil}
\setlength\@fpbot{0\p@ \@plus 1fil}
\setlength\@dblfptop{0\p@ \@plus 1fil}
\setlength\@dblfpsep{8\p@ \@plus 2fil}
\setlength\@dblfpbot{0\p@ \@plus 1fil}
\setlength\partopsep{2\p@ \@plus 1\p@ \@minus 1\p@}


\def\@listi{\leftmargin\leftmargini
  \parsep 4\p@ \@plus2\p@ \@minus\p@
  \topsep 8\p@ \@plus2\p@ \@minus4\p@
  \itemsep4\p@ \@plus2\p@ \@minus\p@}
\let\@listI\@listi
\@listi
\def\@listii{\leftmargin\leftmarginii
   \labelwidth\leftmarginii \advance\labelwidth-\labelsep
   \topsep  4\p@ \@plus2\p@ \@minus\p@
   \parsep  2\p@ \@plus\p@  \@minus\p@
   \itemsep\parsep}
\def\@listiii{\leftmargin\leftmarginiii
   \labelwidth\leftmarginiii \advance\labelwidth-\labelsep
   \topsep 2\p@  \@plus\p@\@minus\p@
   \parsep\z@
   \partopsep \p@ \@plus\z@ \@minus\p@
   \itemsep\topsep}
\def\@listiv {\leftmargin\leftmarginiv
              \labelwidth\leftmarginiv
              \advance\labelwidth-\labelsep}
\def\@listv  {\leftmargin\leftmarginv
              \labelwidth\leftmarginv
              \advance\labelwidth-\labelsep}
\def\@listvi {\leftmargin\leftmarginvi
              \labelwidth\leftmarginvi
              \advance\labelwidth-\labelsep}
%\endinput
%%
%% End of file `jsize10.clo'.



\if@stysize
  \setlength\columnsep{2\Cwd}
\else
  \setlength\columnsep{31\Q}%%新
\fi
\setlength\columnseprule{0\p@}
\setlength\lineskip{1\p@}
\setlength\normallineskip{1\p@}
\renewcommand{\baselinestretch}{}
%\setlength\parskip{0\p@ \@plus \p@}
%\setlength\parindent{1\Cwd}
\parskip\z@    %% 0\p@ \@plus \p@
\parindent 2zw %% 1\Cwd


\@lowpenalty   51
\@medpenalty  151
\@highpenalty 301


\setcounter{topnumber}{6}%2
\setcounter{bottomnumber}{5}%1
\setcounter{totalnumber}{11}%3
\setcounter{dbltopnumber}{5}%2
\renewcommand{\topfraction}{1}%.7
\renewcommand{\bottomfraction}{1}%.3
\renewcommand{\textfraction}{0}%.2
\renewcommand{\floatpagefraction}{0}%.5
\renewcommand{\dbltopfraction}{1}%.7
\renewcommand{\dblfloatpagefraction}{0}%.5


%%% from ieice.cls(uls)
\if@Proof
 \def\@Rtop{\rlap{\smash{\rule[-\headsep]{0.05mm}{10mm}%
  \rule[-\headsep]{10mm}{0.05mm}}}}
 \def\@Ltop{\llap{\smash{\rule[-\headsep]{10mm}{0.05mm}%
  \rule[-\headsep]{0.05mm}{10mm}}}}
 \def\@Rbot{\rlap{\smash{\raisebox{1\footskip}
  {\rule[-10mm]{0.05mm}{10mm}\rule{10mm}{0.05mm}}}}}
 \def\@Lbot{\llap{\smash{\raisebox{1\footskip}
  {\rule{10mm}{0.05mm}\rule[-10mm]{0.05mm}{10mm}}}}}
\else
 \let\@Rtop\relax\let\@Ltop\relax\let\@Rbot\relax\let\@Lbot\relax
\fi


\def\ps@plain{\let\@mkboth\@gobbletwo
   \let\ps@jpl@in\ps@plain
 \def\@oddhead{\@Ltop\hfill\@Rtop}%
 \def\@oddfoot{\if@Proof\@Lbot\fi
  \hfill{\SMALL\@FACE\hd@title\hskip2zw}{\sl\thepage}\hskip0mm%%新
  \if@Proof\@Rbot\fi}%
 \let\@evenhead\@oddhead
 \def\@evenfoot{\if@Proof\@Lbot\fi
  \hskip0mm{\sl\thepage}{\SMALL\hskip2zw 人間工学\hskip1zw\@Vol, \@No\ \@Year}\hfill%%新
  \if@Proof\@Rbot\else\fi}
}
\let\ps@jpl@in\ps@plain


\def\ps@firstpage{\let\@mkboth\@gobbletwo
   \let\ps@jpl@in\ps@plain
 \def\@oddhead{\@Ltop\hfill\@Rtop}%
 \def\@oddfoot{\if@Proof\@Lbot\fi
  \hfill{\SMALL\@FACE\hd@title\hskip2zw}{\sl\thepage}\hskip0mm%%新
  \if@Proof\@Rbot\fi}%
 \let\@evenhead\@oddhead
 \def\@evenfoot{\if@Proof\@Lbot\fi
  \hskip0mm{\sl\thepage}{\SMALL\hskip2zw 人間工学\hskip1zw\@Vol, \@No\ \@Year}\hfill%%新
  \if@Proof\@Rbot\else\fi}
}


%\def\ps@headnombre{\let\@mkboth\@gobbletwo
%    \let\ps@jpl@in\ps@headnombre
%  \def\@evenhead{\thepage\hfil}%
%  \def\@oddhead{\hfil\thepage}%
%  \let\@oddfoot\@empty\let\@evenfoot\@empty}


%\def\ps@footnombre{\let\@mkboth\@gobbletwo
%    \let\ps@jpl@in\ps@footnombre
%  \def\@evenfoot{\thepage\hfil}%
%  \def\@oddfoot{\hfil\thepage}%
%  \let\@oddhead\@empty\let\@evenhead\@empty}


%\if@twoside
%  \def\ps@headings{\let\ps@jpl@in\ps@headnombre
%    \let\@oddfoot\@empty\let\@evenfoot\@empty
%    \def\@evenhead{\thepage\hfil\leftmark}%
%    \def\@oddhead{{\rightmark}\hfil\thepage}%
%    \let\@mkboth\markboth
%    \def\sectionmark##1{\markboth{%
%       \ifnum \c@secnumdepth >\z@ \thesection.\hskip1zw\fi
%       ##1}{}}%
%    \def\subsectionmark##1{\markright{%
%       \ifnum \c@secnumdepth >\@ne \thesubsection.\hskip1zw\fi
%       ##1}}%
%  }
%\else % if not twoside
%  \def\ps@headings{\let\ps@jpl@in\ps@headnombre
%    \let\@oddfoot\@empty
%    \def\@oddhead{{\rightmark}\hfil\thepage}%
%    \let\@mkboth\markboth
%  \def\sectionmark##1{\markright{%
%     \ifnum \c@secnumdepth >\m@ne \thesection.\hskip1zw\fi
%     ##1}}%
%  }
%\fi


%\if@twoside
%  \def\ps@bothstyle{\let\ps@jpl@in\ps@footnombre
%    \def\@evenhead{\leftmark\hfil}% right page
%    \def\@evenfoot{\thepage\hfil}% right page
%    \def\@oddhead{\hfil\rightmark}% left page
%    \def\@oddfoot{\hfil\thepage}% left page
%  \let\@mkboth\markboth
%  \def\sectionmark##1{\markboth{%
%     \ifnum \c@secnumdepth >\z@ \thesection.\hskip1zw\fi
%     ##1}{}}%
%  \def\subsectionmark##1{\markright{%
%     \ifnum \c@secnumdepth >\@ne \thesubsection.\hskip1zw\fi
%     ##1}}%
%  }
%\else % if one column
%  \def\ps@bothstyle{\let\ps@jpl@in\ps@footnombre
%    \def\@oddhead{\hfil\rightmark}%
%    \def\@oddfoot{\hfil\thepage}%
%    \let\@mkboth\markboth
%  \def\sectionmark##1{\markright{%
%     \ifnum \c@secnumdepth >\m@ne \thesection.\hskip1zw\fi
%     ##1}}%
%  }
%\fi


\def\ps@myheadings{\let\ps@jpl@in\ps@plain%
  \let\@oddfoot\@empty\let\@evenfoot\@empty
  \def\@evenhead{\thepage\hfil\leftmark}%
  \def\@oddhead{{\rightmark}\hfil\thepage}%
  \let\@mkboth\@gobbletwo
  \let\sectionmark\@gobble
  \let\subsectionmark\@gobble
}


%\if@compatibility
%\newenvironment{titlepage}
%    {%
%     \if@twocolumn\@restonecoltrue\onecolumn
%     \else\@restonecolfalse\newpage\fi
%     \thispagestyle{empty}%
%     \setcounter{page}\z@
%    }%
%    {\if@restonecol\twocolumn\else\newpage\fi
%    }
%\else
%\newenvironment{titlepage}
%    {%
%      \if@twocolumn
%        \@restonecoltrue\onecolumn
%      \else
%        \@restonecolfalse\newpage
%      \fi
%      \thispagestyle{empty}%
%      \setcounter{page}\@ne
%    }%
%    {\if@restonecol\twocolumn \else \newpage \fi
%     \if@twoside\else
%        \setcounter{page}\@ne
%     \fi
%    }
%\fi


%---- タイトル、柱関係

\usepackage[dvips]{color}
\definecolor{ami}{cmyk}{0,0,0,0.2}%%!! アミかけ■をだすため
\def\sikaku{\hskip.5mm\smash{\raisebox{.75mm}{\colorbox{ami}{\hspace{1.25mm}\rule{0mm}{1.25mm}}}}\hskip.5mm}%%新


\newif\if@short \@shortfalse
\font\Kface = goth10 at 15\JQ%%新
\font\Eface = cmbx10 at 15\Q%%新
\newcommand{\SMALL}{\@setfontsize\small\@viiipt{16\h}}% 11Q 16H 送り

\def\field#1{%
 \def\@tempa{#1}%
 \def\f@A{Contribution}\def\f@B{Ergonomic data}\def\f@C{Short communication}\def\f@D{Technical report}\def\f@E{Review}%
  \ifx \@tempa\f@A  \gdef\@field{Contribution}\gdef\@face{{\Eface\mbox{}\sikaku{}Contribution\sikaku}}\gdef\@FACE{{Contribution\makebox[1zw][l]{・}}}\else
   \ifx \@tempa\f@B \gdef\@field{Ergonomic data}\gdef\@face{{\Eface\mbox{}\sikaku{}Ergonomic data\sikaku}}\gdef\@FACE{{Ergonomic data\makebox[1zw][l]{・}}}\else
\ifx \@tempa\f@C \gdef\@field{Short communication}\gdef\@face{{\Eface\mbox{}\sikaku{}Short communication\sikaku}}\gdef\@FACE{{Short communication\makebox[1zw][l]{・}}}\@shorttrue\else
\ifx \@tempa\f@D \gdef\@field{Technical report}\gdef\@face{{\Eface\mbox{}\sikaku{}Technical report\sikaku}}\gdef\@FACE{{Technical report\makebox[1zw][l]{・}}}\@shorttrue\else
\ifx \@tempa\f@E \gdef\@field{Review}\gdef\@face{{\Eface\mbox{}\sikaku{}Review\sikaku}}\gdef\@FACE{{Review\makebox[1zw][l]{・}}}\@shorttrue\else
       \gdef\@field{Xxxxx Xxxxx}\gdef\@face{{\Kface\mbox{}\sikaku{}Xxxxx\sikaku}}\gdef\@FACE{{Xxxxx\makebox[1zw][l]{・}}}%
  \fi\fi\fi\fi\fi
}
\field{}


\def\Vol#1{\gdef\@Vol{Vol.\,#1}}
\def\@Vol{Vol.00}

\def\No#1{\gdef\@No{No.\,#1}}
\def\@No{No.00}

\def\Year#1{\gdef\@Year{('#1)}}
\def\@Year{('00)}


\newcommand{\Footnotesize}{%
  \@setfontsize\footnotesize\@viipt{16\h}%
}

\newcommand{\FOOTnotesize}{%
  \@setfontsize\footnotesize\@viipt{18\h}%
}


\newbox\etitlebox
\newif\if@subtitle
\@subtitlefalse

\def\etitle#1{\gdef\@etitle{#1}}
\def\eauthor#1{\gdef\@eauthor{#1}}
\def\@eauthor{Xxxxx Xxxxx}
\def\Etitle{\@ifnextchar[%
{\d@Etitle}{\s@Etitle}}
\def\d@Etitle[#1]#2{\gdef\hd@title{#1}\gdef\@Etitle{#2}}
\def\s@Etitle#1{\gdef\hd@title{#1}\gdef\@Etitle{#1}}

\def\@Etitle{}
\Etitle{Main Title}

\def\subtitle#1{\gdef\@subtitle{#1}\@subtitletrue}


\font\Kauthor = goth10 at 15\JQ
\font\KFauthor = min10 at 15\JQ
\font\Eauthor = cmbx10 at 15\Q
\def\author#1{\gdef\@author{\Eauthor #1}}
\def\@author{}
\author{●●●●}


%%% 受付・受理

\def\revised#1#2#3{\gdef\@revised{; revised  \ifcase #2 \or 
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\else\fi 
\ #3, #1}}%
\def\@revised{}

\def\received#1#2#3{\begingroup
\def\protect{\noexpand\protect\noexpand}\xdef\@received{\@received
  \protect\footnotetext[1]{Received \ifcase #2 \or 
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\else\fi 
\ #3, #1\noexpand\@revised}}%
\endgroup}
\def\@received{}


%%% 所属
\def\thanks#1{\kern0mm{{\large\bf\footnotemark}%
\begingroup
\def\protect{\noexpand\protect\noexpand}\xdef\@thanks{\@thanks
  \protect\footnotetext[\the\c@footnote]{#1}}\endgroup}}
\def\@thanks{}

\def\and{{\Eauthor , }}
\def\THANKS#1{\kern0mm{\large\bf $^{#1}$}}%


%--- uls
 \newbox\abstractbox
 \newbox\eabstractbox
 \newbox\keywordbox

 \def\abstract{\global\setbox\abstractbox=\hbox\bgroup%
  \begin{minipage}[t]{131.625mm}%%新
   \SMALL\hskip1zw\ignorespaces\parindent=1zw}%%新
 \def\endabstract{\end{minipage}\egroup}

 \def\eabstract{\global\setbox\eabstractbox=\hbox\bgroup%
  \begin{minipage}[t]{131.625mm}%%新
   \SMALL\hskip1zw\ignorespaces}%%新 
\def\endeabstract{\end{minipage}\egroup}

 \def\keyword{\global\setbox\keywordbox=\hbox\bgroup
  \begin{minipage}[t]{131.625mm}%%新
   \SMALL{(Key word: }\ignorespaces}%%新
 \def\endkeyword{\@killglue%
)\end{minipage}\egroup}

\def\ADJ#1{\gdef\@ADJ{#1}}
\def\@ADJ{}
\ADJ{0mm}
%---


\def\maketitle{\par
 \begingroup
%%%%%
%-- uls
  \def\thefootnote{\fnsymbol{footnote}}%
  \def\@fnsymbol##1{\ifcase##1 \or
%   \dag\or
%   \dag\dag\or
%   \dag\dag\dag\or
%   \dag\dag\dag\dag\or
%   \dag\dag\dag\dag\dag\or
%   \dag\dag\dag\dag\dag\dag\or
%   \dag\dag\dag\dag\dag\dag\dag\or
%   \dag\dag\dag\dag\dag\dag\dag\dag\or
%   \dag\dag\dag\dag\dag\dag\dag\dag\dag\or
   *\or **\or ***\or ****\or *****\or ******\else\@ctrerr\fi\relax}%
%---
\def\@makefnmark{$^{\@thefnmark}$}%
\long\def\@makefntext##1{\parindent 1em\hangindent=1.8em\noindent
       \hbox to1.8em{\hss$\m@th^{\@thefnmark}$}##1}%
%%%%%
 \twocolumn[\@maketitle] 
\thispagestyle{firstpage}
\@received%受付出力
\@thanks%所属出力
 \endgroup
% \setcounter{footnote}{0}
 \let\maketitle\relax
 \let\@maketitle\relax
  \gdef\@thanks{}\gdef\@author{}\let\thanks\relax}


\def\Flushright{\topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
 \trivlist \raggedleft\item\relax}
\def\endFlushright{\endtrivlist}

%%% 和文タイトルの内容
\def\@maketitle{\newpage
\setbox\etitlebox=\hbox\bgroup%
\begin{minipage}[t]{81mm}% 10Q x 32.5w%%新
\Footnotesize
＜\kern0mm\@field\kern0mm＞%
\kern0mm\textbf{\@etitle ,} by \textrm{\@eauthor}.
\end{minipage}%
\egroup
\@face\hfill%
\raisebox{.5mm}{\box\etitlebox}\par
\baselineskip30\h%%!! 
{{\huge\bfseries\mathversion{bold}%
\vskip9.5mm%%!!新
\@Etitle}\kern0mm\smash{\raisebox{2.25mm}{\large\bf\footnotemark}}%$^*$
}\par%
\if@subtitle
{\LARGE%
\@subtitle
}%
\fi\par%
\vskip13.5mm%%!!新 
\begin{Flushright}%
\baselineskip18\h%%!!
\@author%
\end{Flushright}%
\par%
%\vskip2.75mm%%!!
\if@short
\else
\vskip2.75mm%%!!
\hfill\box\eabstractbox\par%
%\vskip5mm%%!!
%\hfill\box\abstractbox\par%
\vskip1mm%%!!新
\hfill\box\keywordbox\par%
\fi
\vskip6mm%%!!新
 \vspace{\@ADJ}%
 \setcounter{footnote}{0}%
} 


%\if@titlepage
%  \newcommand{\maketitle}{\begin{titlepage}%
%  \let\footnotesize\small
%  \let\footnoterule\relax
%  \let\footnote\thanks
%  \null\vfil
%  \vskip 60\p@
%  \begin{center}%
%    {\LARGE \@title \par}%
%    \vskip 3em%
%    {\Large
%     \lineskip .75em%
%      \begin{tabular}[t]{c}%
%        \@author
%      \end{tabular}\par}%
%      \vskip 1.5em%
%    {\large \@date \par}%       % Set date in \large size.
%  \end{center}\par
%  \@thanks\vfil\null
%  \end{titlepage}%
%  \setcounter{footnote}{0}%
%  \global\let\thanks\relax
%  \global\let\maketitle\relax
%  \global\let\p@thanks\relax
%  \global\let\@thanks\@empty
%  \global\let\@author\@empty
%  \global\let\@date\@empty
%  \global\let\@title\@empty
%  \global\let\title\relax
%  \global\let\author\relax
%  \global\let\date\relax
%  \global\let\and\relax
%  }%
%\else
%  \newcommand{\maketitle}{\par
%  \begingroup
%    \renewcommand{\thefootnote}{\fnsymbol{footnote}}%
%    \def\@makefnmark{\hbox{\ifydir $\m@th^{\@thefnmark}$
%      \else\hbox{\yoko$\m@th^{\@thefnmark}$}\fi}}%
%     \long\def\@makefntext##1{\parindent 1em\noindent
%       \hbox to1.8em{\hss$\m@th^{\@thefnmark}$}##1}%
%    \if@twocolumn
%      \ifnum \col@number=\@ne \@maketitle
%      \else \twocolumn[\@maketitle]%
%      \fi
%    \else
%      \newpage
%      \global\@topnum\z@   % Prevents figures from going at top of page.
%      \@maketitle
%    \fi
%     \thispagestyle{jpl@in}\@thanks
%  \endgroup
%  \setcounter{footnote}{0}%
%  \global\let\thanks\relax
%  \global\let\maketitle\relax
%  \global\let\p@thanks\relax
%  \global\let\@thanks\@empty
%  \global\let\@author\@empty
%  \global\let\@date\@empty
%  \global\let\@title\@empty
%  \global\let\title\relax
%  \global\let\author\relax
%  \global\let\date\relax
%  \global\let\and\relax
%  }
%  \def\@maketitle{%
%  \newpage\null
%  \vskip 2em%
%  \begin{center}%
%  \let\footnote\thanks
%    {\LARGE \@title \par}%
%    \vskip 1.5em%
%    {\large
%      \lineskip .5em%
%      \begin{tabular}[t]{c}%
%        \@author
%      \end{tabular}\par}%
%    \vskip 1em%
%    {\large \@date}%
%  \end{center}%
%  \par\vskip 1.5em}
%\fi



%\if@titlepage
%  \newenvironment{abstract}{%
%      \titlepage
%      \null\vfil
%      \@beginparpenalty\@lowpenalty
%      \begin{center}%
%        {\bfseries\abstractname}%
%        \@endparpenalty\@M
%      \end{center}}%
%      {\par\vfil\null\endtitlepage}
%\else
%  \newenvironment{abstract}{%
%    \if@twocolumn
%      \section*{\abstractname}%
%    \else
%      \small
%      \begin{center}%
%        {\bfseries\abstractname\vspace{-.5em}\vspace{\z@}}%
%      \end{center}%
%      \quotation
%    \fi}{\if@twocolumn\else\endquotation\fi}
%\fi



\setcounter{secnumdepth}{3}
%\newcounter{part}
\newcounter{section}
\newcounter{subsection}[section]
\newcounter{subsubsection}[subsection]
\newcounter{paragraph}[subsubsection]
\newcounter{subparagraph}[paragraph]
%\renewcommand{\thepart}{\@Roman\c@part}
\renewcommand{\thesection}{\@arabic\c@section.}
\renewcommand{\thesubsection}{\@arabic\c@section-\@arabic\c@subsection.}
\renewcommand{\thesubsubsection}{%
   \@arabic\c@section-\@arabic\c@subsection-\@arabic\c@subsubsection.}
\renewcommand{\theparagraph}{%
   \thesubsubsection.\@arabic\c@paragraph}
\renewcommand{\thesubparagraph}{%
   \theparagraph.\@arabic\c@subparagraph}


%\newcommand{\part}{\par\addvspace{4ex}%
%  \@afterindentfalse
%  \secdef\@part\@spart}
%
%\def\@part[#1]#2{%
%  \ifnum \c@secnumdepth >\m@ne
%    \refstepcounter{part}%
%    \addcontentsline{toc}{part}{%
%       \prepartname\thepart\postpartname\hspace{1zw}#1}%
%  \else
%    \addcontentsline{toc}{part}{#1}%
%  \fi
%  \markboth{}{}%
%  {\parindent\z@\raggedright
%   \interlinepenalty\@M\reset@font
%   \ifnum \c@secnumdepth >\m@ne
%     \Large\bfseries\prepartname\thepart\postpartname
%     \par\nobreak
%   \fi
%   \huge\bfseries#2\par}%
%  \nobreak\vskip3ex\@afterheading}
%
%\def\@spart#1{{%
%  \parindent\z@\raggedright
%  \interlinepenalty\@M\reset@font
%  \huge\bfseries#1\par}%
%  \nobreak\vskip3ex\@afterheading}


\def\@startsection#1#2#3#4#5#6{\if@noskipsec \leavevmode \fi
   \par \@tempskipa #4\relax
   \@afterindenttrue
   \ifdim \@tempskipa <\z@ \@tempskipa -\@tempskipa \@afterindentfalse\fi
   \if@nobreak
    \everypar{}%
   \else
    \addpenalty\@secpenalty
     \ifnum #2=\@ne
       \vskip-\prevdepth \prevdepth\z@ \vskip\Cvs
       \advance\@tempskipa-\Cvs \vspace*{\@tempskipa}%
     \else
      \addvspace\@tempskipa
     \fi
   \fi
 \@ifstar{\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}


\newbox\Secbox
\newbox\Subsecbox
\newbox\Subsubsecbox

%%% section（番号付き）の内部マクロ
% \@sect{NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}[ARG1]{ARG2} ==
\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\hskip1zw}\fi
     \@tempskipa #5\relax
      \ifdim \@tempskipa>\z@ 
        \begingroup #6\relax
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% section,subsection,subsubsection の字取り
    \ifnum #2=\@ne %1 section
      \setbox\Secbox\hbox{#8}%
      \ifdim \wd\Secbox > 11.25mm% 3zwより大きいか
          \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}%大なら
      \else
          \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M\hskip0mm \kintou{11.25mm}{#8}\par}%小なら
      \fi
    \else%1
     \ifnum #2 = 2 %2 subsection
        \setbox\Subsecbox\hbox{#8}%
        \ifdim \wd\Subsecbox > 10.5mm% 14Q x 3zw%%新
           \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}%
        \else
           \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M \kintou{10.5mm}{#8}\par}%%新
        \fi
     \else%2
       \ifnum #2 > 2 %3 subsubsection, 
         \setbox\Subsubsecbox\hbox{#8}%
         \ifdim \wd\Subsubsecbox > 9.75mm% 13Q x 3zw%%新
            \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}%
        \else
%           \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M \kintou{9mm}{#8}\par}%
           \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M \kintou{9.75mm}{#8}\par}%
        \fi
       \else
       \fi%3
     \fi%2
    \fi%1
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        \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}}

%%% section*（番号無し）の内部マクロ
\def\@ssect#1#2#3#4#5{\@tempskipa #3\relax
   \ifdim \@tempskipa>\z@
     \begingroup #4\@hangfrom{\hskip #1}{\interlinepenalty \@M #5\par}\endgroup
   \else \def\@svsechd{#4\hskip #1\relax #5}\fi
    \@xsect{#3}}

\newcommand{\Sectsize}{\@setfontsize\large\@xiipt{22\h}}%%新
\newcommand{\Subsectsize}{\@setfontsize\normalsize\@xipt{22\h}}%%新

\newcommand{\section}{\@startsection{section}{1}{1.75zw}%
   {1.0\Cvs \@plus1.75mm \@minus1mm}%%新
   {1.0\Cvs \@plus1.75mm \@minus1mm}%%新
   {\reset@font\Sectsize\bfseries\mathversion{bold}}}

\newcommand{\subsection}{\@startsection{subsection}{2}{2zw}%
   {.5\Cvs \@plus1mm \@minus.5mm}%%新
   {.5\Cvs \@plus1mm \@minus.5mm}%%新
   {\reset@font\Subsectsize\bfseries\mathversion{bold}}}

\newcommand{\subsubsection}{\@startsection{subsubsection}{3}{2zw}%
   {.0001\Cvs \@plus.1mm \@minus.1mm}%
   {.0001\Cvs \@plus.1mm \@minus.1mm}%
   {\reset@font\normalsize\bfseries\mathversion{bold}}}

\newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
   {3.25ex \@plus 1ex \@minus .2ex}%
   {-1em}%
   {\reset@font\normalsize\bfseries}}
\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
   {3.25ex \@plus 1ex \@minus .2ex}%
   {-1em}%
   {\reset@font\normalsize\bfseries}}

\newcommand{\appendix}{\par
  \vskip\baselineskip%%!!
  \setcounter{section}{0}%
  \setcounter{subsection}{0}%
  \renewcommand{\thesection}{\@Alph\c@section}%
\renewcommand{\section}{\@startsection{subsubsection}{1}{8.3zw}%
   {.0001\Cvs \@plus.1mm \@minus.1mm}%
   {.0001\Cvs \@plus.1mm \@minus.1mm}%
  {\reset@font\normalsize{\bf Appendix}\makebox[1zw][l]{：}\hskip-8.3zw}}%
%  {\reset@font\normalsize{\bf 付録}\makebox[1zw][l]{：}\hskip-4zw}}%
%%  {\reset@font\normalsize}}%
}



\if@twocolumn
  \setlength\leftmargini {2em}
\else
  \setlength\leftmargini {2.5em}
\fi
\setlength\leftmarginii  {2.2em}
\setlength\leftmarginiii {1.87em}
\setlength\leftmarginiv  {1.7em}
\if@twocolumn
  \setlength\leftmarginv {.5em}
  \setlength\leftmarginvi{.5em}
\else
  \setlength\leftmarginv {1em}
  \setlength\leftmarginvi{1em}
\fi
\setlength  \labelsep  {.5em}
\setlength  \labelwidth{\leftmargini}
\addtolength\labelwidth{-\labelsep}
\@beginparpenalty -\@lowpenalty
\@endparpenalty   -\@lowpenalty
\@itempenalty     -\@lowpenalty
\renewcommand{\theenumi}{\@arabic\c@enumi}
\renewcommand{\theenumii}{\@alph\c@enumii}
\renewcommand{\theenumiii}{\@roman\c@enumiii}
\renewcommand{\theenumiv}{\@Alph\c@enumiv}
\newcommand{\labelenumi}{\theenumi.}
\newcommand{\labelenumii}{(\theenumii)}
\newcommand{\labelenumiii}{\theenumiii.}
\newcommand{\labelenumiv}{\theenumiv.}
\renewcommand{\p@enumii}{\theenumi}
\renewcommand{\p@enumiii}{\theenumi(\theenumii)}
\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}

\renewenvironment{enumerate}
  {\ifnum \@enumdepth >3\relax\@toodeep\else
   \advance\@enumdepth\@ne
   \edef\@enumctr{enum\romannumeral\the\@enumdepth}%
   \list{\csname label\@enumctr\endcsname}{%
         \ifnum \@listdepth=\@ne \topsep\z@
           \else\topsep\z@\fi
         \parskip\z@ \itemsep\z@ \parsep\z@ \partopsep\z@
\listparindent=2zw%
         \labelwidth1zw \labelsep.3zw
         \ifnum \@enumdepth=\@ne \leftmargin1zw\relax
           \else\leftmargin\leftskip\fi
         \advance\leftmargin 1zw
         \usecounter{\@enumctr}%
         \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newcommand{\labelitemi}{\textbullet}
\newcommand{\labelitemii}{%
  \iftdir
     {\textcircled{~}}
  \else
     {\normalfont\bfseries\textendash}
  \fi
}
\newcommand{\labelitemiii}{\textasteriskcentered}
\newcommand{\labelitemiv}{\textperiodcentered}

\renewenvironment{itemize}%% <
  {\ifnum \@itemdepth >3\relax\@toodeep\else
   \advance\@itemdepth\@ne
   \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
%%?? \expandafter
   \list{\csname \@itemitem\endcsname}{%
     \topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
     \leftmargin\z@
     \labelwidth1zw%
     \labelsep.75zw%
     \itemindent2zw%
     \listparindent2zw
     \clubpenalty-200\relax
     \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newcommand{\descriptionlabel}[1]{%
   \hspace\labelsep\normalfont\bfseries #1}
\newenvironment{description}{%
 \list{}{%
  \leftmargin\z@
  \labelsep1zw
  \labelwidth\z@
  \itemindent-\leftmargin
  \listparindent2zw
  \topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
  \let\makelabel\descriptionlabel}}{\endlist}


\newenvironment{verse}
  {\let\\\@centercr
   \list{}{\itemsep\z@ \itemindent -1.5em%
           \listparindent\itemindent
           \rightmargin\leftmargin \advance\leftmargin 1.5em}%
           \item\relax}{\endlist}

\newenvironment{quotation}
  {\list{}{\listparindent 1.5em%
           \itemindent\listparindent
           \rightmargin\leftmargin
           \parsep\z@ \@plus\p@}%
           \item\relax}{\endlist}

\newenvironment{quote}
  {\list{}{\rightmargin\leftmargin}%
           \item\relax}{\endlist}


%-- uls from ieice.cls ------

\newskip\@hlskip
\@hlskip.5\Cvs \@plus 1mm \@minus .5mm

\newdimen\verbatimleftmargin
  \verbatimleftmargin\z@
\newdimen\verbatimbaselineskip
  \verbatimbaselineskip\Cvs
\def\verbatimsize{\normalsize}

\def\@verbatim{%
 \topsep\@hlskip
 \partopsep\z@\parsep\z@\itemsep\z@
 \trivlist \item\relax
  \if@minipage\else
   \vskip\baselineskip
   \vskip-\verbatimbaselineskip
  \fi
  \leftskip\@totalleftmargin
  \if@minipage\else
   \advance \leftskip by \verbatimleftmargin
  \fi
  \rightskip\z@skip
  \parindent\z@\parfillskip\@flushglue\parskip\z@skip
  \@@par
  \@tempswafalse
  \def\par{%
    \if@tempswa
      \leavevmode \null \@@par\penalty\interlinepenalty
    \else
      \@tempswatrue
      \ifhmode\@@par\penalty\interlinepenalty\fi
    \fi}%
  \let\do\@makeother \dospecials
  \obeylines 
%   \verbatimsize \baselineskip\verbatimbaselineskip
   \ttfamily \@noligs
  \everypar \expandafter{\the\everypar \unpenalty}%
}

%----------------------------



%--- 図表環境 -------------------------------

\newcounter{figure}
\renewcommand{\thefigure}{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
%\def\fnum@figure{\figurename~\thefigure}
\def\fnum@figure{\figurename.\,\thefigure}
\def\fnum@efigure{Fig.\,\thefigure}
\newenvironment{figure}
               {\@floatenv\capwidth65mm
                \abovecaptionskip2mm\belowcaptionskip0mm\@float{figure}}
               {\end@float}
\newenvironment{figure*}
               {\@floatenv\capwidth.66\textwidth
                \abovecaptionskip2mm\belowcaptionskip0mm\@dblfloat{figure}}
               {\end@dblfloat}

\newcounter{table}
\renewcommand{\thetable}{\@arabic\c@table}
\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
%\def\fnum@table{\tablename~\thetable}
\def\fnum@table{\tablename.\,\thetable}
\def\fnum@etable{Tab.\,\thetable}
\newenvironment{table}
               {\@floatenv\capwidth65mm
                \abovecaptionskip\z@\belowcaptionskip2mm\@float{table}}
               {\end@float}
\newenvironment{table*}
               {\@floatenv\capwidth.66\textwidth
                \abovecaptionskip\z@\belowcaptionskip2mm\@dblfloat{table}}
               {\end@dblfloat}

\def\@floatboxreset {%
        \reset@font
        \Small
        \@setminipage
}
\def\@floatenv{\Small\let\center\Center}

%%% center環境の前後のアキを取る by uls
\def\Center{\topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
 \trivlist \centering\item\relax}
\def\endCenter{\endtrivlist}


%%% キャプション 

\newlength\abovecaptionskip
\newlength\belowcaptionskip
\newdimen\capwidth

\setlength\abovecaptionskip{10\p@}
\setlength\belowcaptionskip{0\p@}

\newbox\capnumberbox
\newbox\capbox

\newcommand{\Small}{\@setfontsize\small\@ixpt{17\h}}%%新

\long\def\@makecaption#1#2{{\Small%
 \vskip\abovecaptionskip%
 %
 \setbox\capnumberbox\hbox{{\bf #1}}%
 \setbox\capbox\hbox{{\bf #1}\hskip1zw #2}%
 %
 \ifdim\wd\capbox < \capwidth%
%  \hbox to\hsize{\hfil\box\capbox\hfil}%
  \centerline{\hbox to\capwidth{\box\capbox\hfill}}%
 \else%
%  \hfil\begin{minipage}[t]{\capwidth}%
\centerline{% 
 \begin{minipage}[t]{\capwidth}%
  \hangindent=\wd\capnumberbox\hangafter=1%
  {\bf #1}\hskip1zw{}#2%
  \end{minipage}}%
\vskip1.5mm%
 \fi%
\vspace{\belowcaptionskip}%
}}



\long\def\ecaption#1{{\Small%
 %
 \setbox\capnumberbox\hbox{{\bf\csname fnum@e\@captype\endcsname}}%
 \setbox\capbox\hbox{{\bf\csname fnum@e\@captype\endcsname}\hskip1zw #1}%
 %
 \ifdim\wd\capbox < \capwidth%
%  \hbox to\hsize{\hfil\box\capbox\hfil}
  \centerline{\hbox to\capwidth{\box\capbox\hfill}}%
  \vspace{\belowcaptionskip}%
 \else%
%  \hfil\begin{minipage}[t]{\capwidth}%
\centerline{%
  \begin{minipage}[t]{\capwidth}%
  \hangindent=\wd\capnumberbox\hangafter=1%
  {\bf \csname fnum@e\@captype\endcsname}\hskip1zw{}#1%
  \end{minipage}}%
  \vspace{\belowcaptionskip}%
 \fi%
}}

%--------------------------------------------


%---- 二段抜き下置きの図表用マクロ -----
\newbox\@dummyfigbox
\def\twocolcaption#1{\Small%  
\vskip\abovecaptionskip
\def\test@captype{figure}
\ifx \@captype\test@captype
 \refstepcounter{figure}%
\else
 \refstepcounter{table}%
\fi
\setbox\@dummyfigbox\hbox{%
{\bf \csname fnum@\@captype\endcsname}\hskip1zw #1}%図〜を \bf に
\setbox\capbox\hbox{{\bf \csname fnum@\@captype\endcsname}}%%!!
%% \capwidth=.66\textwidth
 \ifdim \wd\@dummyfigbox < \capwidth%
  \noindent\hbox to \columnwidth{\hbox to \textwidth{\hss\hbox to \capwidth{\copy\@dummyfigbox\hss}\hss}\hss}\par
 \else
  \setbox\@dummyfigbox\hbox{%
  \begin{minipage}[t]{\capwidth}%
  \hangindent=\wd\capbox\hangafter=1%%!!
{\bf \csname  fnum@\@captype\endcsname}\hskip1zw #1%図〜を \bf に
 \end{minipage}}%
  \noindent
 \hbox to \columnwidth{\hbox to \textwidth{\hss\hbox to \capwidth{\copy\@dummyfigbox\hss}\hss}\hss}\par
\vskip1.5mm%%!!
 \fi
  \vspace{\belowcaptionskip}%
}

\def\twocolecaption#1{\Small%
\setbox\@dummyfigbox\hbox{%
 {\bf\csname fnum@e\@captype\endcsname}\hskip1zw #1}
\setbox\capbox\hbox{{\bf \csname fnum@e\@captype\endcsname}}%%!!
%%\capwidth=.66\textwidth
\ifdim \wd\@dummyfigbox < \capwidth%
\noindent
\hbox to \columnwidth{\hbox to \textwidth{\hss\hbox to \capwidth{\copy\@dummyfigbox\hss}\hss}\hss}\par
\else
\setbox\@dummyfigbox\hbox{%
\begin{minipage}[t]{\capwidth}%
\hangindent=\wd\capbox\hangafter=1%%!!
{\bf\csname fnum@e\@captype\endcsname}\hskip1zw #1%
\end{minipage}}%
\noindent
\hbox to \columnwidth{\hbox to \textwidth{\hss\copy\@dummyfigbox\hss}\hss}\par
\fi}

\def\dummyfigure#1{%
\begin{figure}[b]
\vspace{#1}
\vskip\abovecaptionskip
\phantom{\box\@dummyfigbox}\par
\end{figure}
}
%---------------------------------------

\setlength\arraycolsep{5\p@}
\setlength\tabcolsep{6\p@}
\setlength\arrayrulewidth{.1mm}%{.4\p@}
\setlength\doublerulesep{2\p@}
\setlength\tabbingsep{\labelsep}
\skip\@mpfootins = \skip\footins
\setlength\fboxsep{3\p@}
\setlength\fboxrule{.1mm}%{.4\p@}

\renewcommand{\theequation}{\@arabic\c@equation}
\if@enablejfam
  \DeclareSymbolFont{mincho}{JY1}{mc}{m}{n}
  \DeclareSymbolFontAlphabet{\mathmc}{mincho}
  \SetSymbolFont{mincho}{bold}{JY1}{gt}{m}{n}
  \DeclareMathAlphabet{\mathgt}{JY1}{gt}{m}{n}
  \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
  \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}
  \jfam\symmincho
\else
  \DeclareRobustCommand{\mathmc}{%
    \@latex@error{Command \noexpand\mathmc invalid with\space
       `disablejfam' class option.}\@eha
  }
  \DeclareRobustCommand{\mathgt}{%
    \@latex@error{Command \noexpand\mathgt invalid with\space
       `disablejfam' class option.}\@eha
  }
\fi
\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
\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}
\setcounter{tocdepth}{3}
\newcommand{\@pnumwidth}{1.55em}
\newcommand{\@tocrmarg}{2.55em}
\newcommand{\@dotsep}{4.5}
\newdimen\toclineskip
\setlength\toclineskip{\z@}
\newdimen\@lnumwidth
\def\numberline#1{\hbox to\@lnumwidth{#1\hfil}}
\def\@dottedtocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
  \vskip\toclineskip \@plus.2\p@
  {\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
    \parindent #2\relax\@afterindenttrue
   \interlinepenalty\@M
   \leavevmode
   \@lnumwidth #3\relax+
   \advance\leftskip \@lnumwidth \hbox{}\hskip -\leftskip
    {#4}\nobreak\leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern \@dotsep
       mu$}\hfill \nobreak\hbox to\@pnumwidth{%
         \hss\reset@font\rmfamily \normalcolor #5}\par}\fi}
\def\addcontentsline#1#2#3{%
  \protected@write\@auxout
    {\let\label\@gobble \let\index\@gobble \let\glossary\@gobble
\@temptokena{\thepage}}%
    {\string\@writefile{#1}%
       {\protect\contentsline{#2}{#3}{\the\@temptokena}}}%
}
\newcommand{\tableofcontents}{%
  \section*{\contentsname
    \@mkboth{\contentsname}{\contentsname}%
  }\@starttoc{toc}%
}
\newcommand*{\l@part}[2]{%
  \ifnum \c@tocdepth >-2\relax
    \addpenalty{\@secpenalty}%
    \addvspace{2.25em \@plus\p@}%
    \begingroup
    \parindent\z@\rightskip\@pnumwidth
    \parfillskip-\@pnumwidth
    {\leavevmode\large\bfseries
     \setlength\@lnumwidth{4zw}%
     #1\hfil\nobreak
     \hbox to\@pnumwidth{\hss#2}}\par
    \nobreak
    \if@compatibility
    \global\@nobreaktrue
    \everypar{\global\@nobreakfalse\everypar{}}%
    \fi
     \endgroup
  \fi}
\newcommand*{\l@section}[2]{%
  \ifnum \c@tocdepth >\z@
    \addpenalty{\@secpenalty}%
    \addvspace{1.0em \@plus\p@}%
    \begingroup
      \parindent\z@ \rightskip\@pnumwidth \parfillskip-\rightskip
      \leavevmode\bfseries
      \setlength\@lnumwidth{1.5em}%
      \advance\leftskip\@lnumwidth \hskip-\leftskip
      #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
    \endgroup
  \fi}
\newcommand*{\l@subsection}   {\@dottedtocline{2}{1.5em}{2.3em}}
\newcommand*{\l@subsubsection}{\@dottedtocline{3}{3.8em}{3.2em}}
\newcommand*{\l@paragraph}    {\@dottedtocline{4}{7.0em}{4.1em}}
\newcommand*{\l@subparagraph} {\@dottedtocline{5}{10em}{5em}}
\newcommand{\listoffigures}{%
    \section*{\listfigurename
  \@mkboth{\listfigurename}{\listfigurename}}%
  \@starttoc{lof}%
}
\newcommand*{\l@figure}{\@dottedtocline{1}{1.5em}{2.3em}}
\newcommand{\listoftables}{%
    \section*{\listtablename
  \@mkboth{\listtablename}{\listtablename}}%
  \@starttoc{lot}%
}
\let\l@table\l@figure


%- 参考文献、引用文献 -----------------------

%\newif\ifBibliograph\Bibliographfalse

\newdimen\bibindent
\setlength\bibindent{1.5em}
\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
\newenvironment{thebibliography}[1]
{%
 \def\subsection{\@startsection{subsection}{2}{2zw}%
   {.6\Cvs \@plus.1mm \@minus.1mm}%%新
   {.6\Cvs \@plus.1mm \@minus.1mm}%%新
   {\reset@font\normalsize\bfseries\mathversion{bold}}}
%\ifBibliograph% 引用文献？
% \subsection*{引用文献}%
%\else
 \subsection*{\refname}
%\fi
\small%%新
   \list{\@biblabel{\@arabic\c@enumiv}}%
        {\settowidth\labelwidth{\@biblabel{\hspace*{1.5zw}}}%
         \leftmargin2zw
\labelsep1zw
\itemsep0zw\parsep0zw\topsep0zw\partopsep0zw
\itemindent1zw
         \@openbib@code
         \usecounter{enumiv}%
         \let\p@enumiv\@empty
         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
   \sloppy
   \clubpenalty-100\relax
   \widowpenalty-100\relax
   \@clubpenalty\clubpenalty
   \sfcode`\.\@m}
  {\def\@noitemerr
    {\@latex@warning{Empty `thebibliography' environment}}%
   \endlist}
\def\@biblabel#1{#1）}
\let\@openbib@code\@empty

%--------------------------------------------


\newenvironment{theindex}
  {\if@twocolumn\@restonecolfalse\else\@restonecoltrue\fi
   \columnseprule\z@ \columnsep 35\p@
   \twocolumn[\section*{\indexname}]%
   \@mkboth{\indexname}{\indexname}%
   \thispagestyle{jpl@in}\parindent\z@
   \parskip\z@ \@plus .3\p@\relax
   \let\item\@idxitem}
  {\if@restonecol\onecolumn\else\clearpage\fi}
\newcommand{\@idxitem}{\par\hangindent 40\p@}
\newcommand{\subitem}{\@idxitem \hspace*{20\p@}}
\newcommand{\subsubitem}{\@idxitem \hspace*{30\p@}}
\newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}


%- 脚注 -------------------------------------------

\newbox\footbox

\renewcommand{\footnoterule}{%
  \kern-3\p@
%  \hrule width .4\columnwidth
  \hrule width \columnwidth
  \kern 2.6\p@}
\def\@makefnmark{\hbox{$^{\mbox{\tiny 
\@thefnmark}}$}}

\def\thefootnote{\fnsymbol{footnote}}
\def\@fnsymbol#1{\ensuremath{%
 \ifcase#1\or
  {\dagger}\or
  {\dagger}{\dagger}\or
  {\dagger}{\dagger}{\dagger}\or
  {\dagger}{\dagger}{\dagger}{\dagger}\or
  {\dagger}{\dagger}{\dagger}{\dagger}{\dagger}\or
  {\dagger}{\dagger}{\dagger}{\dagger}{\dagger}{\dagger}\else
   \@ctrerr\fi}}

\newcommand\@makefntext[1]{%
\setbox\footbox\hbox to 3zw{\hss\@thefnmark\ }%
\parindent 3zw\hangindent=3zw%\the\wd\footbox%
\noindent\box\footbox #1}

%--------------------------------------------------


\newif\if西暦 \西暦false
\def\西暦{\西暦true}
\def\和暦{\西暦false}
\newcount\heisei \heisei\year \advance\heisei-1988\relax
\def\today{{%
  \iftdir
    \if西暦
      \kansuji\number\year 年
      \kansuji\number\month 月
      \kansuji\number\day 日
    \else
      平成\ifnum\heisei=1 元年\else\kansuji\number\heisei 年\fi
      \kansuji\number\month 月
      \kansuji\number\day 日
    \fi
  \else
    \if西暦
      \number\year~年
      \number\month~月
      \number\day~日
    \else
      平成\ifnum\heisei=1 元年\else\number\heisei~年\fi
      \number\month~月
      \number\day~日
    \fi
  \fi}}


%%% その他のマクロ
\def\kintou#1#2{\@ifundefined{jintercharskip}%
 {\leavevmode\hbox to #1{%
   \kanjiskip\z@ \@plus 1fill \@minus 1fill\xkanjiskip\kanjiskip #2}}%
 {\leavevmode\hbox to #1{\jintercharskip\z@ \@plus 1fill \@minus 1fill
   \jasciikanjiskip\jintercharskip #2}}}

\def\MARU#1{\raisebox{0.1zh}{{\rm\ooalign{\hfil 
\lower.1ex\hbox{\small #1}\hfil\crcr\mathhexbox20D}}}}

\def\ruby#1#2{\leavevmode \setbox0=\hbox{#1}\setbox1=\hbox{\tiny #2}%% <
 \ifdim\wd0>\wd1 \dimen0=\wd0 \else \dimen0=\wd1 \fi
 \hbox{\kanjiskip=\fill
 \vbox{\hbox to \dimen0{\tiny \hfil#2\hfil}%
  \nointerlineskip \hbox to \dimen0{\hfil#1\hfil}}}}

\def\COLON{\makebox[1zw][l]{：}}

\def\doubledash{\leavevmode\hbox to 2zw{---\hss ---}}

\def\ack{\par\vskip\baselineskip{\bfseries Acknowledgements}\par}

\def\Hline{\noalign{\hrule height 0.3mm}}

\def\onelineskip{\par\vspace{1\baselineskip}\par}
\def\halflineskip{\par\vspace{.5\baselineskip}\par}

\newcommand{\AmSLaTeX}{%
 $\mathcal A$\lower.4ex\hbox{$\!\mathcal M\!$}$\mathcal S$-\LaTeX}
\newcommand{\PS}{{\scshape Post\-Script}}




\newcommand{\prepartname}{第}
\newcommand{\postpartname}{部}
\newcommand{\contentsname}{目 次}
\newcommand{\listfigurename}{図 目 次}
\newcommand{\listtablename}{表 目 次}
%\newcommand{\refname}{参考文献}
\newcommand{\refname}{References}
\newcommand{\indexname}{索 引}
%\newcommand{\figurename}{図}
\newcommand{\figurename}{Fig}
%\newcommand{\tablename}{表}
\newcommand{\tablename}{Tab}
\newcommand{\appendixname}{付 録}
\newcommand{\abstractname}{概 要}

%%## citesort.sty ##%%
\newcount\@minsofar
\newcount\@min
\newcount\@cite@temp
\def\@citex[#1]#2{%
\if@filesw \immediate \write \@auxout {\string \citation {#2}}\fi
\@tempcntb\m@ne \let\@h@ld\relax \def\@citea{}%
\@min\m@ne%
\@cite{%
  \@for \@citeb:=#2\do {\@ifundefined {b@\@citeb}%
    {\@h@ld\@citea\@tempcntb\m@ne{\bfseries ?}%
    \@warning {Citation `\@citeb ' on page \thepage \space undefined}}%
{\@minsofar\z@ \@for \@scan@cites:=#2\do {%
  \@ifundefined{b@\@scan@cites}%
    {\@cite@temp\m@ne}
    {\@cite@temp\number\csname b@\@scan@cites \endcsname \relax}%
\ifnum\@cite@temp > \@min% select the next one to list
    \ifnum\@minsofar = \z@
      \@minsofar\number\@cite@temp
      \edef\@scan@copy{\@scan@cites}\else
    \ifnum\@cite@temp < \@minsofar
      \@minsofar\number\@cite@temp
      \edef\@scan@copy{\@scan@cites}\fi\fi\fi}\@tempcnta\@min
  \ifnum\@minsofar > \z@ % some more
    \advance\@tempcnta\@ne
    \@min\@minsofar
    \ifnum\@tempcnta=\@minsofar %   Number follows previous--hold on to it
      \ifx\@h@ld\relax
        \edef \@h@ld{\@citea\csname b@\@scan@copy\endcsname}%
%      \else \edef\@h@ld{\ifmmode{-}\else--\fi\csname b@\@scan@copy\endcsname}%
      \else \edef\@h@ld{\ifmmode{-}\else〜\fi\csname b@\@scan@copy\endcsname}%
      \fi
    \else \@h@ld\@citea\csname b@\@scan@copy\endcsname
          \let\@h@ld\relax
  \fi % no more
\fi}%
\def\@citea{,\penalty\@highpenalty\,}}\@h@ld}{#1}}
%% end of citesort.sty

%% from "cite.sty", a little modified
\def\@cite#1#2{\leavevmode\unskip
  \ifnum\lastpenalty=\z@\penalty\@highpenalty\fi% highpenalty before
  \kern\z@
  $^{\mbox{\tiny {\multiply\@highpenalty 3 #1%  % triple-highpenalties within
      \if@tempswa,\penalty\@highpenalty\ #2\fi % and before note.
%    })}}$\spacefactor\@m}
    }）}}$\spacefactor\@m}
%% end of cite.sty


% borrowed from "ipsjpaper.sty", a little changed
% To balance the final page,
% following code is borrowed from nicetwocolumn style
\newif\iflastpagebalancing
%% \lastpagebalancingfalse
 \lastpagebalancingtrue

\newdimen\dimen@@
\newdimen\lastofletter

\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
\ifdim\dp0>\dp2\advance\dimen@@ by\dp0\else\advance\dimen@@ by\dp2\fi
\setbox\@outputbox\vbox to \textheight{%%!! modified 
\vbox to\dimen@@{\hbox to\textwidth{\box0\hfil\box2}
\lastofletter=\textheight%
\advance \lastofletter by -\dimen@@%
\ifdim \lastofletter>11mm%
%%\vskip7.375mm%
%\hbox to \textwidth{\hfill\rule{70.5mm}{0.1mm}\hfill}
\hbox to \textwidth{\hfill\rule{70.5mm}{0mm}\hfill}
\else\fi
\vss}\vss}}

% incorporate balanced output to \enddocument
%\def\enddocument{\@uketsuke\relax %%
\def\enddocument{\relax %%
\iflastpagebalancing\global\let\@outputdblcol=\balancing@outputdblcol\fi
\label{lastpage}\@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 2.5mm\else% setup
 \ifx \@currsize\footnotesize \global\@interlinegap 0.5078875mm\else% 2.03199\Q 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%
\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%
\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%
\unvbox\@leftcolumnfootnote
\if@rightfootnoteexist
\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@firstcolumn
\ifvoid\footins \setbox\@outputbox\box\@cclv
\global\@leftfootnoteexistfalse
   \else\global\@leftfootnoteexisttrue
\setbox\@outputbox\box\@cclv
\global\setbox\@leftcolumnfootnote\box\footins
\fi
     \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
\else
\ifvoid\footins \setbox\@outputbox\box\@cclv
\global\@rightfootnoteexistfalse
   \else\global\@rightfootnoteexisttrue
\setbox\@outputbox\box\@cclv
\global\setbox\@rightcolumnfootnote\box\footins
\fi
     \xdef\@freelist{\@freelist\@midlist}\gdef\@midlist{}\@combinefloats
\fi
}
%% end of balancing columns




%% from fleqn.clo
%%\ProvidesFile{fleqn.clo}
%%        [1996/07/26 v1.1b Standard LaTeX option
%%                                   (flush left equations)]
\newdimen\mathindent
\AtEndOfClass{\mathindent3zw}% \leftmargini
\renewcommand\[{\relax
                \ifmmode\@badmath
                \else
                 \parsep  4\p@ \@plus2\p@ \@minus\p@
                 \topsep  8\p@ \@plus2\p@ \@minus4\p@
                 \itemsep 4\p@ \@plus2\p@ \@minus\p@
                  \begin{trivlist}%
                    \@beginparpenalty\predisplaypenalty
                    \@endparpenalty\postdisplaypenalty
                    \item[]\leavevmode
                    \hb@xt@\linewidth\bgroup $\m@th\displaystyle %$
                      \hskip\mathindent\bgroup
                \fi}
\renewcommand\]{\relax
                \ifmmode
                      \egroup $\hfil% $
                    \egroup
                  \end{trivlist}%
                \else \@badmath
                \fi}
\renewenvironment{equation}%
    {\@beginparpenalty\predisplaypenalty
     \@endparpenalty\postdisplaypenalty
     \refstepcounter{equation}%
     \parsep  4\p@ \@plus2\p@ \@minus\p@
     \topsep  8\p@ \@plus2\p@ \@minus4\p@
     \itemsep 4\p@ \@plus2\p@ \@minus\p@
     \trivlist \item[]\leavevmode
       \hb@xt@\linewidth\bgroup $\m@th% $
         \displaystyle
         \hskip\mathindent}%
        {$\hfil % $
         \displaywidth\linewidth\hbox{\@eqnnum}%
       \egroup
     \endtrivlist}
\renewenvironment{eqnarray}{%
    \stepcounter{equation}%
    \parsep  4\p@ \@plus2\p@ \@minus\p@
    \topsep  8\p@ \@plus2\p@ \@minus4\p@
    \itemsep 4\p@ \@plus2\p@ \@minus\p@
    \def\@currentlabel{\p@equation\theequation}%
    \global\@eqnswtrue\m@th
    \global\@eqcnt\z@
    \tabskip\mathindent
    \let\\=\@eqncr
    \setlength\abovedisplayskip{\topsep}%
    \ifvmode
      \addtolength\abovedisplayskip{\partopsep}%
    \fi
    \addtolength\abovedisplayskip{\parskip}%
    \setlength\belowdisplayskip{\abovedisplayskip}%
    \setlength\belowdisplayshortskip{\abovedisplayskip}%
    \setlength\abovedisplayshortskip{\abovedisplayskip}%
    $$\everycr{}\halign to\linewidth% $$
    \bgroup
      \hskip\@centering
      $\displaystyle\tabskip\z@skip{##}$\@eqnsel&%
      \global\@eqcnt\@ne \hskip.8\arraycolsep \hfil${##}$\hfil&%
      \global\@eqcnt\tw@ \hskip.8\arraycolsep
        $\displaystyle{##}$\hfil \tabskip\@centering&%
      \global\@eqcnt\thr@@
        \hb@xt@\z@\bgroup\hss##\egroup\tabskip\z@skip\cr}%
      {\@@eqncr
    \egroup
    \global\advance\c@equation\m@ne$$% $$
    \@ignoretrue
    }
%%\endinput
%%
%% End of file `fleqn.clo'.

\def\@eqnnum{{\normalfont \normalcolor (\theequation)\hspace*{3mm}}}




%-- uls from ieice.cls 

\@ifundefined{kanjiskip}{}{%
 \postbreakpenalty"5C=10000
}

\def\sloppy{\tolerance9999\hbadness4000\hfuzz1\p@ \vfuzz1\p@}
\hbadness4000
\vbadness10001
\clubpenalty\z@
\widowpenalty\z@
\displaywidowpenalty\z@
\interdisplaylinepenalty\z@
\predisplaypenalty\z@

\postbreakpenalty`（=10000
\prebreakpenalty`）=10000
\postbreakpenalty`［=10000
\prebreakpenalty`］=10000
\postbreakpenalty`〈=10000
\prebreakpenalty`〉=10000
\prebreakpenalty`"=10000
%\prebreakpenalty`℃=10000
\prebreakpenalty`　=10000
\prebreakpenalty`・=10000
\prebreakpenalty`〜=10000
\prebreakpenalty`ー=10000
\prebreakpenalty`？=10000
\prebreakpenalty`！=10000

%\AtBeginDocument{%
% \@ifundefined{@mathmargin}{}{\@mathmargin7mm}%
%}
%----

\pagestyle{plain}
\pagenumbering{arabic}

\raggedbottom
\if@twocolumn
  \twocolumn
  \sloppy%%!!
  \flushbottom
%\raggedbottom
\else
  \onecolumn
\fi
\if@twoside
  \@mparswitchtrue
\else
  \@mparswitchfalse
\fi
\endinput