Moved ifdef MOMENT part from COMMON.CONTACTS to COMMON.CONTACTS.MOMENT and aplied...

[unres.git] / source / unres / src_CSA / COMMON.CONTACTS.MOMENT

diff --git a/source/unres/src_CSA/COMMON.CONTACTS.MOMENT b/source/unres/src_CSA/COMMON.CONTACTS.MOMENT
new file mode 100644 (file)
index 0000000..16fae0e
--- /dev/null
+++ b/source/unres/src_CSA/COMMON.CONTACTS.MOMENT
@@ -0,0 +1,7 @@
+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.
+      double precision dip,dipderg,dipderx
+      common /dipint/ dip(4,maxconts,maxres),dipderg(4,maxconts,maxres),
+     &  dipderx(3,5,4,maxconts,maxres)