hstnmlinfoinitialized.f90

Go to the documentation of this file.

!> @file hstnmlinfoinitialized.f90
!>
!> @author Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2007-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Checker of initialization of gtool_history_nmlinfo_types::GTHST_NMLINFO
!> @enden
!>
!> @ja
!> @brief gtool_history_nmlinfo_types::GTHST_NMLINFO 型の変数初期設定チェック
!> @endja
 
  !> @en
  !> @brief Check initialization of gtool_history_nmlinfo_types::GTHST_NMLINFO
  !>
  !> If @p gthstnml is initialized, .true. is returned.
  !> If @p gthstnml is not initialized, .false. is returned.
  !> @enden
  !>
  !> @ja
  !> @brief gtool_history_nmlinfo_types::GTHST_NMLINFO の初期設定チェック
  !>
  !> @p gthstnml が初期設定されている場合には .true. が,
  !> 初期設定されていない場合には .false. が返ります.
  !> @endja
  !>
  !> @param[in] gthstnml gtool_history_nmlinfo_types::GTHST_NMLINFO 型変数
  !> @return 初期設定されていれば .true.
  logical function hstnmlinfoinitialized( gthstnml ) result(result)
    use gtool_history_nmlinfo_types, only: gthst_nmlinfo
    implicit none
    type(gthst_nmlinfo), intent(in):: gthstnml
  continue
    result = gthstnml % initialized
  end function hstnmlinfoinitialized