!===============================================================================
!
! module_ildg_restart_info.F90
!
!-------------------------------------------------------------------------------
!
! Copyright (C) 2012-2016 Hinnerk Stueben
!
! This file is part of BQCD -- Berlin Quantum ChromoDynamics program
!
! BQCD is free software: you can redistribute it and/or modify
! it under the terms of the GNU General Public License as published by
! the Free Software Foundation, either version 3 of the License, or
! (at your option) any later version.
!
! BQCD is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with BQCD.  If not, see <http://www.gnu.org/licenses/>.
!
!-------------------------------------------------------------------------------
# include "defs.h"
# include "defs_ildg.h"

!-------------------------------------------------------------------------------
module module_ildg_restart_info

  type type_ildg_restart_info
     character(LEN_BQCD_INPUT)     :: input
     character(LEN_BQCD_COUNTERS)  :: counters
     character(LEN_BQCD_CKSUM)     :: cksum_str
     character(LEN_BQCD_RAN_NAME)  :: ran_name
     character(LEN_BQCD_PLAQUETTE) :: plaquette_str

     character, dimension(:), allocatable :: ran_state
     integer                   :: len_ran_state
     integer                   :: run, job, traj
     REAL                      :: plaquette
     CHECK_SUM                 :: cksum

     logical :: input_is_initialised = .false.
     logical :: counters_is_initialised = .false.
     logical :: cksum_is_initialised = .false.
     logical :: ran_name_is_initialised = .false.
     logical :: ran_state_is_initialised = .false.
     logical :: ranfield_state_is_initialised = .false.
     logical :: plaquette_is_initialised = .false.

  end type type_ildg_restart_info

  type (type_ildg_restart_info), save :: ildg_restart_info

end

!===============================================================================
