Path: | gtool/gtool_history/historyaxisinquire.f90 |
Last Update: | Mon May 25 18:45:20 +0900 2009 |
Authors: | Yasuhiro MORIKAWA |
Version: | $Id: historyaxisinquire.f90,v 1.2 2009-05-25 09:45:20 morikawa Exp $ |
Tag Name: | $Name: gtool5-20101006 $ |
Copyright: | Copyright (C) GFD Dennou Club, 2000-2009. All rights reserved. |
License: | See COPYRIGHT |
Subroutine : | |||
axis : | type(GT_HISTORY_AXIS),intent(in) | ||
name : | character(*) , intent(out), optional
| ||
size : | integer, intent(out), optional
| ||
longname : | character(*) , intent(out), optional
| ||
units : | character(*) , intent(out), optional
| ||
xtype : | character(*) , intent(out), optional
|
GT_HISTORY_AXIS 型の変数内の各情報を参照します。
subroutine HistoryAxisInquire1( axis, name, size, longname, units, xtype ) ! !== GT_HISTORY_AXIS 型変数への問い合わせ ! ! 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(in) :: axis character(*) , intent(out), optional:: name ! 次元変数名 integer, intent(out), optional:: size ! 次元長 (配列サイズ) character(*) , intent(out), optional:: longname ! 次元変数の記述的名称 character(*) , intent(out), optional:: units ! 次元変数の単位 character(*) , intent(out), optional:: xtype ! 次元変数の型 character(len = *), parameter:: subname = "HistoryAxisInquire1" continue call BeginSub(subname) if (present(name)) then name = axis % name end if if (present(size)) then size = axis % length end if if (present(longname)) then longname = axis % longname end if if (present(units)) then units = axis % units end if if (present(xtype)) then xtype = axis % xtype end if call EndSub(subname) end subroutine HistoryAxisInquire1
Subroutine : | |||
axis : | type(GT_HISTORY_AXIS),intent(in) | ||
name : | character(*) , intent(out), optional
| ||
size : | integer, intent(out), optional
| ||
longname : | character(*) , intent(out), optional
| ||
units : | character(*) , intent(out), optional
| ||
xtype : | character(*) , intent(out), optional
|
使用方法は HistoryAxisInquire と同様です.
Usage is same as "HistoryAxisInquire".
subroutine HistoryAxisInquire2( axis, name, size, longname, units, xtype) ! ! 使用方法は HistoryAxisInquire と同様です. ! ! Usage is same as "HistoryAxisInquire". ! ! ! 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_generic, only: HistoryAxisInquire implicit none type(GT_HISTORY_AXIS),intent(in) :: axis character(*) , intent(out), optional:: name ! 次元変数名 integer, intent(out), optional:: size ! 次元長 (配列サイズ) character(*) , intent(out), optional:: longname ! 次元変数の記述的名称 character(*) , intent(out), optional:: units ! 次元変数の単位 character(*) , intent(out), optional:: xtype ! 次元変数の型 character(len = *), parameter:: subname = "HistoryAxisInquire2" continue call BeginSub(subname) call HistoryAxisInquire( axis, name, size, longname, units, xtype) call EndSub(subname) end subroutine HistoryAxisInquire2