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

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


対応表

gtool_history F90 サブルーチン HSPACK F77 サブルーチン
HistoryCreate HSCREA
HistoryAddVariableHSAVAR
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)