%%% Package Version 2002 V5.0                       2002.10.31
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%  Format for 科研費調書 2002
%%%%%%%  File ID: kkh.mac 共通マクロ定義ファイル
%%%%%%%  Contact: kakenhi-macro@yukawa.kyoto-u.ac.jp
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% この定義ファイルは科研費調書のマクロの共通部分です。
% 利用される方はかならず、付属のreadme.doc をお読み下さい。
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%NTT-TeXの場合には以下で自動対応します。
%このNTT-TeXへの対応は
%電気通信大学 伊藤 秀一  itoh@ee.uec.ac.jp 及び
%岩熊＠東北大学 bear@hashi1.civil.tohoku.ac.jp 両氏に依ります。
\newif\ifNTTTeX\NTTTeXfalse
\def\NTTTeX用{\NTTTeXtrue}
\ifx\gtfam\undefined% NTT-TeXの場合には以下のコマンドが実行される
\NTTTeX用
\let\kanjiskip=\jintercharskip
\let\xkanjiskip=\jasciikanjiskip
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% load base file pkkh.mac (TeX mode only)
\newif\ifSmallTeX\SmallTeXfalse
\expandafter\ifx\csname @latexerr\endcsname\relax\input pkkh.mac \fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newif\if研究１\研究１false\def\研究１{\研究１true}
\newif\if分割番号１\分割番号１false\def\分割番号１{\分割番号１true}
\newif\if分割番号２\分割番号２false\def\分割番号２{\分割番号２true}
\newif\if分割番号Ａ\分割番号Ａfalse\def\分割番号Ａ{\分割番号Ａtrue}
\newif\if分割番号Ｂ\分割番号Ｂfalse\def\分割番号Ｂ{\分割番号Ｂtrue}
%
\newif\if重複研究１\重複研究１false\def\重複研究１{\重複研究１true}
\newif\if重複申請 \重複申請false \def\重複申請{\if基盤ＡＢ海外\重複申請true\fi}
\newif\if重複研究組織研究経費該当なし斜線\重複研究組織研究経費該当なし斜線false
\def\重複研究組織研究経費該当なし斜線{\重複研究組織研究経費該当なし斜線true}
%
\newif\if計画研究 \計画研究false \def\計画研究{\計画研究true}
\newif\if公募研究 \公募研究false \def\公募研究{\公募研究true}
%
\newif\if分担者多数 \分担者多数false
\def\分担者多数用{\分担者多数true}
\newif\if分担者超多数 \分担者超多数false
\def\分担者超多数用{\分担者超多数true}
\newif\if業績頁出力 \業績頁出力true
\newif\if組織表出力 \組織表出力true
\newif\if概要 \概要false
\newif\if人文系 \人文系false \def\人文系{\人文系true}
\newif\if社会系 \社会系false \def\社会系{\社会系true}
\newif\if数物系 \数物系false \def\数物系{\数物系true}
\newif\if化学系 \化学系false \def\化学系{\化学系true}
\newif\if生物系 \生物系false \def\生物系{\生物系true}
\newif\if広領域 \広領域false \def\広領域{\広領域true}
\newif\if医歯系 \医歯系false \def\医歯系{\医歯系true}
\newif\if広領域 \広領域false \def\広領域{\広領域true}%▲
\newif\if萌芽的研究 \萌芽的研究false \def\萌芽的研究{\萌芽的研究true}
\newif\if該当なし斜線右下がり \該当なし斜線右下がりfalse 
\def\該当なし斜線右下がり{\該当なし斜線右下がりtrue}
%
\newif\if研究組織研究経費該当なし斜線\研究組織研究経費該当なし斜線false
\def\研究組織研究経費該当なし斜線{\研究組織研究経費該当なし斜線true}
\newif\if研究１理由該当なし斜線\研究１理由該当なし斜線false
\def\研究１理由該当なし斜線{\研究１理由該当なし斜線true}
%
\newif\if色塗り帯枠出力 \色塗り帯枠出力true
\def\色塗り帯枠なし{\色塗り帯枠出力false}
\newif\ifPS色帯出力 \PS色帯出力false
\def\PS色帯出力{\色塗り帯枠出力false\PS色帯出力true%
               \if校正\else\印刷様式false\fi}
\newif\if印刷様式 \印刷様式false
\newif\if校正 \校正true
\def\校正用{\校正true}%with rules and item names
\def\本番用{\校正false%without rules nor item names
            \ifPS色帯出力\else\印刷様式true\fi}
%
\newif\ifDVIPRT\DVIPRTfalse\def\DVIPRT{\DVIPRTtrue}
\newif\ifのりしろ印刷 \のりしろ印刷false
\def\のりしろ印刷{\のりしろ印刷true}
\newif\ifのりしろ出力 \のりしろ出力true
\newif\if研究経費該当なし斜線 \研究経費該当なし斜線false 
\def\研究経費該当なし斜線{\研究経費該当なし斜線true}
\newif\if研究経費該当なしゼロ \研究経費該当なしゼロfalse
\def\研究経費該当なしゼロ{\研究経費該当なしゼロtrue}
\newif\if計区分線なし \計区分線なしfalse
\def\計区分線なし{\計区分線なしtrue}
\newif\if奇数頁丸 \奇数頁丸false
\def\奇数頁丸{\奇数頁丸true}
\newif\if枠のみ \枠のみfalse
\def\枠のみ{\枠のみtrue}
\newif\if研究経費中央出力 \研究経費中央出力false
\def\研究経費中央出力{\研究経費中央出力true}
\newif\if明細年度別計２段書き \明細年度別計２段書きfalse
\def\明細年度別計２段書き{\明細年度別計２段書きtrue}
\newif\if空白チェック \空白チェックfalse
\newif\if調整班 \調整班false
\def\調整班{\調整班true}
\newif\if総括班 \総括班false
\def\総括班{\総括班true}
\newif\if外国旅費出力変更 \外国旅費出力変更false
\def\外国旅費出力変更{\外国旅費出力変更true}
\newif\if若手枠\若手枠false\def\若手枠{\若手枠true}
\newif\if一般枠\一般枠false\def\一般枠{\一般枠true}
\newif\if特定２頁\特定２頁false
\newif\if特定３頁\特定３頁false
\newif\if前年度申請\前年度申請false\def\前年度申請{\前年度申請true}
\newif\if縦書き切り貼り\縦書き切り貼りfalse\def\縦書き切り貼り{\縦書き切り貼りtrue}
%
% データ入力用token
%
\newtoks\研究代表者氏名
\newtoks\研究者氏名
\newtoks\研究代表者年齢
\newtoks\ふりがな
\newtoks\現在の専門
\newtoks\学位
\newtoks\生年月日
%
\newtoks\研究代表者研究機関名
\newtoks\研究機関名
\newtoks\部局
\newtoks\職
\newtoks\部
\newtoks\分野
\newtoks\分科
\newtoks\細目
\newtoks\部分科細目番号
\newtoks\機関番号% 各ページトップの事務局記入用
\newtoks\特定機関番号% 組織表の表内の印刷用
\newtoks\整理番号
\newtoks\特定計画整理番号
%
\newtoks\連絡先郵便番号
\newtoks\連絡先住所
\newtoks\TEL
\newtoks\FAX
\newtoks\Email
%
\newtoks\研究課題
\newtoks\研究対象の類型
%
\newtoks\重複研究課題
%
\newtoks\継続分課題番号
\newtoks\研究種目名
\newtoks\研究種目ABC
%
\newtoks\領域略称名
\newtoks\領域番号
\newtoks\研究項目番号
%
%\newtoks\所属番号%所属部局番号に統一
%\newtoks\職番号%職区分番号に統一
\newtoks\研究者番号
\newtoks\備考欄
%
\newtoks\分担者番号
\newtoks\分担者氏名
\newtoks\分担者機関部局職名
%
\newtoks\最終年度研究種目名
\newtoks\最終年度審査区分
\newtoks\最終年度課題番号
\newtoks\最終年度研究課題名
\newtoks\最終年度研究期間
%
% 申請カード用
\newtoks\職区分番号
\newtoks\所属部局番号
\newtoks\広領域細目番号１%▲
\newtoks\広領域細目番号２%▲
\newtoks\広領域細目番号３%▲
\newtoks\研究課題文字
\newtoks\開示希望の有無
\newcount\初年度研究支援者雇用費
%
% working variables
%
\newbox\dummybox
\newbox\業績入力box
\newbox\業績box
\newbox\研究目的入力box
\newbox\研究目的box
\newbox\研究経過入力box
\newbox\研究経過box
\newbox\研究計画入力box
\newbox\研究計画box
%
\newcount\T \T=0
\newcount\TA \TA=0% working area
\newcount\TB \TB=0% working area
\newcount\TC \TC=0% working area
\newcount\TD \TD=0% working area
\newcount\TE \TE=0% working area
\newcount\TF \TF=0% working area
\newcount\Ta \Ta=0
\newcount\Tb \Tb=0
\newcount\Tc \Tc=0
\newcount\Td \Td=0
\newcount\Te \Te=0
\newcount\Tf \Tf=0
\newcount\Taa% 設備備品費総計
\newcount\Tab% 消耗品費総計
\newcount\Tac% 国内旅費総計
\newcount\Tad% 外国旅費総計
\newcount\Tae% 謝金総計
\newcount\Taf% その他総計
\newcount\Tt% 外国旅費上限
%
\newcount\Tba% 第１年度設備備品費合計
\newcount\Tbb% 第２年度設備備品費合計
\newcount\Tbc% 第３年度設備備品費合計
\newcount\Tbd% 第４年度設備備品費合計
\newcount\TbE% 第５年度設備備品費合計
\newcount\TbF% 第６年度設備備品費合計
\newcount\Tbe% 年度判定カウンタ
\newcount\Tca% 第１年度消耗品費合計
\newcount\Tcb% 第２年度消耗品費合計
\newcount\Tcc% 第３年度消耗品費合計
\newcount\Tcd% 第４年度消耗品費合計
\newcount\TcE% 第５年度消耗品費合計
\newcount\TcF% 第６年度消耗品費合計
%
\newcount\研究経費１
\newcount\研究経費２
\newcount\研究経費３
\newcount\研究経費４
\newcount\研究経費５
\newcount\研究経費６
%
\newcount\年齢
\newcount\研究組織合計人数\研究組織合計人数=0
\newcount\他機関分担者数\他機関分担者数=0
\newcount\研究経費合計\研究経費合計=0
\newcount\業績頁\業績頁=0
\newcount\組織頁\組織頁=0
%
\newcount\YearOfToday \YearOfToday=\year
\newcount\第０年y \第０年y=\YearOfToday \advance\第０年y by -1988
\newcount\第１年y \第１年y\第０年y \advance\第１年y by 1
\newcount\第２年y \第２年y\第１年y \advance\第２年y by 1
\newcount\第３年y \第３年y\第２年y \advance\第３年y by 1
\newcount\第４年y \第４年y\第３年y \advance\第４年y by 1
\newcount\第５年y \第５年y\第４年y \advance\第５年y by 1
\newcount\第６年y \第６年y\第５年y \advance\第６年y by 1
\def\前年名{平成\the\第０年y}
\def\第１年名{平成\the\第１年y}
\def\第２年名{平成\the\第２年y}
\def\第３年名{平成\the\第３年y}
\def\第４年名{平成\the\第４年y}
\def\第５年名{平成\the\第５年y}
\def\第６年名{平成\the\第６年y}
\def\第１年名縦{\vbox{\hbox{平}\hbox{成}\vskip.2zh
    \hbox to1zw{\hss\the\第１年y\hss}\vskip.2zh\hbox{年}\hbox{度}}}
\def\第２年名縦{\vbox{\hbox{平}\hbox{成}\vskip.2zh
    \hbox to1zw{\hss\the\第２年y\hss}\vskip.2zh\hbox{年}\hbox{度}}}
\def\第３年名縦{\vbox{\hbox{平}\hbox{成}\vskip.2zh
    \hbox to1zw{\hss\the\第３年y\hss}\vskip.2zh\hbox{年}\hbox{度}}}
\def\第４年名縦{\vbox{\hbox{平}\hbox{成}\vskip.2zh
    \hbox to1zw{\hss\the\第４年y\hss}\vskip.2zh\hbox{年}\hbox{度}}}
\def\第５年名縦{\vbox{\hbox{平}\hbox{成}\vskip.2zh
    \hbox to1zw{\hss\the\第５年y\hss}\vskip.2zh\hbox{年}\hbox{度}}}
\def\第６年名縦{\vbox{\hbox{平}\hbox{成}\vskip.2zh
    \hbox to1zw{\hss\the\第６年y\hss}\vskip.2zh\hbox{年}\hbox{度}}}
\def\前年{平成\the\第０年y 年}
\def\第１年{平成\the\第１年y 年}
\def\第２年{平成\the\第２年y 年}
\def\第３年{平成\the\第３年y 年}
\def\第４年{平成\the\第４年y 年}
\def\第５年{平成\the\第５年y 年}
\def\第６年{平成\the\第６年y 年}
%
\def\前年度{平成\the\第０年y 年度}
\def\第１年度{平成\the\第１年y 年度}
\def\第２年度{平成\the\第２年y 年度}
\def\第３年度{平成\the\第３年y 年度}
\def\第４年度{平成\the\第４年y 年度}
\def\第５年度{平成\the\第５年y 年度}
\def\第６年度{平成\the\第６年y 年度}
\def\第１年度k{平成\hbox to 1.1em{\hfill\the\第１年y\hfill}年度}
\def\第２年度k{平成\hbox to 1.1em{\hfill\the\第２年y\hfill}年度}
\def\第３年度k{平成\hbox to 1.1em{\hfill\the\第３年y\hfill}年度}
\def\第４年度k{平成\hbox to 1.1em{\hfill\the\第４年y\hfill}年度}
\def\第５年度k{平成\hbox to 1.1em{\hfill\the\第５年y\hfill}年度}
\def\第６年度k{平成\hbox to 1.1em{\hfill\the\第６年y\hfill}年度}
%
\newdimen\X
\newdimen\Y
\newdimen\XA	% also used as \htbackskip
\newdimen\YA	% also used as \dpbackskip, \upperlimit
\newdimen\XXa	% also used as \DOTsize, \HOFFSET (global)
\newdimen\XXb	% also used as \DW, \VOFFSET (global)
\newdimen\XXc	% also used as \DH, \oddHOFFSET (global)
\newdimen\XXd	% also used as \Xstep, \evenHOFFSET (global)
\newdimen\XXe	% also used as \Ystep, \doubleHOFFSET (global)
\newdimen\XXf	% also used as \Xdiff, \rulelength
\newdimen\XXg	% also used as \DX, \Rulethickness (global)
\newdimen\XXh	% also used as \DruleThickness (global)
\newdimen\XXi	% also used as \DruleSize (global)
%
% memory for positions of rules
\newdimen\XW%full width of table
\newdimen\YH%full height of table
\newdimen\XM \XM=0mm% X-direction margin
\newdimen\YM \YM=0mm% Y-direction margin
%
% 罫線位置絶対座標　左上角を原点とする
\newdimen\Xa
\newdimen\Xb
\newdimen\Xc
\newdimen\Xd
\newdimen\Xe
\newdimen\Xf
\newdimen\Xg
\newdimen\Xh
\newdimen\XI%これだけ大文字なのは、ギリシャ文字とぶつかるから。
\newdimen\Xj
\newdimen\Xk
\newdimen\Xl
\newdimen\Xm
\newdimen\Xn
\newdimen\Xo
\newdimen\Xp
\newdimen\Xpa
\newdimen\Xq
\newdimen\Xr
\newdimen\Xs
\newdimen\Xt
\newdimen\Xu
\newdimen\Xv
\newdimen\Xva
\newdimen\Xw
\newdimen\Xx
\newdimen\Xy
\newdimen\Xz
\newdimen\Xaa
\newdimen\Xab
\newdimen\Xac
\newdimen\Xad
\newdimen\Xae
\newdimen\Xaf
\newdimen\Xag
\newdimen\Xah
\newdimen\Ya
\newdimen\Yaa
\newdimen\Yb
\newdimen\Yc
\newdimen\Ycc
\newdimen\Yd
\newdimen\Ye
\newdimen\Yf
\newdimen\Yg
\newdimen\Yh
\newdimen\Yi
\newdimen\Yj
\newdimen\Yk
\newdimen\Yl
\newdimen\Ym
\newdimen\Yn
\newdimen\Yo
\newdimen\Yp
\newdimen\Yq
\newdimen\Yr
\newdimen\Yra	% by TS
\newdimen\Ys
\newdimen\Yt
\newdimen\Yu
\newdimen\Yv
\newdimen\Yw
\newdimen\Yx
%
%basic style
%
\def\調書style{
  \hsize=184.6mm
  \vsize=271.1mm
  \footline={\hfil}
  \linewidth=\hsize
  \parskip = 0pt
  \parindent=0pt
  \baselineskip = 4.0mm plus1mm minus0.5mm
  \footnotesize % default is 10pt
  \rightskip = 0pt plus 150mm
%  \itemsize=20pt
  \lineskip=0pt
  \topskip=0pt
}
%
% global advance
\def\Advance{\global\advance}
% various skips
%
\def\smallbaselineskip{\baselineskip=2.0mm}
\def\eightbaselineskip{\baselineskip=3.6mm}
\def\sevenbaselineskip{\baselineskip=2.4mm}
\def\sixbaselineskip{\baselineskip=2.1mm}
\def\lllkanjiskip{\kanjiskip=8pt plus 2pt minus 2pt
\xkanjiskip=8pt plus 2pt minus 2pt}
\def\kintokanjiskip{\kanjiskip=0pt plus 1fil minus 1fil%
\xkanjiskip=\kanjiskip}
%
% 文章入力のスタイル
\def\bunshostyle{
   \Twelvepoint
%  \bunshobaselineskip
   \linewidth=\hsize
   \parindent=1zw
   \parskip=1.0mm plus 0.5mm minus 1mm
   \rightskip=0pt
   \kanjiskip=0pt plus0.3pt
}
%
%magic way of pointing a place defined by X-Y coordinate
\let\htbackskip=\XA
\let\dpbackskip=\YA
\long\def\XY#1#2#3{{
  \setbox\dummybox=\vbox{
    \vskip#2
    \hbox to \hsize{%
      \hskip#1
      \vbox{\advance\hsize by -#1#3}\hfil
    }
  }
  \htbackskip=-\ht\dummybox
  \dpbackskip=-\dp\dummybox
%
  \box\dummybox\nointerlineskip
  \vskip\htbackskip
  \vskip\dpbackskip
}}
%
% 絶対位置　(#1, #2) (#3, #4)で定まるボックスに
% #5 を入れて上下左右でセンタリングする。
\long\def\XYBC#1#2#3#4#5{
  \X=#3 \Y=#4 \advance\X by -#1 \advance\Y by -#2
  \XY{#1}{#2}{\CBOX{\X}{\Y}{#5}}
}
% BOX を描く。縦横にセンタリングされる。#1, #2引数は長さで与える
% 箱の横の長さ、縦の長さ、中身
%%%%
\long\def\CBOX#1#2#3{{
  \hsize=#1\linewidth=\hsize
  \setbox\dummybox\hbox{#3}
  \vbox to #2{
    \vfil
    \ifdim#1 < \wd\dummybox
      \X=#1
      \advance\X by -4mm
      \hbox to \hsize{\hfil\vbox{\hsize=\X\linewidth=\hsize #3}\hfil}
    \else
      \hbox to \hsize{\hfil #3\hfil}
    \fi
    \vfil
  }
}}
%
% 絶対位置　(#1, #2) (#3, #4)で定まるボックスに
% パラグラフとして#5 を入れる。マージン（両側）はXM, YM で決まる。
\long\def\XYBP#1#2#3#4#5{
  \X=#3 \Y=#4 \advance\X by -#1 \advance\Y by -#2
  \XY{#1}{#2}{\PBOX{\X}{\Y}{#5}}
}
\long\def\PBOX#1#2#3{
   \X=#1 \Y=#2 \advance\X by -\XM \XA=\X \advance\X by -\XM
               \advance\Y by -\YM \YA=\Y \advance\Y by -\YM
   \vbox to \YA{\vskip\YM
   \hbox to \XA{\hskip\XM\vbox to \Y{\hsize=\X\linewidth=\X #3\vfil}%
   \hfil}
}}
%
% 右詰めボックス
\def\RBOX#1{\hbox to \hsize{\hfil#1}}
% 数字用ボックス（コンマ処理付き）
\def\NBOX#1{\hbox to \hsize{\hfil\Number{#1}}}
\def\BBOX#1{\hbox to \hsize{\hfil\smash{(}\Number{#1}\rlap{\smash{)}}}}
%
% 数字をローカルに足す。空白なら足さない。
\def\Add#1#2{\def\DUMMY{#2}\ifx\DUMMY\empty\else\advance#1 by#2\fi\relax}
% 数字をグローバルに足す。空白なら足さない。
\def\ADD#1#2{\def\DUMMY{#2}\ifx\DUMMY\empty\else\Advance#1 by#2\fi\relax}
%
% \hsizeをセットするマクロ 両端x座標 #1, #2, 両側からのマージン #3
\def\SEThsize#1#2#3{%
\hsize=#2 \advance\hsize by -#1%
\advance\hsize by -#3 \advance\hsize by -#3}
%
%ボックスをつぶさないための横方向の見えない柱
\def\SS{\vskip0pt\hrule width\hsize height0pt depth0pt}
%
%HALIGNxxx用のタブスキップ
\def\TS{\hskip\XM}
\def\TSTS{\hskip\XM\hskip\XM}
%
%HALIGN用のコラム位置座標記憶マクロ
\def\SEThalignsizeTWO#1#2#3{\XXa=#1 \XXb=#2 \XXc=#3}
\def\SEThalignsizeTHREE#1#2#3#4{\XXa=#1 \XXb=#2 \XXc=#3 \XXd=#4}
\def\SEThalignsizeFOUR#1#2#3#4#5{\XXa=#1 \XXb=#2 \XXc=#3 \XXd=#4 \XXe=#5}
\def\SEThalignsizeFIVE#1#2#3#4#5#6{
\XXa=#1 \XXb=#2 \XXc=#3 \XXd=#4 \XXe=#5 \XXf=#6}
\def\SEThalignsizeSIX#1#2#3#4#5#6#7{
\XXa=#1 \XXb=#2 \XXc=#3 \XXd=#4 \XXe=#5 \XXf=#6 \XXg=#7}
\def\SEThalignsizeSEVEN#1#2#3#4#5#6#7#8{
\XXa=#1 \XXb=#2 \XXc=#3 \XXd=#4 \XXe=#5 \XXf=#6 \XXg=#7 \XXh=#8}
\def\SEThalignsizeEIGHT#1#2#3#4#5#6#7#8#9{
\XXa=#1 \XXb=#2 \XXc=#3 \XXd=#4 \XXe=#5 \XXf=#6 \XXg=#7 \XXh=#8 \XXi=#9}
%
%
%絶対位置指定されたコラムにアラインする
%コラム境界位置Ｘ座標はSEThalignsizexxxで事前に変数に代入されている。
%２カラムタイプ
%これは研究経費の明細で使われる。
\long\def\HALIGNtwo#1#2{{%
 \X=\XXc \advance\X by -\XXa
 \hbox to \X{%
   \null\TS%
   \vtop{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS%
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TS
 }\break%
}}
%
% 業績専用２カラムタイプ　第一カラムが to 0pt となっている
\long\def\HALIGNtwo業績#1#2{{%
 \X=\XXc \advance\X by -\XXa
 \hbox to \X{%
   \null\TS
   \vtop to 0pt{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TS
 }\break
}}
% ３カラムタイプ
\long\def\HALIGNthree#1#2#3{{%
 \X=\XXd \advance\X by -\XXa
 \hbox to \X{%
   \null\TS
   \vtop{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TSTS
   \vtop{\SEThsize{\XXc}{\XXd}{\XM}#3\SS}%
   \TS
 }\break
}}
%
% ４カラムタイプ
\long\def\HALIGNfour#1#2#3#4{{%
 \X=\XXe \advance\X by -\XXa
 \hbox to \X{%
   \null\TS
   \vtop{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TSTS
   \vtop{\SEThsize{\XXc}{\XXd}{\XM}#3\SS}%
   \TSTS
   \vtop{\SEThsize{\XXd}{\XXe}{\XM}#4\SS}%
   \TS
 }\break
}}
% ５カラムタイプ
\long\def\HALIGNfive#1#2#3#4#5{{%
 \X=\XXf \advance\X by -\XXa
 \hbox to \X{%
   \null\TS
   \vtop{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TSTS
   \vtop{\SEThsize{\XXc}{\XXd}{\XM}#3\SS}%
   \TSTS
   \vtop{\SEThsize{\XXd}{\XXe}{\XM}#4\SS}%
   \TSTS
   \vtop{\SEThsize{\XXe}{\XXf}{\XM}#5\SS}%
   \TS
 }\break
}}
%６カラムタイプ
\long\def\HALIGNsix#1#2#3#4#5#6{{%
 \X=\XXg \advance\X by -\XXa
 \hbox to \X{%
   \null\TS
   \vtop{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TSTS
   \vtop{\SEThsize{\XXc}{\XXd}{\XM}#3\SS}%
   \TSTS
   \vtop{\SEThsize{\XXd}{\XXe}{\XM}#4\SS}%
   \TSTS
   \vtop{\SEThsize{\XXe}{\XXf}{\XM}#5\SS}%
   \TSTS
   \vtop{\SEThsize{\XXf}{\XXg}{\XM}#6\SS}%
   \TS
 }\break
}}
%７カラムタイプ
\long\def\HALIGNseven#1#2#3#4#5#6#7{{%
 \X=\XXh \advance\X by -\XXa
 \hbox to \X{%
   \null\TS
   \vtop{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TSTS
   \vtop{\SEThsize{\XXc}{\XXd}{\XM}#3\SS}%
   \TSTS
   \vtop{\SEThsize{\XXd}{\XXe}{\XM}#4\SS}%
   \TSTS
   \vtop{\SEThsize{\XXe}{\XXf}{\XM}#5\SS}%
   \TSTS
   \vtop{\SEThsize{\XXf}{\XXg}{\XM}#6\SS}%
   \TSTS
   \vtop{\SEThsize{\XXg}{\XXh}{\XM}#7\SS}%
   \TS
 }\break
}}
%
%８カラムタイプ
\long\def\HALIGNeight#1#2#3#4#5#6#7#8{{%
 \X=\XXi \advance\X by -\XXa
 \hbox to \X{%
   \null\TS
   \vtop{\SEThsize{\XXa}{\XXb}{\XM}#1\SS}%
   \TSTS
   \vtop{\SEThsize{\XXb}{\XXc}{\XM}#2\SS}%
   \TSTS
   \vtop{\SEThsize{\XXc}{\XXd}{\XM}#3\SS}%
   \TSTS
   \vtop{\SEThsize{\XXd}{\XXe}{\XM}#4\SS}%
   \TSTS
   \vtop{\SEThsize{\XXe}{\XXf}{\XM}#5\SS}%
   \TSTS
   \vtop{\SEThsize{\XXf}{\XXg}{\XM}#6\SS}%
   \TSTS
   \vtop{\SEThsize{\XXg}{\XXh}{\XM}#7\SS}%
   \TSTS
   \vtop{\SEThsize{\XXh}{\XXi}{\XM}#8\SS}%
   \TS
 }\break
}}
%
% マクロで\XMによりプリセットされたボックス内部のマージンを０にリセット
% カラムの境界ぎりぎりまで使いたい場合にユーザーが用いる
\def\NoXmargin{\leftskip-\XM\rightskip-\XM}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%vertival rule with 0.3pt width
% 縦罫線　0.3pt 幅　始点座標　(#1, #2) 終点Ｙ座標 #3
\let\rulelength=\XXf
\def\Vrulethin#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -#2
   \XY{#1}{#2}{\vrule width0.3pt height\rulelength depth0pt}
%\XY{#1}{#2}{\PBOX{200mm}{30mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}}}
}}
%
%horizontal rule with 0.3pt width
% 横罫線　0.3pt 幅　始点座標　(#1, #2) 終点Ｘ座標 #3
\def\Hrulethin#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -#1
   \XY{#1}{#2}{\vrule width\rulelength height0.3pt depth0pt}
%\XY{#1}{#2}{\PBOX{200mm}{30mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}}}
}}
%%standard rules with \Rulethickness
\let\Rulethickness=\XXg \Rulethickness=0.75pt
%%vertival rule with \Rulethickness (default 0.75pt) width
% 縦罫線　0.75pt 幅　始点座標　(#1, #2) 終点Ｙ座標 #3
\def\Vrule#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -#2
   \XY{#1}{#2}{\vrule width\Rulethickness height\rulelength depth0pt}
%\XY{#1}{#2}{\PBOX{200mm}{30mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}}}
}}
%
%horizontal rule with \Rulethickness (default 0.75pt)  width
% 横罫線　0.75pt 幅　始点座標　(#1, #2) 終点Ｘ座標 #3
\def\Hrule#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -#1
   \XY{#1}{#2}{\vrule width\rulelength height\Rulethickness depth0pt}
%\XY{#1}{#2}{\PBOX{200mm}{30mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}}}
}}
%
%vertival rule with 1.0pt width
% 縦罫線　1.0pt 幅　始点座標　(#1, #2) 終点Ｙ座標 #3
\def\Vrulethick#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -#2
   \XY{#1}{#2}{\vrule width1.0pt height\rulelength depth0pt}
%\XY{#1}{#2}{\PBOX{200mm}{30mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}}}
}}
%horizontal rule with 1.0pt width
% 横罫線　1.0pt 幅　始点座標　(#1, #2) 終点Ｘ座標 #3
\def\Hrulethick#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -#1
   \XY{#1}{#2}{\vrule width\rulelength height1.0pt depth0pt}
%\XY{#1}{#2}{\PBOX{200mm}{30mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}}}
}}
%
\let\upperlimit=\YA
% 横太罫線(改): 横細罫線と同じ位置の太い罫線
\def\HrulethickU#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -#1
   \upperlimit=#2
   \advance\upperlimit by -0.5pt
   \XY{#1}{\upperlimit}{\vrule width\rulelength height1.0pt depth0pt}
%\XY{#1}{\upperlimit}{\PBOX{200mm}{30mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}}}
}}
%BOX rules with 0.75pt width
% 箱型罫線　右下隅の欠けを防ぐためのマクロ
% 対角線指定　(#1, #2) --- (#3, #4)
\def\Brule#1#2#3#4{
   \X=#4 \Add{\X}{0.75pt}
   \Hrule{#1}{#2}{#3}
   \Hrule{#1}{#4}{#3}
   \Vrule{#1}{#2}{#4}
   \Vrule{#3}{#2}{\X}
%\XY{#1}{#2}{\PBOX{250mm}{50mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}, \NBOX{#4}}}
}
%
%BOX rules with 1.0pt width
% 箱型罫線　右下隅の欠けを防ぐためのマクロ
% 対角線指定　(#1, #2) --- (#3, #4)
\def\Brulethick#1#2#3#4{
   \X=#4 \Add{\X}{1.0pt}
   \Hrulethick{#1}{#2}{#3}
   \Hrulethick{#1}{#4}{#3}
   \Vrulethick{#1}{#2}{#4}
   \Vrulethick{#3}{#2}{\X}
%\XY{#1}{#2}{\PBOX{250mm}{50mm}{\NBOX{#1}, \NBOX{#2}, \NBOX{#3}, \NBOX{#4}}}
}
%
%vertical dashed rule with \Rulethickness width
% 縦鎖罫線　\Rulethickness 幅　始点座標　(#1, #2) 終点Ｙ座標 #3
\def\Vruledash#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -5pt
   \loop\ifdim\rulelength>#2\XY{#1}{\rulelength}{\vrule
     height 2pt depth0pt width\Rulethickness}
   \advance\rulelength by -5pt\repeat
}}
%horizontal dashed rule with \Rulethickness width
% 横鎖罫線　\Rulethickness 幅　始点座標　(#1, #2) 終点Ｘ座標 #3
\def\Hruledash#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -5pt
   \loop\ifdim\rulelength>#1\XY{\rulelength}{#2}{\vrule
     height\Rulethickness depth0pt width 2pt}
   \advance\rulelength by -5pt\repeat
}}
%
%vertical dotted rule with 0.25pt width
% 縦点罫線　0.6pt 幅　始点座標　(#1, #2) 終点Ｙ座標 #3
\def\Vruledot#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -2pt
   \loop\ifdim\rulelength>#2\XY{#1}{\rulelength}{\vrule
     height 1pt depth0pt width0.6pt}
   \advance\rulelength by -2pt\repeat
}}
%horizontal dotted rule with 0.25pt width
% 横点罫線　0.6pt 幅　始点座標　(#1, #2) 終点Ｘ座標 #3
\def\Hruledot#1#2#3{{
   \rulelength=#3
   \advance\rulelength by -2pt
   \loop\ifdim\rulelength>#1\XY{\rulelength}{#2}{\vrule
     height0.6pt depth0pt width 1pt}
   \advance\rulelength by -2pt\repeat
}}
%
\def\BKh{\kern-0.5zw}
\def\BKs{\hskip-1mm}
\def\ＡＣ{\if特定Ｃ Ｃ\else Ａ\fi}
\def\区分点線{\par\noindent\leaders\hbox to 5pt{\hss-\hss}\hfill\mbox{}\par}
\def\ロゴ#1#2#3{{\YM=0mm\XYBP{\Xa}{#1}{\XW}{\Ya}{\hbox to \hsize{%
\hfil\twelvegt\twelvebf#3\hskip#2}}}}
\def\頁#1#2#3{{\YA=#1
  \setbox\dummybox\hbox{\twelvegt\twelvebf#3}\advance\YA-\ht\dummybox
  \YM=0mm\XYBP{\Xa}{\YA}{\XW}{\Ya}{\hbox to \hsize{%
    \hfil\undertext{\box\dummybox}\hskip#2}}}}
\def\概要頁#1#2{{\YM=0mm\XYBP{\Xa}{#1}{\XW}{\Ya}{\hbox to \hsize{%
\hfil\twelvegt#2\hskip1.5mm}}}}
%
% 文字数、行数単位のスキップ
% hskip #1 zw, vskip #1 baselineskip
%
\long\gdef\Sz#1{\hskip #1zw}
\long\gdef\Sb#1{\vskip #1\baselineskip}
%
% print asterisk
%
\long\gdef\ASTER{\lower0.6ex\hbox{*}}
%
%%%%
% underline
\def\undertext#1{\vtop{\hbox{#1}\kern-.5pt \hrule}}
\def\U#1{$\underline{\hbox{#1}}$}
%
%%%%
% contributed by T. Sato (Kyoto U)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%
% kinto{size}{KANJI TEXT}
\def\kinto#1#2{\hbox to #1{\kintokanjiskip#2}}
%
\ifNTTTeX
 \jfont\ninemin=dm9
\else
 \font\ninemin=min9
\fi
% \maru{x} : encircled number x (should be 1digit), easy version
\def\maru#1{{\ninemin\leavevmode\lower.05zh\hbox{%
\rlap{\hbox to 1zw{\hfil ○\hfil}}%
\raise.12zh\hbox to 1zw{\hfil{\sevenrm#1}\hfil}}}}
%
% \smaru{x} : small circle version
\def\smaru#1{{\eightmin\leavevmode\lower.05zh\hbox{%
\rlap{\hbox to 1zw{\hfil ○\hfil}}%
\raise.13zh\hbox to 1zw{\hfil{\sixrm#1}\hfil}}}}
%%%%
\ifNTTTeX
\jfont\Marufont=dg10 scaled 1600
\else
\font\Marufont=goth10 scaled 1600
\fi
\def\Maru{{\Marufont\lower.4zh\hbox{○}}}
%%%%
% \Number{number} : 数字の３桁毎にコンマを入れるマクロ（９桁まで）
\newif\ifコンマ付数字 \コンマ付数字true
\def\コンマ付数字{\コンマ付数字true}
\def\コンマなし数字{\コンマ付数字false}
\newcount\Numa
\newcount\Numb
\def\Numempty{}%文字列「-0」が与えられると空白を出力する
\def\Number#1{\edef\Numpar{#1}\ifx\Numempty\Numpar\else%
\ifコンマ付数字\Numa=#1\relax
\ifnum\Numa>999999\divide\Numa by 1000000
\number\Numa,%
\multiply\Numa by -1000000\advance\Numa by #1\relax
\Numb=\Numa\divide\Numa by 1000
\ifnum\Numa<100 \ifnum\Numa<10 0\fi0\fi\number\Numa,%
\multiply\Numa by -1000\advance\Numa by \Numb
\ifnum\Numa<100 \ifnum\Numa<10 0\fi0\fi\number\Numa%
\else\ifnum\Numa>999\divide\Numa by 1000
\number\Numa,%
\multiply\Numa by -1000\advance\Numa by #1\relax
\ifnum\Numa<100 \ifnum\Numa<10 0\fi0\fi\number\Numa%
\else\number\Numa\fi\fi\else\number#1\fi\fi}
%------------------------------------------------------------------------
\if特定計画	% by TS
\def\CSP{\Sz{1.6}} % 機関番号，所属（部局）番号，職番号用
\def\CSPP{\Sz{2.55}}% 研究者番号用
\def\CSPS{\Sz{1.5}}
\else		% by TS
\def\CSP{\Sz{1.5}} % 機関番号，所属（部局）番号，職番号用
\def\CSPP{\Sz{2.8}}% 研究者番号用
\def\CSPS{\Sz{1.7}}
\fi		% by TS
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 職番号用（２桁）
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\NumTwo#1{\edef\Numpar{#1}\ifx\Numempty\Numpar\else%
\Numa=#1\relax \divide\Numa by 10 \number\Numa\CSP%
\multiply\Numa by -10 \advance\Numa by #1\relax \number\Numa%
\fi }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 所属番号用（３桁）
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\NumThree#1{\edef\Numpar{#1}\ifx\Numempty\Numpar\else%
\Numa=#1\relax \divide\Numa by 100 \number\Numa\CSP%
\multiply\Numa by -100 \advance\Numa by #1\relax \Numb=\Numa
\divide\Numa by 10 \number\Numa\CSP%
\multiply\Numa by -10 \advance\Numa by \Numb
\number\Numa%
\fi }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 整理番号用（４桁）
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\NumFour#1{\edef\Numpar{#1}\ifx\Numempty\Numpar\else%
\Numa=#1\relax \divide\Numa by 1000 \number\Numa\CSPS%
\multiply\Numa by -1000 \advance\Numa by #1\relax
\Numb=\Numa \divide\Numa by 100 \number\Numa\CSPS%
\multiply\Numa by -100 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 10 \number\Numa\CSPS%
\multiply\Numa by -10 \advance\Numa by \Numb
\number\Numa%
\fi }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 機関番号用（５桁）
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\NumFive#1{\edef\Numpar{#1}\ifx\Numempty\Numpar\else%
\Numa=#1\relax \divide\Numa by 10000 \number\Numa\CSPS%
\multiply\Numa by -10000 \advance\Numa by #1\relax
\Numb=\Numa \divide\Numa by 1000 \number\Numa\CSPS%
\multiply\Numa by -1000 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 100 \number\Numa\CSPS%
\multiply\Numa by -100 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 10 \number\Numa\CSP%
\multiply\Numa by -10 \advance\Numa by \Numb
\number\Numa%
\fi }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 研究者番号用（８桁）
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\NumEight#1{\edef\Numpar{#1}\ifx\Numempty\Numpar\else%
\Numa=#1 \divide\Numa by 10000000 \number\Numa\CSPP%
\multiply\Numa by -10000000 \advance\Numa by #1\relax
\Numb=\Numa \divide\Numa by 1000000 \number\Numa\CSPP%
\multiply\Numa by -1000000 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 100000 \number\Numa\CSPP%
\multiply\Numa by -100000 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 10000 \number\Numa\CSPP%
\multiply\Numa by -10000 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 1000 \number\Numa\CSPP%
\multiply\Numa by -1000 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 100 \number\Numa\CSPP%
\multiply\Numa by -100 \advance\Numa by \Numb
\Numb=\Numa \divide\Numa by 10 \number\Numa\CSPP%
\multiply\Numa by -10 \advance\Numa by \Numb
\number\Numa%
\fi }
%------------------------------------------------------------------------
%
% #2 から #3 までに横罫線を引く。罫線入りのボックスは#1におく。
% 縦位置は呼ばれた時の位置
\def\横区分線#1#2#3{\X=#3\advance\X by -#1%
\hbox to \X{\hfil\X=#3\advance\X by -#2%
\vrule width\X height0.25pt depth0pt}}
%
% 位置の最終調整用変数
\let\HOFFSET=\XXa \HOFFSET=0mm
\let\VOFFSET=\XXb \VOFFSET=0mm
% 印刷位置決めを偶奇頁で区別するためのパラメータ
% \doubleHOFFSET は偶奇で逆にずらす。
\let\oddHOFFSET=\XXc \oddHOFFSET=0mm
\let\evenHOFFSET=\XXd \evenHOFFSET=0mm
\let\doubleHOFFSET=\XXe \doubleHOFFSET=0mm
%
%各頁毎に呼ばれる位置調整コマンド
\def\OFFSET{
  \advance\hoffset by \HOFFSET
  \ifodd\count0
    \advance\hoffset by \oddHOFFSET
    \advance\hoffset by \doubleHOFFSET
  \else
    \advance\hoffset by \evenHOFFSET
    \advance\hoffset by -\doubleHOFFSET
  \fi
  \advance\voffset by \VOFFSET
  \ifのりしろ印刷\ifのりしろ出力\のりしろ出力\fi\fi
}
%
\def\SEThoffset{
 \ifodd\pageno
  \hoffset = -0.9cm
 \else 
  \hoffset = -1.90cm
 \fi
}
%
\def\のりしろ出力{%
    \ifodd\pageno\odd頁のりしろ出力
    \else\even頁のりしろ出力\fi
}
%
\def\even頁のりしろ出力{
    \XA=\hsize\Add{\XA}{-6.5mm}
    \YA=-1in\Add{\YA}{-\voffset}
    \Vruledash{\XA}{\YA}{\vsize}
    \Add{\YA}{10cm}\XY{\XA}{\YA}{{\fivemin の}}
    \Add{\YA}{ 2cm}\XY{\XA}{\YA}{{\fivemin り}}
    \Add{\YA}{ 2cm}\XY{\XA}{\YA}{{\fivemin し}}
    \Add{\YA}{ 2cm}\XY{\XA}{\YA}{{\fivemin ろ}}
    \XA=0mm \YA=0mm
}
\def\odd頁のりしろ出力{
   \ifnum\pageno=1
    \XA=-1in\Add{\XA}{-\hoffset}
    \YA=-1in\Add{\YA}{-\voffset}
    \Add{\XA}{-2mm}
    \Add{\YA}{10.7cm}\Add{\XA}{8mm}
    \XY{\XA}{\YA}{+}
    \Add{\YA}{8cm}
    \XY{\XA}{\YA}{+}
    \XA=0mm \YA=0mm
   \else
    \XA=-1in\Add{\XA}{-\hoffset}\Add{\XA}{6.5mm}
    \YA=-1in\Add{\YA}{-\voffset}
    \Vruledash{\XA}{\YA}{\vsize}
    \Add{\XA}{-1.3mm}
    \Add{\YA}{10cm}\XY{\XA}{\YA}{{\fivemin の}}
    \Add{\YA}{ 2cm}\XY{\XA}{\YA}{{\fivemin り}}
    \Add{\YA}{ 2cm}\XY{\XA}{\YA}{{\fivemin し}}
    \Add{\YA}{ 2cm}\XY{\XA}{\YA}{{\fivemin ろ}}
    \XA=0mm \YA=0mm
   \fi
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 任意の２点に罫線（含む斜線）を引く aoki 93/10/30
%   \Drule{#1}{#2}{#3}{#4}
%     (#1,#2) --> (#3,#4)  太さは変数\DruleThicknessで与える。
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%以下では、Ｙの正方向は下、Ｘの正方向は右である。
%SmallTeX では定義しない。
%
% プリンタのＤＰＩをセット。しかし、公称値が最適とは限らない。
\newcount\DPI\DPI=300
\newif\ifSTEEP% 勾配の絶対値が１より大かどうか
\newif\ifVERTICAL% 垂直罫線かどうか
\newif\ifHORIZONTAL% 水平罫線かどうか
\newif\ifREVERSE% Ｙ変位を正にした時にＸ変位が負
\newcount\LOOPcount% loop counter
\let\DOTsize=\XXa
\let\DW=\XXb
\let\DH=\XXc
\let\Xstep=\XXd% 正負あり
\let\Ystep=\XXe
\let\Xdiff=\XXf% 正に固定
\let\DX=\XXg
\let\DruleThickness=\XXh \DruleThickness=0.25pt
\let\DruleSize=\XXi
%
\ifSmallTeX
 \def\Drule#1#2#3#4{}
\else
%
\def\Drule#1#2#3#4{{%
%
% まずＹ方向変位を正にセット。(X,Y) ---> (XA,YA)  YA > Y
\ifdim#2 > #4
  \X=#3\Y=#4\XA=#1\YA=#2
\else
  \X=#1\Y=#2\XA=#3\YA=#4
\fi
%
% 罫線のＸ方向とＹ方向の変位。この段階ではＤＷは正負あり。
\DW=\XA \advance\DW by -\X
\DH=\YA \advance\DH by -\Y
%
% 垂直または水平の罫線かどうかのチェック、別処理をする。
\VERTICALfalse\HORIZONTALfalse
\ifdim\DW=0cm
  \ifdim\DH=0cm \errmessage{Null Drule ...}\else\VERTICALtrue\fi
\else\ifdim\DH=0cm \HORIZONTALtrue\fi\fi
%
\ifVERTICAL
%  \message{DiagonalRule (\the\X,\the\Y)-->(\the\XA,\the\YA) by vrule
%  Thickness \the\DruleThickness }%
%▲  \message{Drule:1seg }%
  \XY{\X}{\Y}{\noindent\vrule width\DruleThickness height\DH depth0pt}
\else\ifHORIZONTAL% Ｘ方向を正にセットし直す必要がある。
%  \message{DiagonalRule (\the\X,\the\Y)-->(\the\XA,\the\YA) by hrule
%  Thickness \the\DruleThickness }%
%▲  \message{Drule:1seg }%
  \ifdim\DW < 0cm \X=\XA \multiply\DW by -1 \fi
  \XY{\X}{\Y}{\noindent\vrule width\DW height\DruleThickness depth0pt}
\else% 以下すべてがこの場合である。
%
% 勾配の絶対値が１より大きい時には、STEEPtrueをセット
\STEEPfalse
\ifdim\DW < \DH \ifdim\DW > -\DH \STEEPtrue \fi\fi
%
% DW < 0 の時にはREVERSEtrueをセット。
% これ以降、DW も正に固定。
\REVERSEfalse
\ifdim\DW < 0cm \REVERSEtrue \multiply\DW by -1 \fi
%
% 罫線の太さの補正。
\Ta=\DH \divide\Ta by 100
\Tb=\DW \divide\Tb by 100
% 100 倍の tanθ(Tc) を計算。
\ifSTEEP
  \multiply\Tb by 100 \divide\Tb by \Ta \Tc=\Tb
\else
  \multiply\Ta by 100 \divide\Ta by \Tb \Tc=\Ta
\fi
% 補正因子(Td)は cosθ とするが、１から１/ルート２まで動く。
% この区間を７区間に分けて補正する。
%
\ifnum     \Tc < 23 \Td=100
\else\ifnum\Tc < 41 \Td= 95
\else\ifnum\Tc < 55 \Td= 90
\else\ifnum\Tc < 69 \Td= 85
\else\ifnum\Tc < 82 \Td= 80
\else\ifnum\Tc < 95 \Td= 75
\else               \Td= 71
\fi\fi\fi\fi\fi\fi
%
\DruleSize=\DruleThickness
\multiply\DruleSize by 100 \divide\DruleSize by \Td
%
%
% ＤＰＩに対応する１ドットのサイズ
\DOTsize=1in \divide\DOTsize by \DPI \Ystep=\DOTsize
%
% ステップ数（セグメント数）（正に固定）を決める。
% 勾配が１以下の場合はＹ変位から、１以上の場合はＸ変位から決める。
% （太い罫線の場合には）罫線の太さ１セグメント分の補正が必要。
% 相手側の１ステップ変位は、全変位をステップ数で割って得る。
\ifSTEEP
  \LOOPcount=\DW \advance\LOOPcount by -\DruleSize
  \divide\LOOPcount by \DOTsize \advance\LOOPcount by 1
  \Xstep=\DOTsize
  \Ystep=\DH \divide\Ystep by \LOOPcount
\else
  \LOOPcount=\DH \advance\LOOPcount by -\DruleSize
  \divide\LOOPcount by \DOTsize \advance\LOOPcount by 1
  \Ystep=\DOTsize
  \Xstep=\DW \divide\Xstep by \LOOPcount
\fi
%
% REVERSEの時にはXstepを負にセット。絶対値をXdiffにキープ。
\Xdiff=\Xstep
\ifREVERSE\multiply\Xstep by -1 \fi
%
%\message{DiagonalRule (\the\X,\the\Y)-->(\the\XA,\the\YA) by
%(\the\Xstep,\the\Ystep) Thickness \the\DruleSize (\number\Td) }
%▲\message{Drule:\number\LOOPcount segs }
%
% セグメントの初期位置=DX のセット
%
\ifREVERSE
  \DX=\DW
  \ifSTEEP\advance\DX by -\DruleSize\fi%罫線幅戻し
  \advance\DX by \Xdiff%右端から更に１ステップ分右
  \X=\XA% REVERSE 時には、ＸＹボックス命令の左上はXAで与えられる
\else
  \DX=0cm
\fi
%
\XY{\X}{\Y}{%
\advance\LOOPcount by 1
\loop
  \advance\LOOPcount by -1
  \advance\DX by \Xstep
  \ifnum\LOOPcount > 0%
    \vbox to \ifSTEEP\Ystep\else\DruleSize\fi
      {\hsize=\DW\hbox to \DW{%
      \X=\DX\advance\X by -\Xdiff%
        \hskip\X
        \vrule height\ifSTEEP\Ystep\else\DruleSize\fi
               depth0pt
               width\ifSTEEP\DruleSize\else\Xdiff\fi
%\message{\number\LOOPcount:\the\Xdiff :}
        \hfill
    }}%
    \ifSTEEP\else\vskip-\DruleSize\vskip\Ystep\fi
    \nointerlineskip%
\repeat
}
\fi\fi% 垂直または水平罫線の別処理のＩＦの終わり
}}
\fi
%%%%%%%
%%%%%
% vsplit をする時に BOX からはみ出すことを防ぐ
\splitmaxdepth=\maxdepth
%%%%%
% システムチェックのための長い文章
\long\def\BB#1#2{\TA=0\loop\ifnum\TA<#1 #2\advance\TA by 1\repeat}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 余分な空白のチェック
\def\CheckSpaces{\空白チェックtrue
  \if若手ＡＢ
    \空白チェック{\若手研究業績}%
  \else
    \空白チェック{\研究組織}%
    \if企画
    \else\if萌芽\else
      \空白チェック{\研究業績}%
    \fi\fi
  \fi
  \if重複申請
    \空白チェック{\重複研究組織}%
  \fi
  \if特定
    \空白チェック{\研究業績概要}%
  \else
    \if企画
      \def\消耗品費等明細##1##2##3##4##5##6{\relax}%
%%%   ここに \let\消耗品費等明細\消耗品費等明細１ を書くとエラーになる．%%
      \空白チェック{\研究経費の明細}%
    \else
%%%   \if基盤or萌芽or奨励Ａ と同値かな．．．%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      \if基盤Ｓ\else
       \空白チェック{\設備備品費および消耗品費の明細}%
       \空白チェック{\旅費等の明細}%
      \fi
    \fi
  \fi
  \空白チェックfalse
  }
\def\空白チェック#1{%
  \setbox\dummybox\vbox{#1}%
%  \ifvoid\dummybox\else
%%% なぜ，この記述ではうまく行かないのだろう．．．
  \ifdim \wd\dummybox > 0pt
    \errmessage{There is some invisible spaces
	            in the definition of \noexpand#1}%
  \fi
  }
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% フォントサイズの自動調整 by M. Nomura, 2000/09/20
%
\def\項目欄高さ#1#2#3{\tenmin\tenrm%
  \gdef\フォントサイズ{\tenmin\tenrm}%
  \setbox\dummybox\vbox{#3}\YM=#2\advance\YM-#1
  \ifdim \ht\dummybox >\YM\relax
    \message{「\string#3」の項目が多すぎるので文字の大きさを変更します}
    \gdef\フォントサイズ{\eightmin\eightrm}%
  \fi}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 黒い四角
\def\SHIKAKU{\hbox to 4mm{\hfil\vrule width0.8mm height 1.7mmdepth-0.9mm\hfil}}
\def\LSHIKAKU{\hbox to 8mm{\hfil\vrule width1.0mm height 2.7mmdepth-1.7mm\hfil}}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% PS色帯用 .eps file を作る。
\catcode`\%=11
\def\MakeEPS{
  \def\today{\ifcase\month\or
    Jan\or Feb\or Mar\or Apr\or May\or Jun\or
    Jul\or Aug\or Sep\or Oct\or Nov\or Dec\fi
  \space\number\day, \number\year}
  \openout9=\jobname.eps
  \write9{%!PS-Adobe-2.0 EPSF-1.2}
  \write9{%%Creator: kkhform.mac}
  \write9{%%CreationDate: \today}
  \write9{%%For: (kakenhi-macro)}
  \write9{%%Title: (\jobname.eps)}
  \write9{%%BoundingBox: 0 0 620 70}
  \write9{%%EndComments}
  \write9{/sc {setrgbcolor} def}
  \if特定
    \write9{1 0 0 sc %red}
    \write9{331 42 moveto 264 0 rlineto 0 -42 rlineto}
  \fi
  \if基盤ＡＢＣ 
    \write9{0 0 0 sc %black} 
    \write9{331 70 moveto 264 0 rlineto 0 -70 rlineto}
  \fi
  \if企画   \write9{0.59599 0.216 0 sc %brown} \fi
  \if萌芽 
    \write9{1 0.40401 0 sc %orange} 
    \write9{335 66 moveto 259 0 rlineto 0 -66 rlineto}
  \fi
  \write9{closepath fill 0 0 0 setrgbcolor %black}
  \write9{%%EOF}
  \closeout9
  \message{PS色帯 is written on \jobname.eps.}
}
\catcode`\%=14
% 未対応種目用：
%  \if特定Ｃ \write9{0.004 1 1 sc %skyblue} \fi
%  \if奨励Ａ \write9{0.502 0 0.502 sc %violet} \fi
%  \if展開   \write9{0 0 1 sc %blue} \fi
% kABk \write9{1 0 1 sc %pink}
% ts   \write9{0 0.502 0 sc %green}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%end of kkh.mac