historyaxisinquire.f90 File Reference

GT_HISTORY_AXIS 変数への問い合わせ . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaxisinquire1 (axis, name, size, longname, units, xtype)
subroutine	historyaxisinquire2 (axis, name, size, longname, units, xtype)

Detailed Description

GT_HISTORY_AXIS 変数への問い合わせ .

Author

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 historyaxisinquire.f90.

Function/Subroutine Documentation

historyaxisinquire1()

subroutine historyaxisinquire1	(	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
	)

GT_HISTORY_AXIS 型変数への問い合わせ

GT_HISTORY_AXIS 型の変数内の各情報を参照します。

Parameters

[in]	axis	座標軸情報
[out]	name	次元変数名 (省略可能)
[out]	size	次元長 (省略可能)
[out]	longname	次元変数の記述的名称 (省略可能)
[out]	units	次元変数の単位 (省略可能)
[out]	xtype	次元変数の型 (省略可能)

Definition at line 41 of file historyaxisinquire.f90.

    !
    use dc_trace, only: beginsub, endsub
    use gtool_history_types, only: gt_history_axis
    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)

References dc_trace::beginsub(), and dc_trace::endsub().

Here is the call graph for this function:

historyaxisinquire2()

subroutine historyaxisinquire2	(	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
	)

GT_HISTORY_AXIS 型変数への問い合わせ (総称インターフェース)

使用方法は HistoryAxisInquire と同様です。

Definition at line 86 of file historyaxisinquire.f90.

    use dc_trace, only: beginsub, endsub
    use gtool_history_types, only: gt_history_axis
    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)

References dc_trace::beginsub(), and dc_trace::endsub().

Here is the call graph for this function: