hscrea.f90 File Reference

gtool_history Fortran 77 用インターフェース (ヒストリー定義) More...

Go to the source code of this file.

Functions/Subroutines
subroutine	hscrea (fname, title, source, institution, idim, dims, dimsiz, xtypes, longnames, units, origin, interval)

Detailed Description

gtool_history Fortran 77 用インターフェース (ヒストリー定義)

Author

Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file hscrea.f90.

Function/Subroutine Documentation

hscrea()

subroutine hscrea	(	character(len=*)	fname,
		character(len=*)	title,
		character(len=*)	source,
		character(len=*)	institution,
		integer	idim,
		character(len=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
	)

ヒストリーを定義する.

Definition at line 23 of file hscrea.f90.

  !
 
  use gtool_history, only: historycreate
  implicit none
 
  character(len=*)              :: fname           ! 出力ファイル
  character(len=*)              :: title           ! データ全体の表題
  character(len=*)              :: source          ! データを作成する際の手段
  character(len=*)              :: institution     ! ファイルを最終的に変更した人/組織
  integer                       :: idim            ! 定義する軸変数の数
  character(len=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 )