hsaatr.f90

Path: gtool/gtool_history/hsaatr.f90
Last Update: Tue Jun 02 00:17:20 +0900 2009

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

Authors:Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
Version:$Id: hsaatr.f90,v 1.2 2009-06-01 15:17:20 morikawa Exp $
Tag Name:$Name: gtool5-20101228-1 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

サブルーチン対応表

gtool_history_generic#HistoryAddAttr :HSAATC,HSAATR,HSAATD,HSAATI

Required files

Methods

hsaatr  

Included Modules

gtool_history

Public Instance methods

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 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