%% File `jpfr.sty'.
%% Style for Rapid Communications, Journal of Plasma and Fusion Research
%% The Japan Society of Plasma Science and Nuclear Fusion Research
%% http://www.jspf.or.jp
%% Author: Haruhiko Okumura <okumura@edu.mie-u.ac.jp>

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{jpfr}[2005/11/24 PFR]

\renewcommand\normalsize{%
%%% NOTE: text lines are separated by 4.48mm.
  \@setfontsize\normalsize\@xpt{4.48mm}
  \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@
  \abovedisplayshortskip \z@ \@plus3\p@
  \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@}
\normalsize

%%% NOTE: text width (including column separation) is 174mm (= 82*2+10)
\setlength\textwidth {174mm}
%%% NOTE: column separation is 10mm.
\setlength\columnsep {10mm}
%%% NOTE: text paragraph indentation is 6.5mm.
\setlength\parindent {6.5mm}
\setlength\headheight{10pt}
\setlength\headsep   {5mm}
\setlength\footskip  {0pt}

%%% NOTE: first and last (56th) lines are separated by 246.4mm
%
\setlength\textheight  {246.4mm} % 4.48mm * 55

\addtolength\textheight{\topskip}
\addtolength\textheight{0.1\p@}

\setlength\topmargin{\paperheight}
\addtolength\topmargin{-\textheight}
\addtolength\topmargin{-\headheight}
\addtolength\topmargin{-\headsep}
\addtolength\topmargin{-\footskip}
\setlength\topmargin{0.5\topmargin}
\addtolength\topmargin{-1in}

%-----
% Modified on 29 Jan. 2008 by A.Takayama
\addtolength\topmargin{-5mm}
%-----

\setlength{\oddsidemargin}{\paperwidth}
\addtolength{\oddsidemargin}{-\textwidth}
\setlength{\oddsidemargin}{.5\oddsidemargin}
\addtolength{\oddsidemargin}{-1in}
\setlength{\evensidemargin}{\oddsidemargin}

\newcommand*{\affiliation}[1]{\gdef\@affiliation{#1}}
\newcommand*{\keywords}[1]{\gdef\@keywords{#1}}
\newcommand*{\DOI}[1]{\gdef\@DOI{#1}}
\newcommand*{\email}[1]{\gdef\authors@mail{#1}}
% \newcommand*{\email}[1]{{%
%   \def\@makefntext{\parindent1em \noindent}
%   \footnotetext[0]{\itshape author's e-mail:\ #1}}}

\renewcommand{\maketitle}{\par
  \begingroup
    \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
    \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
    \long\def\@makefntext##1{\parindent 1em\noindent
            \hb@xt@1.8em{%
                \hss\@textsuperscript{\normalfont\@thefnmark}}##1}%
    \if@twocolumn
      \ifnum \col@number=\@ne
        \@maketitle
      \else
        \twocolumn[\@maketitle]%
      \fi
    \else
      \newpage
      \global\@topnum\z@
      \@maketitle
    \fi
%   \thispagestyle{empty}%
    \@thanks
  \endgroup
  \setcounter{footnote}{0}%
  \global\let\thanks\relax
  \global\let\maketitle\relax
  \global\let\@thanks\@empty
  \global\let\@author\@empty
  \global\let\@affiliation\@empty
  \global\let\@date\@empty
% \global\let\@title\@empty
  \global\let\title\relax
  \global\let\author\relax
  \global\let\date\relax
  \global\let\and\relax
  \ifx\authors@mail\@undefined\else{%
    \def\@makefntext{\parindent1em \noindent}
    \footnotetext[0]{\itshape author's e-mail:\ \authors@mail}%
  }\fi
  \global\let\authors@mail\@undefined}
\def\@maketitle{%
  \newpage\null
%-----
% Modified on 29 Jan. 2008 by A.Takayama
  \vspace*{-7mm}
%-----
  \begin{center}
    \let\footnote\thanks
    \def\sup##1{$^{##1)}$}
    \ifx\@title\@undefined\else
      {\LARGE\bfseries\@title\par}\fi
%%% NOTE: separation between title and author
    \vskip 12pt
    \ifx\@author\@undefined\else
      {\large \@author \par}
    \fi
    \ifx\@affiliation\@undefined\else
%%% NOTE: separation between author and affiliation
      \vskip 3pt
      {\itshape\@affiliation}\par
    \fi
    \ifx\@date\@undefined\else
%%% NOTE: separation between affiliation and date
      \vskip 3pt
      \@date
    \fi
  \end{center}\par
%%% NOTE: separation between date and abstract
  \vskip 6pt
  \centerline{\box\@abstractbox}
  \ifx\@keywords\@undefined\else
    \vskip\baselineskip\vskip-8pt\relax
    \centerline{%
      \parbox{158mm}{\hangindent6.5mm
        Keywords: \@keywords}}%
  \fi
%%% NOTE: preferable: \href{http://dx.doi.org/\@DOI}{\@DOI}
  \ifx\@DOI\@undefined\else
    \vskip\baselineskip\vskip-8pt\relax
    \centerline{\parbox{158mm}{DOI: \@DOI}}%
  \fi
%%% NOTE: separation between keywords and text
  \vskip 12pt}

\newbox\@abstractbox
\renewenvironment{abstract}{%
  \global\setbox\@abstractbox\hbox\bgroup
%%% NOTE: abstract width is 158mm, indent is 6.5mm
  \begin{minipage}{158mm}\parindent6.5mm\relax}%
  {\end{minipage}\egroup}

\renewcommand\section{\@startsection {section}{1}{\z@}%
                                   {-3.5ex \@plus -1ex \@minus -.2ex}%
                                   {2.3ex \@plus.2ex}%
                                   {\normalfont\Large}}
\renewcommand\subsection{\@startsection{subsection}{2}{\z@}%
                                     {-3.25ex\@plus -1ex \@minus -.2ex}%
                                     {1.5ex \@plus .2ex}%
                                     {\normalfont\large}}
\renewcommand\subsubsection{\@startsection{subsubsection}{3}{\z@}%
                                     {-3.25ex\@plus -1ex \@minus -.2ex}%
                                     {1.5ex \@plus .2ex}%
                                     {\normalfont\normalsize}}
\renewcommand\paragraph{\@startsection{paragraph}{4}{\z@}%
                                    {3.25ex \@plus1ex \@minus.2ex}%
                                    {-1em}%
                                    {\normalfont\normalsize}}
\renewcommand\subparagraph{\@startsection{subparagraph}{5}{\parindent}%
                                       {3.25ex \@plus1ex \@minus .2ex}%
                                       {-1em}%
                                      {\normalfont\normalsize}}

\renewcommand\figurename{Fig.}

\long\def\@makecaption#1#2{%
  \vskip\abovecaptionskip
  \sbox\@tempboxa{\small % \sffamily
    \makebox[1cm][l]{#1}#2}%
  \ifdim \wd\@tempboxa >\hsize
    {\small % \sffamily
      \list{#1}{%
        \renewcommand{\makelabel}[1]{##1\hfil}
        \itemsep    \z@
        \itemindent \z@
        \labelsep   \z@
        \labelwidth 1cm
        \listparindent\z@
        \leftmargin 1cm}\item\relax #2\endlist}
  \else
    \global \@minipagefalse
    \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
  \fi
  \vskip\belowcaptionskip}

\renewenvironment{thebibliography}[1]{
  \list{\@biblabel{\@arabic\c@enumiv}}%
  {\settowidth\labelwidth{\@biblabel{#1}}%
    \leftmargin\labelwidth
    \advance\leftmargin\labelsep
    \@openbib@code
    \usecounter{enumiv}%
    \let\p@enumiv\@empty
    \renewcommand\theenumiv{\@arabic\c@enumiv}}%
  \sloppy
  \clubpenalty4000
  \@clubpenalty \clubpenalty
  \widowpenalty4000%
  \sfcode`\.\@m
  \small}
{\def\@noitemerr
  {\@latex@warning{Empty `thebibliography' environment}}%
  \endlist}

\def\@listi{\leftmargin\leftmargini
  \parsep \z@
  \topsep 0.5\baselineskip \@plus 0.2\baselineskip \@minus 0.1\baselineskip
  \itemsep \z@ \relax}
\let\@listI\@listi

\def\ps@myheadings{%
  \let\@oddfoot\@empty\let\@evenfoot\@empty
%  \def\@evenhead{\thepage\hfil\slshape\leftmark}%
%  \def\@oddhead{{\slshape\rightmark}\hfil\thepage}%
%  \def\@evenhead{Plasma and Fusion Research: Rapid Comunications\hfil Volume 1, 001 (2006)}
% \def\@evenhead{Plasma and Fusion Research: Letters\hfil Vol.~1 (2006)
%   01-\ifnum\c@page<10 0\fi\thepage}
% \def\@evenhead{Plasma and Fusion Research: Regular Articles\hfil Vol.~1 (2006)
%   01-\ifnum\c@page<10 0\fi\thepage}
% \def\@evenhead{Plasma and Fusion Research: Review Articles\hfil Vol.~1 (2006)
%   01-\ifnum\c@page<10 0\fi\thepage}
  \let\@oddhead\@evenhead
  \let\@mkboth\@gobbletwo
  \let\sectionmark\@gobble
  \let\subsectionmark\@gobble}

\pagestyle{myheadings}

%%% NOTE: equations are indented by 10mm.
\setlength\mathindent{10mm}

 \parskip \z@
\flushbottom


\renewcommand \thesection {\@arabic\c@section.}
\renewcommand\thesubsection   {\@arabic\c@section.\@arabic\c@subsection}

%%%
\renewcommand\section{%
\def\@seccntformat##1{\csname the##1\endcsname\ \,}%
\@startsection {section}{1}{\z@}%
                                   {3.5ex \@plus 1ex \@minus .2ex}%
                                   {2.3ex \@plus.2ex}%
                                   {\normalfont\Large\bfseries}}
%%%
\renewcommand\section{%
\def\@seccntformat##1{\csname the##1\endcsname\ \,}%
\@startsection {section}{1}{\z@}%
                                   {1\baselineskip \@plus 0.00001mm \@minus 0.00001mm}%
                                   {0.00001mm}%
                                   {\normalfont\Large\bfseries}}


%%%
\newcommand\sectionII{%
\def\@seccntformat##1{\csname the##1\endcsname\ \,}%
\@startsection {section}{1}{\z@}%
                                   {2.5ex \@plus .1mm \@minus .2mm}%
                                   {0.5mm }%
                                   {\normalfont\Large\bfseries}}

\newbox\subsectnumbox
\newbox\subsectionbox
\newlength\subsectionlength
\newlength\subsectionhtdp



\def\@startsectionB#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\addvspace\@tempskipa
  \fi
  \@ifstar
    {\@ssectB{#3}{#4}{#5}{#6}}%
    {\@dblarg{\@sectB{#1}{#2}{#3}{#4}{#5}{#6}}}}
\def\@sectB#1#2#3#4#5#6[#7]#8{%
  \ifnum #2>\c@secnumdepth
    \let\@svsecB\@empty
  \else
    \refstepcounter{#1}%
    \protected@edef\@svsecB{\@seccntformatB{#1}\relax}%
  \fi
  \@tempskipa #5\relax
  \ifdim \@tempskipa>\z@
    \begingroup
      #6{%
%%%        \@hangfrom{\hskip #3\relax\@svsecB}%
%%%          \interlinepenalty \@M #8\@@par}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        \setbox\subsectnumbox=\hbox{\hskip #3\relax\@svsecB}%
        \@hangfrom{\copy\subsectnumbox}%
        \subsectionlength=\columnwidth%
        \advance\subsectionlength-\wd\subsectnumbox%
        \setbox\subsectionbox=\vtop{\hsize\subsectionlength\noindent #8}%
        \subsectionhtdp=\ht\subsectionbox
        \advance\subsectionhtdp\dp\subsectionbox
          \interlinepenalty \@M \vtop to \subsectionhtdp{\hsize\subsectionlength\baselineskip=0mm\noindent#8}\@@par}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    \endgroup
    \csname #1mark\endcsname{#7}%
    \addcontentsline{toc}{#1}{%
      \ifnum #2>\c@secnumdepth \else
        \protect\numberline{\csname the#1\endcsname}%
      \fi
      #7}%
  \else
    \def\@svsechdB{%
      #6{\hskip #3\relax
      \@svsecB #8}%
      \csname #1mark\endcsname{#7}%
      \addcontentsline{toc}{#1}{%
        \ifnum #2>\c@secnumdepth \else
          \protect\numberline{\csname the#1\endcsname}%
        \fi
        #7}}%
  \fi
  \@xsectB{#5}}
\def\@xsectB#1{%
  \@tempskipa #1\relax
  \ifdim \@tempskipa>\z@
    \par \nobreak
    \vskip \@tempskipa
    \@afterheading
  \else
    \@nobreakfalse
    \global\@noskipsectrue
    \everypar{%
      \if@noskipsec
        \global\@noskipsecfalse
       {\setbox\z@\lastbox}%
        \clubpenalty\@M
        \begingroup \@svsechdB \endgroup
        \unskip
        \@tempskipa #1\relax
        \hskip -\@tempskipa
      \else
        \clubpenalty \@clubpenalty
        \everypar{}%
      \fi}%
  \fi
  \ignorespaces}
\def\@seccntformatB#1{\csname the#1\endcsname\quad}
\def\@ssectB#1#2#3#4#5{%
  \@tempskipa #3\relax
  \ifdim \@tempskipa>\z@
    \begingroup
      #4{%
        \@hangfrom{\hskip #1}%
          \interlinepenalty \@M #5\@@par}%
    \endgroup
  \else
    \def\@svsechdB{#4{\hskip #1\relax #5}}%
  \fi
  \@xsectB{#3}}
\newif\if@afterindent \@afterindenttrue
\def\@afterheading{%
  \@nobreaktrue
  \everypar{%
    \if@nobreak
      \@nobreakfalse
      \clubpenalty \@M
      \if@afterindent \else
        {\setbox\z@\lastbox}%
      \fi
    \else
      \clubpenalty \@clubpenalty
      \everypar{}%
    \fi}}
%\def\@hangfrom#1{\setbox\@tempboxa\hbox{{#1}}%
%      \hangindent \wd\@tempboxa\noindent\box\@tempboxa}

\renewcommand\subsection{\@startsectionB{subsection}{2}{\z@}%
                                     {1\baselineskip\@plus .00001mm \@minus .00001mm}%
                                     {0.00001mm}%
                                     {\normalfont\large\bfseries}}


\newbox\sectnumbox
\newbox\sectionbox
\newlength\sectionlength
\newlength\sectionhtdp


\def\@startsectionA#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\addvspace\@tempskipa
  \fi
  \@ifstar
    {\@ssectA{#3}{#4}{#5}{#6}}%
    {\@dblarg{\@sectA{#1}{#2}{#3}{#4}{#5}{#6}}}}
\def\@sectA#1#2#3#4#5#6[#7]#8{%
  \ifnum #2>\c@secnumdepth
    \let\@svsecA\@empty
  \else
    \refstepcounter{#1}%
    \protected@edef\@svsecA{\@seccntformatA{#1}\relax}%
  \fi
  \@tempskipa #5\relax
  \ifdim \@tempskipa>\z@
    \begingroup
      #6{%
%%%        \@hangfrom{\hskip #3\relax\@svsecA}%
%%%          \interlinepenalty \@M #8\@@par}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        \setbox\sectnumbox=\hbox{\hskip #3\relax\@svsecA}%
        \@hangfrom{\copy\sectnumbox}%
        \sectionlength=\columnwidth%
        \advance\sectionlength-\wd\sectnumbox%
        \setbox\sectionbox=\vtop{\hsize\sectionlength\noindent #8}%
        \sectionhtdp=\ht\sectionbox
        \advance\sectionhtdp\dp\sectionbox
          \interlinepenalty \@M \vtop to \sectionhtdp{\hsize\sectionlength\baselineskip=0mm\noindent#8}\@@par}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    \endgroup
    \csname #1mark\endcsname{#7}%
    \addcontentsline{toc}{#1}{%
      \ifnum #2>\c@secnumdepth \else
        \protect\numberline{\csname the#1\endcsname}%
      \fi
      #7}%
  \else
    \def\@svsechdA{%
      #6{\hskip #3\relax
      \@svsecA #8}%
      \csname #1mark\endcsname{#7}%
      \addcontentsline{toc}{#1}{%
        \ifnum #2>\c@secnumdepth \else
          \protect\numberline{\csname the#1\endcsname}%
        \fi
        #7}}%
  \fi
  \@xsectA{#5}}
\def\@xsectA#1{%
  \@tempskipa #1\relax
  \ifdim \@tempskipa>\z@
    \par \nobreak
    \vskip \@tempskipa
    \@afterheading
  \else
    \@nobreakfalse
    \global\@noskipsectrue
    \everypar{%
      \if@noskipsec
        \global\@noskipsecfalse
       {\setbox\z@\lastbox}%
        \clubpenalty\@M
        \begingroup \@svsechdA \endgroup
        \unskip
        \@tempskipa #1\relax
        \hskip -\@tempskipa
      \else
        \clubpenalty \@clubpenalty
        \everypar{}%
      \fi}%
  \fi
  \ignorespaces}
%%\def\@seccntformatA#1{\csname the#1\endcsname.\quad}
\def\@seccntformatA#1{\csname the#1\endcsname.\ \,}%
\def\@ssectA#1#2#3#4#5{%
  \@tempskipa #3\relax
  \ifdim \@tempskipa>\z@
    \begingroup
      \vspace*{-0.25mm}%%%
      #4{%
%%%        \@hangfrom{\hskip #1}%
%%%          \interlinepenalty \@M #5\@@par}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
        \setbox\sectnumbox=\hbox{\hskip #1}%
        \@hangfrom{\copy\sectnumbox}%
        \sectionlength=\columnwidth%
        \advance\sectionlength-\wd\sectnumbox%
        \setbox\sectionbox=\vtop{\hsize\sectionlength\noindent #5}%
        \sectionhtdp=\ht\sectionbox
        \advance\sectionhtdp\dp\sectionbox
          \interlinepenalty \@M \vtop to \sectionhtdp{\hsize\sectionlength\baselineskip=0mm\noindent#5}\vspace{-1mm}\@@par}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    \endgroup
  \else
    \def\@svsechdA{#4{\hskip #1\relax #5}}%
  \fi
  \@xsectA{#3}}

%\def\@hangfrom#1{\setbox\@tempboxa\hbox{{#1}}%
%      \hangindent \wd\@tempboxa\noindent\box\@tempboxa}



\renewcommand \thesection {\@arabic\c@section}

%%%
\renewcommand\section{%
%%%\def\@seccntformat##1{\csname the##1\endcsname\ \,}%
\@startsectionA {section}{1}{\z@}%
                                   {1\baselineskip \@plus 0.00001mm \@minus 0.00001mm}%
                                   {0.00001mm}%
                                   {\normalfont\Large\bfseries}}

%-----
% modified on 29 Jan. 2008 by A.Takayama
%%%
\renewcommand\section{%
%%%\def\@seccntformat##1{\csname the##1\endcsname\ \,}%
\@startsectionA {section}{1}{\z@}%
                                   {1\baselineskip \@plus 0.00001mm \@minus 0.00001mm}%
                                   {0.00001mm}%
                                   {\normalfont\large\bfseries}}
%-----


\renewcommand{\topfraction}{.95}
\renewcommand{\bottomfraction}{.95}
\renewcommand{\textfraction}{.05}
\renewcommand{\floatpagefraction}{.05}
\renewcommand{\dbltopfraction}{.95}
\renewcommand{\dblfloatpagefraction}{.05}
\endinput
%%
%% End of file `jpfr.sty'.