X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=inline;f=source%2Funres%2Fenergy.F90;h=5df4a0a9500388c8c6b5f34f4e63c36e13d60614;hb=532215c67bc6381096ff9494a83f507c4d2474b9;hp=8f2be9fb4d8d11a48752315eca2844de055846dc;hpb=8c4ee607ccafc25047be8b46ad210803ee76830d;p=unres4.git diff --git a/source/unres/energy.F90 b/source/unres/energy.F90 index 8f2be9f..5df4a0a 100644 --- 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!-------------------------------------------------------------------