hscrea.f90

Path: hscrea.f90
Last Update: Sun Jan 15 16:10:30 JST 2006

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

Authors:Shin-ichi TAKEHIRO, Yasuhiro MORIKAWA
Version:$Id: hscrea.f90,v 1.3 2006/01/15 07:10:30 morikawa Exp $
Tag Name:$Name: gt4f90io-20070417 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

サブルーチン対応表

gt4_history#HistoryCreate :HSCREA

Required files

Methods

hscrea  

Included Modules

gt4_history

Public Instance methods

Subroutine :
fname :character(len=*)
: 出力ファイル
title :character(len=*)
: データ全体の表題
source :character(len=*)
: データを作成する際の手段
institution :character(len=*)
: ファイルを最終的に変更した人/組織
idim :integer
: 定義する軸変数の数
dims :character(len=1),dimension(idim)
: 軸変数名
dimsiz :integer,dimension(idim)
: 軸変数の大きさ
xtypes :character(len=*),dimension(idim)
: 軸変数のタイプ
longnames :character(len=*),dimension(idim)
: 軸変数の長い名前
units :character(len=*),dimension(idim)
: 単位
origin :real
: 開始時間
interval :real
: 出力時間間隔

機能

ヒストリーを定義する.

[Source]

subroutine hscrea(fname,title,source,institution, idim,dims,dimsiz,xtypes,longnames,units, origin,interval )
  !
  !== 機能
  !
  ! ヒストリーを定義する.
  !

  use gt4_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 )

end subroutine hscrea

[Validate]