X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fenecalc1.F;h=81668b57c87bbc06a02f23a87ce575acb2434bb9;hb=48f00408a2e488d2c34fd65d26fc69b214b4fbb2;hp=c29d51726f445ffda264671e08ad2dd68bb88afa;hpb=a1bbedcfb50a59f5ae082fe9016af63119b205cc;p=unres.git

diff --git a/source/wham/src-M/enecalc1.F b/source/wham/src-M/enecalc1.F
index c29d517..81668b5 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