X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc_CSA%2FCOMMON.CONTACTS;h=2dd8e6415ff19c59b69afd846e749e68796171b9;hb=dbde27db51588de3334c01042d38d8ee5aac683c;hp=5b3a90d2f3606a4d608f7e50c261a7af71d82317;hpb=bc8826038ee36f9d7f1d6dd89c90601b2562c0af;p=unres.git

diff --git a/source/unres/src_CSA/COMMON.CONTACTS b/source/unres/src_CSA/COMMON.CONTACTS
index 5b3a90d..2dd8e64 100644
--- a/source/unres/src_CSA/COMMON.CONTACTS
+++ b/source/unres/src_CSA/COMMON.CONTACTS
@@ -21,9 +21,11 @@ C 9/23/99 Added improper rotation matrices and matrices of dipole-dipole
 C         interactions     
 c 7/25/08 Commented out; not needed when cumulants used
 C Interactions of pseudo-dipoles generated by loc-el interactions.
-c      double precision dip,dipderg,dipderx
-c      common /dipint/ dip(4,maxconts,maxres),dipderg(4,maxconts,maxres),
-c     &  dipderx(3,5,4,maxconts,maxres)
+#ifdef MOMENT
+      double precision dip,dipderg,dipderx
+      common /dipint/ dip(4,maxconts,maxres),dipderg(4,maxconts,maxres),
+     &  dipderx(3,5,4,maxconts,maxres)
+#endif
 C 10/30/99 Added other pre-computed vectors and matrices needed 
 C          to calculate three - six-order el-loc correlation terms
       double precision Ug,Ugder,Ug2,Ug2der,obrot,obrot2,obrot_der,