% #!platex readme && xdvi -paper b5 -geo 830x950-0+28 -offsets -1 readme
%#!platex test && xdvi -paper b5 -geo 830x950-0+28 -offsets -1 test
%#LPR dvips -P905 -O -7mm,0mm -r -pp  %s
%%
%%% jnns.cls (pLaTeX2e)
%%   for the Brain and Neural Networks of Japanese Neural Network Society 
%%    by Motoaki Sato (ULS and Company), 2004. 
%%     E-mail: teppei@uls.co.jp, http://www.uls.co.jp/
%%%
\NeedsTeXFormat{pLaTeX2e}
\ProvidesClass{jnns}
  [2004/04/28 v0.01 for the Brain and Neural Networks]

\def\jnnsline@warning{\ClassWarning{jnns}}
\def\jnns@warning{\ClassWarningNoLine{jnns}}

\newif\if@NTT
\@ifundefined{kanjiskip}{\@NTTtrue
 \let\kanjiskip=\jintercharskip
 \let\xkanjiskip=\jasciikanjiskip
% \def\bf{\protect\pdg\protect\pbf}
 }{\@NTTfalse}
\@ifundefined{burasage}{}{\burasage`，=1\burasage`．=1}

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

\newif\if@usejistfm \@usejistfmfalse
\DeclareOption{usejistfm}{\@usejistfmtrue}

\newif\if@Proof \@Prooffalse
\DeclareOption{Proof}{\@Prooftrue}
\newif\if@cameraready \@camerareadyfalse
\DeclareOption{cameraready}{\@camerareadytrue}

%%% 投稿論文の種類                  
%%  研究論文                        Paper (Research Paper)
%%  研究ノート                      ResearchNote
%%  英文 研究論文 Vol.9, No.1       Paper,english
%%  その他 (書評/論文レビュー/論壇/海外報告 etc)
%%% 依頼原稿の種類                  article
%%  巻頭言                          Foreword   \typeof P article{巻頭言}
%%  解説                            Commentary \typeof P article{解説}
%%  連載                            Serial     \typeof P article{連載}
%%  報告         Vol.10, No.4       \typeofarticle{}
%%  受賞概要     Vol.9, No.1        \typeofarticle{}
%%  海外だより   Vol.9, No.1        \typeofarticle{}
%%  追悼         Vol.10, No.3       \typeofarticle{}
%%% その他の記事
%%  会報                            report
%%  編集後記                        editorial

\newif\if@paper \@paperfalse     %% 研究論文と研究ノート
\newif\if@xiiiQ \@xiiiQfalse     %% 巻頭言/追悼など 13Qx45w=146.25mm
\newif\if@jnnsart \@jnnsartfalse %% 解説/連載/ など
\def\@typeofpaper#1{\gdef\@type@fpaper{#1}}
\def\@type@fpaper{}
\DeclareOption{Paper}{\@papertrue
 \if@english\@typeofpaper{Research Paper}\else\@typeofpaper{研究論文}\fi}
\DeclareOption{ResearchNote}{\@papertrue
 \if@english\@typeofpaper{Research Note}\else\@typeofpaper{研究ノート}\fi}

%\DeclareOption{Article}{\@paperfalse}
\newif\if@Commentary \@Commentaryfalse %% see abst
\DeclareOption{Commentary}{% 解説
 \@jnnsarttrue
 \@Commentarytrue\@paperfalse\@typeofpaper{解説}}

\newif\if@Serial \@Serialfalse  %% see ??
\DeclareOption{Serial}{% 連載
 \@jnnsarttrue
 \@Serialtrue\@paperfalse\@typeofpaper{連載}}

\DeclareOption{Foreword}{% 巻頭言
 \@paperfalse\@xiiiQtrue\@twocolumnfalse\@typeofpaper{巻頭言}}
\newif\if@MemWr \@MemWrfalse
\DeclareOption{MemorialWriting}{% 追悼
 \@MemWrtrue
 \@paperfalse\@xiiiQtrue\@twocolumnfalse\@typeofpaper{追悼}}% 

\newif\if@english \@englishfalse
\DeclareOption{english}{\@englishtrue}

\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
\DeclareOption{b5paper}{\setcounter{@paper}{4}%
  \setlength\paperheight {257mm}
  \setlength\paperwidth  {182mm}}
%\DeclareOption{b5j}{\setcounter{@paper}{4}\@stysizetrue
%  \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}{.1\p@}%
  \@bannertoken{%
     \jobname\space:\space\number\year/\number\month/\number\day
      (\number\hour:\number\minute)}
  \maketombowbox}
\DeclareOption{tombo}{%
  \tombowtrue \tombowdatefalse
  \setlength{\@tombowwidth}{.1\p@}%
  \maketombowbox}
\DeclareOption{mentuke}{%
  \tombowtrue \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}
 \jnns@warning{fleqn is incorporated into this class file}}
\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@NTT
\else
\if@cameraready
 %%?? \input jnns-cameraready.fd
\else
\if@usejistfm
\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}{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
}{}
\else
\DeclareFontShape{JY1}{mc}{m}{n}{%
  <5>     sfixed * [5.1748] min5  %  7Q
  <6>     sfixed * [5.9141] min6  %  8Q
  <7>     sfixed * [7.3926] min7  % 10Q
  <8>     sfixed * [8.1318] min8  % 11Q
  <9>     sfixed * [8.8711] min9  % 12Q
  <10>    sfixed * [9.6104] min10 % 13Q
  <10.95> sfixed * [11.089] min10 % 15Q
  <12>    sfixed * [13.307] min10 % 18Q
  <14.4>  sfixed * [14.785] min10 % 20Q
  <17.28> sfixed * [17.742] min10 % 24Q
  <20.74> sfixed * [20.699] min10 % 28Q
  <24.88> sfixed * [23.656] min10 % 32Q
  <->                       min10 % 
}{}
\DeclareFontShape{JY1}{mc}{bx}{n}{%
  <5>     sfixed * [5.1748] goth5
  <6>     sfixed * [5.9141] goth6
  <7>     sfixed * [7.3926] goth7
  <8>     sfixed * [8.1318] goth8
  <9>     sfixed * [8.8711] goth9
  <10>    sfixed * [9.6104] goth10
  <10.95> sfixed * [11.089] goth10
  <12>    sfixed * [13.307] goth10
  <14.4>  sfixed * [14.785] goth10
  <17.28> sfixed * [17.742] goth10
  <20.74> sfixed * [20.699] goth10
  <24.88> sfixed * [23.656] goth10
  <->                       goth10
}{}
\DeclareFontShape{JY1}{gt}{m}{n}{%
  <5>     sfixed * [5.1748] goth5
  <6>     sfixed * [5.9141] goth6
  <7>     sfixed * [7.3926] goth7
  <8>     sfixed * [8.1318] goth8
  <9>     sfixed * [8.8711] goth9
  <10>    sfixed * [9.6104] goth10
  <10.95> sfixed * [11.089] goth10
  <12>    sfixed * [13.307] goth10
  <14.4>  sfixed * [14.785] goth10
  <17.28> sfixed * [17.742] goth10
  <20.74> sfixed * [20.699] goth10
  <24.88> sfixed * [23.656] goth10
  <->                       goth10
}{}
\DeclareFontShape{JY1}{gt}{bx}{n}{%
  <5>     sfixed * [5.1748] goth5
  <6>     sfixed * [5.9141] goth6
  <7>     sfixed * [7.3926] goth7
  <8>     sfixed * [8.1318] goth8
  <9>     sfixed * [8.8711] goth9
  <10>    sfixed * [9.6104] goth10
  <10.95> sfixed * [11.089] goth10
  <12>    sfixed * [13.307] goth10
  <14.4>  sfixed * [14.785] goth10
  <17.28> sfixed * [17.742] goth10
  <20.74> sfixed * [20.699] goth10
  <24.88> sfixed * [23.656] goth10
  <->                       goth10
}{}
\fi
\fi
\fi

\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}{m}{sl}{<->ssub*mc/m/n}{}
\DeclareFontShape{JY1}{mc}{m}{sc}{<->ssub*mc/m/n}{}
\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}{m}{sl}{<->ssub*mc/m/n}{}
\DeclareFontShape{JT1}{mc}{m}{sc}{<->ssub*mc/m/n}{}

%% original: /usr/local/teTeX/share/texmf/tex/latex/base/ot1cmr.fd [2002/01/21]
\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
      }{}

\renewcommand{\normalsize}{%
 \@setfontsize\normalsize\@xpt{20\@Q}%
 \abovedisplayskip .5\Cvs \@plus .25\Cvs \@minus .15\Cvs
 \abovedisplayshortskip \z@ \@plus 1\p@
 \belowdisplayshortskip .3\Cvs \@plus .15\Cvs \@minus .1\Cvs
 \belowdisplayskip \abovedisplayskip
 \let\@listi\@listI}
%\normalsize

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

\newcommand{\small}{%
 \@setfontsize\small\@ixpt{18\@Q}%
 \abovedisplayskip .5\baselineskip
  \@plus .25\baselineskip \@minus .15\baselineskip
 \abovedisplayshortskip \z@ \@plus 1\p@
 \belowdisplayshortskip .3\baselineskip
  \@plus .15\baselineskip \@minus .1\baselineskip
 \def\@listi{\leftmargin\leftmargini
             %\topsep 4\p@ \@plus2\p@ \@minus2\p@
             %\parsep 2\p@ \@plus\p@ \@minus\p@
             \topsep .5\baselineskip
              \@plus .25\baselineskip \@minus .15\baselineskip
             \parsep \z@
             \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{15\@Q}%
 \abovedisplayskip .5\baselineskip
  \@plus .25\baselineskip \@minus .15\baselineskip
 \abovedisplayshortskip \z@ \@plus 1\p@
 \belowdisplayshortskip .3\baselineskip
  \@plus .15\baselineskip \@minus .1\baselineskip
 \def\@listi{\leftmargin\leftmargini
             %\topsep 3\p@ \@plus\p@ \@minus\p@
             %\parsep 2\p@ \@plus\p@ \@minus\p@
             \topsep .5\baselineskip
              \@plus .25\baselineskip \@minus .15\baselineskip
             \parsep \z@
             \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{25\@Q}}% title 25H??
\newcommand{\LARGE}{\@setfontsize\LARGE\@xviipt{25}}
\newcommand{\huge}{\@setfontsize\huge\@xxpt{28}}
\newcommand{\Huge}{\@setfontsize\Huge\@xxvpt{33}}

\headheight 11\@Q
\headsep 7mm
\topskip 1\Cht
\footskip\z@
\maxdepth .5\topskip
\textwidth 150mm %% 50 24x2+2
\@settopoint\textwidth
\textheight 45\Cvs %% 46 lines
\advance \textheight \topskip
\advance \textheight .4mm %% limits 0.3mm
\@settopoint\textheight
\if@twocolumn
  \setlength\marginparsep{10\p@}
\else
  \setlength\marginparsep{10\p@}
\fi
\setlength\marginparpush{5\p@}

\iftombow
% \hoffset\z@
% \voffset\z@
 \topmargin\paperheight
 \advance \topmargin -\textheight
 \advance \topmargin -\headheight
 \advance \topmargin -\headsep
 \advance \topmargin -\footskip
 \divide \topmargin \tw@
 \advance \topmargin 3.5mm
 \advance \topmargin -1in
 \@settopoint\topmargin
 \oddsidemargin\paperwidth
 \advance \oddsidemargin -\textwidth
 \divide \oddsidemargin \tw@
 \advance \oddsidemargin -1in
 \@settopoint\oddsidemargin
 \evensidemargin\oddsidemargin
 \@settopoint\evensidemargin
\else
 \topmargin \z@
 \@settopoint\topmargin
 \oddsidemargin\z@
 \@settopoint\oddsidemargin
 \evensidemargin\z@
 \@settopoint\evensidemargin
\fi

\marginparwidth 2in
\@settopoint\marginparwidth

\footnotesep 2.625mm
\skip\footins .75\Cvs \@plus .25\Cvs \@minus .5\Cvs
\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@

\@fptop 0\p@ \@plus 1fil
\@fpsep 8\p@ \@plus 2fil
\@fpbot 0\p@ \@plus 1fil
\@dblfptop 0\p@ \@plus 1fil
\@dblfpsep 8\p@ \@plus 2fil
\@dblfpbot 0\p@ \@plus 1fil
\partopsep \z@

\def\@listi{\leftmargin\leftmargini
  \topsep.5\Cvs \@plus .25\Cvs \@minus .15\Cvs
  \parsep\z@
  \itemsep\parsep
}
\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@
\lineskip 1\p@ 
\normallineskip1\p@
\renewcommand{\baselinestretch}{}
\parskip\z@
\parindent1zw

\@lowpenalty   51
\@medpenalty  151
\@highpenalty 301
\setcounter{topnumber}{6}
\setcounter{bottomnumber}{6}
\setcounter{totalnumber}{12}
\setcounter{dbltopnumber}{6}
\renewcommand{\topfraction}{.95}
\renewcommand{\bottomfraction}{.95}
\renewcommand{\textfraction}{.05}
\renewcommand{\floatpagefraction}{.05}
\renewcommand{\dbltopfraction}{.95}
\renewcommand{\dblfloatpagefraction}{.05}

\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\hfill\@Rtop}%
  \def\@oddfoot{\@Lbot\hfill\@Rbot}%
  \let\@evenhead\@oddhead
  \let\@evenfoot\@oddfoot
  \let\@mkboth\@gobbletwo
  \let\chaptermark\@gobble
  \let\sectionmark\@gobble
}
\def\ps@plain{\let\@mkboth\@gobbletwo
   \let\ps@jpl@in\ps@plain
   \def\@oddhead{\@Ltop\hfill\@Rtop}%
   \def\@oddfoot{\@Lbot\reset@font\hfil\thepage\hfil\@Rbot}%
   \let\@evenhead\@oddhead
   \let\@evenfoot\@oddfoot}
\let\ps@jpl@in\ps@plain

\def\Vol#1{% Vol.11 = Year 2004
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@Vol{xx}\gdef\@Year{xxxx}%
 \else
  \edef\@tempb{\zap@space#1 \@empty}%
  \afterassignment\remove@to@nnil
   \count@ 0\@tempb\relax\@nnil
  \ifnum\count@=\z@
   \gdef\@Vol{xx}%
  \else
   \@tempcnta=#1\relax
   \advance \@tempcnta 1993\relax
   \xdef\@Year{\the\@tempcnta}%
   \gdef\@Vol{\zap@space#1 \@empty}%
  \fi
 \fi
}
\def\@Vol{xx}%
\def\@Year{xxxx}

\def\No#1{%
 \def\@tempa{#1}%
 \ifx\@tempa\empty
  \gdef\@No{x}%
 \else
   \gdef\@No{#1}%
 \fi
}
\def\@No{x}

\def\JNNSpage@range{%
 \@ifundefined{r@jnns@lastpage}{\def\last@page{1}\def\get@lp{1}}%
  {\edef\exp@lp{\csname r@jnns@lastpage\endcsname}%
   \edef\get@lp{\expandafter\@cdr\exp@lp\@nil}%
   \def\last@page{%
    \@tempcnta\get@lp\relax
    \the\@tempcnta
   }%
  }%
  \ifnum\get@lp=\c@page
   \thepage
  \else
   \thepage--\last@page
  \fi
}

\def\nombre@font{\normalfont\footnotesize}
\def\head@font{\normalfont\footnotesize}

\def\ps@FPjnns{\let\@mkboth\@gobbletwo
 %\let\ps@jpl@in\ps@headnombre
 \def\@oddhead{\@Ltop
   \hfil
   {\head@font \if@english The Brain \& Neural Networks
     \else 日本神経回路学会誌\fi\hskip2.75mm 
     Vol.\,\@Vol,\ No.\,\@No（\@Year{}）\inhibitglue ，
      \JNNSpage@range}\hskip2.75mm
   \@Rtop}%
 \let\@evenhead\@oddhead
 \def\@oddfoot{\@Lbot\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
}

\def\ps@jnns{\let\@mkboth\@gobbletwo
 %\let\ps@jpl@in\ps@headnombre
 \def\@oddhead{\@Ltop\hfil
  {\head@font \measure@head{\an@head\head@title}}\hfil
  \llap{\nombre@font \thepage\hskip2.75mm}\@Rtop}%
 \def\@evenhead{\@Ltop
   \rlap{\hskip2.75mm\nombre@font \thepage}\hfil
   {\head@font \if@english The Brain \& Neural Networks
     \else 日本神経回路学会誌\fi\hskip2.75mm 
     Vol.\,\@Vol,\ No.\,\@No（\@Year{}）\inhibitglue}\hfil
   \@Rtop}%
 \def\@oddfoot{\@Lbot\hfil\@Rbot}%
 \let\@evenfoot\@oddfoot
}

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

%\def\p@thanks#1{\footnotemark
%  \protected@xdef\@thanks{\@thanks
%    \protect{\noindent$\m@th^\thefootnote$~#1\protect\par}}}

\newif\if@jnnsart@ne@al \@jnnsart@ne@alfalse

\newcommand{\maketitle}{\par
 \begingroup
  %%
  %\renewcommand{\thefootnote}{\fnsymbol{footnote}}%
  \if@jnnsart
   \ifnum\@alcnt=\@ne
    \immediate\write\@auxout
     {\string\global\string\@jnnsart@ne@altrue}%
   \fi
  \fi
  \if@jnnsart@ne@al %% 解説/連載などのときに所属が一か所
   \let\@fnsymbol\jnns@ast@fnsymbol
  \else
   \let\@fnsymbol\jnns@fnsymbol
  \fi
  \def\@makefnmark{\hbox{$\m@th^{\@thefnmark}$}}%
  \renewcommand\@makefntext[1]{%
   \parindent3zw
   \noindent
   \@hangfrom{\hbox to 2zw{\hss\@makefnmark\,}}##1}%
  %%
  \if@twocolumn
   \twocolumn[\@maketitle]%
  \else
   \newpage
   \global\@topnum\z@ % Prevents figures from going at top of page.
   \@makeFWtitle
  \fi
  \fmt@runninghead
  \thispagestyle{FPjnns}
  %%
  \if@xiiiQ  %% 巻頭言/追悼
  \else
   \if@paper %% 研究論文/研究ノート
    \foot@acceptance
   \fi
   \J@address
  \fi
 \endgroup
 \setcounter{footnote}{0}%
 %\global\let\thanks\relax
 \global\let\maketitle\relax
 %\global\let\p@thanks\relax
 %\global\let\@thanks\@empty
 %\global\let\@author\@empty
 %\global\let\@date\@empty
 \global\let\d@title\@empty
 \global\let\s@title\@empty
 \global\let\@title\@empty
 \global\let\title\relax
 \global\let\@subtitle\@empty
 \global\let\subtitle\relax
 \global\let\@etitle\relax
 \global\let\etitle\relax
 %\global\let\author\relax
 %\global\let\date\relax
 %\global\let\and\relax
}

\def\@maketitle{%
 \parindent\z@
 \setbox\@tempboxa\vbox{%
  \Logo@box{\@type@fpaper}\par
  \nointerlineskip
  \vskip4mm % paper
  \bgroup
   \centering
   \title@font
   \ifx\scalebox\@undefined
    \@title
    \if@paper\unskip\nolinebreak\footnotemark[0]\fi\par
   \else
    \setbox\@tempboxa\hbox{\jnns@shortstack{\@title
      \if@paper\unskip\nolinebreak\footnotemark[0]\fi}}%
    \ifdim .9\wd\@tempboxa>\textwidth
     \@ifundefined{PSTricksLoaded}{%
      \scalebox{0.9}[1]{\parbox{150mm}{\centering \@title
       \if@paper\unskip\nolinebreak\footnotemark[0]\fi}%
      }\par
     }%
     {%
      \scalebox{0.9 1}{\parbox{150mm}{\centering \@title
       \if@paper\unskip\nolinebreak\footnotemark[0]\fi}%
      }\par
     }%
    \else
     \@ifundefined{PSTricksLoaded}{%
      \scalebox{0.9}[1]{\box\@tempboxa}\par
     }%
     {%
      \scalebox{0.9 1}{\box\@tempboxa}\par
     }%
    \fi
   \fi
  \egroup
  \ifx\@subtitle\empty\else
   \vskip.5\Cvs
   \bgroup
    \centering
    \subtitle@font
    \@subtitle\par
   \egroup
  \fi
  \vskip\Cvs
  \bgroup
   \centering
   \J@author@font
   \output@Jauthorlist\par
  \egroup
  \vskip.25\Cvs
  \bgroup
   \centering
   \J@affi@font
   \J@affiliate\par
  \egroup
  \vskip1.25\Cvs
  \bgroup
   \centering
   \etitle@font
   \@etitle\par
  \egroup
  \ifx\@esubtitle\empty\else
   \vskip.15\Cvs
   \bgroup
    \centering
    \esubtitle@font
    \@esubtitle\par
   \egroup
  \fi
  \vskip.75\Cvs
  \bgroup
   \centering
   \E@author@font
   \output@Eauthorlist\par
  \egroup
  \vskip.65\Cvs
  \bgroup
   \centering
   \E@affi@font
   \E@affiliate\par
  \egroup
  \vskip1.35\Cvs
  \bgroup
   \ifvoid\abstract@box\else
    \hfil\box\abstract@box\par
   \fi
  \egroup
 }%
 %%
 \@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
  \boxmaxdepth\z@
  \lineskiplimit\z@
  \lineskip\z@
  \vbox to \@tempcnta\Cvs{%
   \box\@tempboxa
  \vss}%
 \egroup
 \vskip\Cvs
 \vskip\BelowTitleSep
}

\def\jnns@shortstack{\@ifnextchar[% ]
 \@jnns@shortstack{\@jnns@shortstack[c]}}
\def\@jnns@shortstack[#1]{%
  \leavevmode
  \vbox\bgroup
    %\baselineskip-\p@\lineskip 3\p@
    \let\mb@l\hss\let\mb@r\hss
    \expandafter\let\csname mb@#1\endcsname\relax
    \let\\\@stackcr
    \@ishortstack}

\def\Logo@box#1{%
 \vbox{\hsize=24mm
  \hbox to 24mm{\leaders
   \hbox{\vrule \@height 1mm \@depth \z@ \@width .1mm\hskip.2mm}\hfil}\par
   \if@english
    \nointerlineskip
    \vskip1.1mm
    \hfil
    {\bfseries\fontsize{16\@Q}\z@\selectfont #1}\par
    \nointerlineskip
    \vskip.9mm
   \else
    \nointerlineskip
    \vskip1.2mm
    \hfil
    {\bfseries\fontsize{15\@JQ}\z@\selectfont \kintou{5zw}{#1}}\par
    \nointerlineskip
    \vskip.8mm
   \fi
  \hbox to 24mm{\leaders
   \hbox{\vrule \@height 1mm \@depth \z@ \@width .1mm\hskip.2mm}\hfil}\par
 }%
}

\def\title{\@ifnextchar[% ]
 {\d@title}{\s@title}}
\def\d@title[#1]#2{%
 \gdef\head@title{#1}%
 \gdef\@title{\inhibitglue #2\inhibitglue}}
\def\s@title#1{%
 \gdef\head@title{\def\\{\unskip\ignorespaces}#1}%
 \gdef\@title{\inhibitglue #1\inhibitglue}}
\def\@title{}
\def\head@title{}

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

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

\def\esubtitle#1{%
 \gdef\@esubtitle{#1}}
\def\@esubtitle{}

\def\title@font{\Large}

\def\subtitle@font{\fontsize{15\@JQ}{20\@Q}\selectfont}
\def\J@author@font{\fontsize{15\@JQ}{20\@Q}\selectfont}
\def\J@affi@font{\small\baselineskip20\@Q}% 24H??

\def\etitle@font{\fontsize{16\@Q}{18H}\selectfont}% 13Q
\let\esubtitle@font\etitle@font
\def\E@author@font{\fontsize{14\@Q}{18H}\selectfont}% 12Q
\def\E@affi@font{\fontsize{12\@Q}{15H}\selectfont}

% mathTimePlus redefines \@fnsymbol.
\if@jnnsart %% 解説/連載
 \def\jnns@fnsymbol#1{%
  \ifcase#1 \or {*}1\or
   {*}2\or {*}3\or {*}4\or {*}5\or {*}6\or
   {*}7\or {*}8\or {*}9\or {*}10\or {*}11\or {*}12\or
   {*}13\or {*}14\or \#%
    \else\@ctrerr\fi
 }
 \def\jnns@noast@fnsymbol#1{%
  \ifcase#1 \or 1\or
   2\or 3\or 4\or 5\or 6\or
   7\or 8\or 9\or 10\or 11\or
   12\or 13\or 14\or \#%
    \else\@ctrerr\fi
 }
\else
 \def\jnns@fnsymbol#1{%\ensuremath{%
  \ifcase#1 {*}1\or %% 0 --> *1 / 1 --> *2 / 15 --> #
   {*}2\or {*}3\or {*}4\or {*}5\or {*}6\or
   {*}7\or {*}8\or {*}9\or {*}10\or {*}11\or {*}12\or
   {*}13\or {*}14\or {*}15\or \#%
    \else\@ctrerr\fi %}
 }
 \def\jnns@noast@fnsymbol#1{%\ensuremath{%
  \ifcase#1 1\or %% 0 --> *1 / 1 --> *2 / 15 --> #
   2\or 3\or 4\or 5\or 6\or
   7\or 8\or 9\or 10\or 11\or
   12\or 13\or 14\or 15\or \#%
    \else\@ctrerr\fi %}
 }
\fi

\newtoks\@authorlist
\newcount\@authorcnt
\newcount\@alcnt
\newcount\p@alcnt
 \p@alcnt15\relax
\newcount\total@mbr

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

\newif\if@noaffi \@noaffifalse

\def\get@al#1{%
 \def\al@none{none}\def\@tempaffi{#1}%
 \ifx\al@none\@tempaffi
  \global\@noaffitrue
 \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
       $^{\jnns@fnsymbol{\csname al@\get@label\endcsname}}$%
      \else
       $^{,\jnns@noast@fnsymbol{\csname al@\get@label\endcsname}}$%
      \fi
     }%
    }%
    {%
     \global\advance \@tempcnta \@ne
     \protected@xdef\plural@affi{\plural@affi
      \ifnum\@tempcnta=\@ne
       $^{\jnns@fnsymbol{\csname al@\get@label\endcsname}}$%
      \else
       $^{,\jnns@noast@fnsymbol{\csname al@\get@label\endcsname}}$%
      \fi
     }%
    }%
  }%
 \fi
}
\def\plural@affi{}

\def\name@expandafter#1#2{%
 \def\next{#1}%
 \edef\@tempa{#2}%
 \ifx\@tempa\@empty
  \jasjline@warning{author's name is empty!}%
  \def\@tempa{\@empty}%
 \fi
 \expandafter\next\@tempa}
\def\chk@name#1{%
 \name@expandafter\@chk@name{#1}\@nil}
\def\@chk@name#1#2\@nil{\def\get@oneword{#1}}

\def\fmt@Jan#1{% 
 \@temptokena{#1}%
 \def\hold@name{\the\@temptokena\unskip}%
 \chk@name{\the\@temptokena}%
 \setbox\@tempboxa\hbox{\get@oneword}%
  \ifdim \wd\@tempboxa<1zw
   %% English name
   \let\@authorname\hold@name
  \else
   \setbox\@tempboxa\hbox{\spaceskip100mm \hold@name}%
   \ifdim \wd\@tempboxa < 100mm
    \jnns@warning{Author's name "#1" doesn't have a space}%
    \let\@authorname\hold@name
   \else
    \setbox\@tempboxa\hbox{\hold@name}%
    \ifdim \wd\@tempboxa < 5zw
     \ifdim \wd\@tempboxa < 4zw
      \ifdim \wd\@tempboxa < 3zw
       %% 2字 (□ □)
       \def\@authorname{\hbox to 6.5zw{%
        \spaceskip\z@ plus 1fil
        \hold@name}}%
      \else
       %% 3字 (□ □□)
       \def\@authorname{\hbox to 6.5zw{%
        \spaceskip\z@ plus 1fil\kanjiskip1zw
        \hold@name}}%
      \fi
     \else
      %% 4字 (□□ □□ or □ □□□)
      \def\chk@first@second##1 ##2\@nil{%
       \global\setbox\@tempboxa\hbox{\ignorespaces ##1\unskip}%
       \global\setbox\@tempboxb\hbox{\ignorespaces ##2\unskip}}%
      \edef\@tempcheck{\expandafter\chk@first@second #1\@nil}\@tempcheck
      \@tempswafalse
      \ifdim\wd\@tempboxa>2.5zw
       \@tempswatrue
      \else
       \ifdim\wd\@tempboxb>2.5zw
        \@tempswatrue
       \fi
      \fi
      \if@tempswa
       %% 4字 (□ □□□)
       \def\@authorname{\hbox to 6.5zw{%
        \spaceskip\z@ plus 1fil\kanjiskip\z@
         \hold@name}}%
      \else
       %% 4字 (□□ □□)
       \def\@authorname{\hbox to 7zw{%
        \spaceskip\z@ plus 1fil\kanjiskip\z@ plus 1fil
         \hold@name}}%
      \fi
     \fi
    \else
     %% >= 5字 (□□□ □□)
     \def\@authornamesep{}%
     \expandafter\ifcat\get@oneword ア%
      \def\@authornamesep{\hskip1zw}%
     \fi
     \def\tmp@name##1 ##2\@nil{##1\@authornamesep ##2}%
     \edef\@authorname{\expandafter\tmp@name\the\@temptokena\@nil\unskip}%
    \fi
   \fi
  \fi
}

%%\authorentry{神経 太郎}{Taro Shinkei}{JNNS}
\def\authorentry#1#2#3{\@ifnextchar[% ]
 {\@aeP{#1}{#2}{#3}}{\@ae{#1}{#2}{#3}}}

\def\@ae#1#2#3{% 
 \@tempcnta\z@
 \advance \@authorcnt \@ne
 %% author label
 \get@al{#3}%
 %% author's name in Japanese
 \fmt@Jan{#1}%
 \expandafter\xdef\csname @Jauthorname\number\@authorcnt\endcsname{%
  \@authorname\kern\z@
  \noexpand\@gobble@affi\plural@affi\noexpand\@nil
 }%
 %% author's name in English
 \@temptokena{#2}%
 \expandafter\xdef\csname @Eauthorname\number\@authorcnt\endcsname{%
  \the\@temptokena\unskip\noexpand\comma@author
  \noexpand\@gobble@affi\plural@affi\noexpand\@nil
  }%
 %% authornames of running head
 \fmt@RHan{#1}%
 \global\total@mbr\@authorcnt
 \def\plural@affi{}%
}

\def\@gobble@affi#1\@nil{%
 \ifnum\@alcnt=\@ne
  \if@noaffi
   #1%
  \fi
 \else
  #1%
 \fi}

\newif\if@present@affi \@present@affifalse

\def\@aeP#1#2#3[#4]{% 12Q
 \@present@affitrue %%??
 \@tempcnta\z@
 \advance \@authorcnt \@ne
 %% author label
 \get@al{#3}%
 \@ifundefined{p@al@#4}%
  {\global\advance \p@alcnt \@ne
   \expandafter\xdef\csname p@al@#4\endcsname{\the\p@alcnt}}%
  {\relax}%
 %% author's name in Japanese
 \fmt@Jan{#1}%
 \expandafter\xdef\csname @Jauthorname\number\@authorcnt\endcsname{%
  \@authorname\kern\z@
   \noexpand\@gobble@affi\plural@affi\noexpand\@nil
    \present@affi{#4}}%
 %% author's name in English
 \@temptokena{#2}%
 \expandafter\xdef\csname @Eauthorname\number\@authorcnt\endcsname{%
  \the\@temptokena\unskip\noexpand\comma@author
   \noexpand\@gobble@affi\plural@affi\noexpand\@nil
    \present@affi{#4}}%
 %% authornames of running head
 \fmt@RHan{#1}%
 \global\total@mbr\@authorcnt
 \def\plural@affi{}%
}

\def\comma@author{%
 \if@comma@author
  ,%
 \fi
}
\def\present@affi#1{$^{,\jnns@fnsymbol{\csname p@al@#1\endcsname}}$}%%??

\def\output@Jauthorlist{%
 \ifx\assigned@bal\empty
  \align@author
  \expandafter\@breakJauthorline\expandafter{\align@number}%
 \else
  \@breakJauthorline{\assigned@bal}%
 \fi
 \@authorcnt\z@
 \loop\ifnum \@authorcnt < \total@mbr
  \advance \@authorcnt \@ne
  \leavevmode
  \csname @Jauthorname\number\@authorcnt\endcsname
   \csname @bal\number\@authorcnt\endcsname
 \repeat
}

%% 1-4   --> 1 row
%% 5-6   --> 2 rows 3/(2|3)
%% 7-8   --> 2 rows 4/(3|4)
%% 9     --> 3 rows 3/6/9
%% 10-12 --> 3 rows 4/4/(2|3|4)
\def\align@author{% 12Q
 \ifnum\total@mbr<5\relax
  \def\align@number{4}%
 \else
  \ifnum\total@mbr<7\relax
   \def\align@number{3}%
  \else
   \ifnum\total@mbr=9\relax
    \def\align@number{3,6}%
   \else
    \def\align@number{4,8,12,16}%
   \fi
  \fi
 \fi
}

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

\def\@breakJauthorline#1{% 
 \@for\@breakauthor:=#1\do{%
  \expandafter\gdef\csname @bal\@breakauthor\endcsname{，\\}%
 }%
 \expandafter\gdef\csname @bal\number\total@mbr\endcsname{}%
 \@authorcnt\z@
 \@tempcntb\total@mbr
 \advance \@tempcntb \m@ne
 \loop
  \ifnum \@authorcnt<\@tempcntb
   \advance \@authorcnt \@ne
   \@ifundefined{@bal\number\@authorcnt}%
    {%
     \expandafter\gdef\csname @bal\number\@authorcnt\endcsname{，}%
    }{}%
 \repeat
}

\newif\if@comma@author \@comma@authorfalse

\def\output@Eauthorlist{%
 \@authorcnt\z@
 \@tempcnta\total@mbr \advance \@tempcnta -\@ne
  \loop
   \ifnum \@authorcnt < \total@mbr
    \advance \@authorcnt \@ne 
    \ifnum \@authorcnt < \@tempcnta
     \@comma@authortrue
     \csname @Eauthorname\number\@authorcnt\endcsname\unskip\ 
     \csname E@bal\number\@authorcnt\endcsname
    \else
     \@comma@authorfalse
     \ifnum \@authorcnt=\total@mbr
      \csname @Eauthorname\number\@authorcnt\endcsname\unskip
     \else
      \csname @Eauthorname\number\@authorcnt\endcsname\unskip\ 
      \csname E@bal\number\@authorcnt\endcsname
      and\ \ignorespaces 
     \fi
    \fi
  \repeat
}

\def\breakEauthorline#1{%
 \@for\@breakauthor:=#1\do{%
  \expandafter\gdef\csname E@bal\@breakauthor\endcsname{\unskip\\}%
 }%
  \@authorcnt\z@
  \@tempcntb\total@mbr
  \advance \@tempcntb \m@ne
  \loop
   \ifnum \@authorcnt<\@tempcntb
    \advance \@authorcnt \@ne
    \@ifundefined{E@bal\number\@authorcnt}%
     {%
      \expandafter\gdef\csname E@bal\number\@authorcnt\endcsname{\relax}%
     }{}%
  \repeat
}

%%\affiliate[JNNS]{日本神経回路学会}
%% {The Acoustical Society of Japan}
%% {〒113--0196 福岡県北九州市若松区ひびきの2--4}
\newcount\chk@alcnt
\newcount\chk@p@alcnt

\def\affiliate[#1]#2#3#4{%
  \advance \chk@alcnt \@ne
  \@ifundefined{al@#1}%
   {\expandafter\def\csname al@#1\endcsname{1}%
    \jnns@warning{Check the "#1" label, it does not correspond to
      ^^J\@spaces any labels in \string\authorentry\space command}%
   }{}%
  \@tempcntb\chk@alcnt
  \advance \@tempcntb \m@ne
  \protected@xdef\J@affiliate{%
   \J@affiliate
   \ifx\J@affiliate\empty\else
    \ifnum\@tempcntb<\@alcnt\nobreak ，%
    \csname @breakjaffi\number\@tempcntb\endcsname
    \fi
   \fi
    \mbox{#2%
     \if@xiiiQ %% 巻頭言
     \else
      \kern0pt$^{\jnns@fnsymbol{\chk@alcnt}}$%
     \fi
    }%
  }%
  \protected@xdef\E@affiliate{%
   \E@affiliate
   \ifx\E@affiliate\empty\else
    \par
   \fi
   \mbox{#3\kern0pt$^{\jnns@fnsymbol{\chk@alcnt}}$}%
  }%
  \protected@xdef\J@address{%
   \J@address
   \protect\footnotetext[\csname al@#1\endcsname]{#4}}%
}
\def\J@affiliate{}
\def\E@affiliate{}
\def\J@address{}

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

\def\breakJaffiliate#1{%
 \@for\@break@ja:=#1\do{%
  \expandafter\gdef\csname @breakjaffi\@break@ja\endcsname{\\}%
 }%
 \@tempcnta\z@
 \loop\ifnum\@tempcnta<\total@mbr
  \advance \@tempcnta \@ne
   \@ifundefined{@breakjaffi\number\@tempcnta}%
    {\expandafter\gdef\csname @breakjaffi\number\@tempcnta\endcsname{%
     \relax}}
    {\relax}%
 \repeat
}

\def\fmt@RHan#1{%
 \ifnum\@authorcnt<\thr@@ %% >
  \expandafter\newtoks\csname @toks\romannumeral\@authorcnt\endcsname
  \csname @toks\romannumeral\@authorcnt\endcsname{#1}%
  \expandafter\xdef\csname @Rauthorname\number\@authorcnt\endcsname{%
   \noexpand\the\csname @toks\romannumeral\@authorcnt\endcsname}%
 \fi
}

\def\fmt@runninghead{%
  \ifnum\total@mbr=\z@
   \let\an@head\relax
  \else
   \ifnum\total@mbr=\@ne
    \fmt@Rauthorname{\csname @Rauthorname1\endcsname}%
    \xdef\an@head{%
     \tmp@r@author\hbox to 1zw{\hss ：\hss}}%
   \else
    \ifnum\total@mbr=\tw@
     \fmt@Rauthorname{\csname @Rauthorname1\endcsname}%
     \xdef\an@head{\tmp@r@author\hbox to 1zw{\hss ・\hss}}%
     \fmt@Rauthorname{\csname @Rauthorname2\endcsname}%
     \xdef\an@head{\an@head
      \tmp@r@author\hbox to 1zw{\hss ：\hss}}%
    \else
     \fmt@Rauthorname{\csname @Rauthorname1\endcsname}%
     \xdef\an@head{%
      \tmp@r@author\hbox to 1zw{\hss ・\hss}他\hbox to 1zw{\hss ：\hss}}%
    \fi
   \fi
  \fi
}
\def\an@head{}

\def\fmt@Rauthorname#1{%
 \setbox0\hbox{#1}%
 \ifdim \wd0<3.5zw
  \gdef\tmp@r@author{\spaceskip1zw #1}%
 \else
  \gdef\tmp@r@author{\spaceskip.00001zw #1}%
 \fi
}
\def\tmp@r@author{}

\def\@makeFWtitle{%
 \newpage\null
 \def\@type@FW{巻頭言}%
 \ifx\@type@fpaper\@type@FW %% 巻頭言
  \bgroup
   \parindent\z@
   \boxmaxdepth\z@
   \lineskiplimit\z@
   \lineskip\z@
   \vbox to 10\Cvs{%% 10 %%??
    \vskip-\topskip
    \FW@eps
    \Logo@box{\@type@fpaper}\par
    \bgroup
     \centering
     {\title@font \@title\par}%
    \egroup
    \vss
    \hfill
    {\normalsize \J@affiliate\hskip2zw}%
    {\J@author@font \output@Jauthorlist\hspace*{1zw}}%
   \vss}\par
  \egroup
 \else %% 追悼
  \bgroup
   \parindent\z@
   \boxmaxdepth\z@
   \lineskiplimit\z@
   \lineskip\z@
   \vbox to 5\Cvs{%
    \vskip-\topskip
    \Logo@box{\@type@fpaper}\par
    \vss
    \centering
    {\title@font \@title\par}%
   \vss}\par
  \egroup
 \fi
}

\def\FW@eps{%
 \if@cameraready
  \leavevmode
  \smash{\lower35mm\hbox to \z@{%%?? 35mm
   \includegraphics{fw.eps}\hss}}%
 \else
  \leavevmode
  \smash{\lower35mm\hbox to \z@{%
   \includegraphics{a1.eps}\hss}}%
 \fi
}

\if@MemWr %% \fmt@Jan の再定義
\def\fmt@Jan#1{%
 \xdef\@authorname{\spaceskip1zw #1}%
}
\fi

%%%%%

\newbox\abstract@box
\def\abstract{%
 \global\setbox\abstract@box\hbox\bgroup
  \begin{minipage}{125mm}
   \if@Commentary %% 解説 --> \if@jnnsart でも OK?
    \small\baselineskip18\@Q
    \hfil {\bfseries \abstractname}\par
   \else
    \footnotesize\baselineskip15\@Q
   \fi
   \parindent1zw
   \ignorespaces
}
\def\endabstract{%
   \unskip\ignorespaces
  \end{minipage}%
 \egroup
}

\newdimen\BelowTitleSep \BelowTitleSep\z@

\def\received#1#2#3{%
 \gdef\@received{#1年#2月#3日}%
 \gdef\@received@year{#1}%
}
\def\@received{？？}
\def\@received@year{}
%%\newif\if@accepted@mark \@accepted@markfalse
\def\accepted#1#2#3{%
 %%\global\@accepted@marktrue
 \def\@accepted@year{#1}%
 \ifx\@received@year\@accepted@year
  \gdef\@accepted{#2月#3日}%
 \else
  \gdef\@accepted{#1年#2月#3日}%
 \fi
}
\def\@accepted{？？}
\def\foot@acceptance{% reads \jnns@fnsymbol
 %%\let\@fnsymbol\jnns@fnsymbol
 \footnotetext[0]{\xkanjiskip .15zw plus 1.0pt minus 1.0pt
  \inhibitglue \@received 受付，
  \@accepted 受理}%
}



\setcounter{secnumdepth}{5}
%%\newcounter{part}
\newcounter{section}
\newcounter{subsection}[section]
\newcounter{subsubsection}[subsection]
\newcounter{paragraph}[subsubsection]
\newcounter{subparagraph}[paragraph]
%%\renewcommand{\thepart}{\@Roman\c@part}
\renewcommand{\thesection}{\@arabic\c@section}
\renewcommand{\thesubsection}{\thesection.\@arabic\c@subsection}
\renewcommand{\thesubsubsection}{%
   \thesubsection.\@arabic\c@subsubsection}
\renewcommand{\theparagraph}{%
   \thesubsubsection.\@arabic\c@paragraph}
\renewcommand{\thesubparagraph}{%
   \theparagraph.\@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}%
}

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

%% \@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
      \sec@fmt{\inhibitglue #8}%
     \else
      \@hangfrom{\hskip #3\relax{\secnum@font \@svsec}}%
       \interlinepenalty\@M\inhibitglue #8\@@par
     \fi
    }%
   \endgroup
  \fi
  \@xsect{#5}%
}

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

\newcount\@tmpfncnt
\def\sec@fmt#1{%
 \noindent
 \@tmpfncnt\c@footnote
 \setbox\@tempboxa\hbox{{\secnum@font \@svsec}\jnns@shortstack{#1}}%
 \c@footnote\@tmpfncnt
 \if@english
  \ifdim \wd\@tempboxa<\hsize
   \hfil \parbox{\wd\@tempboxa}{\@hangfrom{\secnum@font \@svsec}#1}\@@par
  \else
   \@hangfrom{\secnum@font \@svsec}\interlinepenalty\@M #1\@@par
  \fi
 \else
  \ifdim \wd\@tempboxa<\hsize
   \setbox\@tempboxb\hbox{#1}% 
   \c@footnote\@tmpfncnt
   \ifdim\wd\@tempboxb<6.5zw
    \def\@makefnmark{\hbox to \z@{\@textsuperscript{\normalfont
     \@thefnmark}\hss}}%
    \hfil
    {\secnum@font \@svsec}\kintou{7zw}{#1\hfil}%
   \else
    \hfil \parbox{\wd\@tempboxa}{\@hangfrom{\secnum@font \@svsec}#1}\@@par
   \fi
  \else
   \@hangfrom{\secnum@font \@svsec}\interlinepenalty\@M #1\@@par
  \fi
 \fi
}

%% \@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{% <
     \ifdim \@tempskipa>\z@
      \let\@svsec\@empty
      \noindent
      \sec@fmt{\inhibitglue #5}%
     \else
      \@hangfrom{\hskip #1}%
       \interlinepenalty\@M\inhibitglue #5\@@par
     \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
}

%\if@cameraready
% \def\secnum@font{\rmfamily\bfseries\fontsize{14\@Q}{\Cvs}\selectfont}
% \def\sec@font{\small\gtfamily\sffamily}%%??
% \def\subsec@font{\small\gtfamily\sffamily}
% \def\subsubsec@font{\small\gtfamily\sffamily}
% \def\para@font{\small}
% \def\subpara@font{\small}
%\else
 \def\secnum@font{\rmfamily\bfseries\fontsize{14\@Q}{\Cvs}\selectfont}
 \def\sec@font{\small\gtfamily\sffamily}
 \def\subsec@font{\small\gtfamily\sffamily}
 \def\subsubsec@font{\small\gtfamily\sffamily}
 \def\para@font{\small}
 \def\subpara@font{\small}
%\fi

\newcommand{\section}{\@startsection{section}{1}{\z@}%
   {.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}%
   {\z@ \@plus.3\Cdp \@minus.1\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}}

\newcommand{\appendix}{\par
 \section*{\appendixname}
 \setcounter{section}{1}%
 \setcounter{subsection}{0}%
 \renewcommand{\thesection}{\@Alph\c@section}
 \renewcommand{\thesubsection}{\thesection.\@arabic\c@subsection}
 \renewcommand{\thesubsubsection}{\thesubsection.\@arabic\c@subsubsection}
 \setcounter{equation}{0}%
 \renewcommand{\theequation}{\@Alph\c@section.\@arabic\c@equation}
% \setcounter{figure}{0}%
% \setcounter{table}{0}%
 \renewcommand{\thefigure}{\thesection.\@arabic\c@figure}
 \renewcommand{\thetable}{\thesection.\@arabic\c@table}
}

\if@twocolumn
  \setlength\leftmargini {2zw}% 2em
\else
  \setlength\leftmargini {2zw}% 2.5em
\fi
\setlength\leftmarginii  {2zw}
\setlength\leftmarginiii {2zw}
\setlength\leftmarginiv  {2zw}
\if@twocolumn
  \setlength\leftmarginv {1zw}
  \setlength\leftmarginvi{1zw}
\else
  \setlength\leftmarginv {1zw}
  \setlength\leftmarginvi{1zw}
\fi
\setlength  \labelsep  {1zw}
\setlength  \labelwidth{\leftmargini}
\addtolength\labelwidth{-\labelsep}
\@beginparpenalty -\@lowpenalty
\@endparpenalty   -\@lowpenalty
\@itempenalty     -\@lowpenalty

\renewcommand{\theenumi}{\@arabic\c@enumi}
\renewcommand{\theenumii}{\@alph\c@enumii}
\renewcommand{\theenumiii}{\@roman\c@enumiii}
\renewcommand{\theenumiv}{\@Alph\c@enumiv}
\newcommand{\labelenumi}{\theenumi.}
\newcommand{\labelenumii}{\theenumii.}
\newcommand{\labelenumiii}{\theenumiii.}
\newcommand{\labelenumiv}{\theenumiv.}
\renewcommand{\p@enumii}{\theenumi}
\renewcommand{\p@enumiii}{\theenumi\theenumii}
\renewcommand{\p@enumiv}{\p@enumiii\theenumiii}

\renewenvironment{enumerate}
  {\ifnum \@enumdepth >3\relax\@toodeep\else
   \advance\@enumdepth\@ne
   \edef\@enumctr{enum\romannumeral\the\@enumdepth}%
   \list{\csname label\@enumctr\endcsname}{%
         \topsep\z@\parsep\z@\partopsep\z@\itemsep\z@
         \settowidth{\labelwidth}{99.}%
         \labelsep.5zw
         \leftmargin\labelwidth
         \advance\leftmargin \labelsep
         \listparindent1zw
         \clubpenalty\z@
         \widowpenalty\z@
         \usecounter{\@enumctr}%
         \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newcommand{\labelitemi}{\leavevmode
 \raise.1zh\hbox to 1zw{\hss \textbullet\hss}}
\newcommand{\labelitemii}{\leavevmode
 \raise.1zh\hbox to 1zw{\hss $\circ$\hss}}
\newcommand{\labelitemiii}{\leavevmode
 \raise.1zh\hbox to 1zw{\hss\textasteriskcentered\hss}}
\newcommand{\labelitemiv}{\leavevmode
 \raise.1zh\hbox to 1zw{\hss\textperiodcentered\hss}}

\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@
         \leftmargin1zw
         \listparindent1zw
         \clubpenalty\z@
         \widowpenalty\z@
         \def\makelabel##1{\hss\llap{##1}}}%
   \fi}{\endlist}

\newenvironment{description}
  {\list{}{%
%%   \labelwidth\z@ \itemindent-\leftmargin
%%   \iftdir
%%     \leftmargin\leftskip \advance\leftmargin3\Cwd
%%     \rightmargin\rightskip
%%     \labelsep=1zw \itemsep\z@
%%     \listparindent\z@ \topskip\z@ \parskip\z@ \partopsep\z@
%%   \fi
   \leftmargin1zw
   \labelwidth=\leftmargin
   \labelsep1zw
   \listparindent1zw
   \advance \labelwidth by -\labelsep
   \itemsep\z@\topsep\z@\parsep\z@\partopsep\z@
   \let\makelabel\descriptionlabel
  }}{\endlist}
\newcommand{\descriptionlabel}[1]{%
%%   \hspace\labelsep\normalfont\bfseries #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
}

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

\newenvironment{verse}
  {\let\\\@centercr
   \list{}{\itemsep\z@
           \topsep\@hlskip\parsep\z@\partopsep\z@
           \itemindent -1zw
           \listparindent\itemindent
           \rightmargin\leftmargin \advance\leftmargin 1zw}%
           \item\relax}{\endlist}

\newenvironment{quotation}
  {\list{}{\listparindent 1zw
           \itemindent\listparindent
           \rightmargin\leftmargin
           \topsep\@hlskip\parsep\z@\partopsep\z@
           }%
           \item\relax}{\endlist}

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

\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\baselineskip
\def\verbatimsize{\small}

\def\@verbatim{%
 \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}%
}

%% \def\verbatim@font{\normalfont\ttfamily}

%% 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@ 
      %% ページ最下部で section + list の list の一行目で改頁させるため
    \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\hsize
                \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\hsize
                \abovecaptionskip\z@\belowcaptionskip1.5mm\@dblfloat{table}}
               {\end@dblfloat}

\def\@floatboxreset {%
 \reset@font
 \small\tabcolsep.5zw
 \@setminipage
}

\def\floatenv{\let\center\Center
%% \def\verbatimsize{\small}%
}

\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
   \small
   \@makecaption{\csname fnum@#1\endcsname}{\ignorespaces #3}\par
 \endgroup}

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

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

\long\def\@makecaption#1#2{%
 \vskip\abovecaptionskip
 \setbox\@tempboxa\hbox{{\capnum@font #1}\hskip1zw\jnns@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 #2}%
  \else
   \hfil\parbox[t]{\wd\@tempboxa}{\hangindent\wd\@tempboxb 
    {\capnum@font #1}\hskip1zw #2}%
  \fi
 \else
  \ifdim \wd\@tempboxa > \capwidth
   \hfil\parbox[t]{\capwidth}{\hangindent\wd\@tempboxb 
    {\capnum@font #1}\hskip1zw #2}%
  \else
   \hbox to\hsize{\hss\box\@tempboxa\hss}%
  \fi
 \fi
 \vspace{\belowcaptionskip}%
}

\arraycolsep 5\p@
\tabcolsep .5zw
\arrayrulewidth .12mm
\doublerulesep 2\p@
\tabbingsep \labelsep

\skip\@mpfootins = \skip\footins
\setlength\fboxsep{3\p@}
\setlength\fboxrule{.4\p@}
\renewcommand{\theequation}{\@arabic\c@equation}
\if@enablejfam
  \DeclareSymbolFont{mincho}{JY1}{mc}{m}{n}
  \DeclareSymbolFontAlphabet{\mathmc}{mincho}
  \SetSymbolFont{mincho}{bold}{JY1}{gt}{m}{n}
  \DeclareMathAlphabet\mathgt{JY1}{gt}{m}{n}
  \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
  \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}
  \jfam\symmincho
\else
  \DeclareRobustCommand{\mathmc}{%
    \@latex@error{Command \noexpand\mathmc invalid with\space
       `disablejfam' class option.}\@eha
  }
  \DeclareRobustCommand{\mathgt}{%
    \@latex@error{Command \noexpand\mathgt invalid with\space
       `disablejfam' class option.}\@eha
  }
\fi
\DeclareOldFontCommand{\mc}{\normalfont\mcfamily}{\mathmc}
\DeclareOldFontCommand{\gt}{\normalfont\gtfamily}{\mathgt}
\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
\DeclareRobustCommand*{\cal}{\@fontswitch\relax\mathcal}
\DeclareRobustCommand*{\mit}{\@fontswitch\relax\mathnormal}

\def\acknowledgements{\par
 \addpenalty{-\@highpenalty}%
 \if@english
  \noindent
  \hfil {\small\bfseries Acknowledgements}\par
 \else
  {\small\bfseries 謝\hskip1zw 辞}\hskip1zw
 \fi
}

\newdimen\bibindent
\setlength\bibindent{1.5em}
\newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}

\newenvironment{thebibliography}[1]
{\section*{\refname}%
 \small
 \baselineskip15\@Q
   \list{\@biblabel{\@arabic\c@enumiv}}%
        {%
         \topsep\z@\partopsep\z@\parsep\z@\itemsep\z@\parskip\z@
         \settowidth\labelwidth{\@biblabel{#1}}%
         \leftmargin\labelwidth
         \advance \leftmargin 1zw % \labelsep=1zw
         \@openbib@code
         \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}

\def\@biblabel#1{%(
 #1)}
\let\@openbib@code\@empty

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

\def\@makefnmark{\hbox{\@textsuperscript{\normalfont\@thefnmark}}}

\newcommand\@makefntext[1]{%
 \parindent3zw
 \noindent
 \@hangfrom{\hbox to 2zw{\hss\@makefnmark\,}}#1}

%% /usr/local/teTeX/share/texmf/tex/latex/base/latex.ltx
%%\@definecounter{footnote}
%%\def\thefootnote{\@arabic\c@footnote}
%%\@definecounter{mpfootnote}
%%\def\thempfootnote{\itshape\@alph\c@mpfootnote}
%%\def\@makefnmark{\hbox{\@textsuperscript{\normalfont\@thefnmark}}}
%%\DeclareRobustCommand*\textsuperscript[1]{%
%%  \@textsuperscript{\selectfont#1}}
%%\def\@textsuperscript#1{%
%%  {\m@th\ensuremath{^{\mbox{\fontsize\sf@size\z@#1}}}}}

\def\thefootnote{\fnsymbol{footnote}}
\def\@fnsymbol#1{\ensuremath{%
 \ifcase#1\or X*X\or \dagger\or \ddagger\or
  \mathchar "278\or \mathchar "27B\or \|\or **\or \dagger\dagger
   \or \ddagger\ddagger \else\@ctrerr\fi}}

%\def\@eqnnum{{\normalfont \normalcolor (\theequation)\hspace*{1zw}}}

\def\jnns@InListEnv{%
 \ifdim\topsep=\z@
  \@listi
 \fi
}

%% from fleqn.clo
%%   /usr/local/teTeX/share/texmf/tex/latex/base/fleqn.clo
\ProvidesFile{fleqn.clo}
        [1998/08/17 v1.1c Standard LaTeX option
                                   (flush left equations)]
\newdimen\mathindent
\AtEndOfClass{\mathindent2zw}% 2zw
\renewcommand\[{\relax
                \ifmmode\@badmath
                \else
                  \jnns@InListEnv
                  \begin{trivlist}%
                    \@beginparpenalty\predisplaypenalty
                    \@endparpenalty\postdisplaypenalty
                    \item[]\leavevmode
                    \hb@xt@\linewidth\bgroup $\m@th\displaystyle %$
                      \hskip\mathindent\bgroup
                \fi}
\renewcommand\]{\relax
                \ifmmode
                      \egroup $\hfil% $
                    \egroup
                  \end{trivlist}%
                \else \@badmath
                \fi}
\renewenvironment{equation}%
    {\@beginparpenalty\predisplaypenalty
     \@endparpenalty\postdisplaypenalty
     \refstepcounter{equation}%
     \jnns@InListEnv
     \trivlist \item[]\leavevmode
       \hb@xt@\linewidth\bgroup $\m@th% $
         \displaystyle
         \hskip\mathindent}%
        {$\hfil % $
         \displaywidth\linewidth\hbox{\@eqnnum}%
       \egroup
     \endtrivlist}
\renewenvironment{eqnarray}{%
    \stepcounter{equation}%
    \def\@currentlabel{\p@equation\theequation}%
    \global\@eqnswtrue\m@th
    \global\@eqcnt\z@
    \tabskip\mathindent
    \let\\=\@eqncr
    \jnns@InListEnv
    \setlength\abovedisplayskip{\topsep}%
    \ifvmode
      \addtolength\abovedisplayskip{\partopsep}%
    \fi
    \addtolength\abovedisplayskip{\parskip}%
    \setlength\belowdisplayskip{\abovedisplayskip}%
    \setlength\belowdisplayshortskip{\abovedisplayskip}%
    \setlength\abovedisplayshortskip{\abovedisplayskip}%
    $$\everycr{}\halign to\linewidth% $$
    \bgroup
      \hskip\@centering
      $\displaystyle\tabskip\z@skip{##}$\@eqnsel&%
      \global\@eqcnt\@ne \hskip.8\arraycolsep \hfil${##}$\hfil&%
      \global\@eqcnt\tw@ \hskip.8\arraycolsep
        $\displaystyle{##}$\hfil \tabskip\@centering&%
      \global\@eqcnt\thr@@
        \hb@xt@\z@\bgroup\hss##\egroup\tabskip\z@skip\cr}%
      {\@@eqncr
    \egroup
    \global\advance\c@equation\m@ne$$% $$
    \@ignoretrue
    }
%\endinput

\def\@begintheorem#1#2{%
 \topsep.5\baselineskip\parsep\z@\partopsep\z@\itemsep\z@\labelsep1zw
 \trivlist
   \item[\hskip \labelsep{\bfseries #1\ #2}]}% \itshape
\def\@opargbegintheorem#1#2#3{%
 \topsep.5\baselineskip\parsep\z@\partopsep\z@\itemsep\z@\labelsep1zw
 \trivlist
   \item[\hskip \labelsep{\bfseries #1\ #2（#3）\inhibitglue}]}% \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{\prepartname}{第}
%%\newcommand{\postpartname}{部}
%%\newcommand{\contentsname}{目 次}
%%\newcommand{\listfigurename}{図 目 次}
%%\newcommand{\listtablename}{表 目 次}
\newcommand{\refname}{参考文献}
%%\newcommand{\indexname}{索 引}
\newcommand{\figurename}{Fig.}
\newcommand{\tablename}{Table}
\if@english
 \newcommand{\appendixname}{Appendix}
\else
 \newcommand{\appendixname}{付録}
\fi
\newcommand{\abstractname}{概要}

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

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

\let\org@cite\@cite
\def\cite{\@ifnextchar[% ]
 {\@tempswatrue\let\@cite\org@cite\@citex}
 {\@tempswafalse\let\@cite\org@cite\@citex[]}}
\def\Cite{\@ifnextchar[% ]
 {\@tempswatrue\let\@cite\@Cite\@citex}
 {\@tempswafalse\let\@cite\@Cite\@citex[]}}

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

\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

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

\hbadness4000
\vbadness10001
\tolerance4000\pretolerance\m@ne
\clubpenalty\z@
\widowpenalty\z@
\displaywidowpenalty\z@
\interdisplaylinepenalty\z@ % 100 
\predisplaypenalty\z@       % 1000

%% <local definitions>
%%\def\figref{\@ifstar
%% {\nf@figref}{\bf@figref}}
%%\def\bf@figref#1{%
%% \@ifundefined{BF@#1}%
%%  {\expandafter\def\csname BF@#1\endcsname{}%
%%   \leavevmode
%%   {\gtfamily\sffamily \figurename\nobreak\ref{#1}}}%
%%  {\figurename\nobreak\ref{#1}}%
%%}
%%\def\nf@figref#1{\figurename\nobreak\ref{#1}}

%%\def\tabref{\@ifstar
%% {\nf@tabref}{\bf@tabref}}
%%\def\bf@tabref#1{%
%% \@ifundefined{BF@#1}%
%%  {\expandafter\def\csname BF@#1\endcsname{}%
%%   \leavevmode
%%   {\gtfamily\sffamily \tablename\nobreak\ref{#1}}}%
%%  {\tablename\nobreak\ref{#1}}%
%%}
%%\def\nf@tabref#1{\tablename\nobreak\ref{#1}}

\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{\penalty10000\leavevmode\raise.1zh
 \hbox to 1zw{\hss\protect\resizebox{.95zw}{!}{---}\hss}}
\def\hdash{\penalty10000\leavevmode\raise.1zh\hbox{--}}
\def\MARU#1{\raisebox{0.1zh}%
 {{\normalfont\ooalign{\hfil\lower.168ex\hbox{#1}\hfil\crcr\mathhexbox20D}}}}
\def\FRAC#1#2{\leavevmode\kern-.1em
  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
\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
 \hbox{\kanjiskip=\fill
  \vbox{\hbox to \dimen0{\tiny \hfil#2\hfil}%
  \nointerlineskip \hbox to \dimen0{\hfil#1\hfil}}}}
\def\RN#1{\uppercase\expandafter{\romannumeral#1}}
\def\QED{{\unskip\nobreak\hfil\penalty50
 \hskip1zw\hbox{}\nobreak\hfil \hbox{$\Box$\hskip1zw}
 \parfillskip\z@ \finalhyphendemerits\z@\par}}

%%\def\Hline{\noalign{\hrule height .3mm}}
%% </local definitions>

\AtBeginDocument{%
 \if@xiiiQ
  \normalsize
 \else
  \small
 \fi
 \if@jnnsart@ne@al %% 解説/連載などのときに所属が一か所
  \def\jnns@ast@fnsymbol#1{%
   \ifcase#1 \or {*}\or {*}\or {*}\or {*}\or {*}\or {*}\or {*}\or {*}\else
    \@ctrerr\fi
  }%
  \let\jnns@fnsymbol\jnns@ast@fnsymbol
 \fi
 %% pstricks
 %\@ifundefined{psset}{}{\psset{unit=1mm}}%
 %% 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{%
 \if@MemWr
  \hfill{\normalsize \J@affiliate}\par
  \hfill{\J@author@font
   \kanjiskip\z@
   \output@Jauthorlist}\par
 \fi
 \immediate\write\@auxout
  {\string\newlabel{jnns@lastpage}{{\@currentlabel}{\thepage}}}%
}

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

\endinput

%%% Local Variables: 
%%% TeX-master: "/work/jnns/class1.0/readme.tex"
%%% End: 

%% 未対応
*. 英文の体裁確認
*. ラベルは違うが住所が同じものは番号を束ねる Vol.10, No.3 p.123



%% 質問
*. 英語の目次は？

*. 名前のスペース タイトル部と柱も
   □ □
   □□ □
   □□□ □
   □□□ □□

summary の幅が違う
  例えば，Vol.10, No.3, p.123 と Vol.9, No.4, p.234

著者名の右の # の意味
  例えば，Vol.10, No.3, p.147 の「徳高平蔵」
          Vol.10, No.2, p.62 の「亀田成司」

  現所属? 現所属の明示が必要な人が二人いたら #1，#2 ?

「解説」の所属
  例えば，Vol.9, No.4, p.250 の
    東京大学大学院教育学研究科*，科学技術進行事業団
  と，Vol.10, No.4, p.189 の
    理化学研究所  脳科学総合研究センター*
  の違いは何か．