X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc%2Fenergy_p_new.F;h=bf5c3e7f0f2cefcec641ebb14fe080740c43a995;hb=778dcfe88af6061a9d1fc7c11f9e6e30bf36b946;hp=4b2dc0c617fe1963cd10b97985fa2a0f1f3a6f02;hpb=d07177b41ad32fa404c1c6cff69df2a83d9cbbc8;p=unres.git

diff --git a/source/wham/src/energy_p_new.F b/source/wham/src/energy_p_new.F
index 4b2dc0c..bf5c3e7 100644
--- a/source/wham/src/energy_p_new.F
+++ b/source/wham/src/energy_p_new.F
@@ -4547,7 +4547,7 @@ c        amino-acid residues.
 C Set lprn=.true. for debugging
       lprn=.false.
 c      lprn=.true.
-c      write (iout,*) "EBACK_SC_COR",iphi_start,iphi_end,nterm_sccor
+c      write (iout,*) "EBACK_SC_COR",itau_start,itau_end,nterm_sccor
       esccor=0.0D0
       do i=itau_start,itau_end
         esccor_ii=0.0D0