hsp3r.f90

Go to the documentation of this file.

!> @file hsp3r.f90
!>
!> @author Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Fortran 77 compatibility wrapper for gtool_history HistoryPut (3D single precision)
!> @enden
!>
!> @ja
!> @brief gtool_history Fortran 77 用インターフェース (HistoryPut, 3次元単精度)
!> @endja
!
!>
!> @en
!> @brief Output a variable to history
!> @enden
!> @ja
!> @brief ヒストリーに変数を出力する
!> @endja
!>
subroutine hsp3r(vname,var,i,j,k)
 
  use gtool_history
  character(len=*) :: vname ! 変数名
  real             :: var(i,j,k) ! 変数
  integer          :: i,j,k ! 各次元の大きさ
 
  call historyput(vname,var)
 
end subroutine hsp3r