source/cluster/wham/src-M/DIMENSIONS

   1 ********************************************************************************
   2 * Settings for the program of united-residue peptide simulation in real space  *
   3 *                                                                              *
   4 *                -------  As of 5/10/95 -----------                            *
   5 *                                                                              *
   6 ********************************************************************************
   7 C Max. number of processors.
   8       integer maxprocs
   9       parameter (maxprocs=16)
  10 C Max. number of AA residues
  11       integer maxres,maxres2
  12       parameter (maxres=650)
  13 C Appr. max. number of interaction sites
  14       parameter (maxres2=2*maxres)
  15 C Max. number of variables
  16       integer maxvar
  17       parameter (maxvar=4*maxres)
  18 C Max. number of groups of interactions that a given SC is involved in
  19       integer maxint_gr
  20       parameter (maxint_gr=2)
  21 C Max. number of derivatives of virtual-bond and side-chain vectors in theta
  22 C or phi.
  23       integer maxdim
  24       parameter (maxdim=(maxres-1)*(maxres-2)/2)
  25 C Max. number of SC contacts
  26       integer maxcont
  27       parameter (maxcont=12*maxres)
  28 C Max. number of contacts per residue
  29       integer maxconts
  30       parameter (maxconts=maxres)
  31 C Number of AA types (at present only natural AA's will be handled
  32       integer ntyp,ntyp1
  33       parameter (ntyp=20,ntyp1=ntyp+1)
  34 C Max. number of types of dihedral angles & multiplicity of torsional barriers
  35       integer maxtor,maxterm,maxlor,maxtermd_1,maxtermd_2
  36       parameter (maxtor=4,maxterm=10,maxlor=3,maxtermd_1=8,maxtermd_2=8)
  37 c Max number of torsional terms in SCCOR
  38       integer maxterm_sccor
  39       parameter (maxterm_sccor=6)
  40 C Max. number of residue types and parameters in expressions for
  41 C virtual-bond angle bending potentials
  42       integer maxthetyp,maxthetyp1,maxtheterm,maxtheterm2,maxtheterm3,
  43      &  maxsingle,maxdouble,mmaxtheterm
  44       parameter (maxthetyp=3,maxthetyp1=maxthetyp+1,maxtheterm=20,
  45      & maxtheterm2=6,maxtheterm3=4,maxsingle=6,maxdouble=4,
  46      & mmaxtheterm=maxtheterm)
  47 C Max. number of lobes in SC distribution
  48       integer maxlob
  49       parameter (maxlob=4)
  50 C Max. number of S-S bridges
  51       integer maxss
  52       parameter (maxss=20)
  53 C Max. number of dihedral angle constraints
  54       integer maxdih_constr
  55       parameter (maxdih_constr=maxres)
  56 C Max number of symetric chains
  57       integer maxsym
  58       parameter (maxsym=50)
  59       integer maxperm
  60       parameter (maxperm=120)
  61 C Max. number of energy components
  62       integer max_ene
  63       parameter (max_ene=21)
  64 C Max. number of temperatures
  65       integer maxt
  66       parameter (maxT=5)
  67 C Maximum number of SC local term fitting function coefficiants
  68       integer maxsccoef
  69       parameter (maxsccoef=65)
  70 C Maximum number of terms in SC bond-stretching potential
  71       integer maxbondterm
  72       parameter (maxbondterm=3)