hstnmlinfoinitialized.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	hstnmlinfoinitialized (gthstnml)

Function/Subroutine Documentation

hstnmlinfoinitialized()

logical function hstnmlinfoinitialized

(

type(gthst_nmlinfo), intent(in)

gthstnml

)

Definition at line 11 of file hstnmlinfoinitialized.f90.

    !
    ! *gthstnml* が初期設定されている場合には .true. が, 
    ! 初期設定されていない場合には .false. が返ります. 
    !
    ! If *gthstnml* is initialized, .true. is returned. 
    ! If *gthstnml* is not initialized, .false. is returned. 
    !
    use gtool_history_nmlinfo_types, only: gthst_nmlinfo
    implicit none
    type(gthst_nmlinfo), intent(in):: gthstnml
  continue
    result = gthstnml % initialized