& 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