!
!= gtool_history Fortran 77 逕ｨ繧､繝ｳ繧ｿ繝ｼ繝輔ぉ繝ｼ繧ｹ
!
! Authors::   Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
! Version::   $Id: hsaati.f90,v 1.2 2009-06-01 15:17:20 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
!== 繧ｵ繝悶Ν繝ｼ繝√Φ蟇ｾ蠢懆｡ｨ
!
! gtool_history_generic#HistoryAddAttr :: HSAATC,HSAATR,HSAATD,HSAATI
!
subroutine hsaati(vname, atname, value,i)
  !
  !== 讖溯�
  !
  ! 繝偵せ繝医Μ繝ｼ, 螟画焚縺ｫ螻樊ｧ繧偵▽縺代ｋ.
  !
  !== 蛯呵�
  !
  ! VNAME 縺檎ｩｺ縺ｮ蝣ｴ蜷医↓縺ｯ繝偵せ繝医Μ繝ｼ縺ｮ繧ｰ繝ｭ繝ｼ繝舌Ν螻樊ｧ縺ｨ縺励※謇ｱ繧上ｌ繧�.
  !
  use gtool_history
  character(len=*), intent(in):: vname ! 螟画焚蜷�
  character(len=*), intent(in):: atname ! 螻樊ｧ蜷�
  integer, intent(in):: value(i) ! 螟画焚
  integer          :: i ! 螻樊ｧ縺ｮ谺｡蜈�焚

  call HistoryAddAttr(vname, atname, value)

end subroutine hsaati