source/cluster/clust_data.F90

   1       module clust_data
   2 !-----------------------------------------------------------------------------
   3 !*****************************************************************
   4 !
   5 ! Array dimensions for the clustering programs:
   6 !
   7 ! Max. number of conformations in the data set.
   8 !
   9       integer,PARAMETER :: MAXCONF=13000
  10       integer,parameter :: maxstr_proc=maxconf
  11 !
  12 ! Max. number of "distances" between conformations.
  13 !
  14       integer,PARAMETER :: MAXDIST=(maxstr_proc*(maxstr_proc-1))/2
  15 !
  16 ! Max. number of clusters. Should be set to MAXCONF; change only if there are
  17 ! problems with memory. In such a case be suspicious about the results, however!
  18 !
  19       integer,PARAMETER :: MAXGR=maxstr_proc
  20 !
  21 ! Max. number of conformations in a cluster. Remark above applies also here.
  22 !
  23       integer,PARAMETER :: MAXINGR=maxstr_proc
  24 !
  25 ! Max. number of cut-off values
  26 !
  27       integer,PARAMETER :: MAX_CUT=5
  28 !
  29 ! Max. number of properties
  30 !
  31       integer,PARAMETER :: MAXPROP=5
  32 !
  33 ! Max. number of temperatures
  34       integer,parameter :: maxT=5
  35 !
  36 ! Max. number of S-S bridges
  37       integer,parameter :: maxss=20
  38 !
  39 !******************************************************************
  40 !COMMON.CLUSTER
  41 !      common /clu/
  42       real(kind=4),dimension(:),allocatable :: diss !(maxdist)
  43       real(kind=8),dimension(:),allocatable :: energy,totfree !(0:maxconf)
  44       real(kind=8),dimension(:,:),allocatable :: enetb !(max_ene,maxstr_proc)
  45       real(kind=8),dimension(:),allocatable :: entfac !(maxconf)
  46       real(kind=8),dimension(:),allocatable :: totfree_gr !(maxgr)
  47       real(kind=8),dimension(:),allocatable :: rcutoff !(max_cut+1)
  48       real(kind=8) :: ecut
  49       integer :: ncut
  50       logical :: min_var,tree,plot_tree,lgrp
  51 !      common /clu1/
  52       integer,dimension(:),allocatable :: licz,iass !(maxgr)
  53       integer,dimension(:,:),allocatable :: nconf !(maxgr,maxingr)
  54       integer,dimension(:,:),allocatable :: iass_tot !(maxgr,max_cut)
  55       integer,dimension(:),allocatable :: list_conf !(maxconf)
  56       integer :: ngr
  57 !      common /alles/
  58       real(kind=4),dimension(:,:,:),allocatable :: allcart !(3,maxres2,maxstr_proc)
  59       real(kind=8),dimension(:),allocatable :: rmstb !(maxconf)
  60       integer,dimension(:),allocatable :: mult !(maxres)
  61       integer,dimension(:),allocatable :: nss_all !(maxstr_proc)
  62       integer,dimension(:,:),allocatable :: ihpb_all,jhpb_all !(maxss,maxstr_proc)
  63       integer,dimension(:),allocatable :: icc,iscore !(maxconf)
  64       integer :: nprop
  65 !COMMON.TEMPFAC
  66 !      common /factemp/
  67       real(kind=8),dimension(:,:),allocatable :: tempfac !(2,maxres)
  68 !COMMON.FREE
  69 !      common /free/
  70       integer :: nT
  71       real(kind=8) :: prob_limit
  72       real(kind=8),dimension(:),allocatable :: beta_h !(maxT)
  73 !-----------------------------------------------------------------------------
  74       end module clust_data