hsaatd.f90

Go to the documentation of this file.

!> @file hsaatd.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 compatible interface for gtool_history HistoryAddAttr (double precision)
!> @enden
!>
!> @ja
!> @brief gtool_history Fortran 77 用インターフェース (倍精度実数型属性付加)
!> @endja
 
!>
!> @en
!> @brief Add an attribute to a history or variable.
!>
!> If VNAME is empty, the attribute is treated as a global attribute of the history.
!> @enden
!> @ja
!> @brief ヒストリー, 変数に属性をつける.
!>
!> VNAME が空の場合にはヒストリーのグローバル属性として扱われる.
!> @endja
!>
subroutine hsaatd(vname, atname, value,i)
  !
  use gtool_history
  character(len=*), intent(in):: vname ! 変数名
  character(len=*), intent(in):: atname ! 属性名
  double precision, intent(in):: value(i) ! 変数
  integer          :: i ! 属性の次元数
 
  call historyaddattr(vname, atname, value)
 
end subroutine hsaatd