hsaati.f90

Path: hsaati.f90
Last Update: Sun Jan 15 16:10:30 +0900 2006

gt4_history Fortran 77 用インターフェース

Authors:Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
Version:$Id: hsaati.f90,v 1.3 2006-01-15 07:10:30 morikawa Exp $
Tag Name:$Name: gt4f90io-20080812 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

サブルーチン対応表

gt4_history#HistoryAddAttr :HSAATC,HSAATR,HSAATD,HSAATI

Required files

Methods

hsaati  

Included Modules

gt4_history

Public Instance methods

Subroutine :
vname :character(len=*), intent(in)
: 変数名
atname :character(len=*), intent(in)
: 属性名
value(i) :integer, intent(in)
: 変数
i :integer
: 属性の次元数

機能

ヒストリー, 変数に属性をつける.

備考

VNAME が空の場合にはヒストリーのグローバル属性として扱われる.

[Source]

subroutine hsaati(vname, atname, value,i)
  !
  !== 機能
  !
  ! ヒストリー, 変数に属性をつける.
  !
  !== 備考
  !
  ! VNAME が空の場合にはヒストリーのグローバル属性として扱われる.
  !
  use gt4_history
  character(len=*), intent(in):: vname ! 変数名
  character(len=*), intent(in):: atname ! 属性名
  integer, intent(in):: value(i) ! 変数
  integer          :: i ! 属性の次元数

  call HistoryAddAttr(vname, atname, value)

end subroutine hsaati

[Validate]