hidden part of debug

[unres.git] / source / wham / src-M / parmread.F

diff --git a/source/wham/src-M/parmread.F b/source/wham/src-M/parmread.F
index d4fa521..819e46c 100644 (file)
--- a/source/wham/src-M/parmread.F
+++ b/source/wham/src-M/parmread.F
@@ -394,7 +394,7 @@ C
         enddo
       enddo
       enddo
-      write (iout,*) "KURWA1"
+C      write (iout,*) "KURWA1"
       do iblock=1,2
       do i=0,nthetyp
         do j=-nthetyp,nthetyp
@@ -418,7 +418,7 @@ C
           enddo
         enddo
       enddo
-       write(iout,*) "KURWA1.1"
+C       write(iout,*) "KURWA1.1"
 C
 C For dummy ends assign glycine-type coefficients of theta-only terms; the
 C coefficients of theta-and-gamma-dependent terms are zero.
@@ -438,7 +438,7 @@ C
         aa0thet(nthetyp+1,i,nthetyp+1,iblock)=0.0d0
       enddo
       enddo
-       write(iout,*) "KURWA1.5"
+C       write(iout,*) "KURWA1.5"
 C Substitution for D aminoacids from symmetry.
       do iblock=1,2
       do i=-nthetyp,0
@@ -517,7 +517,7 @@ C
       call flush(iout)
       endif
 #endif
-      write(iout,*) 'KURWA2'
+C      write(iout,*) 'KURWA2'
 #ifdef CRYST_SC
 C
 C Read the parameters of the probability distribution/energy expression
@@ -625,7 +625,7 @@ C
       enddo
 #endif
       close(irotam)
-      write (iout,*) 'KURWAKURWA'
+C      write (iout,*) 'KURWAKURWA'
 #ifdef CRYST_TOR
 C
 C Read torsional parameters in old format
@@ -1279,7 +1279,7 @@ C      V3SS = 13.7d0
       write (iout,*) dyn_ss,'dyndyn'
       if (dyn_ss) then
         ss_depth=ebr/wsc-0.25*eps(1,1)
-        write(iout,*) akcm,whpb,wsc,'KURWA'
+C        write(iout,*) akcm,whpb,wsc,'KURWA'
         Ht=Ht/wsc-0.25*eps(1,1)
 
         akcm=akcm*whpb/wsc