X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.CONTACTS.MOMENT;fp=source%2Funres%2Fsrc_CSA_DiL%2FCOMMON.CONTACTS.MOMENT;h=16fae0ec95200dee8655cef3aa1462af26ab7e5d;hb=58fdd680a27499c439ebe6f38889fafe1bb1b34b;hp=0000000000000000000000000000000000000000;hpb=35a52495e95a834b7c9323077ae9885e8d192d2a;p=unres.git

diff --git a/source/unres/src_CSA_DiL/COMMON.CONTACTS.MOMENT b/source/unres/src_CSA_DiL/COMMON.CONTACTS.MOMENT
new file mode 100644
index 0000000..16fae0e
--- /dev/null
+++ b/source/unres/src_CSA_DiL/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)