Merge branch 'lipid' of mmka.chem.univ.gda.pl:unres into lipid

[unres.git] / source / wham / src-NEWSC / COMMON.CONTACTS1

diff --git a/source/wham/src-NEWSC/COMMON.CONTACTS1 b/source/wham/src-NEWSC/COMMON.CONTACTS1
new file mode 100755 (executable)
index 0000000..04affa9
--- /dev/null
+++ b/source/wham/src-NEWSC/COMMON.CONTACTS1
@@ -0,0 +1,5 @@
+      integer ncont,ncont_ref,icont,icont_ref,num_cont,jcont,
+     & nsccont_frag_ref,isccont_frag_ref
+      common /contacts/ ncont,ncont_ref,icont(2,maxcont),
+     & icont_ref(2,maxcont),nsccont_frag_ref(mmaxfrag),
+     & isccont_frag_ref(2,maxcont,mmaxfrag)