!表題 gtool_history Fortran 77 用インターフェース ! !履歴 2000/12/26 竹広真一 ! 2001/02/27 竹広真一 サブルーチン毎のファイルに分割 ! ! サブルーチン対応表 ! HistoryCreate HSCREA ! subroutine hscrea(fname,title,source,institution, & idim,dims,dimsiz,xtypes,longnames,units, & origin,interval ) use gtool_history implicit none character(len=*) :: fname ! 出力ファイル character(len=*) :: title ! タイトル character(len=*) :: source ! タイトル character(len=*) :: institution ! タイトル integer :: idim ! 定義する軸変数の数 character*1,dimension(idim) :: dims ! 軸変数名 integer,dimension(idim) :: dimsiz ! 軸変数の大きさ character(len=*),dimension(idim) :: xtypes ! 軸変数のタイプ character(len=*),dimension(idim) :: longnames ! 軸変数の長い名前 character(len=*),dimension(idim) :: units ! 単位 real :: origin ! 開始時間 real :: interval ! 出力時間間隔 call HistoryCreate( & file=fname, title=title, & source=source, institution=institution, & dims=dims, dimsizes=dimsiz, xtypes=xtypes, & longnames=longnames, units=units, & origin=origin, interval=interval & ) end subroutine hscrea