Path: | hsaatc.f90 |
Last Update: | Sun Jan 15 16:10:30 JST 2006 |
Authors: | Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA |
Version: | $Id: hsaatc.f90,v 1.3 2006/01/15 07:10:30 morikawa Exp $ |
Tag Name: | $Name: gt4f90io-20070627 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. |
License: | See COPYRIGHT |
gt4_history#HistoryAddAttr : | HSAATC,HSAATR,HSAATD,HSAATI |
Subroutine : | |||
vname : | character(len = *), intent(in)
| ||
atname : | character(len = *), intent(in)
| ||
value : | character(len = *), intent(in)
|
ヒストリー, 変数に属性をつける.
VNAME が空の場合にはヒストリーのグローバル属性として扱われる.
subroutine hsaatc(vname, atname, value) ! !== 機能 ! ! ヒストリー, 変数に属性をつける. ! !== 備考 ! ! VNAME が空の場合にはヒストリーのグローバル属性として扱われる. ! use gt4_history character(len = *), intent(in):: vname ! 変数名 character(len = *), intent(in):: atname ! 属性名 character(len = *), intent(in):: value ! 変数 call HistoryAddAttr(vname, atname, value) end subroutine hsaatc