hsp3r.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	hsp3r (vname, var, i, j, k)

Function/Subroutine Documentation

hsp3r()

subroutine hsp3r	(	character(len=*)	vname,
		real, dimension(i,j,k)	var,
		integer	i,
		integer	j,
		integer	k )

Definition at line 14 of file hsp3r.f90.

  !
  !== 機能
  !
  ! ヒストリーに変数を出力する
  !
 
  use gtool_history
  character(len=*) :: vname ! 変数名
  real             :: var(i,j,k) ! 変数
  integer          :: i,j,k ! 各次元の大きさ
 
  call historyput(vname,var)