Path: | src/hsaatd.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) : | double precision, intent(in) |
i : | integer |
subroutine hsaatd(varname, attrname, value,i) character(len=*), intent(in):: varname character(len=*), intent(in):: attrname double precision, intent(in):: value(i) integer :: i call HistoryAddAttr(varname, attrname, value) end subroutine hsaatd