X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Finitialize_p.F;h=3fe87fc1daf1ac0af859e1e919261cd6c08d5fec;hb=22b8ccedb97b44c5e2f5a027fc5da9e57669d9fd;hp=3f0e04b8692a459e0b2a97b93ea3158c430cc1b5;hpb=60a3f9d89e537f69c6c19a8240c6c8dc6b2a1db0;p=unres.git

diff --git a/source/cluster/wham/src/initialize_p.F b/source/cluster/wham/src/initialize_p.F
index 3f0e04b..3fe87fc 100644
--- a/source/cluster/wham/src/initialize_p.F
+++ b/source/cluster/wham/src/initialize_p.F
@@ -58,6 +58,7 @@ C
       ibond=28
       isccor=29
       jrms=30
+      ientin=38
 C
 C Set default weights of the energy terms.
 C
@@ -347,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