Path: | gtool/gtool_history/historyaxiscreate.f90 |
Last Update: | Mon May 25 18:45:20 +0900 2009 |
Authors: | Yasuhiro MORIKAWA |
Version: | $Id: historyaxiscreate.f90,v 1.2 2009-05-25 09:45:20 morikawa Exp $ |
Tag Name: | $Name: gtool5-20090729 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2000-2009. All rights reserved. |
License: | See COPYRIGHT |
Subroutine : | |||
axis : | type(GT_HISTORY_AXIS),intent(out) | ||
name : | character(*) , intent(in)
| ||
size : | integer, intent(in)
| ||
longname : | character(*) , intent(in)
| ||
units : | character(*) , intent(in)
| ||
xtype : | character(*) , intent(in)
|
GT_HISTORY_AXIS 型変数を作成します。 このサブルーチンによる設定の後、 HistoryCreate の axes に与えます。 さらに属性を付加する場合には HistoryAxisAddAttr を用いてください。
Constructor of GT_HISTORY_AXIS
subroutine HistoryAxisCreate1( axis, name, size, longname, units, xtype) ! !== GT_HISTORY_AXIS 型変数作成 ! ! GT_HISTORY_AXIS 型変数を作成します。 ! このサブルーチンによる設定の後、 ! HistoryCreate の *axes* に与えます。 ! さらに属性を付加する場合には HistoryAxisAddAttr ! を用いてください。 ! ! Constructor of GT_HISTORY_AXIS ! use dc_types, only: STRING, TOKEN, DP use dc_trace, only: BeginSub, EndSub, DbgMessage use gtool_history_types, only: GT_HISTORY, GT_HISTORY_AXIS, GT_HISTORY_VARINFO, GT_HISTORY_ATTR use gtool_history_internal, only: default implicit none type(GT_HISTORY_AXIS),intent(out) :: axis character(*) , intent(in):: name ! 次元変数名 integer, intent(in):: size ! 次元長 (配列サイズ) character(*) , intent(in):: longname ! 次元変数の記述的名称 character(*) , intent(in):: units ! 次元変数の単位 character(*) , intent(in):: xtype ! 次元変数の型 character(len = *), parameter:: subname = "HistoryAxisCreate1" continue call BeginSub(subname) axis % name = name axis % length = size axis % longname = longname axis % units = units axis % xtype = xtype call EndSub(subname) end subroutine HistoryAxisCreate1
Subroutine : | |||
axis : | type(GT_HISTORY_AXIS),intent(out) | ||
name : | character(*) , intent(in)
| ||
size : | integer, intent(in)
| ||
longname : | character(*) , intent(in)
| ||
units : | character(*) , intent(in)
| ||
xtype : | character(*) , intent(in)
|
使用方法は HistoryAxisCreate と同様です.
Usage is same as "HistoryAxisCreate".
subroutine HistoryAxisCreate2( axis, name, size, longname, units, xtype) ! ! 使用方法は HistoryAxisCreate と同様です. ! ! Usage is same as "HistoryAxisCreate". ! ! use dc_types, only: STRING, TOKEN, DP use dc_trace, only: BeginSub, EndSub, DbgMessage use gtool_history_types, only: GT_HISTORY, GT_HISTORY_AXIS, GT_HISTORY_VARINFO, GT_HISTORY_ATTR use gtool_history_internal, only: default implicit none type(GT_HISTORY_AXIS),intent(out) :: axis character(*) , intent(in):: name ! 次元変数名 integer, intent(in):: size ! 次元長 (配列サイズ) character(*) , intent(in):: longname ! 次元変数の記述的名称 character(*) , intent(in):: units ! 次元変数の単位 character(*) , intent(in):: xtype ! 次元変数の型 character(len = *), parameter:: subname = "HistoryAxisCreate2" continue call BeginSub(subname) axis % name = name axis % length = size axis % longname = longname axis % units = units axis % xtype = xtype call EndSub(subname) end subroutine HistoryAxisCreate2