Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM

[unres4.git] / source / unres / energy.F90

diff --git a/source/unres/energy.F90 b/source/unres/energy.F90
index 103ec97..1e0ed70 100644 (file)
--- a/source/unres/energy.F90
+++ b/source/unres/energy.F90
@@ -27632,7 +27632,7 @@
 !c! ecl
        sparrow  = w1 * Qj * om1
        hawk     = w2 * Qj * Qj * (1.0d0 - sqom2)
-       print *,"CO?!.", w1,w2,Qj,om1
+!       print *,"CO?!.", w1,w2,Qj,om1
        ECL = sparrow / Rhead**2.0d0 &
            - hawk    / Rhead**4.0d0
 !c!-------------------------------------------------------------------