historyaxisclear.f90

Go to the documentation of this file.

!> @file historyaxisclear.f90
!>
!> @author Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Destructor of GT_HISTORY_AXIS
!> @enden
!>
!> @ja
!> @brief GT_HISTORY_AXIS 変数のクリア
!> @endja
 
!>
!> @en
!> @brief Clear GT_HISTORY_AXIS variable
!>
!> Initializes the variable axis to the state before
!> HistoryAxisCreate initialization.
!> @param[inout] axis Axis information
!> @enden
!>
!> @ja
!> @brief GT_HISTORY_AXIS 型変数初期化
!>
!> axis で与えられた変数を HistoryAxisCreate による初期設定よりも
!> さらに前の状態に初期化します。
!> @param[inout] axis 座標軸情報
!> @endja
!>
  subroutine historyaxisclear(axis)
    use gtool_history_types, only: gt_history_axis
    use dc_trace, only: beginsub, endsub
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(len = *), parameter:: subname = "HistoryAxisClear1"
    call beginsub(subname)
    axis % name     = ""
    axis % length   = 0
    axis % longname = ""
    axis % units    = ""
    axis % xtype    = ""
    if (associated(axis % attrs)) then
      deallocate(axis % attrs)
    end if
    call endsub(subname)
  end subroutine historyaxisclear