%% ieej.sty Version 1.0
%%  for the Transaction of The Institute of Electrical Engineers of Japan
%%   by Motoaki Sato (SATO KOBO)
\typeout{ieej.sty; Version 1.0 [September 18 1995]}

\newif\ifNTTfont
\@ifundefined{kanjiskip}{\NTTfonttrue
 \let\kanjiskip=\jintercharskip
 \let\xkanjiskip=\jasciikanjiskip
 \def\bf{\protect\pdg\protect\pbf}
 }{\NTTfontfalse}

\newif\if@AmSTexFont
\@ifundefined{shape}{\@AmSTexFontfalse}{\@AmSTexFonttrue}

\newif\ifcameraready
%  \camerareadytrue
%  \camerareadyfalse
\newif\ifProof % for adjustment of the top and bottom of text
%  \Prooftrue \overfullrule 5pt
%  \Prooffalse
\newif\ifJIScodechange
%  \JIScodechangetrue % exchange MaruSuuji produced by \MARU{?} to Shaken Code
%  \JIScodechangefalse
\newif\ifcommentmark
%  \commentmarktrue
   \commentmarkfalse

\newread\@cameraready
\openin\@cameraready ieejfnt.sty
\ifeof\@cameraready
  \camerareadyfalse
  \Prooffalse
  \JIScodechangefalse
\else\closein\@cameraready
  \camerareadytrue
\fi

\newif\ifBoldMath
	\BoldMathtrue
%	\BoldMathfalse

\newif\if@letter \@letterfalse
\newif\if@english \@englishfalse
\newif\if@comment \@commentfalse
\newif\if@feature \@featurefalse

\def\ds@letter{\@lettertrue}
\def\ds@english{\@englishtrue}
\def\ds@comment{\@commenttrue}
\def\ds@feature{\@featuretrue}

\def\@ptsize{0}
\@namedef{ds@11pt}{\def\@ptsize{1}}
\@namedef{ds@12pt}{\def\@ptsize{2}}
\def\ds@twoside{\@twosidetrue \@mparswitchtrue}
\def\ds@draft{\overfullrule 5pt}
\@options

\@twosidetrue
\@mparswitchtrue

\lineskip 2pt \normallineskip 2pt
\def\baselinestretch{1}

\newdimen\h@
  \h@=0.25mm
\newdimen\JQ % for SK fonts
  \JQ=0.7392507pt
\newdimen\Q % for SE fonts
  \Q=0.71144pt
\newdimen\@bs
  \@bs=20\h@

% for micro TeX
\ifNTTfont\else
 \@ifundefined{inhibitglue}{\let\<=\relax }{}
\fi

\ifBoldMath
%\def\@mbiix{cmmib9}
 \def\@mbiix{cmmib10 at 9pt}
%\def\@mbiviii{cmmib8}
 \def\@mbiviii{cmmib10 at 8pt}
%\def\@mbivii{cmmib7}
 \def\@mbivii{cmmib10 at 7pt}
%\def\@mbivi{cmmib6}
 \def\@mbivi{cmmib10 at 6pt}
%\def\@mbiv{cmmib5}
%\def\@mbsyix{cmbsy9}
 \def\@mbsyix{cmbsy10 at 9pt}
%\def\@mbsyviii{cmbsy8}
 \def\@mbsyviii{cmbsy10 at 8pt}
%\def\@mbsyvii{cmbsy7}
 \def\@mbsyvii{cmbsy10 at 7pt}
%\def\@mbsyvi{cmbsy6}
%\def\@mbsyv{cmbsy5}

\@ifundefined{@ptscale}{\def\@ptscale#1{ scaled #100}}{}

%\font\sixmib = cmmib6 % bold math italic
 \font\sixmib = cmmib10 at 6pt % bold math italic
%\font\sixsyb = cmbsy6 % bold math symbols
 \font\sixsyb = cmbsy10 at 6pt % bold math symbols
 \font\sixlyb = lasyb10 \@ptscale6 % LaTeX symbols

%\font\fivmib = cmmib5 % bold math italic
 \font\fivmib = cmmib10 at 5pt % bold math italic
%\font\fivsyb = cmbsy5 % bold math symbols
 \font\fivsyb = cmbsy10 at 5pt % bold math symbols
 \font\fivlyb = lasyb10 \@ptscale5 % LaTeX symbols

\let\original@viipt=\viipt
\def\viipt{\original@viipt
 \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
         \textfont\@ne\sevmi 
         \textfont\tw@\sevsy \textfont\lyfam\sevly
         \@boldfalse}\@boldfalse
 \def\boldmath{\@ifundefined{sevmib}{\global\font\sevmib\@mbivii 
  \global\font\sevsyb\@mbsyvii
  \global\font\sevlyb\@lasyb\@ptscale7\relax\@addfontinfo\@viipt
  {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
       \textfont\@ne\sevmib 
       \textfont\tw@\sevsyb 
       \textfont\lyfam\sevlyb \@prtct\@boldtrue}}}{}\@viipt\boldmath}%
 \def\ptt{\@getfont\ptt\ttfam\@viipt{cmtt10 \@ptscale7}\@nohyphens\ptt\@viipt}%
}

\let\original@viiipt=\viiipt
\def\viiipt{\original@viiipt
 \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
         \textfont\@ne\egtmi 
         \textfont\tw@\egtsy \textfont\lyfam\egtly
         \@boldfalse}\@boldfalse
 \def\boldmath{\@ifundefined{egtmib}{\global\font\egtmib\@mbiviii 
  \global\font\egtsyb\@mbsyviii 
  \global\font\egtlyb\@lasyb\@ptscale8\relax\@addfontinfo\@viiipt
  {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
       \textfont\@ne\egtmib 
       \textfont\tw@\egtsyb 
       \textfont\lyfam\egtlyb \@prtct\@boldtrue}}}{}\@viiipt\boldmath}%
 \def\ptt{\@getfont\ptt\ttfam\@viiipt{cmtt8}\@nohyphens\ptt\@viiipt}%
}

\let\original@ixpt=\ixpt
\def\ixpt{\original@ixpt
 \def\unboldmath{\everymath{}\everydisplay{}\@nomath\unboldmath
         \textfont\@ne\ninmi 
         \textfont\tw@\ninsy \textfont\lyfam\ninly
         \@boldfalse}\@boldfalse
 \def\boldmath{\@ifundefined{ninmib}{\global\font\ninmib\@mbiix
  \global\font\ninsyb\@mbsyix 
  \global\font\ninlyb\@lasyb\@ptscale9\relax\@addfontinfo\@ixpt
  {\def\boldmath{\everymath{\mit}\everydisplay{\mit}\@prtct\@nomathbold
       \textfont\@ne\ninmib 
       \textfont\tw@\ninsyb 
       \textfont\lyfam\ninlyb \@prtct\@boldtrue}}}{}\@ixpt\boldmath}%
}
\fi

\ifNTTfont
 \jfont\fivmin = dm5
 \jfont\sixmin = dm6
 \jfont\sevmin = dm7
 \jfont\egtmin = dm8
 \jfont\ninmin = dm9
 \jfont\tenmin = dm10 scaled 1010
 \jfont\elvmin = dm10 scaled 1095  % at 15\JQ
 \if@letter
  \jfont\twlmin = dm10 scaled 1200 % at 16\JQ
 \else
  \jfont\twlmin = dm10 scaled 1200 % at 18\JQ
 \fi
 \jfont\frtnmin = dm10 scaled 1440 % at 20\JQ
 \jfont\svtnmin = dm10 scaled 1728 % at 24\JQ

 \jfont\fivgt = dg5
 \jfont\sixgt = dg6
 \jfont\sevgt = dg7
 \jfont\egtgt = dg8
 \jfont\ningt = dg9
 \jfont\tengt = dg10

 \font\EFnomble=cmss9
 \jfont\KFfoot=dg8
 \font\EFfoot=cmss8
 \jfont\KFsec=dg10 % at 14\JQ
 \font\EFsec=cmbx10
 \font\EFsecnum=cmss10
 \font\EFsubsecnum=cmss10
 \font\EFcapnum=cmss10
 \jfont\KFtype=dg10 scaled 1440 % at 18\JQ
 \jfont\KFtypel=dg10 % at 14\JQ
 \let\EFetitle=\relax % at 16\Q
  \if@letter
   \let\KFmembership=\tenmin % 12\JQ
   \let\KFauthorname=\twlmin % 16\JQ
   \font\EFauthorname=cmr10 scaled 1095 % 16\Q
   \let\KFaffiliate=\egtmin
   \font\EFaffiliate=cmr8
  \else
   \if@english 
    \font\EFauthorname=cmr10 at 10.95pt % 16\Q
    \font\EFaffiliate=cmr9
   \else
    \let\KFmembership=\tenmin % 13\JQ
    \let\KFauthorname=\twlmin % 18\JQ
    \font\EFauthorname=cmr10 at 14.4pt % 14pt 18\Q
    \let\KFaffiliate=\ninmin
    \font\EFaffiliate=cmr9
   \fi
  \fi
\else
 \let\dg\gt
 \let\dm\mc
 \let\pdg\pgt
 \let\pdm\pmc
 \ifcameraready
  \input ieejfnt.sty
 \else
  \font\fivmin = min10 at 7\JQ
  \font\sixmin = min10 at 9\JQ
  \font\sevmin = min10 at 10\JQ
  \font\egtmin = min10 at 11\JQ
  \font\ninmin = min10 at 12\JQ
  \font\tenmin = min10 at 13\JQ
  \font\elvmin = min10 at 15\JQ
  \if@letter
   \font\twlmin = min10 at 16\JQ
  \else
   \font\twlmin = min10 at 18\JQ
  \fi
  \font\frtnmin = min10 at 20\JQ
  \font\svtnmin = min10 at 24\JQ

  \font\fivgt = goth10 at 7\JQ
  \font\sixgt = goth10 at 9\JQ
  \font\sevgt = goth10 at 10\JQ
  \font\egtgt = goth10 at 11\JQ
  \font\ningt = goth10 at 12\JQ
  \font\tengt = goth10 at 13\JQ

  \font\EFnomble=cmss9
  \font\KFfoot=goth10 at 11\JQ
  \font\EFfoot=cmss8
  \font\KFsec=goth10 at 14\JQ
  \font\EFsec=cmbx10
  \font\EFsecnum=cmss10
  \font\EFsubsecnum=cmss10
  \font\EFcapnum=cmss10
  \font\KFtype=goth10 at 18\JQ
  \font\KFtypel=goth10 at 14\JQ
  \let\EFetitle=\relax % at 16\Q
   \if@letter
    \let\KFmembership=\ninmin % 12\JQ
    \let\KFauthorname=\twlmin % 16\JQ
    \font\EFauthorname=cmr10 at 10.95pt % 16\Q
    \let\KFaffiliate=\egtmin
    \font\EFaffiliate=cmr8
   \else
    \if@english
     \font\EFauthorname=cmr10 at 10.95pt % 16\Q
     \font\EFaffiliate=cmr9
    \else
     \let\KFmembership=\tenmin % 13\JQ
     \let\KFauthorname=\twlmin % 18\JQ
     \font\EFauthorname=cmr10 at 14.4pt % 14pt 18\Q
     \let\KFaffiliate=\ninmin
     \font\EFaffiliate=cmr9
    \fi
   \fi
 \fi
\fi

%% normalsize -->10pt 13Q 20H
\def\@normalsize{\@setsize\normalsize{20\h@}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt
minus3pt\let\@listi\@listI}

%% small-->9pt 12Q 15H
\def\small{\@setsize\small{15\h@}\ixpt\@ixpt
\abovedisplayskip 8.5pt plus 3pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus2pt\belowdisplayshortskip 4pt plus2pt minus 2pt
\def\@listi{\leftmargin\leftmargini \topsep 4pt plus 2pt minus 2pt\parsep 2pt
plus 1pt minus 1pt
\itemsep \parsep}}

%% footnotesize-->7pt 10Q 15H
\def\footnotesize{\@setsize\footnotesize{15\h@}\viipt\@viipt
\abovedisplayskip 6pt plus 2pt minus 4pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus 1pt\belowdisplayshortskip 3pt plus 1pt minus
2pt
\def\@listi{\leftmargin\leftmargini \topsep 3pt plus 1pt minus 1pt\parsep 2pt
plus 1pt minus 1pt
\itemsep \parsep}}

%% Small-->8pt 11Q 18H
\def\Small{\@setsize\Small{18\h@}\viiipt\@viiipt}

\def\scriptsize{\@setsize\scriptsize{8pt}\viipt\@viipt}
\def\tiny{\@setsize\tiny{6pt}\vpt\@vpt}
\def\large{\@setsize\large{23\h@}\xipt\@xipt}
\def\Large{\@setsize\Large{23\h@}\xiipt\@xiipt}
\def\LARGE{\@setsize\LARGE{27\h@}\xivpt\@xivpt}
\def\huge{\@setsize\huge{31\h@}\xviipt\@xviipt}
\def\Huge{\@setsize\Huge{30pt}\xxpt\@xxpt}
\normalsize 

%% set of style parameters
\oddsidemargin\z@
\evensidemargin\z@
\topmargin\z@
\textwidth=177.25mm % 13x26x2+11x3=676+33=709H (177.25mm)
\textheight=49\@bs
\advance \textheight by \topskip
\headheight=6mm
\headsep=3.5mm
\footskip=9mm
\footheight=2.75mm
\unitlength=1mm
\baselineskip=20\h@
\parindent=3.25mm
\columnsep=33\h@ % 11x3
\fboxrule=.1mm
\fboxsep=.5zw
\parskip\z@

\marginparwidth 20mm
\marginparsep 5mm

\footnotesep 2.8mm % 6.65pt
\skip\footins 1\@bs plus 4pt minus 2pt 
\intextsep 12pt plus 2pt minus 2pt
\@maxsep 20pt
\@dblmaxsep 20pt 
\@fptop 0pt plus 1fil \@fpsep 8pt plus 2fil \@fpbot 0pt plus 1fil 
\@dblfptop 0pt plus 1fil \@dblfpsep 8pt plus 2fil \@dblfpbot 0pt plus 1fil
\marginparpush 5pt

\def\topfraction{1}
\def\bottomfraction{1}
\def\textfraction{0}
\def\floatpagefraction{0}
\def\dbltopfraction{1}
\def\dblfloatpagefraction{0}
\setcounter{topnumber}{5}
\setcounter{dbltopnumber}{3}
\setcounter{bottomnumber}{3}
\setcounter{totalnumber}{5}
\floatsep 1\@bs plus 1.5mm minus 2mm
\dblfloatsep 1\@bs plus 1.5mm minus 2mm
\textfloatsep 1.5\@bs plus 2mm minus 3mm
\dbltextfloatsep 1.5\@bs plus 2mm minus 3mm

\partopsep 2pt plus 1pt minus 1pt 
\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301 
\@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
-\@lowpenalty 

%% redefinition of "\@startsection" is based on ipsjpaper.sty
\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\baselineskip
       \advance\@tempskipa-\baselineskip \vspace*{\@tempskipa}%
     \else\addvspace{\@tempskipa}\fi\fi \@ifstar
     {\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}

\newif\ifjidori
\if@english \jidorifalse \else
 \jidoritrue \fi

% \@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}
  \ifnum #2=\@ne
   \if@letter
    \edef\@svsec{{\EFsubsecnum\csname the#1\endcsname{.}\hskip 1em }}
   \else
    \edef\@svsec{{\EFsecnum\csname the#1\endcsname{.}\hskip 1em }}
   \fi
  \else
   \edef\@svsec{{\noexpand\bf\EFsubsecnum\csname the#1\endcsname\hskip 1em }}
  \fi
 \fi
  \@tempskipa #5\relax
   \ifdim \@tempskipa>\z@
    \begingroup #6\relax
     \ifjidori
     \ifnum #2=\@ne \@tempdima=5zw \else \@tempdima=4zw \fi
      \setbox\@tempboxa\hbox{#8}
      \ifdim \wd\@tempboxa < \@tempdima
       \@hangfrom{\hskip #3\relax\@svsec}%
        {\interlinepenalty \@M\kintou{\@tempdima}{#8}\par}%
      \else
       \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}%
      \fi
     \else
      \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}%
     \fi
    \endgroup
   \else
    \ifjidori
     \setbox\@tempboxa\hbox{#8}
     \ifdim \wd\@tempboxa < 4zw
      \def\@svsechd{#6\hskip #3\@svsec \kintou{4zw}{#8}}%
     \else
      \def\@svsechd{#6\hskip #3\@svsec #8}%
     \fi
    \else
     \def\@svsechd{#6\hskip #3\@svsec #8}%
    \fi
   \fi
\@xsect{#5}}

% \@ssect{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}{ARG} ==
\def\@ssect#1#2#3#4#5{%
 \@tempskipa #3\relax
  \ifdim \@tempskipa>\z@
   \begingroup #4
    \ifjidori
    \ifdim \@tempskipa < .5\baselineskip \@tempdima=4zw \else \@tempdima=5zw \fi
     \setbox\@tempboxa\hbox{#5}
     \ifdim \wd\@tempboxa < \@tempdima
      \@hangfrom{\hskip #1}{\interlinepenalty \@M \kintou{\@tempdima}{#5}\par}
     \else
      \@hangfrom{\hskip #1}{\interlinepenalty \@M #5\par}
     \fi
    \else
     \@hangfrom{\hskip #1}{\interlinepenalty \@M #5\par}
    \fi
   \endgroup
  \else
   \ifjidori
    \setbox\@tempboxa\hbox{#5}
    \ifdim \wd\@tempboxa < 4zw
     \def\@svsechd{#4\hskip #1\relax \kintou{4zw}{#5}}%
    \else
     \def\@svsechd{#4\hskip #1\relax #5}%
    \fi
   \else
    \def\@svsechd{#4\hskip #1\relax #5}%
   \fi
  \fi
\@xsect{#3}}

\if@letter
 \def\section{\@startsection{section}{1}{1zw}
  {0.0001\baselineskip plus .5mm minus .5mm}
  {0.0001\baselineskip plus .5mm minus .5mm}
  {\normalsize\bf}}
 \def\subsection{\@startsection{subsection}{2}{1zw}
  {0.0001\baselineskip plus .1mm minus .1mm}
  {-2zw}{\normalsize\bf}}
 \def\subsubsection{\@startsection{subsubsection}{3}{1zw}
  {0.001\baselineskip plus .1mm minus .1mm}
  {-2zw}
  {\normalsize\bf}}
 \def\paragraph{\@startsection
  {paragraph}{4}{\parindent}{0.0001\baselineskip plus .1mm}
  {-2zw}{\normalsize\rm}}
 \def\subparagraph{\@startsection
  {subparagraph}{5}{\parindent}{0.0001\baselineskip plus .1mm}
  {-2zw}{\normalsize\rm}}
\else
 \def\section{\@startsection{section}{1}{3.25mm}
  {.5\baselineskip plus .5mm minus .5mm}
  {.5\baselineskip plus .5mm minus .5mm}
  {\KFsec\EFsec}}
 \def\paragraph{\@startsection
  {paragraph}{4}{\parindent}{0.0001\baselineskip plus .1mm}
  {-2zw}{\normalsize\rm}}
 \def\subparagraph{\@startsection
  {subparagraph}{5}{\parindent}{0.0001\baselineskip plus .1mm}
  {-2zw}{\normalsize\rm}}
 \if@comment
  \def\subsection{\@startsection{subsection}{2}{1zw}
   {0.0001\baselineskip plus .1mm minus .1mm}
   {0.0001\baselineskip plus .1mm minus .1mm}{\normalsize\bf}}
  \def\subsubsection{\@startsection{subsubsection}{3}{1zw}
   {0.001\baselineskip plus .1mm minus .1mm}
   {0.001\baselineskip plus .1mm minus .1mm}
   {\normalsize\bf}}
 \else
  \def\subsection{\@startsection{subsection}{2}{1zw}
   {0.0001\baselineskip plus .1mm minus .1mm}
   {-2zw}{\normalsize\bf}}
  \def\subsubsection{\@startsection{subsubsection}{3}{1zw}
   {0.001\baselineskip plus .1mm minus .1mm}
   {-2zw}
   {\normalsize\bf}}
 \fi
\fi

\setcounter{secnumdepth}{3}

\def\appendix{\par
\if@english
 \section*{\centering Appendix}
\else
 \section*{\centering 付\hskip3zw 録}
\fi
 \def\section{\@startsection{section}{1}{1zw}
  {0.0001\baselineskip plus .5mm minus .5mm}
  {0.0001\baselineskip plus .5mm minus .5mm}
  {\normalsize\bf}}
 \setcounter{section}{0}
 \setcounter{subsection}{0}
 \setcounter{equation}{0}
 \setcounter{figure}{0}
 \setcounter{table}{0}
 \if@english
  \def\theequation{A\arabic{equation}}
  \def\themanyeqn{A\theequation-\alph{whichequation}}
%  \def\@eqnnum{\rm (A\theequation)\hspace*{3.25mm}}
%  \def\@manyeqnnum{{\rm (A\themanyeqn)\hspace*{3.25mm}}}
 \else
  \def\theequation{\mbox{付}\arabic{equation}}
  \def\themanyeqn{付\theequation-\alph{whichequation}}
%  \def\@eqnnum{\rm (付\theequation)\hspace*{3.25mm}}
%  \def\@manyeqnnum{{\rm (付\themanyeqn)\hspace*{3.25mm}}}
  \def\fnum@figure{付図\thefigure}
  \def\fnum@table{付表\thetable}
 \fi
  \def\fnum@efigure{app.\,Fig.\,\thefigure.}
  \def\fnum@etable{app.\,Table~\thetable.}
}

\leftmargini 2zw
\leftmarginii 2zw 
\leftmarginiii 2zw 
\leftmarginiv 2zw 
\leftmarginv 2zw
\leftmarginvi 2zw
\leftmargin\leftmargini
\labelsep 1zw
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\def\@listI{\leftmargin\leftmargini \parsep 4pt plus 2pt minus 1pt\topsep 8pt
plus 2pt minus 4pt\itemsep 4pt plus 2pt minus 1pt}
\let\@listi\@listI
\@listi 
\def\@listii{\leftmargin\leftmarginii
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep
 \topsep 0pt plus 1pt minus 1pt
 \parsep 0pt plus 1pt minus 1pt
 \itemsep \parsep}
\def\@listiii{\leftmargin\leftmarginiii
 \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
 \topsep 0pt plus 1pt minus 1pt 
 \parsep \z@ \partopsep 0pt plus 0pt minus 1pt
 \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}

\def\itemize{%
 \ifnum \@itemdepth >3 \@toodeep\else
  \advance\@itemdepth \@ne
  \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
   \list{\csname\@itemitem\endcsname}
    {\def\makelabel##1{\makebox[1zw][c]{##1}}
    \leftmargin=2zw\labelwidth=1zw\labelsep\z@ % \itemindent
    \listparindent=1zw
    \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
    \clubpenalty-200}
 \fi}
\let\enditemize =\endlist

\def\labelitemi{$\bullet$}
\def\labelitemii{$\circ$}% \bf --
\def\labelitemiii{$\star$}
\def\labelitemiv{$\ast$}

\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{\hss\llap{##1}}
    \leftmargin=3zw\labelwidth=2zw\labelsep=1zw\itemindent=1zw
    \listparindent=1zw
    \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
    \clubpenalty-200}
 \fi}
\let\endenumerate =\endlist

\if@english
 \def\labelenumi{(\,\theenumi\,)}
\else
 \def\labelenumi{\kern-.5zw （\,\theenumi\,）\kern-.5zw }
\fi
\def\theenumi{\arabic{enumi}} 
\if@english
 \def\labelenumii{(\,\theenumii\,)}
\else
 \def\labelenumii{\kern-.5zw （\,\theenumii\,）\kern-.5zw }
\fi
\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\descriptionlabel#1{%
  \setbox0=\hbox{\bf #1}%
  \dimen0=\wd0  \dimen1=1zw
  \divide \dimen0 by \dimen1
  \multiply \dimen0 by \dimen1
  \ifdim \dimen0<\wd0 \advance \dimen0 by \dimen1 \fi
  \hbox to \dimen0{\box0 \hfil}\hfil}

\def\description{\list{}{%
  \leftmargin=1zw
  \labelwidth=\leftmargin
  \labelsep=1zw
  \listparindent=1zw
  \advance \labelwidth by -\labelsep
  \let \makelabel=\descriptionlabel
  \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@}}
\let\enddescription=\endlist

\newskip\@qqvsep
\@qqvsep=.5\baselineskip plus 1mm minus .5mm

\def\verse{\let\\=\@centercr 
 \list{}{%
  \topsep\@qqvsep \parsep\z@\partopsep\z@
  \itemsep\z@
  \itemindent -1zw
  \listparindent \itemindent 
  \rightmargin\leftmargin\advance\leftmargin 1zw}
  \item[]}
\let\endverse\endlist

\def\quotation{\list{}{%
 \topsep\@qqvsep \parsep\z@\partopsep\z@
 \listparindent 1zw
 \itemindent\listparindent
 \rightmargin\leftmargin}%
 \item[]}
\let\endquotation=\endlist

\def\quote{\list{}{%
 \topsep\@qqvsep \parsep\z@\partopsep\z@
 \rightmargin\leftmargin}%
 \item[]}
\let\endquote=\endlist

\def\tabbing{\lineskip \z@\let\>\@rtab\let\<\@ltab\let\=\@settab
     \let\+\@tabplus\let\-\@tabminus\let\`\@tabrj\let\'\@tablab
     \let\\=\@tabcr
     \global\@hightab\@firsttab
     \global\@nxttabmar\@firsttab
     \dimen\@firsttab\@totalleftmargin
     \global\@tabpush0 \global\@rjfieldfalse
     \topsep\@qqvsep \parsep\z@\partopsep\z@
     \trivlist 
     \item[]\if@minipage\else\vskip\parskip\fi
     \setbox\@tabfbox\hbox{\rlap{\indent\hskip\@totalleftmargin
       \the\everypar}}\def\@itemfudge{\box\@tabfbox}\@startline\ignorespaces}

\arraycolsep 5pt
\tabcolsep 0.5zw
\arrayrulewidth .1mm
\doublerulesep \z@
\tabbingsep \labelsep 

\skip\@mpfootins = \skip\footins

\def\@verbatim{%
 \topsep\@qqvsep \parsep\z@\partopsep\z@
 \trivlist \item[]\if@minipage\else\vskip\parskip\fi
 \leftskip\@totalleftmargin\rightskip\z@
 \parindent\z@\parfillskip\@flushglue\parskip\z@
 \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
 \obeylines \tt \catcode``=13 \@noligs \let\do\@makeother \dospecials}

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

% \def\thepart{\Roman{part}}
\def\thesection{\arabic{section}}
\if@comment
 \def\thesubsection{\thesection.\arabic{subsection}}
 \def\thesubsubsection{\thesubsection.\arabic{subsubsection}}
\else
 \if@english
  \def\thesubsection{\thesection.\arabic{subsection}}
  \def\thesubsubsection{\thesubsection.\arabic{subsubsection}}
 \else
  \def\thesubsection{\kern-.5zw 〈\thesection\hbox to .5zw{\hss ・\hss}%
   \arabic{subsection}〉\kern-.5zw}
  \def\thesubsubsection{\kern-.5zw 〈\thesection\hbox to .5zw{\hss ・\hss}%
   \arabic{subsection}\hbox to .5zw{\hss ・\hss}%
   \arabic{subsubsection}〉\kern-.5zw}
 \fi
\fi
\def\theparagraph{\roman{paragraph}}
\def\thesubparagraph{\arabic{subparagraph}}

\newif\ifprintacceptance
 \printacceptancefalse

\def\thebibliography#1{%
\if@english
 \def\@Refname{References}
\else
 \def\@Refname{文\hskip2zw 献}
\fi
\nopagebreak
\@acceptance\global\printacceptancetrue
 \addpenalty{\@secpenalty}%
 \vskip-\prevdepth\prevdepth\z@
 \vskip7\h@
  \if@letter
  \else
   \vskip\baselineskip
  \fi
  \vbox to 10mm{%
   \vskip.5\baselineskip
   \hbox to \hsize{%
    \if@letter \normalsize\bf \else
     \if@comment \normalsize\bf \else
      \KFsec\EFsec \fi\fi
    \hss\@Refname\hss}
   \vss
   \hrule height .1mm
   \vskip.5\baselineskip
  }\par\nopagebreak
 \footnotesize\baselineskip=13\h@
  \list{\if@english (\hfil\arabic{enumi}\hfil )\else
    \kern-.5zw （\hfil\arabic{enumi}\hfil ）\kern-.5zw\fi}
   {%
    \leftmargin=4zw% \leftmargin\labelwidth \advance\leftmargin\labelsep
    \labelwidth=2zw
    \labelsep=1zw
    \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
    \usecounter{enumi}}
 \def\newblock{\hskip .11em plus .33em minus .07em}
 \sloppy\clubpenalty-100\widowpenalty-100 % \clubpenalty4000\widowpenalty4000
 \sfcode`\.=1000\relax}
\let\endthebibliography=\endlist

\newif\if@restonecol

\def\footnoterule{\kern-3\p@ 
 \hrule width \columnwidth 
 \kern 2.6\p@} 

\@addtoreset{footnote}{page}

\long\def\@makefntext#1{\leftskip1em\parindent 1em
 \noindent\hbox to 1em{\hss$^{\@thefnmark}$}#1}

\def\@makefnmark{\hbox{$^{\@thefnmark}$}}

\def\thefootnote{\fnsymbol{footnote}}
\def\@fnsymbol#1{\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\or *\or **\or *** 
 \else\@ctrerr\fi\relax}


% Center env. without additional vertical glue
\def\Center{\itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
 \trivlist\Centering\item[]}
\def\Centering{\let\\=\@centercr\rightskip\@flushglue\leftskip\@flushglue
\parindent\z@\parfillskip\z@}
\let\endCenter=\endtrivlist

\newdimen\capwidth
\newdimen\ecapwidth
\newdimen\@abovecaptionskip
\newdimen\@belowcaptionskip

\long\def\@caption#1[#2]#3{\par
\begingroup
 \@parboxrestore
 \normalsize
 \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
\endgroup}

\long\def\@makecaption#1#2{\vskip\@abovecaptionskip
 \normalsize
 \if@comment
  \def\@capnumfont{\small\bf }
  \def\@captionfont{\small\bf }
 \else
  \@belowcaptionskip=1mm
  \def\@capnumfont{\EFcapnum\tenmin }
  \let\@captionfont=\relax
 \fi
 \setbox\@tempboxa\hbox{\@captionfont
  \shortstack[c]{{\@capnumfont #1}\hskip1zw #2}}
 \@tempdima=\ht\@tempboxa\advance \@tempdima by \dp\@tempboxa
 \ifdim \@tempdima > \baselineskip
  \hfil\parbox[t]{\capwidth}{\centering\baselineskip=4mm\@captionfont
   {\@capnumfont #1}\hskip1zw #2}%
 \else
  \ifdim \wd\@tempboxa > \capwidth
   \hfil\parbox[t]{\capwidth}{\centering\baselineskip=4mm\@captionfont
    {\@capnumfont #1}\hskip1zw #2}%
  \else
   \hbox to\hsize{\hfil\box\@tempboxa\hfil}
  \fi
 \fi
\vskip \@belowcaptionskip
}

\long\def\ecaption#1{%
 \if@english
  \refstepcounter\@captype 
  \vskip\@abovecaptionskip
 \fi
 \bgroup\small%
  \setbox\@tempboxa\hbox{\csname fnum@e\@captype\endcsname\hskip1em #1}
  \ifdim \wd\@tempboxa > \ecapwidth
   \hfil\parbox[t]{\capwidth}{\unhbox\@tempboxa\strut}%
  \else
   \hbox to\hsize{\hfil\box\@tempboxa\hfil}
  \fi
  \vspace{\@belowcaptionskip}
 \egroup}

\if@english
 \let\caption=\ecaption
\fi

\def\fnum@figure{図\thefigure}
\def\fnum@table{表\thetable}
\def\fnum@efigure{Fig.\,\thefigure.}
\def\fnum@etable{Table~\thetable.}

\def\@floatenv{\def\@setstrut{\setbox\strutbox=%
 \hbox{\vrule \@height .72\baselineskip \@depth .28\baselineskip \@width\z@}}
 \footnotesize
 \let\center=\Center}

\newcounter{figure}
\def\thefigure{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\figure{\bgroup\@floatenv\capwidth=72mm\ecapwidth=72mm
 \@abovecaptionskip=10pt\@belowcaptionskip\z@\@float{figure}}
\def\endfigure{\end@float\egroup}
%\let\endfigure\end@float
\@namedef{figure*}{\bgroup\@floatenv
 \capwidth=.8\textwidth\ecapwidth=.8\textwidth
 \@abovecaptionskip=10pt\@belowcaptionskip\z@\@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\table{\bgroup\@floatenv\capwidth=72mm\ecapwidth=72mm
 \@abovecaptionskip\z@\@belowcaptionskip=3pt\@float{table}}
\def\endtable{\end@float\egroup}
%\let\endtable\end@float
\@namedef{table*}{\bgroup\@floatenv
 \capwidth=.8\textwidth\ecapwidth=.8\textwidth
 \@abovecaptionskip\z@\@belowcaptionskip=3pt\@dblfloat{table}}
\@namedef{endtable*}{\end@dblfloat\egroup}

\def\jtitle{\@ifnextchar[{\d@jtitle}{\s@jtitle}}
\def\d@jtitle[#1]#2{%
 \if@comment\if@feature
  \gdef\head@title{特集解説}\else
   \gdef\head@title{解\hskip1zw 説}\fi
 \else
  \def\\{\unskip\ignorespaces}
  \gdef\head@title{#1}
  \setbox\@tempboxa\hbox{\small #1}
   \ifdim \wd\@tempboxa > 174mm
    \typeout{Warning: header is too wide, make it short.}\fi
 \fi\gdef\@jtitle{#2}}

\def\s@jtitle#1{%
 \if@comment\if@feature
  \gdef\head@title{特集解説}\else
   \gdef\head@title{解\hskip1zw 説}\fi
 \else
  \def\\{\unskip\ignorespaces}
  \gdef\head@title{#1}
  \setbox\@tempboxa\hbox{\small #1}
   \ifdim \wd\@tempboxa > 174mm
    \typeout{Warning: title is too wide for heading, make it short.}\fi
 \fi\gdef\@jtitle{#1}}

\def\@jtitle{}
\def\head@title{}

\if@english
 \let\title=\jtitle
\fi

\def\etitle#1{\gdef\@etitle{#1}}
\def\@etitle{}

\def\jsubtitle#1{\gdef\@jsubtitle{#1}}
\def\@jsubtitle{}

\newtoks\@authorlist
\newcount\authorcount
\newcount\totalnumberofauthor
\newcount\halfnumberofauthor
\newbox\@tempboxb
\newbox\@tempboxc
\newbox\@tempboxd

\def\authorlist#1{%
 \if@english \let\authorentry=\Eauthorentry \fi
  \@authorlist={#1}\the\@authorlist
}

\def\@checkword#1{\@tempcnta\z@\@getword #1\end}
\def\@getword#1{\ifx#1\end \let\next=\relax \else
 \global\advance\@tempcnta by \@ne
 \ifnum \@tempcnta=\@ne \gdef\@Getword{#1}\else \fi
 \let\next=\@getword\fi \next}
\def\@Getword{}

\def\authorentry#1#2#3#4{%
 \advance \authorcount by \@ne%
 %% author's name in Japanese
 \def\@checkname{#1}%
 \setbox\@tempboxc\hbox{\spaceskip=100mm #1}
 \ifdim \wd\@tempboxc < 100mm
  \typeout{Warning: Author's name "#1" doesn't have a space.}
  \def\@tempa{#1}
 \else
  \@checkword{#1}
  \setbox\@tempboxd\hbox{\@Getword}
  \ifdim \wd\@tempboxd=1zw
   \setbox\@tempboxc\hbox{#1}
   \ifdim \wd\@tempboxc > 6zw
    \def\@tempa{#1}
   \else
    \def\@checkbox##1 ##2\@nil{%
     \global\setbox\@tempboxa\hbox{##1}\global\setbox\@tempboxb\hbox{##2}}%
    \edef\@tempcheck{\expandafter\@checkbox\@checkname\@nil}\@tempcheck%
     \def\@tempb##1 ##2\@nil{\hbox{%
      \ifdim \wd\@tempboxa < 3zw
       \hbox to 3zw{\kanjiskip=1zw plus 1zw ##1\hss}%
      \else%
       \hbox to 3zw{##1\hss}%
      \fi%
     \hskip 1zw
      \ifdim \wd\@tempboxb < 3zw
       \hbox to 3zw{\hss\kanjiskip=1zw plus 1zw ##2}%
      \else%
       \hbox to 3zw{\hss ##2}%
      \fi%
     }}%
   \fi
    \edef\@tempa{\expandafter\@tempb\@checkname\@nil}%
  \else
   \def\@tempa{#1}
  \fi
  %% author's name in English
  \expandafter\xdef\csname @Jauthorname\number\authorcount\endcsname{%
   \@tempa}%
  \expandafter\gdef\csname @Eauthorname\number\authorcount\endcsname{#2}%
   %% membership
   \expandafter\xdef\csname @authormembership\number\authorcount\endcsname{%
    \csname #3member\endcsname}%
   %% authorlabel
   \expandafter\xdef\csname @Jauthorlabel\number\authorcount\endcsname{%
    \csname j@#4\endcsname}
   \expandafter\xdef\csname @Eauthorlabel\number\authorcount\endcsname{%
    \csname e@#4\endcsname}
   %% for check of affiliate
   \expandafter\gdef\csname check@#4\endcsname{}
   \expandafter\gdef\csname @checklabelname\number\authorcount\endcsname{#4}
 \fi
\global\totalnumberofauthor=\authorcount
}

\def\Eauthorentry#1#2#3{%
 \advance \authorcount by \@ne%
  %% author's name in English
  \expandafter\gdef\csname @Eauthorname\number\authorcount\endcsname{#1}%
   %% membership
   \expandafter\xdef\csname @authormembership\number\authorcount\endcsname{%
    \csname #2member\endcsname}%
   %% authorlabel
   \expandafter\xdef\csname @Eauthorlabel\number\authorcount\endcsname{%
    \csname e@#3\endcsname}
   %% for check of affiliate
   \expandafter\gdef\csname check@#3\endcsname{}
   \expandafter\gdef\csname @checklabelname\number\authorcount\endcsname{#3}
\global\totalnumberofauthor=\authorcount
}

\newdimen\@tempdimb
\newdimen\@tempdimc
\newdimen\@holddima
\newdimen\@holddimb
\newdimen\@holddimc
\newdimen\@holddimd
\newdimen\@holddime
\newdimen\@holddimf

\newcount\@onecolumnlimit
\if@english
 \def\onecolumnlimit#1{\@onecolumnlimit=#1}
  \onecolumnlimit{20}
\else
 \def\onecolumnlimit#1{\@onecolumnlimit=#1}
  \onecolumnlimit{7}
\fi

\def\@outputJauthorlist{%
 \def\mmember{正\hskip1zw 員}
 \def\amember{准\hskip1zw 員}
 \def\nmember{非会員}
 \def\lmember{終身会員}
 \def\smember{学生員}
 %% check box width of membership, author name and affiliate
 \authorcount=\z@
 \@tempdima\z@
 \@tempdimb\z@
 \@tempdimc\z@
 \ifnum \totalnumberofauthor > \@onecolumnlimit
  \halfnumberofauthor=\totalnumberofauthor
  \ifodd \halfnumberofauthor
   \divide \halfnumberofauthor by \tw@ \advance \halfnumberofauthor by \@ne
  \else
   \divide \halfnumberofauthor by \tw@
  \fi
   %% left column
   \loop\ifnum \authorcount < \halfnumberofauthor
    \advance \authorcount \@ne
    \KFmembership
    \setbox\@tempboxa\hbox{%
     \csname @authormembership\number\authorcount\endcsname}
      \@tempdima=\wd\@tempboxa
       \ifdim \@holddima=\z@ \@holddima=\@tempdima
       \else
        \ifdim \@tempdima > \@holddima \@holddima=\@tempdima \fi
       \fi
    \KFauthorname\EFauthorname
    \setbox\@tempboxb\hbox{%
     \csname @Jauthorname\number\authorcount\endcsname}
      \@tempdimb=\wd\@tempboxb
       \ifdim \@holddimb=\z@ \@holddimb=\@tempdimb
       \else
        \ifdim \@tempdimb > \@holddimb \@holddimb=\@tempdimb \fi
       \fi
    \KFaffiliate\EFaffiliate
    \setbox\@tempboxc\hbox{%
     \csname @Jauthorlabel\number\authorcount\endcsname}
      \@tempdimc=\wd\@tempboxc
       \ifdim \@holddimc=\z@ \@holddimc=\@tempdimc
       \else
        \ifdim \@tempdimc > \@holddimc \@holddimc=\@tempdimc \fi
       \fi
   \repeat%
   %% right column
   \loop\ifnum \authorcount < \totalnumberofauthor
    \advance \authorcount \@ne
    \KFmembership
    \setbox\@tempboxa\hbox{%
     \csname @authormembership\number\authorcount\endcsname}
      \@tempdima=\wd\@tempboxa
       \ifdim \@holddimd=\z@ \@holddimd=\@tempdima
       \else
        \ifdim \@tempdima > \@holddimd \@holddimd=\@tempdima \fi
       \fi
    \KFauthorname\EFauthorname
    \setbox\@tempboxb\hbox{%
     \csname @Jauthorname\number\authorcount\endcsname}
      \@tempdimb=\wd\@tempboxb
       \ifdim \@holddime=\z@ \@holddime=\@tempdimb
       \else
        \ifdim \@tempdimb > \@holddime \@holddime=\@tempdimb \fi
       \fi
    \KFaffiliate\EFaffiliate
    \setbox\@tempboxc\hbox{%
     \csname @Jauthorlabel\number\authorcount\endcsname}
      \@tempdimc=\wd\@tempboxc
       \ifdim \@holddimf=\z@ \@holddimf=\@tempdimc
       \else
        \ifdim \@tempdimc > \@holddimf \@holddimf=\@tempdimc \fi
       \fi
   \repeat%
   \authorcount=\z@
   \leavevmode\hbox to \textwidth{\hss
    \begin{minipage}[t]{\columnwidth}\flushright\baselineskip=27\h@
     \loop\ifnum \authorcount < \halfnumberofauthor
      \advance \authorcount by \@ne
      \KFmembership
      \leavevmode\hbox to \@holddima{%
        \csname @authormembership\number\authorcount\endcsname\hss}
       \KFauthorname\EFauthorname
       \hskip1zw\hbox to \@holddimb{%
        \csname @Jauthorname\number\authorcount\endcsname\hss}\hskip1zw
         \KFaffiliate\EFaffiliate
        （\kintou{\@holddimc}%
           {\csname @Jauthorlabel\number\authorcount\endcsname}）\endgraf
     \repeat%
    \end{minipage}%
     \hskip\columnsep
    \begin{minipage}[t]{\columnwidth}\baselineskip=27\h@%
     \authorcount=\halfnumberofauthor
     \loop\ifnum \authorcount < \totalnumberofauthor
      \advance \authorcount by \@ne
      \KFmembership
      \leavevmode\hbox to \@holddimd{%
        \csname @authormembership\number\authorcount\endcsname\hss}
       \KFauthorname\EFauthorname
       \hskip1zw\hbox to \@holddime{%
        \csname @Jauthorname\number\authorcount\endcsname\hss}\hskip1zw
         \KFaffiliate\EFaffiliate
        （\kintou{\@holddimf}%
           {\csname @Jauthorlabel\number\authorcount\endcsname}）\endgraf
     \repeat%
    \end{minipage}%
   \hss}%
 \else
  \loop\ifnum \authorcount < \totalnumberofauthor
   \advance \authorcount \@ne
   \KFmembership
   \setbox\@tempboxa\hbox{%
    \csname @authormembership\number\authorcount\endcsname}%
     \@tempdima=\wd\@tempboxa
      \ifdim \@holddima=\z@ \@holddima=\@tempdima
      \else
       \ifdim \@tempdima > \@holddima \@holddima=\@tempdima \fi
      \fi
   \KFauthorname\EFauthorname
   \setbox\@tempboxb\hbox{%
    \csname @Jauthorname\number\authorcount\endcsname}%
     \@tempdimb=\wd\@tempboxb
      \ifdim \@holddimb=\z@ \@holddimb=\@tempdimb
      \else
       \ifdim \@tempdimb > \@holddimb \@holddimb=\@tempdimb \fi
      \fi
   \KFaffiliate\EFaffiliate
   \setbox\@tempboxc\hbox{%
    \csname @Jauthorlabel\number\authorcount\endcsname}%
     \@tempdimc=\wd\@tempboxc
      \ifdim \@holddimc=\z@ \@holddimc=\@tempdimc
      \else
       \ifdim \@tempdimc > \@holddimc \@holddimc=\@tempdimc \fi
      \fi
  \repeat%
   \authorcount=\z@
   \loop\ifnum \authorcount < \totalnumberofauthor
    \advance \authorcount by \@ne
    \centering
    \KFmembership
    \leavevmode\hbox to \@holddima{%
      \csname @authormembership\number\authorcount\endcsname\hss}
     \KFauthorname\EFauthorname
     \hskip1zw\hbox to \@holddimb{%
      \csname @Jauthorname\number\authorcount\endcsname\hss}\hskip1zw
       \KFaffiliate\EFaffiliate
        （\kintou{\@holddimc}%
         {\csname @Jauthorlabel\number\authorcount\endcsname}）\endgraf
   \repeat%
 \fi
}

\def\@outputauthorlist{%
 \def\mmember{Member}
 \def\nmember{Non-member}
 \def\amember{Associate}
 \def\lmember{Life Member}
 \def\smember{Student Member}
 %% check box width of membership, author name and affiliate
 \authorcount=\z@
 \@tempdima\z@
 \@tempdimb\z@
 \@tempdimc\z@
 \ifnum \totalnumberofauthor > \@onecolumnlimit
  \halfnumberofauthor=\totalnumberofauthor
  \ifodd \halfnumberofauthor
   \divide \halfnumberofauthor by \tw@ \advance \halfnumberofauthor by \@ne
  \else
   \divide \halfnumberofauthor by \tw@
  \fi
   %% left column
   \loop\ifnum \authorcount < \halfnumberofauthor
    \advance \authorcount \@ne
    \normalsize\rm
    \setbox\@tempboxa\hbox{%
     \csname @authormembership\number\authorcount\endcsname}
      \@tempdima=\wd\@tempboxa
       \ifdim \@holddima=\z@ \@holddima=\@tempdima
       \else
        \ifdim \@tempdima > \@holddima \@holddima=\@tempdima \fi
       \fi
    \EFauthorname
    \setbox\@tempboxb\hbox{%
     \csname @Eauthorname\number\authorcount\endcsname}
      \@tempdimb=\wd\@tempboxb
       \ifdim \@holddimb=\z@ \@holddimb=\@tempdimb
       \else
        \ifdim \@tempdimb > \@holddimb \@holddimb=\@tempdimb \fi
       \fi
    \EFaffiliate
    \setbox\@tempboxc\hbox{%
     (\csname @Eauthorlabel\number\authorcount\endcsname)}
      \@tempdimc=\wd\@tempboxc
       \ifdim \@holddimc=\z@ \@holddimc=\@tempdimc
       \else
        \ifdim \@tempdimc > \@holddimc \@holddimc=\@tempdimc \fi
       \fi
   \repeat%
   %% right column
   \loop\ifnum \authorcount < \totalnumberofauthor
    \advance \authorcount \@ne
    \normalsize\rm
    \setbox\@tempboxa\hbox{%
     \csname @authormembership\number\authorcount\endcsname}
      \@tempdima=\wd\@tempboxa
       \ifdim \@holddimd=\z@ \@holddimd=\@tempdima
       \else
        \ifdim \@tempdima > \@holddimd \@holddimd=\@tempdima \fi
       \fi
    \EFauthorname
    \setbox\@tempboxb\hbox{%
     \csname @Eauthorname\number\authorcount\endcsname}
      \@tempdimb=\wd\@tempboxb
       \ifdim \@holddime=\z@ \@holddime=\@tempdimb
       \else
        \ifdim \@tempdimb > \@holddime \@holddime=\@tempdimb \fi
       \fi
    \EFaffiliate
    \setbox\@tempboxc\hbox{%
     (\csname @Eauthorlabel\number\authorcount\endcsname)}
      \@tempdimc=\wd\@tempboxc
       \ifdim \@holddimf=\z@ \@holddimf=\@tempdimc
       \else
        \ifdim \@tempdimc > \@holddimf \@holddimf=\@tempdimc \fi
       \fi
   \repeat%
   \authorcount=\z@
   \leavevmode\hbox to \textwidth{\hss
    \begin{minipage}[t]{\columnwidth}\flushright\baselineskip=23\h@
     \loop\ifnum \authorcount < \halfnumberofauthor
      \advance \authorcount by \@ne
      \normalsize
      \leavevmode\hbox to \@holddima{%
        \csname @authormembership\number\authorcount\endcsname\hss}
       \EFauthorname
       \hskip1zw\hbox to \@holddimb{%
        \csname @Eauthorname\number\authorcount\endcsname\hss}\hskip1zw
         \EFaffiliate
         \hbox to \@holddimc{%
          (\csname @Eauthorlabel\number\authorcount\endcsname)\hss}\endgraf
     \repeat%
    \end{minipage}%
     \hskip\columnsep
    \begin{minipage}[t]{\columnwidth}\baselineskip=23\h@%
     \authorcount=\halfnumberofauthor
     \loop\ifnum \authorcount < \totalnumberofauthor
      \advance \authorcount by \@ne
      \normalsize
      \leavevmode\hbox to \@holddimd{%
        \csname @authormembership\number\authorcount\endcsname\hss}
       \EFauthorname
       \hskip1zw\hbox to \@holddime{%
        \csname @Eauthorname\number\authorcount\endcsname\hss}\hskip1zw
         \EFaffiliate
         \hbox to \@holddimf{%
          (\csname @Eauthorlabel\number\authorcount\endcsname)\hss}\endgraf
     \repeat%
    \end{minipage}%
   \hss}%
 \else
  \loop\ifnum \authorcount < \totalnumberofauthor
   \advance \authorcount \@ne
   \normalsize\rm
   \setbox\@tempboxa\hbox{%
    \csname @authormembership\number\authorcount\endcsname}%
     \@tempdima=\wd\@tempboxa
      \ifdim \@holddima=\z@ \@holddima=\@tempdima
      \else
       \ifdim \@tempdima > \@holddima \@holddima=\@tempdima \fi
      \fi
   \EFauthorname
   \setbox\@tempboxb\hbox{%
    \csname @Eauthorname\number\authorcount\endcsname}%
     \@tempdimb=\wd\@tempboxb
      \ifdim \@holddimb=\z@ \@holddimb=\@tempdimb
      \else
       \ifdim \@tempdimb > \@holddimb \@holddimb=\@tempdimb \fi
      \fi
   \EFaffiliate
   \setbox\@tempboxc\hbox{%
    \csname @Eauthorlabel\number\authorcount\endcsname}%
     \@tempdimc=\wd\@tempboxc
      \ifdim \@holddimc=\z@ \@holddimc=\@tempdimc
      \else
       \ifdim \@tempdimc > \@holddimc \@holddimc=\@tempdimc \fi
      \fi
  \repeat%
   \authorcount=\z@
   \loop\ifnum \authorcount < \totalnumberofauthor
    \advance \authorcount by \@ne
    \centering
    \normalsize
    \leavevmode\hbox to \@holddima{%
      \csname @authormembership\number\authorcount\endcsname\hss}
     \EFauthorname
     \hskip3.25mm\hbox to \@holddimb{%
      \csname @Eauthorname\number\authorcount\endcsname\hss}\hskip4mm
       \EFaffiliate
       \hbox to \@holddimc{%
        (\csname @Eauthorlabel\number\authorcount\endcsname)\hss}\endgraf
   \repeat%
 \fi
}

\newcount\authorcountplusone

\def\@outputEauthorlist{%
 \def\mmember{Member}
 \def\nmember{Non-member}
 \def\amember{Associate}
 \def\lmember{Life Member}
 \def\smember{Student Member}
 %% check of @Eauthorlabel[num]
  \authorcount=\z@
  \loop\ifnum \authorcount < \totalnumberofauthor
   \advance \authorcount \@ne 
    \csname @Eauthorname\number\authorcount\endcsname, 
    \csname @authormembership\number\authorcount\endcsname
     \authorcountplusone=\authorcount \advance \authorcountplusone \@ne
     \edef\@tempa{\csname @Eauthorlabel\number\authorcount\endcsname}%
     \edef\@tempb{\csname @Eauthorlabel\number\authorcountplusone\endcsname}%
      \ifx \@tempa\@tempb
      \else
       \ \@tempa
      \fi
       \ifnum \authorcount < \totalnumberofauthor\nobreak, \fi
  \repeat
}

\def\@outputCauthorlist{%
 \def\mmember{正\hskip1zw 員}
 \def\amember{准\hskip1zw 員}
 \def\nmember{非会員}
 \def\lmember{終身会員}
 \def\smember{学生員}
 %% check box width of membership, author name and affiliate
 \authorcount=\z@
 \@tempdima\z@
 \@tempdimb\z@
 \@tempdimc\z@
  \loop\ifnum \authorcount < \totalnumberofauthor
   \advance \authorcount \@ne
   \KFmembership
   \setbox\@tempboxa\hbox{%
    \csname @authormembership\number\authorcount\endcsname}%
     \@tempdima=\wd\@tempboxa
      \ifdim \@holddima=\z@ \@holddima=\@tempdima
      \else
       \ifdim \@tempdima > \@holddima \@holddima=\@tempdima \fi
      \fi
   \KFauthorname\EFauthorname
   \setbox\@tempboxb\hbox{%
    \csname @Jauthorname\number\authorcount\endcsname}%
     \@tempdimb=\wd\@tempboxb
      \ifdim \@holddimb=\z@ \@holddimb=\@tempdimb
      \else
       \ifdim \@tempdimb > \@holddimb \@holddimb=\@tempdimb \fi
      \fi
  \repeat%
   \authorcount=\z@
   \loop\ifnum \authorcount < \totalnumberofauthor
    \advance \authorcount by \@ne
    \KFmembership
    \leavevmode\hbox to \@holddima{%
      \csname @authormembership\number\authorcount\endcsname\hss}%
     \KFauthorname\EFauthorname
     \hskip1zw\hbox to \@holddimb{%
      \csname @Jauthorname\number\authorcount\endcsname\hss}\endgraf
       \KFaffiliate\EFaffiliate
        \csname @Jauthorlabel\number\authorcount\endcsname\endgraf
   \repeat%
}

\def\@outputfootauthorlist{%
 \def\mmember{Member}%
 \def\nmember{Non-member}%
 \def\amember{Associate}%
 \def\lmember{Life Member}%
 \def\smember{Student Member}%
 By 
  \authorcount=\z@
  \@tempcnta=\totalnumberofauthor \advance \@tempcnta by -\@ne
   \loop\ifnum \authorcount < \totalnumberofauthor
    \advance \authorcount \@ne 
     {\it \csname @Eauthorname\number\authorcount\endcsname}, 
     \csname @authormembership\number\authorcount\endcsname
      \authorcountplusone=\authorcount \advance \authorcountplusone \@ne
      \edef\@tempa{\csname @Eauthorlabel\number\authorcount\endcsname}%
      \edef\@tempb{\csname @Eauthorlabel\number\authorcountplusone\endcsname}%
       \ifx \@tempa\@tempb
       \else
        \ \@tempa
       \fi
        \ifnum \authorcount=\totalnumberofauthor
        \else
         \ifnum \authorcount < \@tempcnta\nobreak, \else \ and \fi
        \fi
   \repeat
}

\def\affiliate[#1]#2#3{%
 \@ifundefined{check@#1}{%
  \typeout{Warning: check the "#1" label in \string\affiliate\space command,
   it does not correspond to any labels 
   in \string\authorentry\space command.}}{}%
 \expandafter\def\csname j@#1\endcsname{#2}
 \expandafter\def\csname e@#1\endcsname{(#3)}
}

\def\Eaffiliate[#1]#2{%
 \@ifundefined{check@#1}{%
  \typeout{Warning: check the "#1" label in \string\affiliate\space command,
   it does not correspond to any labels 
   in \string\authorentry\space command.}}{}%
 \expandafter\def\csname e@#1\endcsname{#2}
}

\if@english
 \let\affiliate=\Eaffiliate
\fi

\newbox\abstractbox
\newbox\keywordbox
\def\abstract{\global\setbox\abstractbox=\hbox\bgroup%
 \begin{minipage}[t]{165.75mm}%
  \normalsize\rm\parindent=3.25mm\ignorespaces}
\def\endabstract{\end{minipage}\egroup}

\def\keyword{\global\setbox\keywordbox=\hbox\bgroup%
 \begin{minipage}[t]{165.75mm}%
 \small{\bf \if@english Key words: \else キーワード\makebox[1zw][c]{：}\fi}\ignorespaces}
\def\endkeyword{\end{minipage}\egroup}

\def\C@keyword{\global\setbox\keywordbox=\hbox\bgroup%
 \begin{minipage}[b]{78mm}\small\baselineskip=18\h@
  {\bf キーワード\makebox[1zw][c]{：}}\par\ignorespaces}
\def\endC@keyword{\par\end{minipage}\egroup}

\if@comment
 \let\keyword=\C@keyword
 \let\endkeyword=\endC@keyword
\fi

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

\def\maketitle{\par
 \authorcount\z@
 \loop\ifnum \authorcount < \totalnumberofauthor
  \advance \authorcount \@ne
  \edef\@tempa{\csname @checklabelname\number\authorcount\endcsname}
  \expandafter\ifx \csname e@\@tempa\endcsname \relax
    \typeout{Warning: information of \string\affiliate\space is not assigned.}
  \fi
 \repeat
  \begingroup
   \if@letter \let\@maketitle=\@makelettertitle \fi
   \if@english \let\@maketitle=\@makeenglishtitle \fi
   \if@comment \let\@maketitle=\@makecommenttitle \fi
   \twocolumn[\@maketitle]
   \thispagestyle{ieej}
   \if@comment
    \footnotetext[0]{\@etitle}
    \footnotetext[0]{\@outputfootauthorlist}
   \fi
  \endgroup
 \let\maketitle\relax
 \let\@maketitle\relax
 \let\@makelettertitle\relax
 \let\@makeenglishtitle\relax
 \let\@makecommenttitle\relax
 \let\@jtitle\relax
 \let\@etitle\relax
 \let\@authorlist\relax
 \let\affiliate\relax
 \let\Eaffiliate\relax
 \let\@outputJauthorlist\relax
 \let\@outputEauthorlist\relax
 \let\@outputauthorlist\relax
 \let\@outputfootauthorlist\relax
 \authorcount=\z@
 \loop\ifnum \the\authorcount < \the\totalnumberofauthor
  \advance \authorcount by \@ne
   \expandafter\let\csname @authormembership\number\authorcount\endcsname\relax
   \expandafter\let\csname @Jauthorname\number\authorcount\endcsname\relax
   \expandafter\let\csname @Eauthorname\number\authorcount\endcsname\relax
   \expandafter\let\csname @Jauthorlabel\number\authorcount\endcsname\relax
   \expandafter\let\csname @Eauthorlabel\number\authorcount\endcsname\relax
 \repeat
 \normalsize
}

\def\@maketitle{\newpage\null
 \parindent=\z@
 \vskip-.25mm
   \hfill\vbox to 8.5mm{\hrule height .5mm
    \hbox to 18mm{%
     \vrule width .5mm height 7.5mm%
      \hss \raise2.25mm\hbox{\KFtype 論\hskip1zw 文}\hss
     \vrule width .5mm height 7.5mm}%
   \hrule height .5mm}\hspace*{3.25mm}
  \vskip3mm
  {\huge\centering
   \@jtitle\par
  }
   \vskip24\h@
  {\baselineskip=27\h@
   \@outputJauthorlist\par
  }
   \vskip24\h@
  {\large\EFetitle
   \hfil\parbox[t]{165.75mm}{\centering \@etitle}\par
  }
   \vskip11\h@
  {\normalsize\rm
   \setbox\@tempboxd\hbox{\@outputEauthorlist}
   \ifdim \wd\@tempboxd > 159mm
    \hfil\parbox[t]{159mm}{\raggedright \@outputEauthorlist}\par
   \else 
    \hfil\box\@tempboxd%
   \fi
  }
   \vskip20\h@
   \hfil\box\abstractbox\par
    \vskip4\h@
    \vskip\baselineskip
   \hfil\box\keywordbox\par
  \vspace{\@ADJ}
  \vskip\baselineskip
}

\def\@makelettertitle{\newpage\null
 \parindent=\z@
 \vskip-.25mm
  \hfill\vbox to 8.5mm{\hrule height .5mm
   \hbox to 18mm{%
    \vrule width .5mm height 7.5mm%
     \hss\vbox{\vss\hbox to 17mm{\hss\parbox[b]{14mm}{\KFtypel 研究開発\\[-1.5mm]
      \kintou{4zw}{レター}}\hss}\vss}\hss%
    \vrule width .5mm height 7.5mm}%
  \hrule height .5mm}\hspace*{3.25mm}
  \vskip4mm
  {\LARGE\centering
   \@jtitle\par
  }
   \vskip20\h@
  {\baselineskip=22\h@
   \@outputJauthorlist\par
  }
   \vskip16\h@
  {\large\EFetitle
   \hfil\parbox[t]{165.75mm}{\centering \@etitle}\par
  }
   \vskip11\h@
  {\normalsize\rm
   \setbox\@tempboxd\hbox{\@outputEauthorlist}
   \ifdim \wd\@tempboxd > 159mm
    \hfil\parbox[t]{159mm}{\raggedright \@outputEauthorlist}\par
   \else 
    \hfil\box\@tempboxd%
   \fi
  }
   \vskip32\h@
   \hfil\box\keywordbox\par
  \vspace{\@ADJ}
  \vskip\baselineskip
}

\def\@makeenglishtitle{\newpage\null
 \parindent=\z@
 \vskip-.25mm
   \hfill\vbox to 8.5mm{\hrule height .5mm
    \hbox to 18mm{%
     \vrule width .5mm height 7.5mm%
      \hss \raise2.25mm\hbox{\KFtype 論\hskip1zw 文}\hss
     \vrule width .5mm height 7.5mm}%
   \hrule height .5mm}\hspace*{3.25mm}
  \vskip3mm
  {\huge\centering
   \@jtitle\par
  }
   \vskip24\h@
  {\baselineskip=23\h@
   \@outputauthorlist\par
  }
   \vskip24\h@
   \hfil\box\abstractbox\par
    \vskip4\h@
    \vskip\baselineskip
   \hfil\box\keywordbox\par
  \vspace{\@ADJ}
  \vskip\baselineskip
}


\def\commentheadheight#1{\gdef\@commentheadheight{#1\@bs}}
\commentheadheight{9}

\def\@makecommenttitle{\newpage\null
 \parindent=\z@
 \boxmaxdepth\z@
 \lineskiplimit\z@
 \lineskip\z@
 \vbox to \@commentheadheight{%
  \vskip-2.75mm
  \hrule height 3.5mm
  \vskip4mm
  \leftskip=6mm
  {\huge
   \ifcommentmark
    \if@feature
     \leavevmode\smash{\rlap{\hskip142mm\epsfile{file=feature.eps,width=26mm}}}%
    \else
     \leavevmode\smash{\rlap{\hskip152mm\epsfile{file=comment.eps,width=18mm}}}%
    \fi
   \fi
   \@jtitle\par
  }
   \vskip1mm
  {\Large
   \@jsubtitle\par
  }
   \vss
  \leavevmode\box\keywordbox%
  \begin{minipage}[b]{\columnwidth}\flushright% \baselineskip=20\h@
   \@outputCauthorlist
  \end{minipage}\par
 \vskip2mm
 \hrule height .1mm
 }%
 \vspace{\@ADJ}
 \vskip\baselineskip
}

\def\FIELD#1{\gdef\@FIELD{#1}}

\def\YEAR#1{\def\@tempa{#1}
 \ifx \@tempa\empty
  \@tempcnta=\year \advance \@tempcnta by -1900
  \xdef\@YEAR{\the\@tempcnta}
  \advance \@tempcnta by 20
  \xdef\@VOL{\the\@tempcnta}
 \else
  \@tempcnta=#1
   \ifnum \@tempcnta < 1900
    \gdef\@YEAR{#1}
    \advance \@tempcnta by 20
    \xdef\@VOL{\the\@tempcnta}
   \else
    \advance \@tempcnta by -1900
    \xdef\@YEAR{\the\@tempcnta}
    \advance \@tempcnta by 20
    \xdef\@VOL{\the\@tempcnta}
   \fi
 \fi
}

\def\@gYEAR{%
 \ifx \@YEAR\empty
  \@tempcnta=\year
  \advance \@tempcnta by -1988
 \else
  \@tempcnta=\@YEAR
  \advance \@tempcnta by -88
 \fi
  \the\@tempcnta}

\def\NO#1{\gdef\@NO{#1}}

\def\@FIELD{X}
\def\@VOL{xxx}
\def\@YEAR{}
\def\@NO{xx}

\mark{{}{}}
\def\@RH{\rlap{\smash{\raisebox{-1\headsep}%
 {\rule{0.01mm}{10mm}\rule{10mm}{0.01mm}}}}}
\def\@LH{\llap{\smash{\raisebox{-1\headsep}%
 {\rule{10mm}{0.01mm}\rule{0.01mm}{10mm}}}}}
\def\@RB{\rlap{\smash{\raisebox{1\footskip}%
 {\rule[-10mm]{0.01mm}{10mm}\rule{10mm}{0.01mm}}}}}
\def\@LB{\llap{\smash{\raisebox{1\footskip}%
 {\rule{10mm}{0.01mm}\rule[-10mm]{0.01mm}{10mm}}}}}

\def\ps@ieej{\let\@mkboth\@gobbletwo
\def\@oddfoot{\ifProof\@LB\fi%
 \rlap{\KFfoot\EFfoot\hskip1zw 電学論\@FIELD ，\@VOL 巻\@NO 号，平成 \@gYEAR 年}
 \hfill{\EFnomble \thepage}\hfill\ifProof\@RB\fi}
\def\@evenfoot{\ifProof\@LB\fi\hfill{\EFnomble \thepage}\hfill%
 \llap{\EFfoot T.IEEE Japan, Vol.\ \@VOL-\@FIELD, No.\@NO, '\@YEAR\hskip1zw}%
 \ifProof\@RB\fi}
\def\@evenhead{\ifProof\@LH\fi
 \hbox to \textwidth{\leaders\hrule height.1mm\hfil}%
 \ifProof\@RH\fi}
\def\@oddhead{\ifProof\@LH\fi
 \hbox to \textwidth{\leaders\hrule height.1mm\hfil}\ifProof\@RH\fi}
}

\def\ps@IEEJ{\let\@mkboth\@gobbletwo
\def\@oddfoot{\ifProof\@LB\fi%
 \rlap{\KFfoot\EFfoot\hskip1zw 電学論\@FIELD ，\@VOL 巻\@NO 号，平成 \@gYEAR 年}
 \hfill{\EFnomble \thepage}\hfill\ifProof\@RB\fi}
\def\@evenfoot{\ifProof\@LB\fi\hfill{\EFnomble \thepage}\hfill%
 \llap{\EFfoot T.IEEE Japan, Vol.\ \@VOL-\@FIELD, No.\@NO, '\@YEAR\hskip1zw}%
 \ifProof\@RB\fi}
\def\@evenhead{\ifProof\@LH\fi
 \hbox to \textwidth{\leaders\hrule height.1mm\hfil}%
 \ifProof\@RH\fi}
\def\@oddhead{\ifProof\@LH\fi
 \hbox to \textwidth{\leaders\hrule height.1mm\hfil}%
 \llap{\small\raise3mm\hbox{\head@title}\hskip1zw}\ifProof\@RH\fi}
}

%% borrowed from dot-eqns.sty
%
% DOT-EQNS.STY : fleqn.sty + leaders between eqns and eqn no.
%                spacing at "&" is reduced in eqnarray/manyeqns
%
%     by M.Watanabe (watanabe@akiu.gw.tohoku.ac.jp) and
%        T.Iwakuma (bear@hashi1.civil.tohoku.ac.jp)
%
% MANYEQNS environment
%    modification of eqnarray to set equation numbers like (3-a)...
%    leaders added originally by M.Watanabe(C)
% doteqn.sty by Hideki Isozaki Mar. 1, 1992
% doteqn-a.sty by Iwakuma Tetsuo + Watanabe Masatoshi, Mar. 4, 1992
%  \dotfill by "." is replaced by \cdot
% doteqn-f.sty               for fleqn.sty

\@definecounter{whichequation}
\def\themanyeqn{\theequation-\alph{whichequation}}
\def\@manyeqnnum{{\rm (\themanyeqn)\hspace*{3.25mm}}}%% customized
\def\dotfill@eqn{\ \if@eqnsw\cleaders\hbox{$\m@th\mkern1.5mu
 \cdot\mkern1.5mu$}\fi\hfill\ }

\def\manyeqns{\stepcounter{equation}\let\@currentlabel=\themanyeqn
  \setcounter{whichequation}{1}
 \global\@eqnswtrue
 \global\@eqcnt\z@\tabskip\mathindent\let\\=\@manyeqncr
 \parsep 4pt plus 2pt minus 1pt \topsep 8pt plus 2pt minus 4pt
 \itemsep 4pt plus 2pt minus 1pt \partopsep=2.0pt plus 1.0pt minus 1.0pt
 \abovedisplayskip\topsep\ifvmode\advance\abovedisplayskip\partopsep\fi
 \belowdisplayskip\abovedisplayskip
 \belowdisplayshortskip\abovedisplayskip
 \abovedisplayshortskip\abovedisplayskip
 $$\halign to
 \linewidth\bgroup\@eqnsel\hskip\@centering$\displaystyle\tabskip\z@
 \let\@currentlabel=\theequation
  {##}$&\global\@eqcnt\@ne \hfil$\;{##}\;$\hfil
  &\global\@eqcnt\tw@ $\displaystyle{##}$%
 \dotfill@eqn\tabskip\@centering&{##}\tabskip\z@\cr
  &&&\cr\noalign{\vskip-\baselineskip}}

\def\endmanyeqns{\@@manyeqncr\egroup
 \global\advance\c@equation\m@ne$$\global\@ignoretrue
%            Note: always increment "equation" at MANYEQNS environment
 \stepcounter{equation}}

\def\@manyeqncr{{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
 \@ymanyeqncr}{\global\@eqpen\interdisplaylinepenalty \@ymanyeqncr}}

\def\@ymanyeqncr{\@ifnextchar [{\@xmanyeqncr}{\@xmanyeqncr[\z@]}}

\def\@xmanyeqncr[#1]{\ifnum0=`{\fi}\@@manyeqncr
 \noalign{\penalty\@eqpen\vskip\jot\vskip #1\relax}}

\def\@@manyeqncr{\let\@tempa\relax
 \ifcase\@eqcnt \def\@tempa{& &}\or \def\@tempa{&}
 \else \def\@tempa{}\fi
 \@tempa \span \if@eqnsw\@manyeqnnum\stepcounter{whichequation}\fi
 \global\@eqnswtrue\global\@eqcnt\z@\cr}

% and FLUSH-LEFT EQUATION style is set here
% \input fleqn.sty
%% borrowed from fleqn.sty, customized
\def\[{\relax\ifmmode\@badmath\else
\parsep 4pt plus 2pt minus 1pt \topsep 8pt plus 2pt minus 4pt
\itemsep 4pt plus 2pt minus 1pt \partopsep=2.0pt plus 1.0pt minus 1.0pt
\begin{trivlist}\item[]\leavevmode
 \hbox to\linewidth\bgroup$ \displaystyle
 \hskip\mathindent\bgroup\fi}
\def\]{\relax\ifmmode \egroup $\hfil \egroup \end{trivlist}\else \@badmath \fi}

\def\equation{\refstepcounter{equation}
\parsep 4pt plus 2pt minus 1pt \topsep 8pt plus 2pt minus 4pt
\itemsep 4pt plus 2pt minus 1pt \partopsep=2.0pt plus 1.0pt minus 1.0pt
\trivlist \item[]\leavevmode
 \hbox to\linewidth\bgroup $ \displaystyle
\hskip\mathindent}

\def\endeqnarray{\@@eqncr\egroup
 \global\advance\c@equation\m@ne$$\global\@ignoretrue }

\newdimen\mathindent 
\mathindent = 2zw
%% end of "borrowed from fleqn.sty"

% EQUATION environment     M.Watanabe(C)
%    Leaders were added.   y = f(x) ....... (1)
\def\endequation{~$\cleaders\hbox{$\m@th \mkern1.5mu\cdot\mkern1.5mu$}\hfil
 \displaywidth\linewidth\,\@eqnnum\egroup \endtrivlist}

% EQNARRAY environment     M.Watanabe(C)
%    Leaders were added.   y = f(x)    .... (1)
% doteqn.sty by Hideki Isozaki Mar. 1, 1992
% doteqn-a.sty by Iwakuma Tetsuo + Watanabe Masatoshi, Mar. 4, 1992
%  \dotfill by "." is replaced by \cdot
% doteqn-f.sty               for fleqn.sty

\def\eqnarray{\stepcounter{equation}\let\@currentlabel=\theequation
\global\@eqnswtrue
\global\@eqcnt\z@\tabskip\mathindent\let\\=\@eqncr
\parsep 4pt plus 2pt minus 1pt \topsep 8pt plus 2pt minus 4pt
\itemsep 4pt plus 2pt minus 1pt \partopsep=2.0pt plus 1.0pt minus 1.0pt
\abovedisplayskip\topsep\ifvmode\advance\abovedisplayskip\partopsep\fi
\belowdisplayskip\abovedisplayskip
\belowdisplayshortskip\abovedisplayskip
\abovedisplayshortskip\abovedisplayskip
$$\halign to
\linewidth\bgroup\@eqnsel\hskip\@centering$\displaystyle\tabskip\z@
 {##}$&\global\@eqcnt\@ne \hfil$\;{##}\;$\hfil
 &\global\@eqcnt\tw@ $\displaystyle{##}$%
 \dotfill@eqn\tabskip\@centering&{##}\tabskip\z@\cr
  &&&\cr\noalign{\vskip-\baselineskip}}

\def\@@eqncr{\let\@tempa\relax 
    \ifcase\@eqcnt \def\@tempa{& &}\or \def\@tempa{&} 
      \else \def\@tempa{}\fi 
     \@tempa \span \if@eqnsw\@eqnnum\stepcounter{equation}\fi
     \global\@eqnswtrue\global\@eqcnt\z@\cr}

% end of DOT-EQNS.STY
%% end of "borrowed from dot-eqns.sty"

\def\theequation{\arabic{equation}}
\def\@eqnnum{\rm (\theequation)\hspace*{3.25mm}}
% \def\lefteqn#1{\hbox to \z@{$\displaystyle #1$\hss}}


%% from "citesort.sty", with a little modified
\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{\bf ?}%
    \@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}%
      \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", with a little modified
\def\@cite#1#2{\leavevmode\unskip
  \ifnum\lastpenalty=\z@\penalty\@highpenalty\fi% highpenalty before
  \,$^{\mbox{\tiny ({\multiply\@highpenalty 3 #1% % triple-highpenalties within
      \if@tempswa,\penalty\@highpenalty\ #2\fi % and before note.
    })}}$\spacefactor\@m}
%% end of cite.sty

\def\Cite{\@ifnextchar [{\@tempswatrue\@Citex}{\@tempswafalse\@Citex[]}}

\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{\bf ?}%
    \@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}%
      \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}}

\def\@Cite#1#2{\leavevmode\unskip
  \ifnum\lastpenalty=\z@\penalty\@highpenalty\fi% highpenalty before
  \,({\multiply\@highpenalty 3 #1%             % triple-highpenalties within
      \if@tempswa,\penalty\@highpenalty\ #2\fi % and before note.
    })\spacefactor\@m}

\if@english
 \def\@begintheorem#1#2{%
  \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
   \trivlist\item[\hskip \labelsep{\bf #1\ #2}]}
 \def\@opargbegintheorem#1#2#3{%
  \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
   \trivlist\item[\hskip \labelsep{\bf #1\ #2\ (#3)}]}
\else
 \def\@begintheorem#1#2{%
  \settowidth{\labelwidth}{\kern-.5zw 〔#1#2〕\kern-.5zw }
  \begin{description}
  \item[\kern-.5zw 〔#1#2〕\kern-.5zw]}
 \def\@opargbegintheorem#1#2#3{\begin{description}
  \item[\kern-.5zw 〔#1#2〕\kern-.5zw （#3）\kern-.5zw]}
  \def\@endtheorem{\end{description}}
%\def\@thmcountersep{.}
\fi

% \def\ack{\par{\bf 謝辞}\hskip1zw}

\if@english
 \def\@acceptance{\par (\@received\@revised)
  \hskip1em\mbox{}\par}
 \def\received#1#2#3{\def\@temp@m{#2}\ifx \@temp@m\empty\def\@temp@m{0}\fi%
  \def\@recmonth{%
   \ifcase\@temp@m xxx\or January\or February\or March\or April\or 
    May\or June\or July\or August\or September\or October\or 
    November\or December\fi}
     \gdef\@received{Manuscript received \@recmonth\space #3, #1\nobreak}}
 \def\revised#1#2#3{%
  \def\@revmonth{\def\@temp@m{#2}\ifx \@temp@m\empty\def\@temp@m{0}\fi%
   \ifcase\@temp@m xxx\or January\or February\or March\or April\or 
    May\or June\or July\or August\or September\or October\or 
    November\or December\fi}
     \gdef\@revised{, revised \@revmonth\space #3, #1}}
\else
 \def\@acceptance{\par
  \ifx \@received\empty\else
    \hfill （\@received\@revised ）\kern-.5zw
  \hskip1zw\mbox{}\par\fi}
 \def\received#1#2#3{\gdef\@received{平成#1年#2月#3日受付}}
 \def\revised#1#2#3{\gdef\@revised{，同#1年#2月#3日再受付}}
\fi

\def\@received{}
\def\@revised{}

\newenvironment{biography}{%
 \ifprintacceptance\else\nopagebreak\@acceptance\fi
 \vskip2\baselineskip
 \Small}{\par}

\def\profile{\@ifstar{\n@profile}{\@profile}}
\def\eprofile{\@ifstar{\n@eprofile}{\@eprofile}}

\long\def\@profilecheck#1#2#3{%
 \if #1m \def\p@membership{\kern-.5zw （正員）\kern-.5zw}\else
  \if #1s \def\p@membership{\kern-.5zw （学生員）\kern-.5zw}\else
   \if #1n \def\p@membership{\kern-.5zw （非会員）\kern-.5zw}\else
    \if #1a \def\p@membership{\kern-.5zw （准員）\kern-.5zw}\else
     \if #1l \def\p@membership{\kern-.5zw （終身会員）\kern-.5zw}\else
  \def\p@membership{}
  \typeout{Warning: Check the 1st. argument of \string\profile{#1}{#2}{}.}
 \fi\fi\fi\fi\fi
 \def\@checkname{#2}
 \@checkword{#2}
 \setbox\@tempboxa\hbox{\@Getword}
  \ifdim \wd\@tempboxa<1zw
   \let\@tempa=\@checkname
  \else
   \setbox\@tempboxa\hbox{\spaceskip=100mm #2}
   \ifdim \wd\@tempboxa < 100mm
    \typeout{Warning: Profile's name "#2" doesn't have a space.}
    \let\@tempa=\@checkname
   \else
    \setbox\@tempboxc\hbox{#2}
    \ifdim \wd\@tempboxc > 7zw
     \def\@tempb##1 ##2\@nil{##1\hskip 1zw ##2}
    \else
     \def\@checkbox##1 ##2\@nil{%
      \setbox\@tempboxa\hbox{##1}\setbox\@tempboxb\hbox{##2}}%
     \edef\@tempcheck{\expandafter\@checkbox\@checkname \@nil}\@tempcheck%
      \def\@tempb##1 ##2\@nil{\leavevmode\hbox{%
       \ifdim \wd\@tempboxa < 3zw%
        \hbox to 3zw{\kanjiskip=1zw plus 1zw ##1\hss}%
       \else%
        \hbox to 3zw{##1\hss}%
       \fi%
      \hskip 1zw%
       \ifdim \wd\@tempboxb < 3zw%
        \hbox to 3zw{\hss\kanjiskip=1zw plus 1zw ##2}%
       \else%
        \hbox to 3zw{\hss ##2}%
       \fi%
      }}%
    \fi
     \edef\@tempa{\expandafter\@tempb\@checkname\@nil}% \null
   \fi
  \fi
}

\long\def\@profile#1#2#3{%
 \@profilecheck{#1}{#2}{#3}
 \parindent\z@
 \edef\@tempx{\@tempa}
 \setbox\@tempboxc\hbox{\parbox[t]{\hsize}{\parshape=9 \z@ \hsize
%  9zw 21.72zw 9zw 21.72zw 9zw 21.72zw 9zw 21.72zw 
%  9zw 21.72zw 9zw 21.72zw 9zw 21.72zw \z@ \hsize
  24.75mm 59.73mm 24.75mm 59.73mm 24.75mm 59.73mm 24.75mm 59.73mm 
  24.75mm 59.73mm 24.75mm 59.73mm 24.75mm 59.73mm \z@ \hsize
  \hskip1zw{\bf\EFfoot \@tempx}\hskip1zw\p@membership\hskip1zw #3}}%
 \@tempdima=\ht\@tempboxc \advance \@tempdima by \dp\@tempboxc
  \ifdim \@tempdima < 8\baselineskip
   \vbox to 35.25mm{\vskip1.75mm
    \leavevmode\smash{\rlap{%
     \lower30.5mm
     \vbox to 28mm{\hrule height .1mm
      \hbox to 22mm{%
       \vrule width .1mm height 27.8mm%
        \hss
       \vrule width .1mm height 27.8mm}%
     \hrule height .1mm}%
     }}%
     \box\@tempboxc%
   \vss}%
  \else
   \leavevmode\smash{\rlap{%
    \lower30.5mm
    \vbox to 28mm{\hrule height .1mm
     \hbox to 22mm{%
      \vrule width .1mm height 27.8mm%
       \hss
      \vrule width .1mm height 27.8mm}%
    \hrule height .1mm}%
    }}%
    \box\@tempboxc%
  \fi
\vskip2\baselineskip
}

\long\def\n@profile#1#2#3{%
 \@profilecheck{#1}{#2}{#3}
  \parindent=1zw
  {\bf\EFfoot \@tempa}\hskip1zw\p@membership\hskip1zw #3
 \vskip2\baselineskip
}

\long\def\@eprofile#1#2#3{%
 \if #1m \def\p@membership{(Member)}\else
  \if #1s \def\p@membership{(Student Member)}\else
   \if #1n \def\p@membership{(Non-member)}\else
    \if #1a \def\p@membership{(Associate)}\else
     \if #1l \def\p@membership{(Life Member)}\else
  \def\p@membership{}
  \typeout{Warning: Check the 1st. argument of \string\profile{#1}{#2}{}.}
 \fi\fi\fi\fi\fi
 \parindent\z@
 \setbox\@tempboxc\hbox{\parbox[t]{\hsize}{\parshape=9 \z@ \hsize
  24.75mm 59.73mm 24.75mm 59.73mm 24.75mm 59.73mm 24.75mm 59.73mm 
  24.75mm 59.73mm 24.75mm 59.73mm 24.75mm 59.73mm \z@ \hsize
  \hskip1zw{\bf #2}\hskip1zw\p@membership\hskip1zw #3}}%
 \@tempdima=\ht\@tempboxc \advance \@tempdima by \dp\@tempboxc
  \ifdim \@tempdima < 8\baselineskip
   \vbox to 35.25mm{\vskip1.75mm
    \leavevmode\smash{\rlap{%
     \lower30.5mm
     \vbox to 28mm{\hrule height .1mm
      \hbox to 22mm{%
       \vrule width .1mm height 27.8mm%
        \hss
       \vrule width .1mm height 27.8mm}%
     \hrule height .1mm}%
     }}%
     \box\@tempboxc%
   \vss}%
  \else
   \leavevmode\smash{\rlap{%
    \lower30.5mm
    \vbox to 28mm{\hrule height .1mm
     \hbox to 22mm{%
      \vrule width .1mm height 27.8mm%
       \hss
      \vrule width .1mm height 27.8mm}%
    \hrule height .1mm}%
    }}%
    \box\@tempboxc%
  \fi
\vskip2\baselineskip
}

\long\def\n@eprofile#1#2#3{%
 \if #1m \def\p@membership{(Member)}\else
  \if #1s \def\p@membership{(Student Member)}\else
   \if #1n \def\p@membership{(Non-member)}\else
    \if #1a \def\p@membership{(Associate)}\else
     \if #1l \def\p@membership{(Life Member)}\else
  \def\p@membership{}
  \typeout{Warning: Check the 1st. argument of \string\profile{#1}{#2}{}.}
 \fi\fi\fi\fi\fi
  \parindent=1zw
  {\bf #2}\hskip1zw\p@membership\hskip1zw #3
\vskip2\baselineskip
}

\if@english
 \let\profile=\eprofile
\fi

\def\LaTeX{{\rm L\kern-.36em\raise.3ex\hbox{$\scriptstyle {\rm A}$}\kern-.15em
    T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}
\@ifundefined{AmSTeX}
   {\def\AmSTeX{\leavevmode\hbox{$\cal A\kern-.2em\lower.376ex%
        \hbox{$\cal M$}\kern-.2em\cal S$-\TeX}}}{}
\@ifundefined{AmSLaTeX}
   {\def\AmSLaTeX{\leavevmode\hbox{$\cal A\kern-.2em\lower.376ex%
        \hbox{$\cal M$}\kern-.2em\cal S$-\LaTeX}}}{}
\@ifundefined{BibTeX}
   {\def\BibTeX{{\rm B\kern-.05em{\sc i\kern-.025em b}\kern-.08em%
    T\kern-.1667em\lower.7ex\hbox{E}\kern-.125emX}}}{}
\@ifundefined{SliTeX}
   {\def\SliTeX{{\rm S\kern-.06emL\kern-.18em\raise.32ex\hbox
                {\sc i}\kern -.03em\TeX}}}{}
\@ifundefined{JTeX}
  {\def\JTeX{\leavevmode\lower.5ex\hbox{J}\kern-.17em\TeX}}{}
\@ifundefined{JLaTeX}
  {\def\JLaTeX{\leavevmode\lower.5ex\hbox{\rm J}\kern-.17em\LaTeX}}{}
\@ifundefined{JBibTeX}
  {\def\JBibTeX{\leavevmode\lower.6ex\hbox{\rm J}\kern-.15em\BibTeX}}{}

\def\FRAC#1#2{\leavevmode\kern-.1em
  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
\def\RN#1{\uppercase\expandafter{\romannumeral#1}}
\def\onelineskip{\par\vspace{1\baselineskip}\par}
\def\halflineskip{\par\vspace{.5\baselineskip}\par}
\def\kintou#1#2{\@ifundefined{jintercharskip}%
 {\makebox[#1]{\kanjiskip\z@ plus 1fill minus 1fill\xkanjiskip=\kanjiskip #2}}%
 {\makebox[#1]{\jintercharskip=0pt plus 1fill minus 1fill 
 \jasciikanjiskip=\jintercharskip #2}}}
\def\doubledash{\hbox to 2zw{---\hss ---}}
\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\QED{{\unskip\nobreak\hfil\penalty50
 \hskip1zw\hbox{}\nobreak\hfil \hbox{$\Box$\hskip1zw}
 \parfillskip\z@ \finalhyphendemerits\z@\par}}

\ifNTTfont\else
 \prebreakpenalty`"=10000
 \prebreakpenalty`）=10000
 \postbreakpenalty`（=10000
\fi

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

\newread\@ieejmacros
\openin\@ieejmacros ieejmac.sty
\ifeof\@ieejmacros
  \relax
\else\closein\@ieejmacros
  \input ieejmac.sty
  \input chimei.tex
\fi

\pagenumbering{arabic}
\twocolumn
\sloppy
\flushbottom
%\raggedbottom
\pagestyle{IEEJ}