# HSPACK -- gtool_history f77 インターフェース

このパッケージは gtool4 f90 ライブラリで提供されている gtool_history モジュールを f77 でかかれたメインプログラムから 用いるための橋渡しをするサブルーチンを提供する.

## 対応表

gtool_history F90 サブルーチン | HSPACK F77 サブルーチン
HistoryCreate | HSCREA
HistoryAddVariable | HSAVAR
HistoryPut | HSP1D, HSP2D, HSP3D, HSP1R, HSP2R, HSP3R
HistoryAddAttr | HSAATC,HSAATR,HSAATD,HSAATI
HistoryClose | HSCLSE

## 各サブルーチンの説明

- HSCREA

  1. 機能

     ヒストリーを定義する.

  2. 呼び出し方法

     CALL HSCREA(FILE,TITLE,SOURCE,INSTIT, IDIM,DIMS,DIMSIZ,XTYPES,LNAMES,UNITS, ORIGIN,INTVAL )

  3. 引数の説明

     FILE | (C*) | ファイル名
     TITLE | (C*) | タイトル
     SOURCE | (C*) |
     INSTIT | (C*) |
     IDIM | (I) | 定義する軸変数の数
     DIMS | (C*(IDIM)) | 軸変数名
     DIMSIZ | (I) | 定義する軸変数の数の大きさ
     XTYPES | (C*(IDIM)) | 軸変数のタイプ
     LNAMES | (C*(IDIM)) | 軸変数の長い名前
     UNITS | (C*(IDIM)) | 軸変数の単位
     ORIGIN | (R) | 開始時間
     INTVAL | (R) | 出力時間間隔

  4. 備考

- HSAVAR

  1. 機能

     変数を定義する.

  2. 呼び出し方法

     CALL HSAVAR(VNAME,IDIM,DIMS,LNAME,UNIT,XTYPE)

  3. 引数の説明

     VNAME | (C*) | 変数名
     DIMS | (C(IDIM)*) | 次元
     LNAME | (C*) | 長い名前
     UNIT | (C*) | 単位
     XTYPE | (C*) | 定義する変数のタイプ
     I | (I) | 定義する変数の次元の大きさ

  4. 備考

- HSP1D, HSP2D, HSP3D, HSP1R, HSP2R, HSP3R

  1. 機能

     ヒストリーに変数を出力する.

  2. 呼び出し方法

     CALL HSP1D(VNAME,DVAR,I)
     CALL HSP2D(VNAME,DVAR,I,J)
     CALL HSP3D(VNAME,DVAR,I,J,K)

     CALL HSP1R(VNAME,RVAR,I)
     CALL HSP2R(VNAME,RVAR,I,J)
     CALL HSP3R(VNAME,RVAR,I,J,K)

  3. 引数の説明

     VNAME | (C*) | 変数名
     DVAR | (D(1/2/3)) | 変数
     RVAR | (R(1/2/3)) | 変数
     I,J,K | (I) | 各次元の大きさ

  4. 備考

- HSAATC,HSAATR,HSAATD,HSAATI

  1. 機能

     ヒストリー, 変数に属性をつける.

  2. 呼び出し方法

     CALL HSAATC(VNAME, ATNAME, VALUE)
     CALL HSAATR(VNAME, ATNAME, VALUE, IDIM)
     CALL HSAATD(VNAME, ATNAME, VALUE, IDIM)
     CALL HSAATI(VNAME, ATNAME, VALUE, IDIM)

  3. 引数の説明

     VNAME | (C*) | 変数名
     ATNAME | (C*) | 属性名
     VALUE | (C*/R(*)/D(*)/I(*)) | 変数
     IDIM | (I) | 属性の次元数

  4. 備考

     - VNAME が空の場合にはヒストリーのグローバル属性として扱われる.

- HSCLSE

  1. 機能

     ヒストリーを閉じる.

  2. 呼び出し方法

     CALL HSCLSE

  3. 引数の説明

  4. 備考

作成 : 2000 年 1 月 8 日 竹広真一 (takepiro@gfd-dennou.org)

2001年9月25日 豊田英司 「パラメター」を「引数」に書換え