| Path: | gtool/gtool_history/historyinitialized.f90 |
| Last Update: | Wed May 06 23:23:12 +0900 2009 |
| Authors: | Yasuhiro MORIKAWA |
| Version: | $Id: historyinitialized.f90,v 1.1 2009-05-06 14:23:12 morikawa Exp $ |
| Tag Name: | $Name: gtool5-20090602 $ |
| Copyright: | Copyright (C) GFD Dennou Club, 2004-2009. All rights reserved. |
| License: | See COPYRIGHT |
| Function : | |
| result : | logical |
| history : | type(GT_HISTORY), intent(in) |
history が初期設定されている場合には .true. が, 初期設定されていない場合には .false. が返ります.
If history is initialized, .true. is returned. If history is not initialized, .false. is returned.
logical function HistoryInitialized0( history ) result(result)
!
! *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
end function HistoryInitialized0
| Function : | |
| result : | logical |
| history : | type(GT_HISTORY), intent(in) |
使用方法は HistoryInitialized と同様です.
Usage is same as "HistoryInitialized".
logical function HistoryInitialized1( history ) result(result)
!
! 使用方法は HistoryInitialized と同様です.
!
! Usage is same as "HistoryInitialized".
!
!
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 )
end function HistoryInitialized1