hstnmlinfodefinemode.f90

Go to the documentation of this file.

!> @file hstnmlinfodefinemode.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 define mode of gtool_history_nmlinfo_types::GTHST_NMLINFO
!> @enden
!>
!> @ja
!> @brief gtool_history_nmlinfo_types::GTHST_NMLINFO 型の変数の定義モードチェック
!> @endja
 
  !> @en
  !> @brief Check define mode of gtool_history_nmlinfo_types::GTHST_NMLINFO
  !>
  !> If @p gthstnml is define mode, .true. is returned.
  !> If @p gthstnml is not define mode, .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 hstnmlinfodefinemode( gthstnml ) result(result)
    use gtool_history_nmlinfo_types, only: gthst_nmlinfo
    implicit none
    type(gthst_nmlinfo), intent(in):: gthstnml
  continue
    result = gthstnml % define_mode
  end function hstnmlinfodefinemode