hsaatr.f90

Go to the documentation of this file.

 
 
subroutine hsaatr(vname, atname, value,i)
  !
  use gtool_history
  character(len=*), intent(in) :: vname ! 変数名
  character(len=*), intent(in) :: atname ! 属性名
  real, intent(in) :: value(i) ! 変数
  integer          :: i ! 属性の次元数
 
  call historyaddattr(vname, atname, value)
 
end subroutine hsaatr