historyinitialized.f90

Go to the documentation of this file.

!> @file historyinitialized.f90
!>
!> @author Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2004-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Checker of initialization of GT_HISTORY
!> @enden
!>
!> @ja
!> @brief GT_HISTORY の初期設定チェッカ
!> @endja
 
!>
!> @en
!> @brief Check if GT_HISTORY is initialized
!>
!> Returns .true. if history is initialized, .false. otherwise.
!> @param[in] history History handle
!> @return .true. if initialized
!> @enden
!> @ja
!> @brief GT_HISTORY の初期設定チェック
!>
!> history が初期設定されている場合には .true. が、
!> 初期設定されていない場合には .false. が返ります。
!> @param[in] history ヒストリーハンドル
!> @return 初期設定済みなら .true.
!> @endja
!>
  logical function historyinitialized0( history ) result(result)
    use gtool_history_types, only: gt_history
    implicit none
    type(gt_history), intent(in):: history
  continue
    result = history % initialized
  end function historyinitialized0
 
  !-------------------------------------------------------------------
 
!> @en
  !> @brief Check if GT_HISTORY is initialized (generic interface)
  !>
  !> Usage is same as HistoryInitialized.
  !> @enden
  !> @ja
  !> @brief GT_HISTORY の初期設定チェック (総称インターフェース)
  !>
  !> 使用方法は HistoryInitialized と同様です。
  !> @endja
  logical function historyinitialized1( history ) result(result)
    use gtool_history_types, only: gt_history
    use gtool_history_generic, only: historyinitialized
    implicit none
    type(gt_history), intent(in):: history
  continue
    result = historyinitialized( history )
  end function historyinitialized1