!表題  gt4_history Fortran 77 用インターフェース
!
!履歴  2000/12/26  竹広真一
!      2001/02/27  竹広真一  サブルーチン毎のファイルに分割
!
!  サブルーチン対応表
!     HistoryAddVariable           HSAVAR
!
subroutine hsavar(varname,idim,dims,longname,unit,xtype)

    use gt4_history
    character(len=*),intent(in) :: varname, longname, unit, xtype
    integer,intent(in)          :: idim
    character(len=*),dimension(idim),intent(in) :: dims


    call HistoryAddVariable(varname=varname, &
        & dims=dims, &
        & longname=longname, units=unit, xtype=xtype)

  end subroutine hsavar