!
!= gtool_history Fortran 77 ç”¨ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹
!
! Authors::   Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
! Version::   $Id: hsaatd.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 hsaatd(vname, atname, value,i)
  !
  !== æ©Ÿèƒ½
  !
  ! ãƒ’ã‚¹ãƒˆãƒªãƒ¼, å¤‰æ•°ã«å±žæ€§ã‚’ã¤ã‘ã‚‹.
  !
  !== å‚™è€ƒ
  !
  ! VNAME ãŒç©ºã®å ´åˆã«ã¯ãƒ’ã‚¹ãƒˆãƒªãƒ¼ã®ã‚°ãƒãƒ¼ãƒãƒ«å±žæ€§ã¨ã—ã¦æ‰±ã‚ã‚Œã‚‹.
  !
  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