hsp3r.f90

Path: src/hsp3r.f90
Last Update: Wed Jul 20 18:22:24 JST 2005

表題 gt4_history Fortran 77 用インターフェース

履歴 2000/12/26 竹広真一

     2001/02/27  竹広真一  サブルーチン毎のファイルに分割

 サブルーチン対応表
    HistoryPut                   HSP1D, HSP2D, HSP3D, HSP1R, HSP2R, HSP3R

Methods

hsp3r  

Included Modules

gt4_history

Public Instance methods

varname :character(len=*)
var(i,j,k) :real
i :integer
j :integer
k :integer

[Source]

subroutine hsp3r(varname,var,i,j,k)

    character(len=*) :: varname
    real             :: var(i,j,k)
    integer          :: i,j,k

    call HistoryPut(varname,var)

  end subroutine hsp3r

[Validate]