hsp3d.f90

Go to the documentation of this file.

 
!
subroutine hsp3d(vname,var,i,j,k)
 
  use gtool_history
  character(len=*) :: vname ! 変数名
  double precision :: var(i,j,k) ! 変数
  integer          :: i,j,k ! 各次元の大きさ
 
  call historyput(vname,var)
 
end subroutine hsp3d