historyaxiscopy.f90 File Reference

Copy GT_HISTORY_AXIS . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaxiscopy1 (axis_dest, axis_src, err, name, length, longname, units, xtype)
subroutine	historyaxiscopy2 (axis_dest, axis_src, err, name, length, longname, units, xtype)

Detailed Description

Copy GT_HISTORY_AXIS

.

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2004-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file historyaxiscopy.f90.

Function/Subroutine Documentation

historyaxiscopy1()

subroutine historyaxiscopy1	(	type(gt_history_axis), intent(out)	axis_dest,
		type(gt_history_axis), intent(in)	axis_src,
		logical, intent(out), optional	err,
		character(*), intent(in), optional	name,
		integer, intent(in), optional	length,
		character(*), intent(in), optional	longname,
		character(*), intent(in), optional	units,
		character(*), intent(in), optional	xtype
	)

Copy a GT_HISTORY_AXIS variable

Copies the GT_HISTORY_AXIS variable axis_src to axis_dest. axis_src must be initialized by HistoryAxisCreate. To add attributes, use HistoryAxisAddAttr.

If err is given, the program does not abort on error; instead, err returns .true.

Arguments after err are values to override during copy.

Parameters

[out]	axis_dest	Destination GT_HISTORY_AXIS
[in]	axis_src	Source GT_HISTORY_AXIS
[out]	err	Error flag (optional)
[in]	name	Dimension variable name (optional, override)
[in]	length	Dimension length (optional, override)
[in]	longname	Descriptive name (optional, override)
[in]	units	Units (optional, override)
[in]	xtype	Type (optional, override)

Definition at line 62 of file historyaxiscopy.f90.

    !
    use gtool_history_types, only: gt_history_axis
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub
    use dc_present, only: present_select
    use dc_string, only: cprintft
    implicit none
    type(GT_HISTORY_AXIS),intent(out) :: axis_dest ! コピー先 GT_HISTORY_AXIS
    type(GT_HISTORY_AXIS),intent(in)  :: axis_src  ! コピー元 GT_HISTORY_AXIS
    logical, intent(out), optional :: err
    character(*) , intent(in), optional:: name     ! 次元変数名
    integer, intent(in), optional:: length         ! 次元長 (配列サイズ)
    character(*) , intent(in), optional:: longname ! 次元変数の記述的名称
    character(*) , intent(in), optional:: units    ! 次元変数の単位
    character(*) , intent(in), optional:: xtype    ! 次元変数の型
    character(*), parameter:: subname = "HistoryAxisCopy1"
  continue
    call beginsub(subname)
    axis_dest % name     = cprintft('%c', c1=present_select('', axis_src % name, name))
    axis_dest % length   = present_select(.false., axis_src % length, length)
    axis_dest % longname = present_select('', axis_src % longname, longname)
    axis_dest % units    = present_select('', axis_src % units, units)
    axis_dest % xtype    = cprintft('%c', c1=present_select('', axis_src % xtype, xtype))
 
    if (associated( axis_src % attrs ) ) then
      allocate(  axis_dest % attrs( size( axis_src % attrs) )  )
      call copy_attrs( from = axis_src % attrs, &
        &              to = axis_dest % attrs, err = err)
    end if
    call endsub(subname)

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

Here is the call graph for this function:

historyaxiscopy2()

subroutine historyaxiscopy2	(	type(gt_history_axis), intent(out)	axis_dest,
		type(gt_history_axis), intent(in)	axis_src,
		logical, intent(out), optional	err,
		character(*), intent(in), optional	name,
		integer, intent(in), optional	length,
		character(*), intent(in), optional	longname,
		character(*), intent(in), optional	units,
		character(*), intent(in), optional	xtype
	)

Copy a GT_HISTORY_AXIS variable (generic interface)

Usage is same as HistoryAxisCopy.

Definition at line 108 of file historyaxiscopy.f90.

    use gtool_history_types, only: gt_history_axis
    use gtool_history_generic, only: historyaxiscopy
    use dc_trace, only: beginsub, endsub
    implicit none
    type(GT_HISTORY_AXIS),intent(out) :: axis_dest ! コピー先 GT_HISTORY_AXIS
    type(GT_HISTORY_AXIS),intent(in)  :: axis_src  ! コピー元 GT_HISTORY_AXIS
    logical, intent(out), optional :: err
    character(*) , intent(in), optional:: name     ! 次元変数名
    integer, intent(in), optional:: length         ! 次元長 (配列サイズ)
    character(*) , intent(in), optional:: longname ! 次元変数の記述的名称
    character(*) , intent(in), optional:: units    ! 次元変数の単位
    character(*) , intent(in), optional:: xtype    ! 次元変数の型
    character(*), parameter:: subname = "HistoryAxisCopy2"
  continue
    call beginsub(subname)
    call historyaxiscopy(axis_dest, axis_src, err, &
      & name, length, longname, units, xtype)
    call endsub(subname)

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

Here is the call graph for this function: