X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2FCOMMON.CORRMAT;fp=source%2Funres%2Fsrc-HCD-5D%2FCOMMON.CORRMAT;h=ae2562572e823c920997251a6829ceb6b3193008;hb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;hp=5f154e0adf11ba057526c689852a275a98d97d0e;hpb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;p=unres.git

diff --git a/source/unres/src-HCD-5D/COMMON.CORRMAT b/source/unres/src-HCD-5D/COMMON.CORRMAT
index 5f154e0..ae25625 100644
--- a/source/unres/src-HCD-5D/COMMON.CORRMAT
+++ b/source/unres/src-HCD-5D/COMMON.CORRMAT
@@ -30,9 +30,6 @@ C consecutive amino-acid residues.
      &  costab2(maxres),sintab2(maxres)
 C This common block contains dipole-interaction matrices and their 
 C Cartesian derivatives.
-      double precision a_chuj,a_chuj_der
-      common /dipmat/ a_chuj(2,2,maxconts,maxres),
-     &  a_chuj_der(2,2,3,5,maxconts,maxres)
       double precision AEA,AEAderg,AEAderx,AECA,AECAderg,AECAderx,
      &  ADtEA,ADtEAderg,ADtEAderx,AEAb1,AEAb1derg,AEAb1derx,
      &  AEAb2,AEAb2derg,AEAb2derx,g_contij,ekont,EAEA,EAEAderg,EAEAderx,