!= GTHST_NMLINFO åž‹ã®å¤‰æ•°ã®å®šç¾©ãƒ¢ãƒ¼ãƒ‰ãƒã‚§ãƒƒã‚¯
!= Checker of define mode of "GTHST_NMLINFO"
!
! Authors::   Yasuhiro MORIKAWA
! Version::   $Id: hstnmlinfodefinemode.f90,v 1.1 2009-05-11 15:15:15 morikawa Exp $
! Tag Name::  $Name:  $
! Copyright:: Copyright (C) GFD Dennou Club, 2007-2009. All rights reserved.
! License::   See COPYRIGHT[link:../../../COPYRIGHT]
!
  logical function HstNmlInfoDefineMode( gthstnml ) result(result)
    !
    ! *gthstnml* ãŒå®šç¾©ãƒ¢ãƒ¼ãƒ‰ã§ã‚ã‚Œã° .true. ãŒ,
    ! å®šç¾©ãƒ¢ãƒ¼ãƒ‰ã§ãªã‘ã‚Œã° .false. ãŒè¿”ã‚Šã¾ã™.
    !
    ! If *gthstnml* is define mode, .true. is returned.
    ! If *gthstnml* is not define mode, .false. is returned.
    !
    use gtool_history_nmlinfo_types, only: GTHST_NMLINFO
    implicit none
    type(GTHST_NMLINFO), intent(in):: gthstnml
  continue
    result = gthstnml % define_mode
  end function HstNmlInfoDefineMode