hstnmlinfodefinemode.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	hstnmlinfodefinemode (gthstnml)

Function/Subroutine Documentation

hstnmlinfodefinemode()

logical function hstnmlinfodefinemode

(

type(gthst_nmlinfo), intent(in)

gthstnml

)

Definition at line 10 of file hstnmlinfodefinemode.f90.

    !
    ! *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