X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2FssMD.F;h=9fe7d17666149343f0903c6fbbabf56680855681;hb=66422e8f3c21c5d4ab7fa06d48402322a98a3031;hp=5080b18de4af0d397add71f44b0b7e753c8c1d33;hpb=f7ed201184254bb7be2333857d07a78183752d45;p=unres.git

diff --git a/source/cluster/wham/src-M/ssMD.F b/source/cluster/wham/src-M/ssMD.F
index 5080b18..9fe7d17 100644
--- a/source/cluster/wham/src-M/ssMD.F
+++ b/source/cluster/wham/src-M/ssMD.F
@@ -399,7 +399,7 @@ c$$$        if (ed.gt.0.0d0) havebond=.true.
 c-------END SECOND METHOD, CONTINUOUS SECOND DERIVATIVE
 
       endif
-      write(iout,*) 'havebond',havebond
+C      write(iout,*) 'havebond',havebond
       if (havebond) then
 #ifndef CLUST
 #ifndef WHAM
@@ -658,41 +658,6 @@ c     &       "SSBOND_FORM",totT,t_bath,newihpb(i),newjhpb(i)
       return
       end
 
-c----------------------------------------------------------------------------
-
-#ifdef WHAM
-      subroutine read_ssHist
-      implicit none
-
-c     Includes
-      include 'DIMENSIONS'
-      include "DIMENSIONS.FREE"
-      include 'COMMON.FREE'
-
-c     Local variables
-      integer i,j
-      character*80 controlcard
-
-      do i=1,dyn_nssHist
-        call card_concat(controlcard,.true.)
-        read(controlcard,*)
-     &       dyn_ssHist(i,0),(dyn_ssHist(i,j),j=1,2*dyn_ssHist(i,0))
-      enddo
-
-      return
-      end
-#endif
-
-c----------------------------------------------------------------------------
-
-
-C-----------------------------------------------------------------------------
-C-----------------------------------------------------------------------------
-C-----------------------------------------------------------------------------
-C-----------------------------------------------------------------------------
-C-----------------------------------------------------------------------------
-C-----------------------------------------------------------------------------
-C-----------------------------------------------------------------------------
 
 c$$$c-----------------------------------------------------------------------------
 c$$$