X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fenecalc1.F;h=a5d25b348fef5f3c20431532c7ab809259900c55;hb=0a9d4161c6dab7e722b1113b6f0f6d98693e5fc6;hp=fee94cf97cb71bb4a710980dc9fcb35217fbf2d2;hpb=833a316033dd117cdeafab0decaf3da2a0b83eb4;p=unres.git

diff --git a/source/wham/src-M/enecalc1.F b/source/wham/src-M/enecalc1.F
index fee94cf..a5d25b3 100644
--- a/source/wham/src-M/enecalc1.F
+++ b/source/wham/src-M/enecalc1.F
@@ -228,7 +228,7 @@ c              call intout
           endif
 C          write (iout,*) "Czy tu dochodze"
           potE(iii+1,iparm)=energia(0)
-          do k=1,21
+          do k=1,22
             enetb(k,iii+1,iparm)=energia(k)
           enddo
 #ifdef DEBUG