historyaxisclear.f90 File Reference

Destructor of GT_HISTORY_AXIS . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaxisclear (axis)

Detailed Description

Destructor of 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 historyaxisclear.f90.

Function/Subroutine Documentation

historyaxisclear()

subroutine historyaxisclear

(

type(gt_history_axis), intent(inout)

axis

)

Clear GT_HISTORY_AXIS variable

Initializes the variable axis to the state before HistoryAxisCreate initialization.

Parameters

[in,out]

axis

Axis information

Definition at line 32 of file historyaxisclear.f90.

    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)

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

Here is the call graph for this function: