source/unres/data/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, parameter :: maxres22=1
  23       integer :: maxres22
  24 !      COMMON /c_frag/
  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
  29 !      COMMON /WAGI/
  30       real(kind=8),dimension(:),allocatable :: w,d0
  31 !      COMMON /POCHODNE/
  32       integer :: NX,NY
  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)
  37 !      COMMON /frozen/
  38       integer,dimension(:),allocatable :: mask !(maxres)
  39 !      COMMON /store0/
  40       integer :: nhpb0
  41 !-----------------------------------------------------------------------------
  42 ! common.thread
  43 !      common /thread/
  44       integer :: nthread,nexcl
  45       integer,dimension(:,:),allocatable :: iexam,ipatt !(2,maxthread)
  46 !      common /thread1/
  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