hsavar.f90

Path: src/hsavar.f90
Last Update: Wed Jul 20 18:22:24 JST 2005

表題 gt4_history Fortran 77 用インターフェース

履歴 2000/12/26 竹広真一 

     2001/02/27  竹広真一  サブルーチン毎のファイルに分割

 サブルーチン対応表
    HistoryAddVariable           HSAVAR

Methods

hsavar  

Included Modules

gt4_history

Public Instance methods

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

[Source]

subroutine hsavar(varname,idim,dims,longname,unit,xtype)

    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

[Validate]