2 !-----------------------------------------------------------------------------
3 ! Max. number of threading attempts
4 integer,parameter :: maxthread=20
5 !-----------------------------------------------------------------------------
6 ! Max. number of residues in a peptide in the database
7 integer,parameter :: maxres_base=10
8 !-----------------------------------------------------------------------------
10 ! common /from_zscore/
11 integer :: nz_start,nz_end,iz_sc
12 !-----------------------------------------------------------------------------
15 real(kind=8),dimension(:,:,:),allocatable :: cart_base !(3,maxres_base,maxseq)
16 integer,dimension(:,:),allocatable :: nres_base !(3,maxseq)
18 character(len=8),dimension(:),allocatable :: str_nam !(maxseq)
19 !-----------------------------------------------------------------------------
21 ! parameter (maxres22=maxres*(maxres+1)/2)
22 ! integer, parameter :: maxres22=1
25 integer :: nbfrag,nhfrag
26 integer,dimension(:,:),allocatable :: bfrag !(4,maxres/3)
27 integer,dimension(:,:),allocatable :: hfrag !(2,maxres/3)
28 ! COMMON /frag/ in module CSA
30 real(kind=8),dimension(:),allocatable :: w,d0
33 real(kind=8),dimension(:,:),allocatable :: DRDG !(MAXRES22,MAXRES)
34 real(kind=8),dimension(:),allocatable :: DDD !(maxres22)
35 real(kind=8),dimension(:,:),allocatable :: H !(MAXRES,MAXRES)
36 real(kind=8),dimension(:),allocatable :: XX !(MAXRES)
38 integer,dimension(:),allocatable :: mask !(maxres)
41 !-----------------------------------------------------------------------------
44 integer :: nthread,nexcl
45 integer,dimension(:,:),allocatable :: iexam,ipatt !(2,maxthread)
47 real(kind=8),dimension(:,:),allocatable :: ener0,ener !(n_ene+2,maxthread)
48 real(kind=8) :: max_time_for_thread,ave_time_for_thread
49 !-----------------------------------------------------------------------------
50 !-----------------------------------------------------------------------------
51 end module compare_data