hsaatc.f90

Go to the documentation of this file.

 
 
subroutine hsaatc(vname, atname, value)
  !
  use gtool_history
  character(len = *), intent(in):: vname ! 変数名
  character(len = *), intent(in):: atname ! 属性名
  character(len = *), intent(in):: value ! 変数
 
  call historyaddattr(vname, atname, value)
 
end subroutine hsaatc