historyinitialized.f90

Go to the documentation of this file.

 
 
  logical function historyinitialized0( history ) result(result)
    use gtool_history_types, only: gt_history
    implicit none
    type(gt_history), intent(in):: history
  continue
    result = history % initialized
  end function historyinitialized0
 
  !-------------------------------------------------------------------
 
  logical function historyinitialized1( history ) result(result)
    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