| Path: | hsaatr.f90 |
| Last Update: | Tue Sep 23 18:56:27 +0900 2008 |
| Authors: | Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA |
| Version: | $Id: hsaatr.f90,v 1.1.1.1 2008-09-23 09:56:27 morikawa Exp $ |
| Tag Name: | $Name: gtool5-20090116 $ |
| Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. |
| License: | See COPYRIGHT |
| gtool_history#HistoryAddAttr : | HSAATC,HSAATR,HSAATD,HSAATI |
| Subroutine : | |||
| vname : | character(len=*), intent(in)
| ||
| atname : | character(len=*), intent(in)
| ||
| value(i) : | real, intent(in)
| ||
| i : | integer
|
ヒストリー, 変数に属性をつける.
VNAME が空の場合にはヒストリーのグローバル属性として扱われる.
subroutine hsaatr(vname, atname, value,i) ! !== 機能 ! ! ヒストリー, 変数に属性をつける. ! !== 備考 ! ! VNAME が空の場合にはヒストリーのグローバル属性として扱われる. ! 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