X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2FCOMMON.CONTACTS;h=dfc8da2668e15c549d73d5f2dbaedc44076fe9bb;hb=b0afc942699ed3c410a4b648c0cd8f51612c8a5a;hp=2dd8e6415ff19c59b69afd846e749e68796171b9;hpb=01776a164e296116ffa3757aab79602edf2439af;p=unres.git

diff --git a/source/unres/src_CSA/COMMON.CONTACTS b/source/unres/src_CSA/COMMON.CONTACTS
index 2dd8e64..dfc8da2 100644
--- a/source/unres/src_CSA/COMMON.CONTACTS
+++ b/source/unres/src_CSA/COMMON.CONTACTS
@@ -17,15 +17,6 @@ C 12/26/95 - H-bonding contacts
      &  facont_hb(maxconts,maxres),ees0p(maxconts,maxres),
      &  ees0m(maxconts,maxres),d_cont(maxconts,maxres),
      &  num_cont_hb(maxres),jcont_hb(maxconts,maxres)
-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.
-#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,