dfa wham and cluster corrections

[unres.git] / source / cluster / wham / src / initialize_p.F

diff --git a/source/cluster/wham/src/initialize_p.F b/source/cluster/wham/src/initialize_p.F
index 3f0e04b..3fe87fc 100644 (file)
--- 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