Adam's changes

[unres.git] / source / wham / src-HCD-5D / include_unres / COMMON.CONTMAT

diff --git a/source/wham/src-HCD-5D/include_unres/COMMON.CONTMAT b/source/wham/src-HCD-5D/include_unres/COMMON.CONTMAT
index e681360..6e5b5d5 100644 (file)
--- a/source/wham/src-HCD-5D/include_unres/COMMON.CONTMAT
+++ b/source/wham/src-HCD-5D/include_unres/COMMON.CONTMAT
@@ -17,23 +17,11 @@ 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     
+      double precision a_chuj,a_chuj_der
+      common /dipmat/ a_chuj(2,2,maxconts,maxres),
+     &  a_chuj_der(2,2,3,5,maxconts,maxres)
 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)
-C 12/13/2008 (again Poland-Jaruzel war anniversary)
-C   RE: Parallelization of 4th and higher order loc-el correlations
-      integer ncont_sent,ncont_recv,iint_sent,iisent_local,
-     &  itask_cont_from,itask_cont_to,ntask_cont_from,ntask_cont_to,
-     &  nat_sent,iat_sent,iint_sent_local
-      integer iturn3_sent,iturn4_sent,iturn3_sent_local,
-     &  iturn4_sent_local
-      common /contdistrib/ ncont_sent(maxres),ncont_recv(maxres),
-     &  iint_sent(4,maxres,maxres),iint_sent_local(4,maxres,maxres),
-     &  nat_sent,iat_sent(maxres),itask_cont_from(0:max_fg_procs-1),
-     &  itask_cont_to(0:max_fg_procs-1),ntask_cont_from,ntask_cont_to,
-     &  iturn3_sent(4,maxres),iturn4_sent(4,maxres),
-     &  iturn3_sent_local(4,maxres),iturn4_sent_local(4,maxres)