%% File `pfr.sty'.
%% Style for Rapid Communications, 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{pfr}[2009/08/17 PFR]

\ifnum\@ptsize=2
  \renewcommand\normalsize{%
  %%% NOTE: text lines are separated by 4.48*1.2mm.
    \@setfontsize\normalsize\@xiipt{5.376mm}
    \abovedisplayskip 12\p@ \@plus3\p@ \@minus7\p@
    \abovedisplayshortskip \z@ \@plus3\p@
    \belowdisplayshortskip 6.5\p@ \@plus3.5\p@ \@minus3\p@
    \belowdisplayskip \abovedisplayskip
    \let\@listi\@listI}
\else
  \ifnum\@ptsize=1
  \renewcommand\normalsize{%
    %%% NOTE: text lines are separated by 4.48*1.1mm.
      \@setfontsize\normalsize\@xipt{4.928mm}
      \abovedisplayskip 11\p@ \@plus3\p@ \@minus6\p@
      \abovedisplayshortskip \z@ \@plus3\p@
      \belowdisplayshortskip 6.5\p@ \@plus3.5\p@ \@minus3\p@
      \belowdisplayskip \abovedisplayskip
      \let\@listi\@listI}
  \else
    \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@
      \belowdisplayskip \abovedisplayskip
      \let\@listi\@listI}
  \fi
\fi
\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}

\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
  \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 Communications\hfil Volume 4, 000 (2009)}
% \def\@evenhead{Plasma and Fusion Research: Letters\hfil Vol.~4 (2009)
%   01-\ifnum\c@page<10 0\fi\thepage}
% \def\@evenhead{Plasma and Fusion Research: Regular Articles\hfil Vol.~4 (2009)
%   01-\ifnum\c@page<10 0\fi\thepage}
% \def\@evenhead{Plasma and Fusion Research: Review Articles\hfil Vol.~4 (2009)
%   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}

\endinput
%%
%% End of file `pfr.sty'.