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)