X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Finitialize_p.F;h=3fe87fc1daf1ac0af859e1e919261cd6c08d5fec;hb=47afbd51a2fba288cfba94f44b53f10f835c1f79;hp=38ecbf34a90923b9164f5cbf40a2be33e53c3243;hpb=88c9804a273df101470add9049bec50351c39fdb;p=unres.git

diff --git a/source/cluster/wham/src/initialize_p.F b/source/cluster/wham/src/initialize_p.F
index 38ecbf3..3fe87fc 100644
--- a/source/cluster/wham/src/initialize_p.F
+++ b/source/cluster/wham/src/initialize_p.F
@@ -348,7 +348,7 @@ cd      write (iout,*) 'i=',i,' scheck=',scheck,' jj=',jj
           nint_gr(i)=1
           istart(i,1)=i+1
           iend(i,1)=nct
-          ind_scint=int_scint+nct-i
+          ind_scint=ind_scint+nct-i
 #endif
         endif
 #ifdef MPL