gftool/gfopen.F:11:
      SUBROUTINE GFOPEN
     O         ( IFILE , IERR  ,
     I           HFILX , IFILED, HACT  , HFORM   )
      INTEGER    IFILE                       !" 装置番号
      INTEGER    IERR                        !" エラー≠０
      CHARACTER  HFILX *(*)                  !" ファイル名
      INTEGER    IFILED                      !" デフォルト装置番号
      CHARACTER  HACT  *(*)                  !" 読み／書き
      CHARACTER  HFORM *(*)                  !" フォーマット
 
gftool/gfopen.F:127:
      SUBROUTINE GFCLSE
     M         ( IFILE  )
      INTEGER    IFILE                    !" 装置番号
 
gftool/gfqadj.F:9:
      SUBROUTINE GFQADJ
     I         ( IXDIM , IYDIM , IZDIM )
      INTEGER    IXDIM                       !" 第1次元の整合寸法
      INTEGER    IYDIM                       !" 第2次元の整合寸法
      INTEGER    IZDIM                       !" 第3次元の整合寸法
 
gftool/gfqadj.F:29:
      ENTRY      GFSADJ
     I         ( IXDIM , IYDIM , IZDIM )
      INTEGER    IXDIM                       !" 第1次元の整合寸法
      INTEGER    IYDIM                       !" 第2次元の整合寸法
      INTEGER    IZDIM                       !" 第3次元の整合寸法
 
gftool/gfrdts.F:9:
      SUBROUTINE GFRDTS
     O         ( HHEAD , GDATA , IEOD  ,
     O           IT    , IDATE , IDNUM , ITDUR ,
     I           HPSEL , HSEL  , ISEL  ,
     I           IFILE , IOMODE                 )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      REAL       GDATA ( * )                 !" データ
      INTEGER    IEOD                        !" データ有：０ 無：１
      INTEGER    IT                          !" 通し時間
      INTEGER    IDATE ( * )                 !" 時刻：年月日時分秒
      INTEGER    IDNUM                       !" データ番号
      INTEGER    ITDUR                       !" 代表時間
      CHARACTER  HPSEL *(*)                  !" 選択する欄
      CHARACTER  HSEL  *(*)                  !" 選択するデータ(文
      INTEGER    IFILE                       !" 入力ファイル番号
      INTEGER    IOMODE                      !" 入出力モード
 
gftool/gfrdts.F:62:
      ENTRY      GFWTTS
     I         ( HHEAD , GDATA ,
     I           IT    , IDATE , IDNUM , ITDUR ,
     I           JFILE , IOMODE, NOEND           )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      REAL       GDATA ( * )                 !" データ
      INTEGER    IT                          !" 通し時間
      INTEGER    IDATE ( * )                 !" 時刻：年月日時分秒
      INTEGER    IDNUM                       !" データ番号
      INTEGER    ITDUR                       !" 代表時間
      INTEGER    JFILE                       !" 出力ファイル番号
      INTEGER    IOMODE                      !" 入出力モード
      INTEGER    NOEND                       !" ENDFILE間隔
 
gftool/gfread.F:10:
      SUBROUTINE GFREAD
     O         ( HHEAD , GDATA , IEOD  ,
     I           IFILE , MODE           )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
      INTEGER    IEOD                    !" データ存在フラグ
      INTEGER    IFILE                   !" 装置番号
      INTEGER    MODE                    !" モード(1なら表示ON)
 
gftool/gfread.F:30:
      SUBROUTINE GFRDSL
     O         ( HHEAD , GDATA , IEOD  ,
     I           HPSEL , HSEL  , ISEL  ,
     I           IFILE , MODE           )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
      INTEGER    IEOD                    !" データ存在フラグ
      CHARACTER  HPSEL *(*)              !" 選択する欄
      CHARACTER  HSEL  *(*)              !" 選択するデータ(文字)
      INTEGER    IFILE                   !" ファイル番号
      INTEGER    MODE                    !" モード(1なら表示ON)
 
gftool/gfread.F:181:
      ENTRY      GFRDHD
     O         ( HHEAD , IEOD  ,
     I           IFILE , MODE   )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      INTEGER    IEOD                    !" データ存在フラグ
      INTEGER    IFILE                   !" ファイル番号
      INTEGER    MODE                    !" モード(1なら表示ON)
 
gftool/gfread.F:242:
      SUBROUTINE GFREDZ
     O         ( GDATA , IEOD  ,
     I           IFILE , IJKDIM )
      REAL       GDATA ( IJKDIM )              !" データ
      INTEGER    IFILE                         !" ファイル番号
 
gftool/gfropn.F:11:
      SUBROUTINE GFROPN
     M         ( IFILE ,
     I           HFILE  )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HFILE*(*)                !" ファイル名
 
gftool/gfropn.F:32:
      SUBROUTINE GFWOPN
     M         ( IFILE ,
     I           HFILE  )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HFILE*(*)                !" ファイル名
 
gftool/gfropn.F:53:
      SUBROUTINE GFAOPN
     M         ( IFILE ,
     I           HFILE  )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HFILE*(*)                !" ファイル名
 
gftool/gfropn.F:74:
      SUBROUTINE GFOOPN
     M         ( IFILE ,
     I           HFILX , OAPPND  )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HFILX*(*)                !" ファイル名
      LOGICAL    OAPPND                   !" 追加?
 
gftool/gfropq.F:10:
      SUBROUTINE GFROPQ
     O         ( IFILE ,
     I           HINQ   )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HINQ  *(*)
 
gftool/gfropq.F:38:
      ENTRY      GFWOPQ
     O         ( IFILE ,
     I           HINQ   )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HINQ  *(*)
 
gftool/gfropq.F:54:
      ENTRY      GFAOPQ
     O         ( IFILE ,
     I           HINQ   )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HINQ  *(*)
 
gftool/gfropq.F:70:
      ENTRY      GFOOPQ
     M         ( IFILE ,
     I           HINQ    )
      INTEGER    IFILE                    !" 装置番号
      CHARACTER  HINQ  *(*)
 
gftool/gfwrit.F:10:
      SUBROUTINE GFWRIT
     I         ( HHEAD , GDATA ,
     I           JFILE , MODE  , NOEND  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
      INTEGER    JFILE                   !" 装置番号
      INTEGER    MODE                    !" モード(1なら表示ON)
      INTEGER    NOEND                   !" ENDFILEの間隔
 
gftool/gfwrit.F:122:
      SUBROUTINE GFWRTZ
     I         ( GDATA ,
     I           JFILE , IJKDIM )
      REAL       GDATA ( IJKDIM )              !" データ
      INTEGER    JFILE                         !" ファイル番号
 
ggtool/ggaxes.F:9:
      SUBROUTINE GGAXES
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
 
ggtool/ggaxis.F:9:
      SUBROUTINE GGAXIS
     I         ( HHEAD , HPOS   )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HPOS *(*)               !" セットする軸 ('X' or 'Y')
 
ggtool/ggaxix.F:9:
      SUBROUTINE GGAXIX
     I         ( HHEAD , HPOS  ,
     I           DMIN  , DMAX  , DIVS  , DIVL  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HPOS *(*)               !" セットする軸 ('X' or 'Y')
 
ggtool/ggaxsz.F:9:
      SUBROUTINE GGAXSZ
     I         ( HHEAD , AXISZ , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       AXISZ ( * )             !" 格子位置
      CHARACTER  HPOS *(*)               !" セットする軸 ('X' or 'Y')
 
ggtool/ggaxsz.F:199:
      ENTRY      GGRANG
     I         ( HHEAD , AXISZ , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       AXISZ ( * )             !" 格子位置
      CHARACTER  HPOS *(*)               !" セットする軸 ('X' or 'Y')
 
ggtool/ggaxsz.F:217:
      ENTRY      GGAXRR( HPOS )
      CHARACTER  HPOS *(*)               !" セットする軸 ('X' or 'Y')
 
ggtool/ggaxsz.F:240:
      SUBROUTINE GGAXRS
 
ggtool/ggaxsz.F:251:
      SUBROUTINE GGAXLZ ( HPOS )
      CHARACTER  HPOS   * 1
 
ggtool/ggcntr.F:9:
      SUBROUTINE GGCNTR
     I         ( HHEAD, GDATA )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
 
ggtool/ggcoal.F:9:
      SUBROUTINE GGCOAL
 
ggtool/ggcstl.F:9:
      SUBROUTINE GGCSTL
 
ggtool/ggcton.F:9:
      SUBROUTINE GGCTON
     I         ( HHEAD , GDATA  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
 
ggtool/ggcurv.F:9:
      SUBROUTINE GGCURV
     I         ( HHEAD , GDATA , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
      CHARACTER  HPOS       *(*)         !" データ軸 ('X' or 'Y')
 
ggtool/gglay1.F:9:
      SUBROUTINE GGLAY1
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
 
ggtool/gglay2.F:9:
      SUBROUTINE GGLAY2
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
 
ggtool/gglay3.F:9:
      SUBROUTINE GGLAY3
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
 
ggtool/gglint.F:9:
      SUBROUTINE GGLINT
     I         ( HHEAD , HTYPE )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HTYPE      *(*)         !" 種類(CURV/MARK)
 
ggtool/gglint.F:69:
      ENTRY      GGLTRS
 
ggtool/ggmark.F:9:
      SUBROUTINE GGMARK
     I         ( HHEAD , GDATA , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
      CHARACTER  HPOS       *(*)         !" データ軸 ('X' or 'Y')
 
ggtool/ggopen.F:9:
      SUBROUTINE GGOPEN
     I         ( IWS   )
      INTEGER    IWS                     !" ワークステーションNo.
 
ggtool/ggopen.F:24:
      SUBROUTINE GGCLSE
 
ggtool/ggpdsc.F:9:
      SUBROUTINE GGPDSC
     I         ( HHEAD, HP   , VX   , VY    )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      CHARACTER  HP         *(*)             !" 記述子の名称
      REAL       VX                          !" X座標(NDC)
      REAL       VY                          !" Y座標(NDC)
 
ggtool/ggpdsc.F:33:
      ENTRY      GGCDSC
     I         ( HHEAD, HP   , VX   , VY    )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      CHARACTER  HP         *(*)             !" 記述子の名称
      REAL       VX                          !" X座標(NDC)
      REAL       VY                          !" Y座標(NDC)
 
ggtool/ggpget.F:9:
      SUBROUTINE GGPGET
     I         ( HP,
     O           IPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
 
ggtool/ggpget.F:96:
      ENTRY GGPSET
     I         ( HP, IPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
 
ggtool/ggpget.F:114:
      ENTRY GGCGET
     I         ( HP,
     O           HPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
      CHARACTER HPARA*(*)                !" パラメーターの内容：文字
 
ggtool/ggpget.F:133:
      ENTRY GGCSET
     I         ( HP, HPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
      CHARACTER HPARA*(*)                !" パラメーターの内容：文字
 
ggtool/ggston.F:9:
      SUBROUTINE GGSTON
     I         ( HHEAD , GDATA  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
 
ggtool/ggtone.F:9:
      SUBROUTINE GGTONE
     I         ( HHEAD , GDATA ,
     I           TONL  , ITON  , NTON  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
      REAL       TONL  ( NTON+1 )        !" トーン境界値
      INTEGER    ITON  ( NTON )          !" トーン番号
 
ggtool/ggtons.F:10:
      SUBROUTINE GGTONS
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
 
ggtool/ggvect.F:10:
      SUBROUTINE GGVECT
     I         ( HHEADU, GDATAU,
     I           HHEADV, GDATAV )
      CHARACTER  HHEADU ( * )*(*)        !" ヘッダー(u成分)
      REAL       GDATAU ( * )            !" データ(u成分)
      CHARACTER  HHEADV ( * )*(*)        !" ヘッダー(v成分)
      REAL       GDATAV ( * )            !" データ(v成分)
 
ghtool/ghcgts.F:9:
      SUBROUTINE GHCGTS
     I         ( HHEAD, HP    ,
     O           HX            )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HP         *(*)         !" ヘッダーの欄指定
      CHARACTER  HX         *(*)         !" 記述子の内容：文字
 
ghtool/ghcgts.F:59:
      ENTRY      GHCSTS
     I         ( HHEAD, HP    ,
     I           HX            )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HP         *(*)         !" ヘッダーの欄指定
      CHARACTER  HX         *(*)         !" 記述子の内容：文字
 
ghtool/ghcopy.F:9:
      SUBROUTINE GHCOPY
     I         ( HHEAD ,
     O           HHEADO )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HHEADO( * )*(*)         !" ヘッダー(出力)
 
ghtool/ghcsq1.F:9:
      SUBROUTINE GHCSQ1
     I         ( HH1   , HP    , IC    ,
     M           HHO                    )
      CHARACTER  HH1  ( * )*(*)
      CHARACTER  HP        *(*)
      INTEGER    IC                      !" 記憶番号
      CHARACTER  HHO  ( * )*(*)
 
ghtool/ghcsq2.F:9:
      SUBROUTINE GHCSQ2
     I         ( HH1   , HH2   , HP    , IC    ,
     M           HHO                            )
      CHARACTER  HH1  ( * )*(*)
      CHARACTER  HH2  ( * )*(*)
      CHARACTER  HP        *(*)
      INTEGER    IC                      !" 記憶番号
      CHARACTER  HHO  ( * )*(*)
 
ghtool/gheset.F:9:
      SUBROUTINE GHESET
     M         ( HHEAD ,
     I           HEDIT , HETTL, IENUM  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HEDIT *(*)              !" 編集略記号
      CHARACTER  HETTL *(*)              !" 編集タイトル
 
ghtool/gheset.F:40:
      SUBROUTINE GHEADD
     M         ( HHEAD ,
     I           HEDIT , HETTL )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HEDIT *(*)              !" 編集略記号
      CHARACTER  HETTL *(*)              !" 編集タイトル
 
ghtool/gheset.F:69:
      ENTRY      GHERST
     M         ( HHEAD ,
     I           HEDIT , HETTL )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      CHARACTER  HEDIT *(*)              !" 編集略記号
      CHARACTER  HETTL *(*)              !" 編集タイトル
 
ghtool/ghpaca.F:9:
      SUBROUTINE GHPACA
     O         ( HHEADA,
     I           HKIND , HITEM ,
     I           HTITL , HUNIT ,
     I           IXDIM ,
     I           HDFMT , VMISS ,
     I           DMIN  , DMAX  , DIVS  , DIVL  , ISTYP  )
      CHARACTER  HHEADA ( * )*(*)        !" ヘッダー
      CHARACTER  HKIND       *(*)        !" 格子情報の種類
      CHARACTER  HITEM       *(*)        !" 格子識別名称
      CHARACTER  HTITL       *(*)        !" 軸タイトル
      CHARACTER  HUNIT       *(*)        !" 単位
      INTEGER    IXDIM                   !" 格子数
      CHARACTER  HDFMT       *(*)        !" データフォーマット
      REAL       VMISS                   !" 欠損値の値
      REAL       DMIN                    !" レンジ(最小)
      REAL       DMAX                    !" レンジ(最大)
      REAL       DIVS                    !" 間隔(小)
      REAL       DIVL                    !" 間隔(大)
      INTEGER    ISTYP                   !" スケーリングタイプ
 
ghtool/ghpack.F:9:
      SUBROUTINE GHPACK
     O         ( HHEAD ,
     I           HDSET , HITEM , IFNUM , IDNUM ,
     I           HTITL , HUNIT ,
     I           ITIME , HDATE , HUTIM , ITDUR ,
     I           HAITM1, IASTR1, IAEND1,
     I           HAITM2, IASTR2, IAEND2,
     I           HAITM3, IASTR3, IAEND3,
     I           HDFMT , VMISS ,
     I           DMIN  , DMAX  , DIVS  , DIVL  , ISTYP ,
     I           HCDATE, HCSIGN                         )
      CHARACTER  HHEAD ( * )*(*)
      CHARACTER  HDSET  *(*)             !" データセット名
      CHARACTER  HITEM  *(*)             !" 識別名称
      INTEGER    IFNUM                   !" ファイル番号
      INTEGER    IDNUM                   !" データ番号
      CHARACTER  HTITL  *(*)             !" タイトル
      CHARACTER  HUNIT  *(*)             !" 単位
      INTEGER    ITIME                   !" 時刻(通し)
      CHARACTER  HDATE  *(*)             !" 時刻(yyyymmddhhmmss)
      CHARACTER  HUTIM  *(*)             !" 時刻単位
      INTEGER    ITDUR                   !" 代表する時間
      CHARACTER  HAITM1 *(*)             !" 軸1の格子名称
      INTEGER    IASTR1                  !" 軸1の格子始め
      INTEGER    IAEND1                  !" 軸1の格子終り
      CHARACTER  HAITM2 *(*)             !" 軸2の格子名称
      INTEGER    IASTR2                  !" 軸2の格子始め
      INTEGER    IAEND2                  !" 軸2の格子終り
      CHARACTER  HAITM3 *(*)             !" 軸3の格子名称
      INTEGER    IASTR3                  !" 軸3の格子始め
      INTEGER    IAEND3                  !" 軸3の格子終り
      CHARACTER  HDFMT  *(*)             !" データフォーマット
      REAL       VMISS                   !" 欠損値の値
      REAL       DMIN                    !" レンジ(最小)
      REAL       DMAX                    !" レンジ(最大)
      REAL       DIVS                    !" 間隔(小)
      REAL       DIVL                    !" 間隔(大)
      INTEGER    ISTYP                   !" スケーリングタイプ
      CHARACTER  HCDATE *(*)             !" データ作成日付
      CHARACTER  HCSIGN *(*)             !" データ作成者
 
ghtool/ghpack.F:139:
      ENTRY      GHUPAC
     I         ( HHEAD ,
     O           HDSET , HITEM , IFNUM , IDNUM ,
     O           HTITL , HUNIT ,
     O           ITIME , HDATE , HUTIM , ITDUR ,
     O           HAITM1, IASTR1, IAEND1,
     O           HAITM2, IASTR2, IAEND2,
     O           HAITM3, IASTR3, IAEND3,
     O           HDFMT , VMISS ,
     O           DMIN  , DMAX  , DIVS  , DIVL  , ISTYP ,
     O           HCDATE, HCSIGN, HMDATE, HMSIGN         )
      CHARACTER  HHEAD ( * )*(*)
      CHARACTER  HDSET  *(*)             !" データセット名
      CHARACTER  HITEM  *(*)             !" 識別名称
      INTEGER    IFNUM                   !" ファイル番号
      INTEGER    IDNUM                   !" データ番号
      CHARACTER  HTITL  *(*)             !" タイトル
      CHARACTER  HUNIT  *(*)             !" 単位
      INTEGER    ITIME                   !" 時刻(通し)
      CHARACTER  HDATE  *(*)             !" 時刻(yyyymmddhhmmss)
      CHARACTER  HUTIM  *(*)             !" 時刻単位
      INTEGER    ITDUR                   !" 代表する時間
      CHARACTER  HAITM1 *(*)             !" 軸1の格子名称
      INTEGER    IASTR1                  !" 軸1の格子始め
      INTEGER    IAEND1                  !" 軸1の格子終り
      CHARACTER  HAITM2 *(*)             !" 軸2の格子名称
      INTEGER    IASTR2                  !" 軸2の格子始め
      INTEGER    IAEND2                  !" 軸2の格子終り
      CHARACTER  HAITM3 *(*)             !" 軸3の格子名称
      INTEGER    IASTR3                  !" 軸3の格子始め
      INTEGER    IAEND3                  !" 軸3の格子終り
      CHARACTER  HDFMT  *(*)             !" データフォーマット
      REAL       VMISS                   !" 欠損値の値
      REAL       DMIN                    !" レンジ(最小)
      REAL       DMAX                    !" レンジ(最大)
      REAL       DIVS                    !" 間隔(小)
      REAL       DIVL                    !" 間隔(大)
      INTEGER    ISTYP                   !" スケーリングタイプ
      CHARACTER  HCDATE *(*)             !" データ作成日付
      CHARACTER  HCSIGN *(*)             !" データ作成者
      CHARACTER  HMDATE *(*)             !" データ変更日付
      CHARACTER  HMSIGN *(*)             !" データ変更者
 
ghtool/ghpget.F:9:
      SUBROUTINE GHPGET
     I         ( HHEAD , HP    ,
     I           IX              )
 
ghtool/ghpget.F:157:
      ENTRY GHPSET
     M         ( HHEAD ,
     I           HP    , IX     )
 
ghtool/ghpget.F:196:
      ENTRY      GHCGET
     I         ( HHEAD , HP    ,
     I           HX              )
 
ghtool/ghpget.F:231:
      ENTRY GHCSET
     M         ( HHEAD ,
     I           HP    , HX     )
 
ghtool/ghpget.F:254:
      ENTRY GHPINQ
     I         ( HP    ,
     O           HFM    )
 
ghtool/ghpget.F:270:
      ENTRY GHPCLR
     O         ( HHEAD  )
 
ghtool/ghpget.F:289:
      ENTRY GHNINQ
     I         ( IZ    ,
     O           HP      )
 
ghtool/ghptrn.F:10:
      SUBROUTINE GHPTRN
     M         ( HHEAD  )
 
ghtool/ghqenm.F:9:
      SUBROUTINE GHQENM
     I         ( HHEAD ,
     O           IENUM )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      INTEGER    IENUM                   !" 設定済の編集記述子の数
 
ghtool/ghrsgp.F:9:
      SUBROUTINE GHRSGP
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
 
gmtool/gmpget.F:9:
      SUBROUTINE GMPGET
     I         ( HP,
     O           IPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
 
gmtool/gmpget.F:45:
      ENTRY GMPSET
     I         ( HP, IPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
 
gmtool/gmsize.F:9:
      SUBROUTINE GMSIZE
     I         ( ISIZE )
      INTEGER    ISIZE                   !" 作業配列サイズ(/GMWRK/)
 
gmtool/gmsize.F:21:
      SUBROUTINE GMCSIZ
     I         ( HHEAD )
      CHARACTER  HHEAD( * )*(*)              !" ヘッダー
 
gptool/gpasps.F:9:
      SUBROUTINE GPASPS
     I         ( IMAX  , JMAX  , KMAX  , ER    ,
     O           PNM   , DPNM  , TRIGS , IFAX  ,
     O           NMO   , GW    , COSLAT,
     O           LMAX  , MMAX  , NMAX  , MINT  ,
     O           NMDIM , JMXHF ,
     W           QPNM  , QDPNM , QGW   , QSINLA          )
      INTEGER    IFAX  ( * )                 !" IMAX の因数分解
      INTEGER    JMAX
      REAL       ER                          !" 地球半径
      REAL       PNM   ( * )                 !" Ｐnm ルジャンドル
      REAL       DPNM  ( * )                 !" Ｐnm μ微分
      REAL       TRIGS ( * )                 !" 三角関数表
      INTEGER    NMO   ( * )                 !" スペクトルの添字順番
      REAL       GW    ( * )                 !" ガウス荷重
      REAL       COSLAT( * )                 !" cos(緯度)
      REAL*8     QPNM  ( * )                 !" Ｐnm ルジャンドル
      REAL*8     QDPNM ( * )                 !" Ｐnm μ微分
      REAL*8     QGW   ( * )                 !" ガウス荷重 ：倍精度
      REAL*8     QSINLA( * )                 !" sin(緯度) (倍精度
 
gptool/gpasps.F:117:
      ENTRY      GPASPW
     I         ( IMAXDW, JMAXDW, KMAXDW )
 
gptool/gpaxdf.F:10:
      SUBROUTINE GPAXDF
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpaxdf.F:116:
      SUBROUTINE GMAXDF
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpaxdv.F:10:
      SUBROUTINE GPAXDV
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpaxdv.F:111:
      SUBROUTINE GMAXDV
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpaydf.F:10:
      SUBROUTINE GPAYDF
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpaydf.F:139:
      SUBROUTINE GMAYDF
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpaydv.F:10:
      SUBROUTINE GPAYDV
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpaydv.F:131:
      SUBROUTINE GMAYDV
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpcal1.F:9:
      SUBROUTINE GPCAL1
     I         ( GESUBR,
     I           HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpcal1.F:56:
      SUBROUTINE GMCAL1
     I         ( GESUBR,
     M           HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpcal2.F:9:
      SUBROUTINE GPCAL2
     I         ( GESUBR,
     I           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpcal2.F:66:
      SUBROUTINE GMCAL2
     I         ( GESUBR,
     M           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpcal3.F:9:
      SUBROUTINE GPCAL3
     I         ( GESUBR,
     I           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HHEAD3 ( * )*(*)        !" ヘッダー(入力3)
      REAL       GDATA3 ( * )            !" データ(入力3)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpcal3.F:76:
      SUBROUTINE GMCAL3
     I         ( GESUBR,
     M           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HHEAD3 ( * )*(*)        !" ヘッダー(入力3)
      REAL       GDATA3 ( * )            !" データ(入力3)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpcal4.F:9:
      SUBROUTINE GPCAL4
     I         ( GESUBR,
     I           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HHEAD4, GDATA4,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HHEAD3 ( * )*(*)        !" ヘッダー(入力3)
      REAL       GDATA3 ( * )            !" データ(入力3)
      CHARACTER  HHEAD4 ( * )*(*)        !" ヘッダー(入力4)
      REAL       GDATA4 ( * )            !" データ(入力4)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpcal4.F:86:
      SUBROUTINE GMCAL4
     I         ( GESUBR,
     M           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HHEAD4, GDATA4,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HHEAD3 ( * )*(*)        !" ヘッダー(入力3)
      REAL       GDATA3 ( * )            !" データ(入力3)
      CHARACTER  HHEAD4 ( * )*(*)        !" ヘッダー(入力4)
      REAL       GDATA4 ( * )            !" データ(入力4)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpeyxz.F:9:
      SUBROUTINE GPEYXZ
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpeyxz.F:72:
      SUBROUTINE GMEYXZ
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpfadd.F:9:
      SUBROUTINE GPFADD
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpfadd.F:78:
      SUBROUTINE GMFADD
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpfcon.F:9:
      SUBROUTINE GPFCON
     I         ( HHEAD , GDATA , VAL   ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      REAL       VAL                     !" スカラー値
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpfcon.F:54:
      SUBROUTINE GMFCON
     M         ( HHEAD , GDATA ,
     I           VAL   ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      REAL       VAL                     !" スカラー値
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpfdiv.F:9:
      SUBROUTINE GPFDIV
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpfdiv.F:79:
      SUBROUTINE GMFDIV
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpffct.F:9:
      SUBROUTINE GPFFCT
     I         ( HHEAD , GDATA , VAL   ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      REAL       VAL                     !" スカラー値
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpffct.F:54:
      SUBROUTINE GMFFCT
     M         ( HHEAD , GDATA ,
     I           VAL   ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      REAL       VAL                     !" スカラー値
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpffna.F:9:
      SUBROUTINE GPFFNA
     I         ( HHEAD , GDATA , RFNA  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpffna.F:54:
      SUBROUTINE GMFFNA
     M         ( HHEAD , GDATA ,
     I           RFNA  ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpffnb.F:9:
      SUBROUTINE GPFFNB
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2, RFNB  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpffnb.F:80:
      SUBROUTINE GMFFNB
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2, RFNB  ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpfinc.F:9:
      SUBROUTINE GPFINC
     I         ( HHEAD , GDATA , VAL   ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      REAL       VAL                     !" スカラー値
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpfinc.F:54:
      SUBROUTINE GMFINC
     M         ( HHEAD , GDATA ,
     I           VAL   ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      REAL       VAL                     !" スカラー値
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpfmlt.F:9:
      SUBROUTINE GPFMLT
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpfmlt.F:79:
      SUBROUTINE GMFMLT
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpfset.F:9:
      SUBROUTINE GPFSET
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpfset.F:50:
      SUBROUTINE GMFSET
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpfsub.F:9:
      SUBROUTINE GPFSUB
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpfsub.F:79:
      SUBROUTINE GMFSUB
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー(入力1)
      REAL       GDATA1 ( * )            !" データ(入力1)
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー(入力2)
      REAL       GDATA2 ( * )            !" データ(入力2)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpmiss.F:9:
      SUBROUTINE GPMISS
     I         ( HHEAD ,
     O           GDATA   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(出力)
 
gptool/gptavg.F:9:
      SUBROUTINE GPTAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     M           HHEADW, WDATA ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADW ( * )*(*)        !" ヘッダー(ワーク)
      REAL       WDATA  ( * )            !" ウェイトカウンター
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gptavg.F:90:
      ENTRY       GPTAVR
     O          ( HHEADO )
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
 
gptool/gptavg.F:100:
      SUBROUTINE GPTAVO
     I         ( HHEADW, WDATA  ,
     M           HHEADO, GDATAO  )
      CHARACTER  HHEADW ( * )*(*)        !" ヘッダー(ワーク)
      REAL       WDATA  ( * )            !" ウェイトカウンター
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gptseq.F:9:
      SUBROUTINE  GPTSEQ
     I          ( HHEAD , GDATA ,
     I            HEDIT , HETTL ,
     O            HHEADT, GDATAT )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADT ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAT ( * )            !" データ(出力)
 
gptool/gptseq.F:167:
      ENTRY       GPTSQR
     O          ( HHEADT )
      CHARACTER  HHEADT ( * )*(*)        !" ヘッダー(出力)
 
gptool/gptseq.F:176:
      ENTRY       GPTSQN
     I          ( ISEQ   )
 
gptool/gpxavg.F:10:
      SUBROUTINE GPXAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxavg.F:117:
      SUBROUTINE GMXAVG
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpxcom.F:9:
      SUBROUTINE GPXCOM
     I         ( HHEAD , GDATA , IX    ,
     M           HHEADO, GDATAO         )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IX                      !" 入れるべき第1次元の格
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxcom.F:47:
      SUBROUTINE GPXCMI
     I         ( HHEAD , HAITMX, IXSTR , IXEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      CHARACTER  HAITMX      *(*)        !" 結合する第1次元の軸
      INTEGER    IXSTR                   !" 第1次元の軸の格子始め
      INTEGER    IXEND                   !" 第1次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxcyc.F:9:
      SUBROUTINE GPXCYC
     I         ( HHEAD , GDATA ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxcyc.F:71:
      SUBROUTINE GMXCYC
     M         ( HHEAD , GDATA  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
 
gptool/gpxedy.F:9:
      SUBROUTINE GPXEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxedy.F:103:
      SUBROUTINE GMXEDY
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpxexp.F:9:
      SUBROUTINE GPXEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxexp.F:43:
      ENTRY      GPXEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxexp.F:67:
      SUBROUTINE GMXEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpxexp.F:100:
      ENTRY      GMXEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpxext.F:9:
      SUBROUTINE GPXEXT
     I         ( HHEAD , GDATA ,
     I           HAITMX, IXSTR , IXEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HAITMX      *(*)        !" 拡大する第1次元の軸名
      INTEGER    IXSTR                   !" 第1次元の軸の格子始め
      INTEGER    IXEND                   !" 第1次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxext.F:80:
      SUBROUTINE GMXEXT
     I         ( HHEAD , GDATA ,
     I           HAITMX, IXSTR , IXEND ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HAITMX      *(*)        !" 拡大する第1次元の軸名
      INTEGER    IXSTR                   !" 第1次元の軸の格子始め
      INTEGER    IXEND                   !" 第1次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpxrdc.F:9:
      SUBROUTINE GPXRDC
     I         ( HHEAD , GDATA , IXSEL1 , IXSEL2 ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO                    )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IXSEL1                  !" 切り出す第1次元の格子
      INTEGER    IXSEL2                  !" 切り出す第1次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxrdc.F:98:
      SUBROUTINE GMXRDC
     I         ( HHEAD , GDATA ,
     I           IXSEL1, IXSEL2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IXSEL1                  !" 切り出す第1次元の格子
      INTEGER    IXSEL2                  !" 切り出す第1次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpxsel.F:9:
      SUBROUTINE GPXSEL
     I         ( HHEAD , GDATA , IXSEL  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO          )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IXSEL                   !" 選択する第1次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpxsel.F:102:
      SUBROUTINE GMXSEL
     M         ( HHEAD , GDATA ,
     I           IXSEL ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IXSEL                   !" 選択する第1次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpyavg.F:9:
      SUBROUTINE GPYAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpyavg.F:113:
      SUBROUTINE GMYAVG
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpycom.F:9:
      SUBROUTINE GPYCOM
     I         ( HHEAD , GDATA , IY    ,
     M           HHEADO, GDATAO         )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IY                      !" 入れるべき第2次元の格
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpycom.F:49:
      SUBROUTINE GPYCMI
     I         ( HHEAD , HAITMY, IYSTR , IYEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      CHARACTER  HAITMY      *(*)        !" 結合する第2次元の軸の
      INTEGER    IYSTR                   !" 第2次元の軸の格子始め
      INTEGER    IYEND                   !" 第2次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpyedy.F:9:
      SUBROUTINE GPYEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpyedy.F:106:
      SUBROUTINE GMYEDY
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpyexp.F:9:
      SUBROUTINE GPYEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpyexp.F:43:
      ENTRY      GPYEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpyexp.F:67:
      SUBROUTINE GMYEXP
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpyexp.F:100:
      ENTRY      GMYEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpyext.F:9:
      SUBROUTINE GPYEXT
     I         ( HHEAD , GDATA ,
     I           HAITMY, IYSTR , IYEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HAITMY      *(*)        !" 拡大する第2次元の軸名
      INTEGER    IYSTR                   !" 第2次元の軸の格子始め
      INTEGER    IYEND                   !" 第2次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpyext.F:82:
      SUBROUTINE GMYEXT
     I         ( HHEAD , GDATA ,
     I           HAITMY, IYSTR , IYEND ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HAITMY      *(*)        !" 拡大する第2次元の軸名
      INTEGER    IYSTR                   !" 第2次元の軸の格子始め
      INTEGER    IYEND                   !" 第2次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpyrdc.F:9:
      SUBROUTINE GPYRDC
     I         ( HHEAD , GDATA , IYSEL1, IYSEL2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO                  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IYSEL1                  !" 切り出す第2次元の格子
      INTEGER    IYSEL2                  !" 切り出す第2次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpyrdc.F:103:
      SUBROUTINE GMYRDC
     M         ( HHEAD , GDATA ,
     I           IYSEL1, IYSEL2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IYSEL1                  !" 切り出す第2次元の格子
      INTEGER    IYSEL2                  !" 切り出す第2次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpysel.F:9:
      SUBROUTINE GPYSEL
     I         ( HHEAD , GDATA , IYSEL  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO          )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IYSEL                   !" 選択する第2次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpysel.F:98:
      SUBROUTINE GMYSEL
     M         ( HHEAD , GDATA ,
     I           IYSEL ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IYSEL                   !" 選択する第2次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpzavg.F:9:
      SUBROUTINE GPZAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzavg.F:107:
      SUBROUTINE GMZAVG
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpzcom.F:9:
      SUBROUTINE GPZCOM
     I         ( HHEAD , GDATA , IZ    ,
     M           HHEADO, GDATAO         )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IZ                      !" 入れるべき第3次元の格
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzcom.F:47:
      SUBROUTINE GPZCMI
     I         ( HHEAD , HAITMZ, IZSTR , IZEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      CHARACTER  HAITMZ      *(*)        !" 結合する第3次元の軸の
      INTEGER    IZSTR                   !" 第3次元の軸の格子始め
      INTEGER    IZEND                   !" 第3次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzedy.F:9:
      SUBROUTINE GPZEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzedy.F:105:
      SUBROUTINE GMZEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpzexp.F:9:
      SUBROUTINE GPZEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzexp.F:43:
      ENTRY      GPZEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzexp.F:67:
      SUBROUTINE GMZEXP
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpzexp.F:100:
      ENTRY      GMZEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpzext.F:9:
      SUBROUTINE GPZEXT
     I         ( HHEAD , GDATA ,
     I           HAITMZ, IZSTR , IZEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HAITMZ      *(*)        !" 拡大する第3次元の軸名
      INTEGER    IZSTR                   !" 第3次元の軸の格子始め
      INTEGER    IZEND                   !" 第3次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzext.F:80:
      SUBROUTINE GMZEXT
     I         ( HHEAD , GDATA ,
     I           HAITMZ, IZSTR , IZEND ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      CHARACTER  HAITMZ      *(*)        !" 拡大する第3次元の軸名
      INTEGER    IZSTR                   !" 第3次元の軸の格子始め
      INTEGER    IZEND                   !" 第3次元の軸の格子終り
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpzrdc.F:9:
      SUBROUTINE GPZRDC
     I         ( HHEAD , GDATA , IZSEL1, IZSEL2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO                 )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IZSEL1                  !" 切り出す第3次元の格子
      INTEGER    IZSEL2                  !" 切り出す第3次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzrdc.F:98:
      SUBROUTINE GMZRDC
     M         ( HHEAD , GDATA ,
     I           IZSEL1, IZSEL2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IZSEL1                  !" 切り出す第3次元の格子
      INTEGER    IZSEL2                  !" 切り出す第3次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gptool/gpzsel.F:9:
      SUBROUTINE GPZSEL
     I         ( HHEAD , GDATA , IZSEL  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO          )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IZSEL                   !" 選択する第3次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
      CHARACTER  HHEADO ( * )*(*)        !" ヘッダー(出力)
      REAL       GDATAO ( * )            !" データ(出力)
 
gptool/gpzsel.F:93:
      SUBROUTINE GMZSEL
     M         ( HHEAD , GDATA ,
     I           IZSEL ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー(入力)
      REAL       GDATA  ( * )            !" データ(入力)
      INTEGER    IZSEL                   !" 選択する第3次元の格子
      CHARACTER  HEDIT       *(*)        !" 編集略記号
      CHARACTER  HETTL       *(*)        !" 編集タイトル
 
gttool/gtopen.F:9:
      SUBROUTINE GTOPEN
 
gttool/gtpget.F:9:
      SUBROUTINE GTPGET
     I         ( HP,
     O           IPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
 
gttool/gtpget.F:70:
      ENTRY GTPSET
     I         ( HP, IPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
 
gttool/gtpget.F:88:
      ENTRY GTCGET
     I         ( HP,
     O           HPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
      CHARACTER HPARA*(*)                !" パラメーターの内容：文字
 
gttool/gtpget.F:107:
      ENTRY GTCSET
     I         ( HP, HPARA )
      CHARACTER HP   *(*)                !" パラメーターの名前
      CHARACTER HPARA*(*)                !" パラメーターの内容：文字
 
gttool/gtsign.F:9:
      SUBROUTINE GTSIGN
     I         ( HSIGN  )
      CHARACTER  HSIGN       *(*)        !" 名前
 
gttool/gtsize.F:9:
      SUBROUTINE GTSIZE
     M         ( HHEAD ,
     I           ISIZE  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー
      INTEGER    ISIZE                   !" 配列サイズ
 
gutool/guaxck.F:9:
      SUBROUTINE GUAXCK
     I         ( HHEAD1, HHEAD2,
     O           ICHK            )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー1
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー1
      INTEGER    ICHK                    !" 軸が合致していれば0
 
gutool/gucacf.F:9:
      SUBROUTINE GUCACF
     I         ( HHEAD, ID    , HCFG  ,
     M           HHEADO                )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      INTEGER    ID                          !" 何次元目の軸か
      CHARACTER  HCFG       *(*)             !" 配置子
      CHARACTER  HHEADO( * )*(*)             !" ヘッダー（出力）
 
gutool/gucacf.F:45:
      SUBROUTINE GUTACF
     I         ( HAITM , HCFG  ,
     O           HAITMO          )
      CHARACTER  HAITM      *(*)                !" 格子識別名称
      CHARACTER  HCFG       *(*)                !" 配置子
      CHARACTER  HAITMO     *(*)                !" 格子識別名称
 
gutool/gucacf.F:80:
      SUBROUTINE GUQACF
     I         ( HHEAD, ID    ,
     M           HCFG                  )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      INTEGER    ID                          !" 何次元目の軸か
      CHARACTER  HCFG       *(*)             !" 配置子
 
gutool/gucsiz.F:9:
      SUBROUTINE GUCSIZ
     I         ( HHEAD1, HHEAD2,
     O           IXSTR1, IXDIM1, IXSTR2, IXDIM2,
     O           IYSTR1, IYDIM1, IYSTR2, IYDIM2,
     O           IZSTR1, IZDIM1, IZSTR2, IZDIM2,
     O           IXSTRC, IXENDC, IXDIMC,
     O           IYSTRC, IYENDC, IYDIMC,
     O           IZSTRC, IZENDC, IZDIMC         )
      CHARACTER  HHEAD1 ( * )*(*)        !" ヘッダー１
      CHARACTER  HHEAD2 ( * )*(*)        !" ヘッダー２
      INTEGER    IXSTR1, IXDIM1          !" 軸１の始めと大きさ
      INTEGER    IXSTR2, IXDIM2          !"  〃 （ヘッダー２）
      INTEGER    IYSTR1, IYDIM1          !" 軸２の始めと大きさ
      INTEGER    IYSTR2, IYDIM2          !"  〃 （ヘッダー２）
      INTEGER    IZSTR1, IZDIM1          !" 軸３の始めと大きさ
      INTEGER    IZSTR2, IZDIM2          !"  〃 （ヘッダー２）
      INTEGER    IXSTRC, IXENDC, IXDIMC  !" 軸１の共通部分
      INTEGER    IYSTRC, IYENDC, IYDIMC  !" 軸２の共通部分
      INTEGER    IZSTRC, IZENDC, IZDIMC  !" 軸３の共通部分
 
gutool/guct2r.F:10:
      SUBROUTINE GUCT2R
     I         ( KT    , HUNIT  , HUNITY, IDELT  ,
     O           RT                                )
      CHARACTER  HUNIT *(*)        !" 入力 KT の単位
      REAL*8     WT                !" 時刻：単位 HUNITY
      INTEGER    IDELT             !" １ステップの秒数
      REAL       RT                !" 出力時刻：単位 HUNITY
 
gutool/guct2r.F:39:
      ENTRY      GUCT2I
     I         ( KT    , HUNIT  , HUNITY, IDELT  ,
     O           IT                                )
      CHARACTER  HUNIT *(*)        !" 入力 KT の単位
      REAL*8     WT                !" 時刻：単位 HUNITY
      INTEGER    IDELT             !" １ステップの秒数
      INTEGER    IT                !" 出力時刻：単位 HUNITY
 
gutool/guct2r.F:59:
      SUBROUTINE GUCT2S
     I         ( KT    , HUNIT  , IDELT  ,
     O           WS                       )
      CHARACTER  HUNIT *(*)        !" 入力 KT の単位
      INTEGER    IDELT             !" １ステップの秒数
      REAL*8     WS                !" 時刻：単位 秒
 
gutool/guct2r.F:114:
      SUBROUTINE GUCS2T
     I         ( WS    , HUNITY, IDELT  ,
     O           WT                       )
      REAL*8     WS                !" 入力時刻：単位 HUNIT
      REAL*8     WT                !" 出力時刻：単位 HUNITY
      INTEGER    IDELT             !" １ステップの秒数
 
gutool/guctxt.F:9:
      SUBROUTINE GUCTXT
     I         ( HEXT  ,
     O           HNORM  )
      CHARACTER HEXT  *(*)           !" エスケープ入り文字列
      CHARACTER HNORM *(*)           !" 正規化された文字列
 
gutool/gueaxn.F:9:
      SUBROUTINE GUEAXN
     I         ( HAXIS , HED   , HET   ,
     I           ISTR  , IEND  ,
     O           HEDIT , HETTL           )
      CHARACTER  HAXIS         *(*)          !" 軸名称
      CHARACTER  HED           *(*)          !" 編集記述子接頭
      CHARACTER  HET           *(*)          !" 編集タイトル接尾
      INTEGER    ISTR                        !" 格子番号始め
      INTEGER    IEND                        !" 格子番号終り
      CHARACTER  HEDIT         *(*)          !" 編集記述子
      CHARACTER  HETTL         *(*)          !" 編集タイトル
 
gutool/gulchr.F:9:
      SUBROUTINE GULCHR
     I         ( HFMT  , IVAL  ,
     O           HCHR  , NCHR   )
      CHARACTER  HFMT   *(*)             !" フォーマット
      CHARACTER  HCHR   *(*)             !" 文字列
      INTEGER    NCHR                    !" 文字列長
 
gutool/gunenv.F:6:
      SUBROUTINE GUNENV                      !" パス名環境変数置換
     M         ( HFILE ,
     I           HDEFEV, OMESG  )
      CHARACTER  HFILE  *(*)          !" パス名
      CHARACTER  HDEFEV *(*)          !" 環境変数デフォルト
      LOGICAL    OMESG                !" メッセージフラグ
 
gutool/gunenv.F:43:
      SUBROUTINE GURENV                      !" 環境変数置換
     M         ( HFILE ,
     I           HDEFEV, OMESG  )
      CHARACTER  HFILE  *(*)          !" パス名
      CHARACTER  HDEFEV *(*)          !" 環境変数デフォルト
      LOGICAL    OMESG                !" メッセージフラグ
 
gutool/gunenv.F:126:
      SUBROUTINE GUGENV                      !" 環境変数取得
     I         ( HENAME ,
     O           HEVAL    )
      CHARACTER  HENAME *(*)
      CHARACTER  HEVAL  *(*)
 
gutool/guqaxd.F:9:
      SUBROUTINE GUQAXD
     I         ( HAXIS ,
     O           IADIM , OCYCL  )
      CHARACTER  HAXIS      *(*)             !" 格子識別名称
      INTEGER    IADIM                       !" 格子のサイズ
      LOGICAL    OCYCL                       !" サイクリックか？
 
gutool/guqaxs.F:9:
      SUBROUTINE GUQAXS
     I         ( HAXIS , HKIND ,
     O           HHEAD , AXIS  , IEOD  )
      CHARACTER  HAXIS *(*)                  !" 格子識別名称
      CHARACTER  HKIND *(*)                  !" LOC/WGT
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      REAL       AXIS  ( * )                 !" 位置/重み
      INTEGER    IEOD                        !" データなしフラグ
 
gutool/guqaxs.F:97:
      SUBROUTINE GUQAXC
     I         ( HAXIS , HKIND ,
     O           HHEAD , AXIS  , ACYCLE, IAMAX , IEOD  )
      CHARACTER  HAXIS *(*)                  !" 格子識別名称
      CHARACTER  HKIND *(*)                  !" LOC/WGT
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      REAL       AXIS  ( * )                 !" 位置/重み
      REAL       ACYCLE                      !" サイクリック値
      INTEGER    IAMAX                       !" 格子点数:非サイクリック
      INTEGER    IEOD                        !" データなしフラグ
 
gutool/guqaxv.F:10:
      SUBROUTINE GUQAXL
     I         ( HHEAD , ID    , HKIND ,
     O           HHEADA, AXIS  , ACYCLE, IAMAX , IEOD  )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      INTEGER    ID                          !" 何次元目の軸か
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      CHARACTER  HHEADA( * )*(*)             !" ヘッダー
      REAL       AXIS  ( * )                 !" 位置/重み
      REAL       ACYCLE                      !" サイクリック値
      INTEGER    IAMAX                       !" 格子点数:非サイクリック
      INTEGER    IEOD                        !" データなしフラグ
 
gutool/guqaxv.F:116:
      SUBROUTINE GUQAXQ
     I         ( HHEAD , ID    , HKIND ,
     O           AXIS  , ACYCLE, IAMAX , IEOD  ,
     D           IZDIM                           )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      INTEGER    ID                          !" 何次元目の軸か
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      REAL       AXIS  ( IZDIM )             !" 位置/重み
      REAL       ACYCLE                      !" サイクリック値
      INTEGER    IAMAX                       !" 格子点数:非サイクリック
      INTEGER    IEOD                        !" データなしフラグ
 
gutool/guqaxv.F:152:
      SUBROUTINE GUQAXV
     I         ( HHEAD , ID    , HKIND ,
     O           HHEADA, AXIS  , IEOD  )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      INTEGER    ID                          !" 何次元目の軸か
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      CHARACTER  HHEADA( * )*(*)             !" ヘッダー
      REAL       AXIS  ( * )                 !" 位置/重み
      INTEGER    IEOD                        !" データなしフラグ
 
gutool/guqaxv.F:172:
      SUBROUTINE GUQAXP
     I         ( HHEAD , ID    , HKIND ,
     O           AXIS  , IEOD  ,
     D           IZDIM                  )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      INTEGER    ID                          !" 何次元目の軸か
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      REAL       AXIS  ( IZDIM )             !" 位置/重み
      INTEGER    IEOD                        !" データなしフラグ
 
gutool/guqiax.F:9:
      SUBROUTINE GUQIAX
     I         ( HAXIS , HKIND ,
     O           HHEAD , AXIS  , IEOD   )
      CHARACTER  HAXIS      *(*)         !" 格子識別名称
      CHARACTER  HKIND *(*)              !" LOC/WGT
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       AXIS  ( * )             !" 位置/重み
      INTEGER    IEOD                    !" データなしフラグ
 
gutool/guqiax.F:88:
      ENTRY      GUQIAH
     I         ( HAXIS ,
     O           HHEAD , IEOD   )
      CHARACTER  HAXIS      *(*)         !" 格子識別名称
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      INTEGER    IEOD                    !" データなしフラグ
 
gutool/guqiax.F:106:
      ENTRY      GUSIAX
     I         ( HHEAD , AXLOC , AXWGT ,
     I           INUM                   )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       AXLOC ( * )             !" 位置
      REAL       AXWGT ( * )             !" 重み
      INTEGER    INUM                    !" 内部設定格子番号
 
gutool/guqiax.F:133:
      ENTRY      GUAIAX
     I         ( HAXIS , AXLOC1, AXWGT1,
     I           IZ                      )
      CHARACTER  HAXIS      *(*)         !" 格子識別名称
      REAL       AXLOC1                  !" 位置
      REAL       AXWGT1                  !" 重み
      INTEGER    IZ                      !" 格子番号
 
gutool/guqiax.F:172:
      ENTRY GUQIAN
     O    ( IAMAX )
 
gutool/guqiax.F:187:
      ENTRY GUWIAX
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
 
gutool/guqiax.F:235:
      SUBROUTINE GUAIAH
     I         ( HHEAD , ID    ,
     I           AXLOC1, AXWGT1,
     I           IZ                      )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      INTEGER    ID                      !" 何次元目の軸か
      REAL       AXLOC1                  !" 位置
      REAL       AXWGT1                  !" 重み
      INTEGER    IZ                      !" 格子番号
 
gutool/guqnow.F:9:
      SUBROUTINE GUQNOW
     O         ( HTIME )
      CHARACTER  HTIME  *(*)             !" 時刻(yyyymmddhhmmss)
 
gutool/guqsiz.F:9:
      SUBROUTINE GUQSIZ
     I         ( HHEAD ,
     O           IXSTR , IXEND , IXDIM ,
     O           IYSTR , IYEND , IYDIM ,
     O           IZSTR , IZEND , IZDIM  )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      INTEGER    IXSTR , IXEND , IXDIM   !" 軸1の始め 終り 寸法
      INTEGER    IYSTR , IYEND , IYDIM   !" 軸2の始め 終り 寸法
      INTEGER    IZSTR , IZEND , IZDIM   !" 軸3の始め 終り 寸法
 
gutool/guqsiz.F:36:
      SUBROUTINE GUQTSZ
     I         ( HHEAD ,
     O           ISIZE   )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      INTEGER    ISIZE                   !" 全寸法
 
gutool/guqtim.F:9:
      SUBROUTINE GUQTIM
     I         ( HHEAD ,
     O           RT    , HUTIM )
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       RT                      !" 時刻
      CHARACTER  HUTIM      *(*)         !" 時刻単位
 
gutool/gurntp.F:6:
      SUBROUTINE GURNTF
     M         ( HFNAME ,
     I           HFNREF , HFNCHG  )
      CHARACTER  HFNAME *(*)
      CHARACTER  HFNREF *(*)
      CHARACTER  HFNCHG *(*)
 
gutool/gusmis.F:9:
      SUBROUTINE GUSMIS
     I         ( HHEAD  )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー
 
gutool/gusnow.F:9:
      SUBROUTINE GUSNOW
     M         ( HHEAD ,
     I           HP     )
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー
      CHARACTER  HP          *(*)        !" 記述子名
 
gutool/guszck.F:9:
      SUBROUTINE GUSZCK
     I         ( HHEAD , ISIZEO  )
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      INTEGER    ISIZEO                      !" 出力の大きさ
 
gutool/guszck.F:28:
      SUBROUTINE GUSZCZ
     I         ( ISIZEA, ISIZEO )
      INTEGER    ISIZEA                      !" 領域の大きさ
      INTEGER    ISIZEO                      !" 出力の大きさ
 
gutool/gutpac.F:9:
      SUBROUTINE GUTPAC
     I         ( IYEAR , IMONTH, IDAY  ,
     I           IHOUR , IMIN  , ISEC  ,
     O           HDATE                  )
      INTEGER    IYEAR                        !" 年
      INTEGER    IMONTH                       !" 月
      INTEGER    IDAY                         !" 日
      INTEGER    IHOUR                        !" 時
      INTEGER    IMIN                         !" 分
      INTEGER    ISEC                         !" 秒
      CHARACTER  HDATE *(*)                   !" 時刻(yyyymmddhhmmss)
 
gutool/gutpac.F:39:
      ENTRY      GUTUPC
     O         ( IYEAR , IMONTH, IDAY  ,
     O           IHOUR , IMIN  , ISEC  ,
     I           HDATE                  )
      INTEGER    IYEAR                        !" 年
      INTEGER    IMONTH                       !" 月
      INTEGER    IDAY                         !" 日
      INTEGER    IHOUR                        !" 時
      INTEGER    IMIN                         !" 分
      INTEGER    ISEC                         !" 秒
      CHARACTER  HDATE *(*)                   !" 時刻(yyyymmddhhmmss)
 
gutool/guvint.F:4:
      SUBROUTINE GUVINT(WZ,WW,IX)
      REAL      WZ(IX),X(IX)
      REAL      WW(IX)
 
gutool/guvint.F:17:
      ENTRY GUVDIN(WZ,WW,IX,JX,X,WT)
      REAL      WZ(IX),X(IX)
      REAL      WW(IX)
 
gutool/guvint.F:31:
      ENTRY GUVOUT(WZ,WW,IX)
      REAL      WZ(IX),X(IX)
      REAL      WW(IX)
 
