historyaxisclear.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaxisclear (axis)

Function/Subroutine Documentation

historyaxisclear()

subroutine historyaxisclear

(

type(gt_history_axis), intent(inout)

axis

)

Definition at line 11 of file historyaxisclear.f90.

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

    !
    !== GT_HISTORY_AXIS 型変数初期化
    !
    ! *axis* で与えられた変数を HistoryAxisCreate による初期設定よりも
    ! さらに前の状態に初期化します。
    !
    ! Destructor of GT_HISTORY_AXIS
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    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)