% sfdanrak.sty 
% by Shinsaku Fujita 
% Copyright (C) S. Fujita (2000). All rights reserved. 
% Version 1.00 1999/2/1
%
%  �쐬��: ���c����
%          fujitas@chem.kit.ac.jp
%
%   ���c���쒘�u����E�c�������p�v����
%
%\typeout{Option Style `sfdanrak.sty' by S. Fujita}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{sfdanrak}
\def\versi@ndate{February 1, 2000}
\def\versi@nno{ver1.00}
\def\copyrighth@lder{S. Fujita} % Shinsaku Fujita
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{Option Style `\j@urnalname' (\versi@nno) <\versi@ndate>\space 
[\copyrighth@lder]}
\typeout{���c���쒘�u����E�c�������p�v����}
%
% \danrakukagiA
% A�����̒i���J�n
% �J�M���ʂ݂̂ɑΉ�
%
\def\ignorekagispace#1{\def\aaa{#1}\def\bbb{�u}%
\ifx\aaa\bbb\mbox{}\kern-0.5zw�u\else #1\fi}%
\everypar{\ignorekagispace}
\def\danrakukagiA{\everypar{\ignorekagispace}}
%
% \danrakuA
% A�����̒i���J�n
% ���ʗނ��ׂĂɑΉ�
%
\newcount\kakkocnt
\def\ignorekakkospace#1{\if\noexpand#1\relax\else
\kakkocnt=`#1 \relax
\ifnum\kakkocnt>33124 \ifnum\kakkocnt<33146
\ifodd\kakkocnt\mbox{}\kern-0.5zw\fi\fi\fi\fi#1}
\def\danrakuA{\everypar{\ignorekakkospace}}
%
% \danrakuC
% C�����̒i���J�n
% ���ʗނ��ׂĂɑΉ�
%
\def\ignorejisage#1{\if\noexpand#1\relax\else
\kakkocnt=`#1 \relax
\ifnum\kakkocnt>33124 \ifnum\kakkocnt<33146
\ifodd\kakkocnt\setbox0=\lastbox\mbox{}\fi\fi\fi\fi#1}
\def\danrakuC{\everypar{\ignorejisage}}
