X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fenecalc1.F;h=a5d25b348fef5f3c20431532c7ab809259900c55;hb=d4c545ab7e7b0f82774654c089c8f879c5edc0a7;hp=fee94cf97cb71bb4a710980dc9fcb35217fbf2d2;hpb=d101c97dea752458d76055fdbae49c26fff03c1f;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