X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FDIMENSIONS;h=90fdb7dc14e91dc56f6028613bcc2d5d416cd715;hb=3054e5f25dc4adf1fbe8476f0fb3677ccaa81129;hp=6815ae9216c3c71ab01b2c906e3c333e2d1cf91c;hpb=36dcdaa19e6ecd577b1648d24b633a3f1206d29a;p=unres.git

diff --git a/source/unres/src_MD-M/DIMENSIONS b/source/unres/src_MD-M/DIMENSIONS
index 6815ae9..90fdb7d 100644
--- a/source/unres/src_MD-M/DIMENSIONS
+++ b/source/unres/src_MD-M/DIMENSIONS
@@ -6,17 +6,17 @@
 ********************************************************************************
 C Max. number of processors.
       integer maxprocs
-      parameter (maxprocs=2048)
+      parameter (maxprocs=1028)
 C Max. number of fine-grain processors
       integer max_fg_procs
 c      parameter (max_fg_procs=maxprocs)
-      parameter (max_fg_procs=512)
+      parameter (max_fg_procs=256)
 C Max. number of coarse-grain processors
       integer max_cg_procs
       parameter (max_cg_procs=maxprocs)
 C Max. number of AA residues
       integer maxres
-      parameter (maxres=1200)
+      parameter (maxres=600)
 C Appr. max. number of interaction sites
       integer maxres2,maxres6,mmaxres2
       parameter (maxres2=2*maxres,maxres6=6*maxres)
@@ -28,7 +28,7 @@ C Max number of symetric chains
       parameter (maxperm=120) 
 C Max. number of variables
       integer maxvar
-      parameter (maxvar=4*maxres)
+      parameter (maxvar=6*maxres)
 C Max. number of groups of interactions that a given SC is involved in
       integer maxint_gr
       parameter (maxint_gr=2)
@@ -40,16 +40,17 @@ C Max. number of SC contacts
       integer maxcont
       parameter (maxcont=12*maxres)
 C Max. number of contacts per residue
-      integer maxconts
-      parameter (maxconts=maxres/4)
-c      parameter (maxconts=50)
+      integer maxconts,maxcontsshi
+      parameter (maxconts=maxres)
+      parameter (maxcontsshi=50)
 C Number of AA types (at present only natural AA's will be handled
       integer ntyp,ntyp1
       parameter (ntyp=24,ntyp1=ntyp+1)
 C Max. number of types of dihedral angles & multiplicity of torsional barriers
 C and the number of terms in double torsionals
-      integer maxtor,maxterm,maxlor,maxtermd_1,maxtermd_2
+      integer maxtor,maxterm,maxlor,maxtermd_1,maxtermd_2,maxtermkcc
       parameter (maxtor=4,maxterm=10,maxlor=3,maxtermd_1=8,maxtermd_2=8)
+      parameter (maxtermkcc=40)
 C Max. number of residue types and parameters in expressions for 
 C virtual-bond angle bending potentials
       integer maxthetyp,maxthetyp1,maxtheterm,maxtheterm2,maxtheterm3,
@@ -95,7 +96,7 @@ C Max. number of conformations in the pool
       parameter (max_pool=10)
 C Number of energy components
       integer n_ene,n_ene2
-      parameter (n_ene=21,n_ene2=2*n_ene)
+      parameter (n_ene=25,n_ene2=2*n_ene)
 C Number of threads in deformation
       integer max_thread,max_thread2
       parameter (max_thread=4,max_thread2=2*max_thread)