| Path: | src/hsaatr.f90 | 
| Last Update: | Wed Jul 20 18:22:24 JST 2005 | 
表題 gt4_history Fortran 77 用インターフェース
履歴 2000/12/26 竹広真一
     2001/02/27  竹広真一  サブルーチン毎のファイルに分割
 サブルーチン対応表
    HistoryAddAttr               HSAATC,HSAATR,HSAATD,HSAATI
    | varname : | character(len=*), intent(in) | 
| attrname : | character(len=*), intent(in) | 
| value(i) : | real, intent(in) | 
| i : | integer | 
subroutine hsaatr(varname, attrname, value,i)
    character(len=*), intent(in) :: varname
    character(len=*), intent(in) :: attrname
    real, intent(in) :: value(i)
    integer          :: i
    call HistoryAddAttr(varname, attrname, value)
  end subroutine hsaatr