X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC%2FCOMMON.CONTACTS1;fp=source%2Fwham%2Fsrc-NEWSC%2FCOMMON.CONTACTS1;h=04affa989c9f52d87f76db8dd2f748c2bd36e0a7;hb=7308760ff07636ef6b1ee28d8c3a67a23c14b34b;hp=0000000000000000000000000000000000000000;hpb=9a54ab407f6d0d9d564d52763b3e2136450b9ffc;p=unres.git

diff --git a/source/wham/src-NEWSC/COMMON.CONTACTS1 b/source/wham/src-NEWSC/COMMON.CONTACTS1
new file mode 100755
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)