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----------------------------------------------------------------------------