X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2FssMD.F;fp=source%2Fwham%2Fsrc-M%2FssMD.F;h=303f54b2becedb1b6ab823da24ab1b542a392761;hb=d96a47c690dabd9c300b08916cd2811a37c3e5eb;hp=bbf3206e193e9270835de31e8f312e0655c9bbf5;hpb=4d589a9cb8933377cc44ba3cb751df34bf53e111;p=unres.git

diff --git a/source/wham/src-M/ssMD.F b/source/wham/src-M/ssMD.F
index bbf3206..303f54b 100644
--- a/source/wham/src-M/ssMD.F
+++ b/source/wham/src-M/ssMD.F
@@ -762,28 +762,30 @@ c     &       "SSBOND_FORM",totT,t_bath,newihpb(i),newjhpb(i)
 
 c----------------------------------------------------------------------------
 
-#ifdef WHAM
-      subroutine read_ssHist
-      implicit none
-
+c AL 11/26/15 Commented out as per info from AS.
+c#ifdef WHAM
+c      subroutine read_ssHist
+c      implicit none
+c
 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      include 'DIMENSIONS'
+c      include "DIMENSIONS.FREE"
+c      include 'COMMON.FREE'
+c      integer dyn_nsshist,dyn_sshist(10,0:10)
+c
+cc     Local variables
+c      integer i,j
+c      character*80 controlcard
+c
+c      do i=1,dyn_nssHist
+c        call card_concat(controlcard,.true.)
+c        read(controlcard,*)
+c     &       dyn_ssHist(i,0),(dyn_ssHist(i,j),j=1,2*dyn_ssHist(i,0))
+c      enddo
+c
+c      return
+c      end
+c#endif
 
 c----------------------------------------------------------------------------