module compare_data
!-----------------------------------------------------------------------------
! Max. number of threading attempts
      integer,parameter :: maxthread=20
!-----------------------------------------------------------------------------
! Max. number of residues in a peptide in the database
      integer,parameter :: maxres_base=10
!-----------------------------------------------------------------------------
! commom.chain
!      common /from_zscore/
      integer :: nz_start,nz_end,iz_sc
!-----------------------------------------------------------------------------
! common.dbase
!      common /struct/
      real(kind=8),dimension(:,:,:),allocatable :: cart_base !(3,maxres_base,maxseq)
      integer,dimension(:,:),allocatable :: nres_base !(3,maxseq)
      integer :: nseq
      character(len=8),dimension(:),allocatable :: str_nam !(maxseq)
!-----------------------------------------------------------------------------
! common.distfit
!      parameter (maxres22=maxres*(maxres+1)/2)
!      integer, parameter :: maxres22=1
      integer :: maxres22
!      COMMON /c_frag/
      integer :: nbfrag,nhfrag
      integer,dimension(:,:),allocatable :: bfrag !(4,maxres/3)
      integer,dimension(:,:),allocatable :: hfrag !(2,maxres/3)
!      COMMON /frag/ in module CSA
!      COMMON /WAGI/
      real(kind=8),dimension(:),allocatable :: w,d0
!      COMMON /POCHODNE/
      integer :: NX,NY
      real(kind=8),dimension(:,:),allocatable :: DRDG !(MAXRES22,MAXRES)
      real(kind=8),dimension(:),allocatable :: DDD	!(maxres22)
      real(kind=8),dimension(:,:),allocatable :: H !(MAXRES,MAXRES)
      real(kind=8),dimension(:),allocatable :: XX !(MAXRES)
!      COMMON /frozen/
      integer,dimension(:),allocatable :: mask !(maxres)
!      COMMON /store0/
      integer :: nhpb0
!-----------------------------------------------------------------------------
! common.thread
!      common /thread/
      integer :: nthread,nexcl
      integer,dimension(:,:),allocatable :: iexam,ipatt !(2,maxthread)
!      common /thread1/
      real(kind=8),dimension(:,:),allocatable :: ener0,ener !(n_ene+2,maxthread)
      real(kind=8) :: max_time_for_thread,ave_time_for_thread
!-----------------------------------------------------------------------------
!-----------------------------------------------------------------------------
      end module compare_data