historyinitialized.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	historyinitialized0 (history)
logical function	historyinitialized1 (history)

Function/Subroutine Documentation

historyinitialized0()

logical function historyinitialized0

(

type(gt_history), intent(in)

history

)

Definition at line 10 of file historyinitialized.f90.

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

historyinitialized1()

logical function historyinitialized1

(

type(gt_history), intent(in)

history

)

Definition at line 27 of file historyinitialized.f90.

    !
    ! 使用方法は HistoryInitialized と同様です. 
    !
    ! Usage is same as "HistoryInitialized".
    !
    !--
    ! 総称名 initialized として提供するための関数です. 
    ! 機能は HistoryInitialized1 と同じです. 
    !++
    use gtool_history_types, only: gt_history
    use gtool_history_generic, only: historyinitialized
    implicit none
    type(GT_HISTORY), intent(in):: history
  continue
    result = historyinitialized( history )