source/unres/compare_data.f90

   1       module compare_data
   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 !-----------------------------------------------------------------------------
   9 ! commom.chain
  10 !      common /from_zscore/
  11       integer :: nz_start,nz_end,iz_sc
  12 !-----------------------------------------------------------------------------
  13 ! common.dbase
  14 !      common /struct/
  15       real(kind=8),dimension(:,:,:),allocatable :: cart_base !(3,maxres_base,maxseq)
  16       integer,dimension(:,:),allocatable :: nres_base !(3,maxseq)
  17       integer :: nseq
  18       character(len=8),dimension(:),allocatable :: str_nam !(maxseq)
  19 !-----------------------------------------------------------------------------
  20 ! common.distfit
  21 !      parameter (maxres22=maxres*(maxres+1)/2)
  22       integer :: maxres22
  23 !      COMMON /c_frag/
  24       integer :: nbfrag,nhfrag
  25       integer,dimension(:,:),allocatable :: bfrag !(4,maxres/3)
  26       integer,dimension(:,:),allocatable :: hfrag !(2,maxres/3)
  27 !      COMMON /frag/ in module CSA
  28 !      COMMON /WAGI/
  29       real(kind=8),dimension(:),allocatable :: w,d0
  30 !      COMMON /POCHODNE/
  31       integer :: NX,NY
  32       real(kind=8),dimension(:,:),allocatable :: DRDG !(MAXRES22,MAXRES)
  33       real(kind=8),dimension(:),allocatable :: DDD      !(maxres22)
  34       real(kind=8),dimension(:,:),allocatable :: H !(MAXRES,MAXRES)
  35       real(kind=8),dimension(:),allocatable :: XX !(MAXRES)
  36 !      COMMON /frozen/
  37       integer,dimension(:),allocatable :: mask !(maxres)
  38 !      COMMON /store0/
  39       integer :: nhpb0
  40 !-----------------------------------------------------------------------------
  41 ! common.thread
  42 !      common /thread/
  43       integer :: nthread,nexcl
  44       integer,dimension(:,:),allocatable :: iexam,ipatt !(2,maxthread)
  45 !      common /thread1/
  46       real(kind=8),dimension(:,:),allocatable :: ener0,ener !(n_ene+2,maxthread)
  47       real(kind=8) :: max_time_for_thread,ave_time_for_thread
  48 !-----------------------------------------------------------------------------
  49 !-----------------------------------------------------------------------------
  50       end module compare_data