!表題 gt4_history Fortran 77 用インターフェース ! !履歴 2000/12/26 竹広真一 ! 2001/02/27 竹広真一 サブルーチン毎のファイルに分割 ! ! サブルーチン対応表 ! HistoryAddAttr HSAATC,HSAATR,HSAATD,HSAATI ! subroutine hsaatd(varname, attrname, value,i) use gt4_history 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