!表題 gt4_history Fortran 77 用インターフェース ! !履歴 2000/12/26 竹広真一 ! 2001/02/27 竹広真一 サブルーチン毎のファイルに分割 ! ! サブルーチン対応表 ! HistoryPut HSP1D, HSP2D, HSP3D, HSP1R, HSP2R, HSP3R ! subroutine hsp3d(varname,var,i,j,k) use gt4_history character(len=*) :: varname double precision :: var(i,j,k) integer :: i,j,k call HistoryPut(varname,var) end subroutine hsp3d