X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fdata%2Fenergy_data.f90;h=5f340cfacd72a85d29db6dccabb7b68616d1a1ed;hb=540f877fc0c1eaf1389f53eef08fe02d352e25a2;hp=40774723193d15e08a29b7afb1223407bfdacb51;hpb=39b978d5d4eb5c1d1161bf6599abf219ba380785;p=unres4.git

diff --git a/source/unres/data/energy_data.f90 b/source/unres/data/energy_data.f90
index 4077472..5f340cf 100644
--- a/source/unres/data/energy_data.f90
+++ b/source/unres/data/energy_data.f90
@@ -14,6 +14,7 @@
 !-----------------------------------------------------------------------------
 ! Max. number of contacts per residue
       integer :: maxconts
+      integer,parameter :: maxcontsshi=50
 !-----------------------------------------------------------------------------
 ! Max. number of SC contacts
       integer :: maxcont