hsaatr.f90

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

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

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

サブルーチン対応表

gt4_history#HistoryAddAttr :HSAATC,HSAATR,HSAATD,HSAATI

Required files

gt4_history.f90  

Methods

hsaatr  

Included Modules

gt4_history

Public Instance methods

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

機能

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

備考

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

[Source]

subroutine hsaatr(vname, atname, value,i)
  !
  !== 機能
  !
  ! ヒストリー, 変数に属性をつける.
  !
  !== 備考
  !
  ! VNAME が空の場合にはヒストリーのグローバル属性として扱われる.
  !
  use gt4_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

[Validate]