X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fcluster%2Fwham%2Fsrc%2Finitialize_p.F;h=3fe87fc1daf1ac0af859e1e919261cd6c08d5fec;hb=22b8ccedb97b44c5e2f5a027fc5da9e57669d9fd;hp=38ecbf34a90923b9164f5cbf40a2be33e53c3243;hpb=dea1134ff91a596fb8d8f79b621540bfa7e295e5;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