%%% Package Version 2002 V5.0                       2002.10.31
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%  Format for 科研費調書 2002
%%%%%%%  File ID: lkkh.sty 基本スタイルファイル (LaTeX版)
%%%%%%%  Contact: kakenhi-macro@yukawa.kyoto-u.ac.jp
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% このファイルはLaTeX版に特有の定義のみを含みます。
% 利用される方はかならず、付属のreadme.doc をお読み下さい。
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\@namedef{ds@kkhform}{\input kkhform.mac}
%
% definitions for compatibility with plain TeX version
\def\pageno{\count0}
\newtoks\footline
%\newdimen\itemsize
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 軽量化の試み
\let\vpt=\relax
\let\viipt=\relax
\let\ixpt=\relax
\let\xviipt=\relax
\let\xxpt=\relax
\let\xxvpt=\relax
%
\let\@starttoc=\relax
\def\addcontentsline#1#2#3{\relax}
\let\addtocontents=\relax
\let\contentsline=\relax
\let\@dottedtocline=\relax
\let\numberline=\relax
\let\makeindex=\relax
\let\@wrindex=\relax
\let\index=\relax
\let\@index=\relax
\let\makeglossary=\relax
\let\glossary=\relax
\let\bibitem=\relax
\let\@lbibitem=\relax
\let\@bibitem=\relax
\let\bibcite=\relax
\let\citation=\relax
\let\cite=\relax
\let\@citex=\relax
\let\bibliography=\relax
\let\bibliographystyle=\relax
\let\nocite=\relax
\let\caption=\relax
\let\@caption=\relax
\let\@float=\relax
\let\@xfloat=\relax
\let\end@float=\relax
\let\@dblfloat=\relax
\let\@dbflt=\relax
\let\@xdblfloat=\relax
\let\@floatplacement=\relax
\let\@dblfloatplacement=\relax
\let\marginpar=\relax
\let\@xmpar=\relax
\let\@ympar=\relax
\let\@savemarbox=\relax
\let\@xympar=\relax
\let\reversemarginpar=\relax
\let\normalmarginpar=\relax
% simplify the output routine
\output{\let\par\@@par
  \ifnum\outputpenalty <-\@M\@specialoutput\else
  \begingroup\catcode`\ =10
     \let\-\@dischyph \let\'\@acci \let\`\@accii \let\=\@acciii
     \shipout
     \vbox{%\reset@font %% RmS 91/08/15
           \normalsize \baselineskip\z@ \lineskip\z@
           \let\par\@@par %% 15 Sep 87
           \vskip\topmargin \moveright\@themargin
           \vbox{\vskip \headsep
                 \box255}}\global\@colht\textheight
  \endgroup\stepcounter{page}\let\firstmark\botmark\fi
  \global\vsize\ifnum\outputpenalty >-\@Miv \@colroom
                  \else \maxdimen\fi}
%%\let\@specialoutput=\relax
\def\@doclearpage{
        \setbox\@tempboxa\vsplit\@cclv to\z@ \unvbox\@tempboxa
        \setbox\@tempboxa\box\@cclv
}
\let\@freelist=\relax
\let\@toplist=\relax
\let\@botlist=\relax
\let\@midlist=\relax
\let\@currlist=\relax
\let\@deferlist=\relax
\let\@dbltoplist=\relax
\let\@dbldeferlist=\relax
\let\@dbltopnum=\relax
\let\@dbltoproom=\relax
\let\@textmin=\relax
\let\@fpmin=\relax
\let\@mparbottom=\relax
\let\@currtype=\relax
\let\cleardoublepage=\relax
\let\twocolumn=\relax
\let\onecolumn=\relax
\let\@topnewpage=\relax
\let\@opcol=\relax
\let\@outputdblcol=\relax
\let\@makecol=\relax
\let\@outputpage=\relax
\let\@floatplacement=\relax
\let\@dblfloatplacement=\relax
\let\@combinefloats=\relax
\let\@cfla=\relax
\let\@cflb=\relax
\let\@comflelt=\relax
\let\@combinedblfloats=\relax
\let\@comdblflelt=\relax
\let\@startcolumn=\relax
\let\@xstartcol=\relax
\let\@scolelt=\relax
\let\@startdblcolumn=\relax
\let\@sdblcolelt=\relax
\let\@tryfcolumn=\relax
\let\@vtryfc=\relax
\let\@wtryfc=\relax
\let\@xtryfc=\relax
\let\@ytryfc=\relax
\let\@ztryfc=\relax
\let\@testfp=\relax
\let\@makefcolumn=\relax
\let\@addtobot=\relax
\let\@addtotoporbot=\relax
\let\@addtonextcol=\relax
\let\@addtodblcol=\relax
\let\@addtocurcol=\relax
\let\@addmarginpar=\relax
%%%%%%%%%%% load standard style (simplified) %%%%%%%%%%%%%%%%%%%%%%
% article.sty 16-Mar-88
% art12.sty 22-Dec-87

\lineskip 1pt \normallineskip 1pt
\def\baselinestretch{1}

\def\@normalsize{\@setsize\normalsize{14.5pt}\xiipt\@xiipt
\abovedisplayskip 12pt plus3pt minus7pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt\let\@listi\@listI} 
\def\small{\@setsize\small{13.6pt}\xipt\@xipt
\abovedisplayskip 11pt plus3pt minus6pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6.5pt plus3.5pt
minus3pt
\def\@listi{\leftmargin\leftmargini \parsep 4.5pt plus 2pt minus 1pt \itemsep
\parsep
 \topsep 9pt plus 3pt minus 5pt}}
\def\footnotesize{\@setsize\footnotesize{12pt}\xpt\@xpt
\abovedisplayskip 10pt plus2pt minus5pt\belowdisplayskip \abovedisplayskip
\abovedisplayshortskip \z@ plus3pt\belowdisplayshortskip 6pt plus3pt minus3pt
\def\@listi{\leftmargin\leftmargini \topsep 6pt plus 2pt minus 2pt\parsep 3pt
plus 2pt minus 1pt
\itemsep \parsep}}
\def\scriptsize{\@setsize\scriptsize{9.5pt}\viiipt\@viiipt}
\def\tiny{\@setsize\tiny{7pt}\vipt\@vipt}
\def\large{\@setsize\large{18pt}\xivpt\@xivpt}
\def\Large{\@setsize\Large{22pt}\xviipt\@xviipt}
%\def\LARGE{\@setsize\LARGE{25pt}\xxpt\@xxpt}
%\def\huge{\@setsize\huge{30pt}\xxvpt\@xxvpt}
%\let\LARGE=\Large
%\let\huge=\Large
%\let\Huge=\Large
\normalsize 

\footnotesep 8.4pt 
\skip\footins 10.8pt plus 4pt minus 2pt 
\floatsep 14pt plus 2pt minus 4pt \textfloatsep 20pt plus 2pt minus 4pt
\intextsep 14pt plus 4pt minus 4pt \@maxsep 20pt \dblfloatsep 14pt plus 2pt
minus 4pt \dbltextfloatsep 20pt plus 2pt minus 4pt \@dblmaxsep 20pt 
\@fptop 0pt plus 1fil \@fpsep 10pt plus 2fil \@fpbot 0pt plus 1fil 
\@dblfptop 0pt plus 1fil \@dblfpsep 10pt plus 2fil \@dblfpbot 0pt plus 1fil
\marginparpush 7pt 

\parskip 0pt plus 1pt \parindent 1.5em \partopsep 3pt plus 2pt minus 2pt 
\@lowpenalty 51 \@medpenalty 151 \@highpenalty 301 
\@beginparpenalty -\@lowpenalty \@endparpenalty -\@lowpenalty \@itempenalty
-\@lowpenalty 

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

\setcounter{secnumdepth}{3}

\leftmargini 2.5em
\leftmarginii 2.2em \leftmarginiii 1.87em \leftmarginiv 1.7em \leftmarginv 1em
\leftmarginvi 1em
\leftmargin\leftmargini
\labelsep .5em
\labelwidth\leftmargini\advance\labelwidth-\labelsep
\def\@listI{\leftmargin\leftmargini \parsep 5pt plus 2.5pt minus 1pt\topsep
10pt plus 4pt minus 6pt\itemsep 5pt plus 2.5pt minus 1pt}
\let\@listi\@listI
\@listi 
\def\@listii{\leftmargin\leftmarginii
 \labelwidth\leftmarginii\advance\labelwidth-\labelsep
 \topsep 5pt plus 2.5pt minus 1pt
 \parsep 2.5pt plus 1pt minus 1pt
 \itemsep \parsep}
\def\@listiii{\leftmargin\leftmarginiii
 \labelwidth\leftmarginiii\advance\labelwidth-\labelsep
 \topsep 2.5pt plus 1pt minus 1pt 
 \parsep \z@ \partopsep 1pt plus 0pt minus 1pt
 \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}
%%%%% end of art12.sty%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\labelenumi{\theenumi.} 
\def\theenumi{\arabic{enumi}} 
\def\labelenumii{(\theenumii)}
\def\theenumii{\alph{enumii}}
\def\p@enumii{\theenumi}
\def\labelenumiii{\theenumiii.}
\def\theenumiii{\roman{enumiii}}
\def\p@enumiii{\theenumi(\theenumii)}
\def\labelenumiv{\theenumiv.}
\def\theenumiv{\Alph{enumiv}} 
%\def\p@enumiv{\p@enumiii\theenumiii}

\def\labelitemi{$\bullet$}
\def\labelitemii{\bf --}
\def\labelitemiii{$\ast$}
\def\labelitemiv{$\cdot$}

\def\verse{\let\\=\@centercr 
 \list{}{\itemsep\z@ \itemindent -1.5em\listparindent \itemindent 
 \rightmargin\leftmargin\advance\leftmargin 1.5em}\item[]}
\let\endverse\endlist
\def\quotation{\list{}{\listparindent 1.5em
 \itemindent\listparindent
 \rightmargin\leftmargin \parsep 0pt plus 1pt}\item[]}
\let\endquotation=\endlist
\def\quote{\list{}{\rightmargin\leftmargin}\item[]}
\let\endquote=\endlist

\def\descriptionlabel#1{\hspace\labelsep \bf #1}
\def\description{\list{}{\labelwidth\z@ \itemindent-\leftmargin
 \let\makelabel\descriptionlabel}}
\let\enddescription\endlist

\def\theequation{\arabic{equation}}

\arraycolsep 5pt \tabcolsep 6pt \arrayrulewidth .4pt \doublerulesep 2pt 
\tabbingsep \labelsep 

\skip\@mpfootins = \skip\footins
\fboxsep = 3pt \fboxrule = .4pt 

\newcounter {section}
\newcounter {subsection}[section]
\newcounter {subsubsection}[subsection]
\newcounter {paragraph}[subsubsection]
%\newcounter {subparagraph}[paragraph]

\def\thesubsection {\thesection.\arabic{subsection}}
\def\thesubsubsection {\thesubsection .\arabic{subsubsection}}
\def\theparagraph {\thesubsubsection.\arabic{paragraph}}
%\def\thesubparagraph {\theparagraph.\arabic{subparagraph}}

\mark{{}{}} 

\newif\if西暦\let\if西暦=\iffalse \def\西暦{\let\if西暦=\iftrue}
\def\today{{\if西暦\count0=\year\else%
\count0=\year\advance\count0 -1988 平成\,\fi%
\ifnum\count0=1 元\else\number\count0\fi\,年\hspace{.5em}\nobreak%
\number\month\,月\hspace{.5em}\nobreak\number\day\,日}}

\raggedbottom
\global\columnwidth\textwidth
\global\hsize\columnwidth \global\linewidth\columnwidth
\global\@twocolumnfalse
%
%%%%%%%%%%%%%%%%%%%%%%%% end of article.sty %%%%%%%%%%%%%%%%%%%%%%%%%%%%
\pagestyle{empty}
\oddsidemargin=0mm
\evensidemargin=0mm
\textwidth=210mm
\topmargin=0mm
\headheight=0pt
\headsep=0pt
\textheight=296mm
%
\let\Twelvepoint=\normalsize
\let\Tenpoint=\footnotesize
\let\Eightpoint=\scriptsize
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\@options % execute style options = read KKH**.mac
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\let\@document=\document
\def\document{\@document\調書style}
%
\let\twelvef@nts=\normalsize
\let\tenf@nts=\footnotesize
\let\eightf@nts=\scriptsize
\let\twelvepoint=\normalsize
\let\tenpoint=\footnotesize
\let\eightpoint=\scriptsize
%
\ifNTTTeX
 \jfont\twentyonegt=dm10 scaled \magstep4
 \jfont\seventeenmin=dm10 scaled \magstep3
 \jfont\seventeengt=dg10 scaled \magstep3
 \jfont\fourteenmin=dm10 scaled \magstep2
 \jfont\fourteengt=dg10 scaled \magstep2
 \jfont\twelvemin=dm12
 \jfont\twelvegt=dg12
 \jfont\elevenmin=dm10 scaled \magstephalf
 \jfont\elevengt=dg10 scaled \magstephalf
 \jfont\tenmin=dm10
 \jfont\tengt=dg10
 \jfont\ninemin=dm9
 \jfont\ninegt=dg9
 \jfont\eightmin=dm8
 \jfont\eightgt=dg8
 \jfont\sevenmin=dm7
 \jfont\sevengt=dg7
 \jfont\sixmin=dm6
 \jfont\sixgt=dg6
 \jfont\fivemin=dm5
%
\else
% ASCII-jLaTeX 
 \font\twtygt = goth10 \@magscale4
 \let\twentyonegt=\twtygt
 \let\seventeenmin=\svtnmin
 \let\seventeengt=\svtngt
 \let\fourteenmin=\frtnmin
 \let\fourteengt=\frtngt
 \let\fourteenbf=\frtnbf
 \let\twelvemin=\twlmin
 \let\twelvegt=\twlgt
 \let\elevenmin=\elvmin
 \let\elevengt=\elvgt
 \let\ninemin=\ninmin
 \let\ninegt=\ningt
 \let\eightmin=\egtmin
 \font\egtgt=goth8
 \let\eightgt=\egtgt
 \let\sevenmin=\sevmin
 \font\sevengt=goth7
 \font\sixgt=goth6
 \let\fivemin=\fivmin
 \let\fivegt=\fivgt
%
\fi
\font\seventeenrm=cmr17
%\font\seventeenbf=cmbx10 \@magscale3
\font\fourteenrm=cmr10    \@magscale2
\font\fourteenbf=cmbx10   \@magscale2
\font\twelverm=cmr12
\font\twelvebf=cmbx12
\font\elevenrm=cmr10 scaled \magstephalf
\font\elevenbf=cmbx10 scaled \magstephalf
\font\tenrm=cmr10
\font\tenbf=cmbx10
\font\ninerm=cmr9
\font\ninebf=cmbx9
\font\eightrm=cmr8
\font\eightbf=cmbx8
\font\sevenrm=cmr7
\font\sevenbf=cmbx7
%
\batchmode\font\fontt@st=cmex8\relax\errorstopmode%
\ifx\fontt@st\nullfont\font\egtex=cmex10\else\font\egtex=cmex8\fi
\let\eightex\egtex
%\let\fivebf=\fivbf
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \ls{x} : set line space to be x times the default (modified June 11, 1991)
%          same as \renewcommand{baselinestretch}{ x } , but effective
%          also in the text. (cf: \lsx, \lsxcur)
%          If two or more \ls is used in a paragraph, the last one is taken.
\let\@currsize=\normalsize
\def\ls#1{\let\@@curr=\@currsize\def\baselinestretch{#1}\large\@@curr}

% lsx{x} : set normal line space of all font sizes to be 'x'
%          (a dimension, e.g., 10mm, 5pt). cf: \lsxcur
%    Note: only \baselineskip is changed. Real line space is affected
%          by the glue. Use \raggedbottom for a more accurate spacings.
%  May 13, 1993
\let\@@setsize=\@setsize
\def\lsx#1{\def\@setsize##1##2{\@@setsize##1{#1}}\ls{1.0}}
%%%%
% \nagamaru{xyz} : encircled string 'xyz'.  'xyz' can be a 'tabular'
%                  July 2, 1992
\ifSmallTeX
 \def\nagamaru#1{}
\else
\let\@nagax=\@ovxx
\let\@nagaxx=\@ovdx
\let\@nagay=\@ovyy
\let\@nagayy=\@ovdy
\newbox\@nagabox
\def\nagamaru#1{{%
\setlength{\unitlength}{1sp}%
\setbox\@nagabox=\hbox{\rule{0pt}{0.9zh}#1}%
\@nagax=\ht\@nagabox\advance\@nagax by 0.7zw%
\@nagay=\dp\@nagabox\advance\@nagay by 0.7zh%
\@nagayy=\dp\@nagabox\advance\@nagayy by 0.5zh% 
\raisebox{-1\@nagayy}[\@nagax][\@nagay]{%
\@nagax=\wd\@nagabox\advance\@nagax by 1zw%
\@nagay=\ht\@nagabox\advance\@nagay by \dp\@nagabox\advance\@nagay by 1zh%
\begin{picture}(\number\@nagax,\number\@nagay)(0,0)
\thicklines%
\@nagaxx=\@nagax\divide\@nagaxx by 2%
\@nagayy=\@nagay\divide\@nagayy by 2%
\divide\@nagay by 131072 \multiply\@nagay by 131071 % omajinai
\put(\number\@nagaxx,\number\@nagayy){\oval(\number\@nagax,\number\@nagay)}
\put(\number\@nagaxx,\number\@nagayy){\makebox(0,0){#1}}
\end{picture}}%
}}
\fi
%
%
%ADD eight point routine: (perhaps incomplete!)
\def\viiipt{\textfont\z@\egtrm
  \scriptfont\z@\sixrm \scriptscriptfont\z@\fivrm
\textfont\@ne\egtmi \scriptfont\@ne\sixmi \scriptscriptfont\@ne\fivmi
\textfont\tw@\egtsy \scriptfont\tw@\sixsy \scriptscriptfont\tw@\fivsy
\textfont\thr@@\egtex \scriptfont\thr@@\egtex \scriptscriptfont\thr@@\egtex
\def\prm{\fam\z@\egtrm}%
\def\unboldmath{\everymath{}\everydisplay{}\@nomath
\unboldmath\@boldfalse}\@boldfalse
\def\boldmath{\@subfont\boldmath\unboldmath}%
\def\pit{\fam\itfam\egtit}\textfont\itfam\egtit
   \scriptfont\itfam\sevit \scriptscriptfont\itfam\sevit
\def\psl{\@getfont\psl\slfam\@viiipt{cmsl8}}%
\def\pbf{\@getfont\pbf\bffam\@viiipt{cmbx8}}%
\def\ptt{\@getfont\ptt\ttfam\@viiipt{cmtt8}\@nohyphens\ptt\@viiipt}%
\def\psf{\@getfont\psf\sffam\@viiipt{cmss8}}%
\def\psc{\@getfont\psc\scfam\@viiipt{\@mcsc \@ptscale8}}%
\def\ly{\fam\lyfam\egtly}\textfont\lyfam\egtly
    \scriptfont\lyfam\sixly \scriptscriptfont\lyfam\fivly
\@setstrut \rm}
\let\old@viiipt=\viiipt
\ifNTTTeX
\def\viiipt{\old@viiipt\eightdm\let\pdg\eightdg\let\pdm\eightdm\jfsize=8\relax}
\else
\def\viiipt{\old@viiipt%
\def\pmin{\fam\mcfam\egtmin}\textfont\mcfam\egtmin 
   \scriptfont\mcfam\sixmin \scriptscriptfont\mcfam\fivmin 
\def\pgt{\@getfont\pgt\gtfam\@viiipt{goth8}}%
\mc}
\fi
% end of lkkh.sty -----------------------------------------------