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