X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FDIMENSIONS;h=113d3d2e855f0a2ece7c33c930f42b2314896267;hb=a30bd29e64da2aa47b84963fdd0bf4192ead2738;hp=0ef91733821f053d598402ac098054d97caf3843;hpb=020e579626d686ec20ecd9f0cc4c8313f474e152;p=unres.git

diff --git a/source/unres/src-HCD-5D/DIMENSIONS b/source/unres/src-HCD-5D/DIMENSIONS
index 0ef9173..113d3d2 100644
--- a/source/unres/src-HCD-5D/DIMENSIONS
+++ b/source/unres/src-HCD-5D/DIMENSIONS
@@ -16,12 +16,16 @@ C Max. number of coarse-grain processors
       parameter (max_cg_procs=maxprocs)
 C Max. number of AA residues
       integer maxres
-c      parameter (maxres=3300)
-      parameter (maxres=1200)
+      parameter (maxres=3300)
+C Max. number of AA residues per chain
+      integer maxres_chain
+      parameter (maxres_chain=1200)
 C Appr. max. number of interaction sites
-      integer maxres2,maxres6,mmaxres2
+      integer maxres2,maxres6,maxres2_chain,mmaxres2,mmaxres2_chain
       parameter (maxres2=2*maxres,maxres6=6*maxres)
       parameter (mmaxres2=(maxres2*(maxres2+1)/2))
+      parameter (maxres2_chain=2*maxres_chain,
+     &           mmaxres2_chain=maxres2_chain*(maxres2_chain+1)/2)
 C Max number of symetric chains
       integer maxchain
       parameter (maxchain=50)
@@ -36,7 +40,7 @@ C Max. number of groups of interactions that a given SC is involved in
 C Max. number of derivatives of virtual-bond and side-chain vectors in theta
 C or phi.
       integer maxdim
-      parameter (maxdim=(maxres-1)*(maxres-2)/2)
+      parameter (maxdim=(maxres_chain-1)*(maxres_chain-2)/2)
 C Max. number of SC contacts
       integer maxcont
       parameter (maxcont=12*maxres)