!
!= gtool_history Fortran 77 ç”¨ã‚¤ãƒ³ã‚¿ãƒ¼ãƒ•ã‚§ãƒ¼ã‚¹
!
! Authors::   Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
! Version::   $Id: hsp3r.f90,v 1.2 2009-06-01 15:17:19 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
! License::   See COPYRIGHT[link:../../COPYRIGHT]
!
!== ã‚µãƒ–ãƒ«ãƒ¼ãƒãƒ³å¯¾å¿œè¡¨
!
! gtool_history_generic#HistoryPut :: HSP1D, HSP2D, HSP3D, HSP1R, HSP2R, HSP3R
!
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