%%%
%% jbm.cls (pLaTeX2e) for the Japanese Journal of Behaviormetrics 
%%  by Motoaki Sato (ULS & Company), 2012. E-mail: teppei@uls.co.jp
%%
\NeedsTeXFormat{pLaTeX2e}
\ProvidesClass{jbm}
%%[2012/06/15-07/12 v0.01 for Japanese Journal of Behaviormetrics]
  [2012/07/20 v1.00 for Japanese Journal of Behaviormetrics]

\def\jbm@warning{\ClassWarningNoLine{jbm}}
\def\jbmline@warning{\ClassWarning{jbm}}

\newdimen\@JQ
 \@JQ=0.7392507pt
\newdimen\@Q
 \@Q=0.71144pt
\newdimen\@EM
 \@EM=.03125em

\newif\if@Foreword \@Forewordfalse
\DeclareOption{Foreword}{\@Forewordtrue}

\newif\if@jbmPS \@jbmPSfalse
\DeclareOption{PS}{\@jbmPStrue}

\newif\if@cameraready \@camerareadyfalse
\DeclareOption{cameraready}{\@camerareadytrue}

\newif\if@Proof \@Prooffalse
\DeclareOption{Proof}{\@Prooftrue}

\newcounter{@paper}
\newcommand{\@ptsize}{}
\newif\if@restonecol
\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@mathrmmc \@mathrmmcfalse
\DeclareOption{b5paper}{\setcounter{@paper}{4}%
  \setlength\paperheight {257mm}
  \setlength\paperwidth  {182mm}}
\DeclareOption{10pt}{\renewcommand{\@ptsize}{0}}
\DeclareOption{11pt}{\renewcommand{\@ptsize}{1}}
\DeclareOption{12pt}{\renewcommand{\@ptsize}{2}}
\DeclareOption{tombow}{%
  \tombowtrue \tombowdatetrue
  \setlength{\@tombowwidth}{.1mm}%
  \@bannertoken{%
     \jobname\space:\space\number\year/\number\month/\number\day
      (\number\hour:\number\minute)}
  \maketombowbox}
\DeclareOption{tombo}{%
  \tombowtrue \tombowdatefalse
  \setlength{\@tombowwidth}{.1mm}%
  \maketombowbox}
\DeclareOption{mentuke}{%
  \tombowtrue \tombowdatefalse
  \setlength{\@tombowwidth}{\z@}%
  \maketombowbox}
\DeclareOption{tate}{%
  \AtBeginDocument{\tate\message{《縦組モード》}%
                   \adjustbaseline}%
}
\DeclareOption{oneside}{\@twosidefalse}
\DeclareOption{twoside}{\@twosidetrue}
\DeclareOption{onecolumn}{\@twocolumnfalse}
\DeclareOption{twocolumn}{\@twocolumntrue}
\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}}}
\DeclareOption{disablejfam}{\@enablejfamfalse}
\DeclareOption{draft}{\setlength\overfullrule{5pt}}
\DeclareOption{final}{\setlength\overfullrule{0pt}}
\ExecuteOptions{b5paper,10pt,twoside,twocolumn,final}
\ProcessOptions\relax

\if@cameraready
 \input jbm.fd
\else
\DeclareFontShape{JY1}{mc}{m}{n}{%
  <5>     sfixed * [5.1748] jis %  7Q
  <6>     sfixed * [5.9141] jis %  8Q
  <7>     sfixed * [7.3926] jis % 10Q
  <8>     sfixed * [8.1318] jis % 11Q
  <9>     sfixed * [8.8711] jis % 12Q
  <10>    sfixed * [9.6104] jis % 13Q
  <10.95> sfixed * [11.089] jis % 15Q
  <12>    sfixed * [13.307] jis % 18Q
  <14.4>  sfixed * [14.785] jis % 20Q
  <17.28> sfixed * [17.742] jis % 24Q
  <20.74> sfixed * [20.699] jis % 28Q
  <24.88> sfixed * [23.656] jis % 32Q
  <->                       jis % 
}{}
\DeclareFontShape{JY1}{mc}{bx}{n}{%
  <5>     sfixed * [5.1748] jisg
  <6>     sfixed * [5.9141] jisg
  <7>     sfixed * [7.3926] jisg
  <8>     sfixed * [8.1318] jisg
  <9>     sfixed * [8.8711] jisg
  <10>    sfixed * [9.6104] jisg
  <10.95> sfixed * [11.089] jisg
  <12>    sfixed * [13.307] jisg
  <14.4>  sfixed * [14.785] jisg
  <17.28> sfixed * [17.742] jisg
  <20.74> sfixed * [20.699] jisg
  <24.88> sfixed * [23.656] jisg
  <->                       jisg
}{}
\DeclareFontShape{JY1}{mc}{b}{n}{%
  <5>     sfixed * [5.1748] jis
  <6>     sfixed * [5.9141] jis
  <7>     sfixed * [7.3926] jis
  <8>     sfixed * [8.1318] jis
  <9>     sfixed * [8.8711] jis
  <10>    sfixed * [9.6104] jis
  <10.95> sfixed * [11.089] jis
  <12>    sfixed * [13.307] jis
  <14.4>  sfixed * [14.785] jis
  <17.28> sfixed * [17.742] jis
  <20.74> sfixed * [20.699] jis
  <24.88> sfixed * [23.656] jis
  <->                       jis
}{}
\DeclareFontShape{JY1}{mc}{sb}{n}{%
  <5>     sfixed * [5.1748] jis
  <6>     sfixed * [5.9141] jis
  <7>     sfixed * [7.3926] jis
  <8>     sfixed * [8.1318] jis
  <9>     sfixed * [8.8711] jis
  <10>    sfixed * [9.6104] jis
  <10.95> sfixed * [11.089] jis
  <12>    sfixed * [13.307] jis
  <14.4>  sfixed * [14.785] jis
  <17.28> sfixed * [17.742] jis
  <20.74> sfixed * [20.699] jis
  <24.88> sfixed * [23.656] jis
  <->                       jis
}{}
\DeclareFontShape{JY1}{gt}{m}{n}{%
  <5>     sfixed * [5.1748] jisg
  <6>     sfixed * [5.9141] jisg
  <7>     sfixed * [7.3926] jisg
  <8>     sfixed * [8.1318] jisg
  <9>     sfixed * [8.8711] jisg
  <10>    sfixed * [9.6104] jisg
  <10.95> sfixed * [11.089] jisg
  <12>    sfixed * [13.307] jisg
  <14.4>  sfixed * [14.785] jisg
  <17.28> sfixed * [17.742] jisg
  <20.74> sfixed * [20.699] jisg
  <24.88> sfixed * [23.656] jisg
  <->                       jisg
}{}
\DeclareFontShape{JY1}{gt}{bx}{n}{%
  <5>     sfixed * [5.1748] jisg
  <6>     sfixed * [5.9141] jisg
  <7>     sfixed * [7.3926] jisg
  <8>     sfixed * [8.1318] jisg
  <9>     sfixed * [8.8711] jisg
  <10>    sfixed * [9.6104] jisg
  <10.95> sfixed * [11.089] jisg
  <12>    sfixed * [13.307] jisg
  <14.4>  sfixed * [14.785] jisg
  <17.28> sfixed * [17.742] jisg
  <20.74> sfixed * [20.699] jisg
  <24.88> sfixed * [23.656] jisg
  <->                       jisg
}{}
%%
\DeclareFontShape{JT1}{mc}{m}{n}{%
  <5>     sfixed * [5.1748] jis-v
  <6>     sfixed * [5.9141] jis-v
  <7>     sfixed * [7.3926] jis-v
  <8>     sfixed * [8.1318] jis-v
  <9>     sfixed * [8.8711] jis-v
  <10>    sfixed * [9.6104] jis-v
  <10.95> sfixed * [11.089] jis-v
  <12>    sfixed * [13.307] jis-v
  <14.4>  sfixed * [14.785] jis-v
  <17.28> sfixed * [17.742] jis-v
  <20.74> sfixed * [20.699] jis-v
  <24.88> sfixed * [23.656] jis-v
  <->                       jis-v
}{}
\DeclareFontShape{JT1}{mc}{bx}{n}{%
  <5>     sfixed * [5.1748] jisg-v
  <6>     sfixed * [5.9141] jisg-v
  <7>     sfixed * [7.3926] jisg-v
  <8>     sfixed * [8.1318] jisg-v
  <9>     sfixed * [8.8711] jisg-v
  <10>    sfixed * [9.6104] jisg-v
  <10.95> sfixed * [11.089] jisg-v
  <12>    sfixed * [13.307] jisg-v
  <14.4>  sfixed * [14.785] jisg-v
  <17.28> sfixed * [17.742] jisg-v
  <20.74> sfixed * [20.699] jisg-v
  <24.88> sfixed * [23.656] jisg-v
  <->                       jisg-v
}{}
\DeclareFontShape{JT1}{mc}{b}{n}{%
  <5>     sfixed * [5.1748] jis-v
  <6>     sfixed * [5.9141] jis-v
  <7>     sfixed * [7.3926] jis-v
  <8>     sfixed * [8.1318] jis-v
  <9>     sfixed * [8.8711] jis-v
  <10>    sfixed * [9.6104] jis-v
  <10.95> sfixed * [11.089] jis-v
  <12>    sfixed * [13.307] jis-v
  <14.4>  sfixed * [14.785] jis-v
  <17.28> sfixed * [17.742] jis-v
  <20.74> sfixed * [20.699] jis-v
  <24.88> sfixed * [23.656] jis-v
  <->                       jis-v
}{}
\DeclareFontShape{JT1}{mc}{sb}{n}{%
  <5>     sfixed * [5.1748] jis-v
  <6>     sfixed * [5.9141] jis-v
  <7>     sfixed * [7.3926] jis-v
  <8>     sfixed * [8.1318] jis-v
  <9>     sfixed * [8.8711] jis-v
  <10>    sfixed * [9.6104] jis-v
  <10.95> sfixed * [11.089] jis-v
  <12>    sfixed * [13.307] jis-v
  <14.4>  sfixed * [14.785] jis-v
  <17.28> sfixed * [17.742] jis-v
  <20.74> sfixed * [20.699] jis-v
  <24.88> sfixed * [23.656] jis-v
  <->                       jis-v
}{}
\DeclareFontShape{JT1}{gt}{m}{n}{%
  <5>     sfixed * [5.1748] jisg-v
  <6>     sfixed * [5.9141] jisg-v
  <7>     sfixed * [7.3926] jisg-v
  <8>     sfixed * [8.1318] jisg-v
  <9>     sfixed * [8.8711] jisg-v
  <10>    sfixed * [9.6104] jisg-v
  <10.95> sfixed * [11.089] jisg-v
  <12>    sfixed * [13.307] jisg-v
  <14.4>  sfixed * [14.785] jisg-v
  <17.28> sfixed * [17.742] jisg-v
  <20.74> sfixed * [20.699] jisg-v
  <24.88> sfixed * [23.656] jisg-v
  <->                       jisg-v
}{}
\DeclareFontShape{JT1}{gt}{bx}{n}{%
  <5>     sfixed * [5.1748] jisg-v
  <6>     sfixed * [5.9141] jisg-v
  <7>     sfixed * [7.3926] jisg-v
  <8>     sfixed * [8.1318] jisg-v
  <9>     sfixed * [8.8711] jisg-v
  <10>    sfixed * [9.6104] jisg-v
  <10.95> sfixed * [11.089] jisg-v
  <12>    sfixed * [13.307] jisg-v
  <14.4>  sfixed * [14.785] jisg-v
  <17.28> sfixed * [17.742] jisg-v
  <20.74> sfixed * [20.699] jisg-v
  <24.88> sfixed * [23.656] jisg-v
  <->                       jisg-v
}{}
\fi
%%
\DeclareFontShape{JY1}{mc}{b}{n}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{b}{n}{<->ssub*mc/m/n}{}
%% 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}{gt}{b}{it}{<->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}{gt}{b}{it}{<->ssub*mc/m/n}{}
%% sc
\DeclareFontShape{JY1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
%% sl
\DeclareFontShape{JY1}{mc}{m}{sl}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{sl}{<->ssub*mc/m/n}{}
\DeclareFontShape{JY1}{mc}{bx}{sl}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{bx}{sl}{<->ssub*mc/m/n}{}

\DeclareFontShape{OT1}{cmr}{m}{n}%
     {%
      <-6>cmr5%
      <6-7>cmr6%
      <7-8>cmr7%
      <8-9>cmr8%
      <9-10>cmr9%
      <10-12>cmr10%
      <12-17>cmr12%
      <17->cmr17%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{sl}%
     {%
      <-9>cmsl8%
      <9-10>cmsl9%
      <10-12>cmsl10%
      <12->cmsl12%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{it}%
     {%
      <-8>cmti7%
      <8-9>cmti8%
      <9-10>cmti9%
      <10-12>cmti10%
      <12->cmti12%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{sc}%
     {%
      <->cmcsc10%
      }{}
\DeclareFontShape{OT1}{cmr}{m}{ui}
     {%
      <->cmu10%
      }{}
\DeclareFontShape{OT1}{cmr}{b}{n}
     {%
      <->cmb10%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{n}
     {%
      <-6>cmbx5%
      <6-7>cmbx6%
      <7-8>cmbx7%
      <8-9>cmbx8%
      <9-10>cmbx9%
      <10-12>cmbx10%
      <12->cmbx12%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{sl}
     {%
      <->cmbxsl10%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{it}
     {%
      <->cmbxti10%
      }{}
\DeclareFontShape{OT1}{cmr}{bx}{ui}
     {%
      <->sub*cmr/m/ui
      }{}

% \DeclareFontFamily{OT1}{cmtt}{\hyphenchar \font\m@ne}
\DeclareFontShape{OT1}{cmtt}{m}{n}%
     {%
      <5><6><7><8>cmtt8<9>cmtt9%
      <10><10.95>cmtt10%
      <12><14.4><17.28><20.74><24.88>cmtt12%
      <->cmtt10%
      }{}
\DeclareFontShape{OT1}{cmtt}{m}{it}
     {%
      <5><6><7><8><9>%
      <10><10.95><12><14.4><17.28><20.74><24.88>cmitt10%
      <->cmitt10%
      }{}
\DeclareFontShape{OT1}{cmtt}{m}{sl}
     {%
      <5><6><7><8><9>%
      <10><10.95><12><14.4><17.28><20.74><24.88>cmsltt10%
      <->cmsltt10%
      }{}
\DeclareFontShape{OT1}{cmtt}{m}{sc}
     {%
      <5><6><7><8><9>%
      <10><10.95><12><14.4><17.28><20.74><24.88>cmtcsc10%
      <->cmtcsc10%
      }{}

% \DeclareFontFamily{OML}{cmm}{\skewchar\font127 }
\DeclareFontShape{OML}{cmm}{m}{it}
    { <5> <6> <7> <8> <9> gen * cmmi
      <10><10.95>cmmi10
%     <12><14.4><17.28><20.74><24.88>cmmi12
      <12->cmmi12
      <->cmmi10
      }{}
\DeclareFontShape{OML}{cmm}{b}{it}{%
      <5> <6> <7> <8> <9> gen * cmmib
%     <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88> cmmib10
      <10-> cmmib10
      <->cmmib10
      }{}
\DeclareFontShape{OML}{cmm}{bx}{it}
   {<-> ssub * cmm/b/it}{}

% \DeclareFontFamily{OMS}{cmsy}{\skewchar\font48 }
\DeclareFontShape{OMS}{cmsy}{m}{n}{%
      <5> <6> <7> <8> <9> <10> gen * cmsy
%     <10.95> <12> <14.4> <17.28> <20.74> <24.88> cmsy10
      <10.95-> cmsy10
      <-> cmsy10
      }{}
\DeclareFontShape{OMS}{cmsy}{b}{n}{%
      <5> <6> <7> <8> <9> gen * cmbsy
%     <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88>cmbsy10
      <10-> cmbsy10
      <-> cmbsy10
      }{}

\DeclareFontFamily{U}{lasy}{}
\DeclareFontShape{U}{lasy}{m}{n}{ <5> <6> <7> <8> <9> gen * lasy
      <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88>lasy10
      <-> lasy10}{}
\DeclareFontShape{U}{lasy}{b}{n}{ <-10> ssub * lasy/m/n
     <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88>lasyb10
      <-> lasyb10}{}

\DeclareFontFamily{U}{msa}{}
\DeclareFontShape{U}{msa}{m}{n}{
  <5> <6> <7> <8> <9> gen * msam
  <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88> msam10
  <-> msam10
  }{}

\DeclareFontFamily{U}{msb}{}
\DeclareFontShape{U}{msb}{m}{n}{
  <5> <6> <7> <8> <9> gen * msbm
  <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88> msbm10
  <-> msbm10
  }{}

\renewcommand{\normalsize}{\@setfontsize\normalsize\@xpt{20H}%
 \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@
 \abovedisplayshortskip \z@ \@plus3\p@
 \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@
 \belowdisplayskip \abovedisplayskip
 \let\@listi\@listI}

\newcommand{\small}{\@setfontsize\small\@ixpt{18H}%
 \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}

\small
\setbox0\hbox{\char\euc"A1A1}% "
\setlength\Cht{\ht0}
\setlength\Cdp{\dp0}
\setlength\Cwd{\wd0}
\setlength\Cvs{\baselineskip}
\setlength\Chs{\wd0}

\newcommand{\footnotesize}{\@setfontsize\footnotesize\@viiipt{14H}%
 \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\@viipt\@viiipt}
\newcommand{\tiny}{\@setfontsize\tiny\@vpt\@vipt}
\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}}

\headheight2.75mm
\headsep6.75mm
\topskip1\Cht
\footskip\z@

\setlength\maxdepth{.5\topskip}
\textwidth 150mm % (12Q x 24) x 2 + 2 = 50
%\@settopoint\textwidth
\textheight 43\Cvs
\advance \textheight \topskip
\advance \textheight .15mm
%\@settopoint\textheight

\topmargin\paperheight
\advance \topmargin -\textheight
\advance \topmargin -2\headheight
\advance \topmargin -2\headsep
\advance \topmargin -2\footskip
\divide \topmargin \tw@
\advance \topmargin -1in
\advance \topmargin -.75mm
%\@settopoint\topmargin
\oddsidemargin\paperwidth
\advance \oddsidemargin -\textwidth
\divide \oddsidemargin \tw@
\advance \oddsidemargin -1in
%\@settopoint\oddsidemargin
\evensidemargin\oddsidemargin
%\@settopoint\evensidemargin

\if@twocolumn
  \setlength\marginparsep{10\p@}
\else
  \setlength\marginparsep{10\p@}
\fi
\setlength\marginparpush{5\p@}

\marginparwidth 2in
%\@settopoint\marginparwidth

\footnotesep2.45mm %% .7\baselineskip of footnotesize
\skip\footins .75\Cvs \@plus 4\p@ \@minus 2\p@
\floatsep 1\Cvs \@plus 2\p@ \@minus 2\p@
\textfloatsep 1.5\Cvs \@plus 2\p@ \@minus 4\p@
\intextsep 1.5\Cvs \@plus 2\p@ \@minus 2\p@
\dblfloatsep 1\Cvs \@plus 2\p@ \@minus 2\p@
\dbltextfloatsep 1.5\Cvs \@plus 2\p@ \@minus 4\p@

\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}

\columnsep2zw
\columnseprule0\p@
\lineskip1\p@ 
\normallineskip1\p@
\renewcommand{\baselinestretch}{}
\parskip\z@
\parindent1zw

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

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

\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@empty{%\let\ps@jpl@in\ps@plain
 \def\@oddhead{\@Ltop\hfil\@Rtop}%
 \def\@oddfoot{\@Lbot\hfil\@Rbot}%
 \let\@evenhead\@oddhead
 \let\@evenfoot\@oddfoot
 \let\@mkboth\@gobbletwo
}

\def\ps@plain{%
 \def\@oddhead{\@Ltop\hfil
  {\head@font \head@title}\hfil\llap{\nombre@font\thepage\hskip2zw}\@Rtop}%
 \def\@evenhead{\@Ltop\rlap{\hskip2zw\nombre@font\thepage}\hfil
  %\head@font
  %\@lefthead\hskip1zw 第\@Vol 巻\hskip1zw 第\@No 号（通巻\@jbm@issue 号）\hfil
 \@Rtop}%
 \def\@oddfoot{\@Lbot\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
 \let\@mkboth\@gobbletwo
}

\def\nombre@font{\normalfont\footnotesize}
\def\head@font{\normalfont\footnotesize}
\def\@lefthead{{\kanjiskip1zw \hbox{行動計量学}}}

\def\ps@jbm{%
 \def\@oddhead{\@Ltop\hfil
  {\head@font \head@title}\hfil\llap{\nombre@font\thepage\hskip2zw}\@Rtop}%
 \def\@evenhead{\@Ltop\rlap{\hskip2zw\nombre@font\thepage}\hfil
  \head@font
  \@lefthead\hskip1zw 第\@Vol 巻\hskip1zw 第\@No 号（通巻\@jbm@issue 号）\hfil
 \@Rtop}%
 \def\@oddfoot{\@Lbot\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
 %\let\@mkboth\markboth
}

\def\ps@FPjbm{% 奇数ページはじまり
 \def\@oddhead{\@Ltop
  \head@font
  \smash{\lower3mm\hbox to \z@{%
   \@Year 年，\thepage〜\pageref{jbm@lastpage}\hss}}%
  行動計量学\hskip.5zw 第\@Vol 巻第\@No 号（通巻\@jbm@issue 号）\hfil
 \@Rtop}%
 \def\@evenhead{}%
 \def\@oddfoot{\@Lbot\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
 %\let\@mkboth\markboth
}

\def\Year#1{%
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@Year{20xx}%
 \else
  \edef\@tempb{\zap@space#1 \@empty}%
  \afterassignment\remove@to@nnil
  \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@
   \xdef\@Year{20xx}%
  \else
   \xdef\@Year{\zap@space#1 \@empty}%
  \fi
 \fi
}
\def\@Year{201x}

\def\Vol#1{%
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@Vol{xx}%
 \else
  \edef\@tempb{\zap@space#1 \@empty}%
  \afterassignment\remove@to@nnil
  \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@
   \gdef\@Vol{xx}%
  \else
   \gdef\@Vol{\zap@space#1 \@empty}%
  \fi
 \fi
}
\def\@Vol{xx}%

\def\No#1{%
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@No{xx}
 \else
  \edef\@tempb{\zap@space#1 \@empty}%
  \afterassignment\remove@to@nnil
  \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@
   \gdef\@No{xx}%
  \else
   \gdef\@No{\zap@space#1 \@empty}%
  \fi
 \fi
}
\def\@No{xx}%

\def\jbm@issue{%
 \edef\@tempb{\@Vol}%
 \afterassignment\remove@to@nnil
 \count@ 0\@tempb\relax\@nnil
 \ifnum\count@=\z@
  \gdef\@jbm@issue{xx}%
 \else
  \@tempcnta\count@
  \multiply \@tempcnta \tw@
  \edef\@tempb{\@No}%
  \afterassignment\remove@to@nnil
  \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@\else
   \ifnum\@No=\@ne
    \advance \@tempcnta -\tw@
   \else
    \advance \@tempcnta -\@ne
   \fi
  \fi
  \gdef\@jbm@issue{\the\@tempcnta}%
 \fi
}
\def\@jbm@issue{}

\def\measure@head#1{%
 \setbox\@tempboxa\hbox{\def\\{\unskip\ignorespaces}%
  \head@font #1}%
 \ifdim \wd\@tempboxa > 125mm
  \jbm@warning{header is too long. make it shorter. 
  ^^J\@spaces For example, \string\title[header title]{title}}%
 \fi
}

\def\title{\@ifnextchar[% ]
 {\d@title}{\s@title}}
\def\d@title[#1]#2{%
 \gdef\head@title{%
  \hold@head@authors
  \ifnum\total@nr>\@ne \hskip1zw 他\fi
  \hbox to 1zw{\hss ：\hss}#1}%
 \gdef\@title{\inhibitglue #2\inhibitglue}%
 \measure@head{\head@title}%
}
\def\s@title#1{%
 \gdef\head@title{\def\\{\unskip\ignorespaces}%
  \hold@head@authors
  \ifnum\total@nr>\@ne \hskip1zw 他\fi
  \hbox to 1zw{\hss ：\hss}#1}%
 \gdef\@title{\inhibitglue #1\inhibitglue}%
 \measure@head{\head@title}%
}
\def\@title{}
\def\head@title{}

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

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

\newtoks\@authorlist
\newcount\@authorcnt
\newcount\@alcnt
\newcount\total@nr

\def\authorlist#1{%
 \@authorlist={#1}\the\@authorlist
}

\def\authorentry{\@ifnextchar[% ]
 {\@ae}{\@ae[]}}

%% for \authorentry[\protect\G{高}橋}]{}{}{}
\def\@ae[#1]#2#3#4{%
 \def\tmp@an{#2}%
 \ifx\tmp@an\empty\else
  \@tempcnta\z@
  \advance \@authorcnt \@ne
  %% author label
  \get@al{#4}%
  %% author's name in Japanese
  \fmt@Jan{#2}%
  \expandafter\protected@xdef\csname @Jauthorname\number\@authorcnt\endcsname{%
   \@authorname\unskip\kern\z@\protect\save@affi{\plural@affi}}%
  %% author's name in English
  \@temptokena{#3}%
  \def\tmp@name##1 ##2\@nil{##1 \protect\textsc{##2}}%
  \protected@edef\fmt@authorname{%
    \expandafter\tmp@name\the\@temptokena\@nil}%
  \expandafter\protected@xdef\csname @Eauthorname\number\@authorcnt\endcsname{%
   \fmt@authorname\unskip\kern\z@\protect\save@affi{\plural@affi}}%
  \global\total@nr\@authorcnt
  \def\plural@affi{}%
  %% author's names on header
  \def\tmp@fname{#1}%
  \@tempswafalse
  \ifx\tmp@fname\empty
   \process@head@authors{#2}%
  \else
   \@tempswatrue
   \process@head@authors{#1}%
  \fi
 \fi
}

\def\save@affi#1{#1}

\def\get@al#1{%
 \def\al@none{none}\def\@tempaffi{#1}%
 \ifx\al@none\@tempaffi\else
  \@for\get@label:=#1\do{%
   \@ifundefined{al@\get@label}%
    {%
     \global\advance \@alcnt \@ne
     \expandafter\xdef\csname al@\get@label\endcsname{\the\@alcnt}%
     \global\advance \@tempcnta \@ne
     \protected@xdef\plural@affi{\plural@affi
      \ifnum\@tempcnta=\@ne
       $^{\jbm@fnsymbol{\csname al@\get@label\endcsname}}$%
      \else
       $^{,\jbm@fnsymbol{\csname al@\get@label\endcsname}}$%
      \fi
     }%
    }%
    {%
     \global\advance \@tempcnta \@ne
     \protected@xdef\plural@affi{\plural@affi
      \ifnum\@tempcnta=\@ne
       $^{\jbm@fnsymbol{\csname al@\get@label\endcsname}}$%
      \else
       $^{,\jbm@fnsymbol{\csname al@\get@label\endcsname}}$%
      \fi
     }%
    }%
  }%
 \fi
}
\def\plural@affi{}

\def\process@head@authors#1{%
 \ifnum\@authorcnt=\@ne
  \if@tempswa
   \def\tmp@head@authors{#1}%
  \else
   \if@author@space
    \@temptokena{#1}%
    \def\tmp@name##1 ##2\@nil{##1}%
    \protected@edef\tmp@head@authors{%
     \expandafter\tmp@name\the\@temptokena\@nil}%
   \else
    \def\tmp@head@authors{#1}%
   \fi
  \fi
  %%
  \gdef\hold@head@authors{\tmp@head@authors}%
 \fi
}
\def\hold@head@authors{}
\def\headauthors#1{\gdef\hold@head@authors{#1}}

\newif\if@author@space \@author@spacetrue

\def\fmt@Jan#1{%
 \@temptokena{#1\unskip}%
 \setbox\@tempboxa\hbox{\spaceskip100mm #1\unskip}%
 \ifdim \wd\@tempboxa < 100mm
  \jbm@warning{add a space between first and second names of "#1"}%
  \def\@authorname{#1\unskip}%
  \@author@spacefalse
 \else
  \def\tmp@name##1 ##2\@nil{%\leavevmode
   \setbox0\hbox{##1}%
   \ifdim\wd0<2.5zw
    \kintou{3zw}{##1}%
   \else
    \hbox{##1}%
   \fi
   \hskip1zw
   \setbox0\hbox{##2}%
   \ifdim\wd0<2.5zw
    \zkintou{3zw}{##2}%
   \else
    \hbox{##2}%
   \fi
  }%
  \protected@edef\@authorname{%
   \expandafter\tmp@name\the\@temptokena\@nil}%
 \fi
}

\def\breakJauthorline#1{\gdef\assigned@bal{#1}}
\def\assigned@bal{}

\def\@breakJauthorline#1{%
 \@for\@breakauthor:=#1\do{%
  \expandafter\gdef\csname @bal\@breakauthor\endcsname{\\}%
 }%
  \@authorcnt\z@
  \loop
   \ifnum \@authorcnt<\total@nr
    \advance \@authorcnt \@ne
    \@ifundefined{@bal\number\@authorcnt}%
     {\expandafter\gdef\csname @bal\number\@authorcnt\endcsname{，
      %\expandafter\hskip\expandafter\csname \romannumeral\the\@authorcnt THskip\endcsname
     }}{}%
  \repeat
}

%\newdimen\iTHskip

\def\output@Jauthorlist{%
 \ifx\assigned@bal\empty
  \ifnum\total@nr=4\relax
   \@breakJauthorline{2}%
  \else
   \@tempcnta\total@nr
   \loop\ifnum \@tempcnta > \z@
    \advance \@tempcnta -\thr@@
    \ifnum \@tempcnta=\@ne
     \@tempcntb\total@nr
     \advance \@tempcntb -\tw@
     \ifnum\total@nr=7\relax
      \@breakJauthorline{3,\the\@tempcntb}%
     \else
      \ifnum\total@nr=10\relax
       \@breakJauthorline{3,6,\the\@tempcntb}%
      \else
       \ifnum\total@nr=13\relax
        \@breakJauthorline{3,6,9,\the\@tempcntb}%
       \else
        \ifnum\total@nr=16\relax
         \@breakJauthorline{3,6,9,12,\the\@tempcntb}%
        \else
         \ifnum\total@nr=19\relax
          \@breakJauthorline{3,6,9,12,15,\the\@tempcntb}%
         \else % 22
          \@breakJauthorline{3,6,9,12,15,18,\the\@tempcntb}%
         \fi
        \fi
       \fi
      \fi
     \fi
    \else
     \ifnum\@tempcnta=\z@
      \@breakJauthorline{3,6,9,12,15,18,21}%
     \else
      \ifnum\@tempcnta=\tw@
       \@breakJauthorline{3,6,9,12,15,18,21}%
      \else
       \ifnum\@tempcnta=\m@ne
        \@breakJauthorline{}%
       \fi
      \fi
     \fi
    \fi
   \repeat
  \fi
 \else
  \@breakJauthorline{\assigned@bal}%
 \fi
 %%
 \@authorcnt\z@
 \loop\ifnum \@authorcnt < \total@nr
  \advance \@authorcnt \@ne
  \csname @Jauthorname\number\@authorcnt\endcsname
  \ifnum \@authorcnt=\total@nr
  \else
   \csname @bal\number\@authorcnt\endcsname
  \fi
 \repeat
}

\newcount\chk@alcnt
\newcount\total@alcnt
\def\affiliate[#1]#2{%
 \advance \chk@alcnt \@ne
 \advance \total@alcnt \@ne
 \@ifundefined{al@#1}%
  {\expandafter\def\csname al@#1\endcsname{1}%
   \jbm@warning{Check the "#1" label, it does not correspond to
     ^^J\@spaces any labels in \string\authorentry\space command}%
  }{}%
 \let\@fnsymbol\jbm@fnsymbol
 \protected@xdef\@affiliate{%
  \@affiliate
  \protect\footnotetext[\csname al@#1\endcsname]{#2}}%
}
\def\@affiliate{}

\def\breakauthorline#1{%
 \@for\@breakauthor:=#1\do{%
  \expandafter\gdef\csname @breakauthorline\@breakauthor\endcsname{\\}%
 }%
  \@authorcnt=\z@
  \loop\ifnum\@authorcnt<\total@nr
   \advance \@authorcnt \@ne
    \@ifundefined{@breakauthorline\number\@authorcnt}%
     {\expandafter\gdef\csname @breakauthorline\number\@authorcnt\endcsname{%
      \relax}}
     {\relax}%
  \repeat
}

\def\output@Eauthorlist{%
 \@authorcnt\z@
 \@tempcnta\total@nr \advance \@tempcnta -\@ne
  \loop
   \ifnum \@authorcnt < \total@nr
    \advance \@authorcnt \@ne 
    \ifnum \@authorcnt < \@tempcnta
     \ignorespaces
     \mbox{\csname @Eauthorname\number\@authorcnt\endcsname\unskip}, 
     \csname @breakauthorline\number\@authorcnt\endcsname
    \else
     \ifnum \@authorcnt=\total@nr
      \ignorespaces
      \mbox{\csname @Eauthorname\number\@authorcnt\endcsname\unskip}%
      \csname @breakauthorline\number\@authorcnt\endcsname
      \ignorespaces
     \else
      \ignorespaces
      \mbox{\csname @Eauthorname\number\@authorcnt\endcsname\unskip}\ 
      \csname @breakauthorline\number\@authorcnt\endcsname
      %% \ifnum \total@nr=\tw@\ \else , \fi
      and\ \ignorespaces 
     \fi
    \fi
  \repeat
}

\newbox\@abstractbox
\newbox\e@keywordbox
\newbox\j@keywordbox
\def\abstract{\global\setbox\@abstractbox\hbox\bgroup
 \ignorespaces
}
\def\endabstract{\unskip\egroup}

\def\keywords{\global\setbox\e@keywordbox\hbox\bgroup
 Key words:\ \ignorespaces}
\def\endkeywords{\unskip\egroup}

\def\jkeywords{\global\setbox\j@keywordbox\hbox\bgroup
 キーワード\hbox to 1zw{\hss ：\hss}\ignorespaces}
\def\endjkeywords{\unskip\egroup}

\newcommand{\maketitle}{\par
 \jbm@issue
 \ifnum\@alcnt>\total@alcnt
  \jbm@warning{Check \string\affiliate\space command, 
   some affiliates are not assigned}%
 \fi
 \if@Foreword
  \let\@maketitle\@makeFWtitle
 \fi
 \ifnum\@alcnt=\@ne
  \let\save@affi\@gobble
 \fi
 \begingroup
  \renewcommand{\thefootnote}{\fnsymbol{footnote}}%
  \def\@makefnmark{\hbox{$\m@th^{\@thefnmark}$}}%
  \ifnum\@alcnt=\@ne
   \long\def\@makefntext##1{%
    \leftskip1zw
    \parindent\z@
    \noindent ##1}%
  \else
   %\ifnum\@alcnt<4\relax
    \long\def\@makefntext##1{%
     \leftskip1zw
     \parindent\z@
     \noindent
     \hbox to 1.5zw{\hss $\m@th^{\@thefnmark}$}##1}%
   %\else
   % \long\def\@makefntext##1{%
   %  \leftskip1zw
   %  \parindent\z@
   %  \noindent
   %  \hbox to ??zw{\hss$\m@th^{\@thefnmark}$}##1}%
   %\fi
  \fi
  %%
  \twocolumn[\@maketitle\vspace{\abovetextsep}]%
  \thispagestyle{FPjbm}%
  \@affiliate
 \endgroup
 \setcounter{footnote}{0}%
 \global\let\maketitle\relax
 \global\let\@maketitle\relax
 \global\let\@makeFWtitle\relax
 \global\let\@title\@empty
 \global\let\title\relax
 \global\let\@subtitle\@empty
 \global\let\subtitle\relax
 \global\let\@etitle\@empty
 \global\let\etitle\relax
 \global\let\@esubtitle\@empty
 \global\let\esubtitle\relax
 \global\let\received\relax
 \global\let\revised\relax
 \global\let\@authorlist\relax
 \global\let\affiliate\relax
 \global\let\output@Jauthorlist\relax
 \global\let\output@Eauthorlist\relax
 \global\let\@affiliate\@empty
 \@authorcnt\z@
 \loop\ifnum \@authorcnt < \total@nr
  \advance \@authorcnt \@ne
   \global\expandafter\let\csname @Jauthorname\number\@authorcnt\endcsname
    \@empty
   \global\expandafter\let\csname @Eauthorname\number\@authorcnt\endcsname
    \@empty
 \repeat
}

\DeclareFixedFont{\KFtitle}{JY1}{mc}{sb}{n}{20\@JQ}
\DeclareFixedFont{\KFauthor}{JY1}{mc}{m}{n}{15\@JQ}
\def\title@font{%
 \fontsize{22\@Q}{35H}\selectfont\ybaselineshift1\@EM\KFtitle}
\DeclareFixedFont{\KFsubtitle}{JY1}{mc}{sb}{n}{18\@JQ}
\def\subtitle@font{%
 \fontsize{20\@Q}{30H}\selectfont\ybaselineshift.75\@EM\KFsubtitle}
\def\etitle@font{\footnotesize\baselineskip17H}
%\def\esubtitle@font{\footnotesize\baselineskip17H}
\let\esubtitle@font\etitle@font
\def\author@font{%
 \fontsize{17\@Q}{24H}\selectfont\ybaselineshift.75\@EM
 \KFauthor}
\def\eauthor@font{\fontsize{8.5}{18H}\selectfont}

\newdimen\belowtitlesep \belowtitlesep\z@
\newdimen\belowsubtitlesep \belowsubtitlesep\z@
\newdimen\belowJauthorsep \belowJauthorsep\z@
\newdimen\belowEtitlesep \belowEtitlesep\z@
\newdimen\belowEsubtitlesep \belowEsubtitlesep\z@
\newdimen\belowEauthorsep \belowEauthorsep\z@

\newdimen\aboveSIsep \aboveSIsep\z@
\newdimen\belowpositionsep \belowpositionsep\z@
\newdimen\belowEpositionsep \belowEpositionsep\z@

\newdimen\abovetextsep \abovetextsep\z@

\def\@maketitle{%
 \setbox\@tempboxa\vbox{\hsize\textwidth
  \parindent\z@
  \centering
  \vskip1.222\Cvs
  \bgroup
   \title@font\@title\par
   \vskip\belowtitlesep
  \egroup
  \ifx\@subtitle\@empty\else
   \vskip.25\Cvs
   \bgroup
    \subtitle@font\@subtitle\par
    \vskip\belowsubtitlesep
   \egroup
  \fi
  \vskip1.222\Cvs
  \bgroup
   \author@font \output@Jauthorlist\par
   \vskip\belowJauthorsep
  \egroup
  \vskip1.333\Cvs
  \bgroup
   \etitle@font\@etitle\par
   \vskip\belowEtitlesep
  \egroup
  \ifx\@esubtitle\@empty\else
   \bgroup
    \esubtitle@font\@esubtitle\par
    \vskip\belowEsubtitlesep
   \egroup
  \fi
  \vskip1.111\Cvs
  \bgroup
   \eauthor@font \output@Eauthorlist\par
   \vskip\belowEauthorsep
  \egroup
  \vskip1.5\Cvs
  \begin{minipage}[t]{123.75mm}%
   \footnotesize\baselineskip3.5mm\normalfont
   \parindent5.5mm
   \leavevmode
   \unhbox\@abstractbox\par
   \leavevmode
   \unhbox\e@keywordbox\par
   \leavevmode
   \unhbox\j@keywordbox
  \end{minipage}%
 }%
 %%
 \@tempdima \ht\@tempboxa
 \advance \@tempdima \dp\@tempboxa
 \@tempdimb \@tempdima
 \@tempdimc \@tempdima
 \divide \@tempdimc \Cvs
 \@tempcnta=\@tempdimc
 \advance \@tempcnta \@ne
 %%
 \@tempdimc \@tempcnta\Cvs
 \advance \@tempdimb -\@tempdimc
 \ifdim \@tempdimb > .5\Cvs
  \advance \@tempcnta \@ne
 \else
  \advance \@tempcnta \z@
 \fi
 \advance \@tempcnta \@ne
 %%
 \newpage\null
 \bgroup
  \parindent\z@
  \boxmaxdepth\z@
  \lineskiplimit\z@
  \lineskip\z@
  \vbox to \@tempcnta\Cvs{%
   \box\@tempboxa
  \vss}%
 \egroup
}

\def\zkintou#1#2{%
 \leavevmode\hbox to #1{\hss
  \kanjiskip\z@ \@plus 1fill \@minus 1fill\xkanjiskip\kanjiskip #2}}

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

\def\position#1#2{\gdef\@position{#1}\gdef\E@position{#2}}
\def\@position{}\def\E@position{}

\DeclareFixedFont{\KFSI}{JY1}{gt}{m}{n}{15\@JQ}
\def\SI@font{\bfseries %}{
 \fontsize{17\@Q}{\z@}\selectfont\ybaselineshift.75\@EM\KFSI}

\def\@makeFWtitle{% 特集
 \setbox\@tempboxa\vbox{\hsize\textwidth
  \parindent\z@
  \bgroup
   \vskip\aboveSIsep
   \SI@font 特集\hskip1zw \@SpecialIssue\par
  \egroup
  \centering
  \vskip1.222\Cvs
  \bgroup
   \setbox0\hbox{\@title}%
   \ifdim\wd0<6.5zw
    \title@font\kintou{7zw}{\@title}\par
   \else
    \title@font\@title\par
   \fi
   \vskip\belowtitlesep
  \egroup
  \ifx\@subtitle\@empty\else
   \vskip.25\Cvs
   \bgroup
    \subtitle@font\@subtitle\par
    \vskip\belowtitlesep
   \egroup
  \fi
  \vskip1.222\Cvs
  \bgroup
   \author@font \output@Jauthorlist\par
   \vskip\belowJauthorsep
  \egroup
  \ifx\@position\@empty\else
   \bgroup
    \small （\@position）\par
    \vskip\belowpositionsep
   \egroup
  \fi
  \ifx\@etitle\@empty\else
   \vskip1.333\Cvs
   \bgroup
    \etitle@font\@etitle\par
    \vskip\belowEtitlesep
   \egroup
  \fi
  \ifx\@esubtitle\@empty\else
   \bgroup
    \esubtitle@font\@esubtitle\par
    \vskip\belowEsubtitlesep
   \egroup
  \fi
  %% \etitle を指定しないときにはローマ字名も出力しない
  \ifx\@etitle\@empty\else
   \vskip1.111\Cvs
   \bgroup
    \eauthor@font \output@Eauthorlist\par
    \vskip\belowEauthorsep
   \egroup
  \fi
  \ifx\E@position\@empty\else
   \bgroup
    \footnotesize （\E@position）\par
    \vskip\belowEpositionsep
   \egroup
  \fi
  \vskip1.5\Cvs
  \ifvoid\@abstractbox\else
   \begin{minipage}[t]{123.75mm}%
    \footnotesize\baselineskip3.5mm\normalfont
    \parindent5.5mm
    \leavevmode
    \unhbox\@abstractbox\par
   \end{minipage}%
  \fi
 }%
 %%
 \@tempdima \ht\@tempboxa
 \advance \@tempdima \dp\@tempboxa
 \@tempdimb \@tempdima
 \@tempdimc \@tempdima
 \divide \@tempdimc \Cvs
 \@tempcnta=\@tempdimc
 \advance \@tempcnta \@ne
 %%
 \@tempdimc \@tempcnta\Cvs
 \advance \@tempdimb -\@tempdimc
 \ifdim \@tempdimb > .5\Cvs
  \advance \@tempcnta \@ne
 \else
  \advance \@tempcnta \z@
 \fi
 \advance \@tempcnta \@ne
 %%
 \newpage\null
 \bgroup
  \parindent\z@
  \boxmaxdepth\z@
  \lineskiplimit\z@
  \lineskip\z@
  \vbox to \@tempcnta\Cvs{%
   \box\@tempboxa
  \vss}%
 \egroup
}

\if@jbmPS
 %\let\maketitle
 \onecolumn
\fi

\def\@makePStitle{\null
 \bgroup
  \parindent\z@
  \boxmaxdepth\z@
  \lineskiplimit\z@
  \lineskip\z@
  \vbox to 2\Cvs{\vss
   \vskip-\topskip
   \hfil \small\bfseries\kintou{7zw}{編集後記}%
  \vss}\par
 \egroup
}

\def\hold@jbmeditor#1{\gdef\@hold@jbmeditor{#1}}
\def\@hold@jbmeditor{}

\def\JBMpostscript[#1]{%
 \pagestyle{plain}%
 \hold@jbmeditor{#1}%
 \@makePStitle
 \leftskip5zw
 \rightskip5zw
}
\def\endJBMpostscript{\par
 \hfill （和文誌編集委員長\hskip1zw \@hold@jbmeditor）\<\hspace*{1zw}\par
}

\setcounter{secnumdepth}{5}

\newcounter{section}
\newcounter{subsection}[section]
\newcounter{subsubsection}[subsection]
\newcounter{paragraph}[subsubsection]
\newcounter{subparagraph}[paragraph]
\renewcommand{\thesection}{\@arabic\c@section}
\renewcommand{\thesubsection}{\thesection.\@arabic\c@subsection}
\renewcommand{\thesubsubsection}{\thesubsection.\@arabic\c@subsubsection}
\renewcommand{\theparagraph}{%
 \inhibitglue （\@arabic\c@paragraph）\inhibitglue}
\renewcommand{\thesubparagraph}{%
 \expandafter\protect\expandafter\MARU\expandafter{\@arabic\c@subparagraph}}

\def\@afterheading{%
 \global\@nobreaktrue
 \everypar{%
  \if@nobreak
   \global\@nobreakfalse
   \clubpenalty \z@
    \if@afterindent
    \else
     {\setbox\z@=\lastbox}%
    \fi
  \else
   \clubpenalty\@clubpenalty
   \everypar{}%
  \fi}%
}

\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
     \advance\@tempskipa-\Cvs
     \vspace{\Cvs}
     \vspace*{\@tempskipa}
    \else
     \addvspace\@tempskipa
    \fi
   \fi
 \@ifstar{\@ssect{#3}{#4}{#5}{#6}}{\@dblarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}

%% \@sect{NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}[ARG1]{ARG2}
\def\@sect#1#2#3#4#5#6[#7]#8{%
 \ifnum #2>\c@secnumdepth
  \let\@svsec\@empty
 \else
  \refstepcounter{#1}%
  \protected@edef\@svsec{\@seccntformat{#1}\relax}%
 \fi
  \@tempskipa #5\relax
  \ifdim \@tempskipa<\z@
   \def\@svsechd{%
    #6{\hskip #3\relax
     \@svsec\inhibitglue #8}%
   }%
  \else
   \begingroup
    #6{%
     \ifnum#2=\@ne
      \noindent
      \sec@fmt{\inhibitglue #8}%
     \else
      \@hangfrom{\hskip #3\relax\@svsec}%
       \interlinepenalty\@M\inhibitglue #8\@@par
     \fi
    }%
   \endgroup
  \fi
  \@xsect{#5}}

%% \@ssect{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}{ARG} ==
\def\@ssect#1#2#3#4#5{%
  \@tempskipa#3\relax
  \ifdim \@tempskipa<\z@
   \def\@svsechd{#4{\hskip #1\relax\inhibitglue #5}}%
  \else
   \begingroup
    #4{%
     \@tempskipa#3\relax %%!!
     \ifdim \@tempskipa=\z@ % subsec/subsubsec etc.
      \if@appendix
       \@hangfrom{\hskip #1}%
        \interlinepenalty\@M\inhibitglue #5\@@par
      \else
       \let\@svsec\@empty
       \noindent
       \sec@fmt{\inhibitglue #5}%
      \fi
     \else                  % sec
      \let\@svsec\@empty
      \noindent
      \sec@fmt{\inhibitglue #5}%
     \fi
    }%
   \endgroup
  \fi
  \@xsect{#3}}

\def\@xsect#1{%
  \@tempskipa #1\relax
  \ifdim \@tempskipa<\z@
    \@nobreakfalse
    \global\@noskipsectrue
    \everypar{%
      \if@noskipsec
        \global\@noskipsecfalse
       {\setbox\z@\lastbox}%
        \clubpenalty\@M
        \begingroup \@svsechd \endgroup
        \unskip
        \@tempskipa #1\relax
        \hskip -\@tempskipa
      \else
        \clubpenalty \@clubpenalty
        \everypar{}%
      \fi}%
  \else
    \par \nobreak
    \vskip \@tempskipa
    \@afterheading
  \fi
  \ignorespaces}

\def\@seccntformat#1{\csname the#1\endcsname
 \csname dotafter@#1\endcsname\hskip1zw}
\def\dotafter@section{.}
\def\dotafter@subsection{.}
\def\dotafter@subsubsection{.}

\newcount\@tmpfncnt
\def\sec@fmt#1{%
 \@tmpfncnt\c@footnote
 \setbox\@tempboxa\hbox{\@svsec\shortstack{\inhibitglue #1\inhibitglue}}%
 \c@footnote\@tmpfncnt
 \ifdim \wd\@tempboxa<\hsize
  \setbox\@tempboxb\hbox{\inhibitglue #1\inhibitglue}% 
  \c@footnote\@tmpfncnt
  \ifdim\wd\@tempboxb<6.5zw
   \def\@makefnmark{\hbox to \z@{\@textsuperscript{\normalfont
    \mbox{\fontsize{4}{\z@}\selectfont\@thefnmark %(
     )}}\hss}}%
   \ifdim\wd\@tempboxb=1zw
    \hfil
    \@svsec #1\@@par
   \else
    \hfil
    \@svsec\kintou{7zw}{\inhibitglue #1\inhibitglue\hfil}%
   \fi
  \else
   \@tempdima\wd\@tempboxa
   \advance \@tempdima -\hsize
   \divide \@tempdima \tw@
   \@tempdima-\@tempdima
   \leftskip\@tempdima
   \rightskip\@tempdima
   \@hangfrom{\@svsec}\interlinepenalty\@M\inhibitglue #1\inhibitglue\@@par
  \fi
 \else
  \@hangfrom{\@svsec}\interlinepenalty\@M\inhibitglue #1\inhibitglue\@@par
 \fi
}

\def\sec@font{\small\bfseries}
\def\subsec@font{\small\bfseries}
\def\subsubsec@font{\small\bfseries}
\def\para@font{\small\bfseries}
\def\subpara@font{\small}

\newcommand{\section}{\@startsection{section}{1}{\z@}%
   {1.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
   {.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
   {\reset@font\sec@font}}
\newcommand{\subsection}{\@startsection{subsection}{2}{1zw}%
   {\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
   {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
   {\reset@font\subsec@font}}
\newcommand{\subsubsection}{\@startsection{subsubsection}{3}{1zw}%
   {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
   {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
   {\reset@font\subsubsec@font}}
\newcommand{\paragraph}{\@startsection{paragraph}{4}{1zw}%
   {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
   {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
   {\reset@font\para@font}}
\newcommand{\subparagraph}{\@startsection{subparagraph}{5}{1zw}%
   {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
   {\z@ \@plus.3\Cdp \@minus.1\Cdp}%
   {\reset@font\subpara@font}}

\def\ack{\section*{\kintou{6.5zw}{謝辞}}}

\newif\if@appendix \@appendixfalse
\newcommand{\appendix}{\par
 \@appendixtrue
 \setcounter{section}{0}%
 \setcounter{subsection}{0}%
 \renewcommand{\thesection}{\@Alph\c@section}%
 \setcounter{figure}{0}%
 \setcounter{table}{0}%
 \def\fnum@figure{\figurename~A\thefigure.}%
 \def\fnum@table{\tablename~A\thetable.}%
 \setcounter{equation}{0}%
 \def\@eqnnum{{\normalfont \normalcolor (A\theequation)}\hskip1zw}%
}

\if@twocolumn
  \setlength\leftmargini {2zw}% 2em
\else
  \setlength\leftmargini {2zw}% 2.5em
\fi
\setlength\leftmarginii  {2zw}% 2.2em
\setlength\leftmarginiii {2zw}% 1.87em
\setlength\leftmarginiv  {2zw}% 1.7em
\if@twocolumn
  \setlength\leftmarginv {1zw}% .5em
  \setlength\leftmarginvi{1zw}% .5em
\else
  \setlength\leftmarginv {1zw}% 1em
  \setlength\leftmarginvi{1zw}% 1em
\fi
\setlength  \labelsep  {.5zw}% .5em
\setlength  \labelwidth{\leftmargini}
\addtolength\labelwidth{-\labelsep}
\@beginparpenalty\z@ % -\@lowpenalty
\@endparpenalty\z@ %   -\@lowpenalty
\@itempenalty\z@ %     -\@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}{%
         \topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
         \settowidth{\labelwidth}{\csname label\@enumctr\endcsname}%
         \labelsep.5zw
         \leftmargin\labelwidth
         \advance\leftmargin \labelsep
         \advance\leftmargin 1zw
         \listparindent\z@
         \clubpenalty\z@
         \widowpenalty\z@
         \@itempenalty\z@
         \usecounter{\@enumctr}%
         \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newcommand{\labelitemi}{\leavevmode
 \raise.05zh\hbox to 1zw{\hss\textbullet\hss}}
\newcommand{\labelitemii}{\leavevmode
 \raise.05zh\hbox to 1zw{\hss\textendash\hss}}
\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@
         \labelwidth1zw
         \labelsep\z@
         \leftmargin2zw
         \listparindent1zw
         \clubpenalty\z@
         \widowpenalty\z@
         \@itempenalty\z@
         \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newenvironment{description}
  {\list{}{%
   \topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
   \leftmargin=1zw
   \labelwidth=\leftmargin
   \labelsep1zw
   \listparindent1zw
   \advance \labelwidth -\labelsep
   \let\makelabel\descriptionlabel
  }}{\endlist}

\newcommand{\descriptionlabel}[1]{%
 \setbox0=\hbox{\normalfont\bfseries #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
}

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

\newenvironment{quotation}
  {\list{}{%
    \topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
    \listparindent1zw
    \itemindent\listparindent
    \rightmargin\z@
    \leftmargin2zw
  }%
  \item\relax}{\endlist}

\newenvironment{quote}
  {\list{}{%
   \topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
   \rightmargin\z@
   \leftmargin1zw
  }%
  \item\relax}{\endlist}

\newskip\@hlskip
\@hlskip.5\Cvs \@plus .25\Cvs \@minus .15\Cvs

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

\newdimen\verbatimleftmargin
  \verbatimleftmargin\z@
\newdimen\verbatimbaselineskip
  \verbatimbaselineskip\Cvs
\def\verbatimsize{\small}
%% from latex.ltx
%\def\verbatim@font{\normalfont\ttfamily}

\def\@verbatim{%
 \interlinepenalty\z@
 \topsep\@hlskip
 \partopsep\z@\parsep\z@\itemsep\z@
 \trivlist \item\relax
  \if@minipage\else
   \vskip\baselineskip
   \vskip-\verbatimbaselineskip
   %\vskip\parskip
  \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
   \verbatim@font \@noligs
  \everypar \expandafter{\the\everypar \unpenalty}%
}

%% from latex.ltx
\def\@item[#1]{%
  \if@noparitem
    \@donoparitem
  \else
    \if@inlabel
      \indent \par
    \fi
    \ifhmode
      \unskip\unskip \par
    \fi
    \if@newlist
      \if@nobreak
        \@nbitem
      \else
        \addpenalty\@beginparpenalty
        \addvspace\@topsep
        \addvspace{-\parskip}%
      \fi
    \else
      \addpenalty\@itempenalty
      \addvspace\itemsep
    \fi
    \global\@inlabeltrue
  \fi
  \everypar{%
    \@minipagefalse
    \global\@newlistfalse
    \if@inlabel
      \global\@inlabelfalse
      {\setbox\z@\lastbox
       \ifvoid\z@
         \kern-\itemindent
       \fi}%
      \box\@labels
      \penalty\z@
    \fi
    \if@nobreak
      \@nobreakfalse
      \clubpenalty\z@ % \@M --> \z@ 
    \else
      \clubpenalty \@clubpenalty
      \everypar{}%
    \fi}%
  \if@noitemarg
    \@noitemargfalse
    \if@nmbrlist
      \refstepcounter\@listctr
    \fi
  \fi
  \sbox\@tempboxa{\makelabel{#1}}%
  \global\setbox\@labels\hbox{%
    \unhbox\@labels
    \hskip \itemindent
    \hskip -\labelwidth
    \hskip -\labelsep
    \ifdim \wd\@tempboxa >\labelwidth
      \box\@tempboxa
    \else
      \hbox to\labelwidth {\unhbox\@tempboxa}%
    \fi
    \hskip \labelsep}%
  \ignorespaces\inhibitglue
}

\newcounter{figure}
\renewcommand{\thefigure}{\@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{\figurename~\thefigure.}
\newenvironment{figure}
               {\floatenv\capwidth\hsize
                \abovecaptionskip1mm\belowcaptionskip\z@\@float{figure}}
               {\end@float}
\newenvironment{figure*}
               {\floatenv\capwidth\textwidth
                \abovecaptionskip1mm\belowcaptionskip\z@\@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.}
\newenvironment{table}
               {\floatenv\capwidth\hsize
                \abovecaptionskip\z@\belowcaptionskip1.5mm\@float{table}}
               {\end@float}
\newenvironment{table*}
               {\floatenv\capwidth\textwidth
                \abovecaptionskip\z@\belowcaptionskip1.5mm\@dblfloat{table}}
               {\end@dblfloat}

\newlength\abovecaptionskip
\newlength\belowcaptionskip

\def\@floatboxreset {%
 \reset@font
 \renewcommand{\footnotesize}{\@setfontsize\footnotesize\@viiipt{17H}}%
 \footnotesize\tabcolsep.5zw
 \@setminipage
}

\def\floatenv{\let\center\Center\let\endcenter\endCenter}
\def\Center{\topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
 \trivlist \centering\item\relax}
\def\endCenter{\endtrivlist}

\long\def\@caption#1[#2]#3{\par
 %\addcontentsline{\csname ext@#1\endcsname}{#1}%
 % {\protect\numberline{\csname the#1\endcsname}{\ignorespaces #2}}%
 \begingroup
  \@parboxrestore
  \if@minipage
   \@setminipage
  \fi
  \footnotesize
  \normalbaselineskip15H
  \baselineskip15H
  \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
 \endgroup}

\newbox\@tempboxb
\newdimen\capwidth
\let\capnum@font\relax

\long\def\@makecaption#1#2{%
 \vskip\abovecaptionskip
 \setbox\@tempboxa\hbox{{\capnum@font #1}\hskip1zw\shortstack[l]{#2}}%
 \@tempdima=\ht\@tempboxa\advance \@tempdima by \dp\@tempboxa
 \setbox\@tempboxb\hbox{\capnum@font #1\hskip1zw}%
 \ifdim \@tempdima > \baselineskip
  \ifdim \wd\@tempboxa > \capwidth
   \hfil\parbox[t]{\capwidth}{\hangindent\wd\@tempboxb 
    {\capnum@font #1}\hskip1zw\inhibitglue #2}\par
    \hrule height \z@
  \else
   \hfil\parbox[t]{\wd\@tempboxa}{\hangindent\wd\@tempboxb 
    {\capnum@font #1}\hskip1zw\inhibitglue #2}\par
    \hrule height \z@
  \fi
 \else
  \ifdim \wd\@tempboxa > \capwidth
   \hfil\parbox[t]{\capwidth}{\hangindent\wd\@tempboxb 
    {\capnum@font #1}\hskip1zw\inhibitglue #2}\par
    \hrule height \z@
  \else
   \hbox to\hsize{\hss\box\@tempboxa\hss}%
  \fi
 \fi
 \vspace{\belowcaptionskip}%
}

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

\if@enablejfam
  \if@compatibility\else
    \DeclareSymbolFont{mincho}{JY1}{mc}{m}{n}
    \DeclareSymbolFontAlphabet{\mathmc}{mincho}
    \SetSymbolFont{mincho}{bold}{JY1}{gt}{m}{n}
    \jfam\symmincho
    \DeclareMathAlphabet{\mathgt}{JY1}{gt}{m}{n}
  \fi
  \if@mathrmmc
    \AtBeginDocument{%
    \reDeclareMathAlphabet{\mathrm}{\mathrm}{\mathmc}
    \reDeclareMathAlphabet{\mathbf}{\mathbf}{\mathgt}
  }%
  \fi
\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}

\newdimen\bibindent
\setlength\bibindent{2zw}
\newenvironment{thebibliography}[1]
     {\footnotesize
      \vskip1\baselineskip \@plus .25\baselineskip \@minus .25\baselineskip
      \subsection*{\footnotesize \refname}%
      \list{\@biblabel{\@arabic\c@enumiv}}% 
           {\topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
            %\settowidth\labelwidth{\@biblabel{#1}}%
            \leftmargin3zw
            \@openbib@code
            \itemindent-2zw
            \usecounter{enumiv}%
            \let\p@enumiv\@empty
            \renewcommand\theenumiv{\@arabic\c@enumiv}
            }%
      \sloppy
      \clubpenalty\z@
      \@clubpenalty \clubpenalty
      \widowpenalty\z@
      \sfcode`\.\@m}
     {\def\@noitemerr
       {\@latex@warning{Empty `thebibliography' environment}}%
      \endlist
      \vskip\baselineskip
      \@acceptance %%!!
     }

%\def\@biblabel#1{[#1]}
\def\@biblabel#1{}% #1

\newcommand\newblock{\hskip .11em\@plus.33em\@minus.07em}
\let\@openbib@code\@empty

\def\@acceptance{\par
 \ifx \@received\empty\else
  \noindent\hfill
  \hbox{\xkanjiskip.15zw
   \inhibitglue （\@received\@revised ）\inhibitglue}\par
 \fi}
\def\received#1#2#3{%
 \gdef\@received{\ignorespaces #1\unskip 年\ignorespaces #2\unskip
  月\ignorespaces #3\unskip 日受付}}
\def\revised#1#2#3{\gdef\@revised{，\ignorespaces #1\unskip
  年\ignorespaces #2月\unskip \ignorespaces #3\unskip 日最終修正}}
\def\@received{}
\def\@revised{}

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

\let\org@footnote\footnote
\def\footnote{\unskip\inhibitglue\penalty\@M\org@footnote}

\def\@makefnmark{\hbox{\@textsuperscript{%
 \normalfont\mbox{\fontsize{4}{\z@}\selectfont\@thefnmark %(
 )}}}}

\newcommand\@makefntext[1]{%
 \leftskip2.5zw
 \parindent1zw
 \noindent
 \hbox to \z@{\hss\@makefnmark\hskip.5zw}#1}

\def\jbm@fnsymbol#1{\ensuremath{% ??
 \ifcase#1\or
  {*}\or {*}{*}\or {*}{*}{*}\or
  {\dagger}\or {\dagger}{\dagger}\or {\dagger}{\dagger}{\dagger}\or
  {\ddagger}\or {\ddagger}{\ddagger}\or {\ddagger}{\ddagger}{\ddagger}\or
  a\or b\or c\or d\or e\or f\or g\or h\or i\or j\or k\or l\or m\or n%
 \else\@ctrerr\fi}%
}

\renewcommand{\theequation}{\@arabic\c@equation}
\def\@eqnnum{{\normalfont \normalcolor (\theequation)}\hskip1zw\mbox{}}

\def\eqnarray{%
   \stepcounter{equation}%
   \def\@currentlabel{\p@equation\theequation}%
   \global\@eqnswtrue
   \m@th
   \global\@eqcnt\z@
   \tabskip\@centering
   \let\\\@eqncr
   $$\everycr{}\halign to\displaywidth\bgroup
       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
      &\global\@eqcnt\@ne\hskip .8\arraycolsep \hfil${##}$\hfil %% \tw@
      &\global\@eqcnt\tw@ \hskip .8\arraycolsep                 %% 
         $\displaystyle{##}$\hfil\tabskip\@centering
      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
         \tabskip\z@skip
      \cr
}
%\def\endeqnarray{%
%      \@@eqncr
%      \egroup
%      \global\advance\c@equation\m@ne
%   $$\@ignoretrue
%}

\def\@begintheorem#1#2{%
 \topsep\@hlskip
 \parsep\z@\itemsep\z@\partopsep\z@
 \labelsep1zw
 \trivlist
   \item[\hskip\labelsep{\bfseries #1\ #2}]}% \itshape
\def\@opargbegintheorem#1#2#3{%
 \topsep\@hlskip
 \parsep\z@\itemsep\z@\partopsep\z@ \labelsep1zw
 \trivlist
   \item[\hskip\labelsep{\bfseries #1\ #2（#3）}]}% \itshape
\def\@endtheorem{\endtrivlist}


\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}}

\newcommand{\refname}{参考文献}
\newcommand{\figurename}{図}
\newcommand{\tablename}{表}
%\newcommand{\appendixname}{付 録}

%% <local>
\def\onelineskip{\par\vspace{1\baselineskip}\par}
\def\halflineskip{\par\vspace{.5\baselineskip}\par}

\def\ddash{\penalty\@M\leavevmode
 \setbox0\hbox{------}%
 \ifdim\wd0>2zw
  \raise.1zh\hbox to 2zw{---\hss ---}%
 \else
  \raise.1zh\hbox to 2zw{\hss ---\kern-.01ex ---\hss}%
 \fi
}
\def\zdash{\penalty\@M\leavevmode\raise.1zh\hbox{---}}
\def\hdash{\penalty\@M\leavevmode\raise.1zh\hbox{--}}

\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\MARU#1{\raisebox{0.1zh}{\hbox to 1zw{\hss
 \leavevmode\ooalign{\hfil\lower.168ex\hbox{#1}\hfil\crcr\mathhexbox20D}\hss}}}

\def\kintou#1#2{%
 \leavevmode\hbox to #1{%
  \kanjiskip\z@ plus 1fill minus 1fill\xkanjiskip\kanjiskip #2\hfil}}
\def\ruby#1#2{\leavevmode \setbox0=\hbox{#1}\setbox1=\hbox{\tiny#2}%
 \ifdim\wd0>\wd1 \dimen0=\wd0 \else \dimen0=\wd1 \fi
 \smash{\hbox{\kanjiskip=\fill
  \vbox{\hbox to \dimen0{\tiny \hfil#2\hfil}%
  \nointerlineskip \hbox to \dimen0{\hfil#1\hfil}}}}%
}
%% </local>

\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
\postbreakpenalty"5C=10000
\postbreakpenalty`【=10000
\prebreakpenalty`】=10000
\postbreakpenalty`〔=10000
\prebreakpenalty`〕=10000
\postbreakpenalty`『=10000
\prebreakpenalty`』=10000

\def\sloppy{\tolerance9999\hbadness9999\hfuzz.5\p@ \vfuzz.5\p@}

\hbadness4000
\vbadness10001
\tolerance4000\pretolerance\m@ne
\clubpenalty\z@
\widowpenalty\z@

\AtBeginDocument{%
 \small
 %% geometry.sty を組み込まないように
 \@ifundefined{ifGm@verbose}{}{%
  \jbm@warning{Don't use Package "geometry"}
  \def\geometry{Don't use Package ``geometry.sty''.}\geometry}%
 %%
 \displaywidowpenalty\z@
 \interdisplaylinepenalty\z@
 \predisplaypenalty\z@
 \postdisplaypenalty\z@
 %% ams
 \@ifundefined{maketag@@@}{}
  {%
   \def\maketag@@@#1{\hbox{\m@th\normalfont #1}\hskip1zw}%
   \def\eqref#1{\textup{\tagform@{\ref{#1}}\unskip}}%
  }%
 %% cmex7,8,9 は使わない
 \@ifundefined{cmex@opt}{%
  \DeclareFontFamily{OMX}{cmex}{}{}%
  \DeclareFontShape{OMX}{cmex}{m}{n}{%
   <->    cmex10
  }{}%
 }{%
  \ifnum\cmex@opt=7\relax
   \DeclareFontFamily{OMX}{cmex}{}{}%
   \DeclareFontShape{OMX}{cmex}{m}{n}{%
    <->    cmex10
   }{}%
  \fi
 }%
 %% nidanfloat
 \@ifundefined{dblbotfraction}{}{%
  \renewcommand\dblbotfraction{0.9}% 0.5
  \setcounter{dblbotnumber}{4}% 2
 }%
 %% here.sty
 \@ifundefined{@HHfloat}{}{%
  \def\@HHfloat#1[H]{%
   \expandafter\let\csname end#1\endcsname\end@Hfloat
   \vskip\intextsep
   \vbox\bgroup\def\@captype{#1}\parindent\z@
   \@floatboxreset %% added
   \ignorespaces}%
  \def\end@Hfloat{\egroup\vskip-1zh %% added
   \vskip \intextsep}%
 }%
}

\AtEndDocument{%
 \clearpage
 \addtocounter{page}{-1}%
 \immediate\write\@auxout
  {\string\newlabel{jbm@lastpage}{{}{\thepage}}}%
 %\addtocounter{page}{1}%
}

\pagestyle{jbm}
\pagenumbering{arabic}
\if@cameraready
 \flushbottom
\else
 \raggedbottom
\fi
\if@twocolumn
 \twocolumn
 \sloppy
\else
  \onecolumn
\fi
\if@twoside
  \@mparswitchtrue
\else
  \@mparswitchfalse
\fi

\endinput