Function : |
|
result : | logical
|
gthstnml : | type(GTHST_NMLINFO), intent(in)
|
gthstnml が定義モードであれば .true. が, 定義モードでなければ
.false. が返ります.
If gthstnml is define mode, .true. is returned. If gthstnml
is not define mode, .false. is returned.
[Source]
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