& 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.
-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 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,