historyaxiscreate.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaxiscreate1 (axis, name, size, longname, units, xtype)
subroutine	historyaxiscreate2 (axis, name, size, longname, units, xtype)

Function/Subroutine Documentation

historyaxiscreate1()

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

Definition at line 12 of file historyaxiscreate.f90.

References dc_types::dp, dc_types::string, and dc_types::token.

    !
    !== 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)

historyaxiscreate2()

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

Definition at line 47 of file historyaxiscreate.f90.

References dc_types::dp, dc_types::string, and dc_types::token.

    !
    ! 使用方法は HistoryAxisCreate と同様です. 
    !
    ! Usage is same as "HistoryAxisCreate".
    !
    !--
    ! 総称名 Create として提供するためのサブルーチンです. 
    ! 機能は HistoryAxisCreate1 と同じです. 
    !++
    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)