hsaatd.f90

Go to the documentation of this file.

 
 
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