X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fhc.f;h=3d514a7a3aa795db04688a17452c68b82dc328ad;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=a1a089e430498d663bc48cfeebdc5eb4c7d1fd6c;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/cluster/wham/src-M/hc.f b/source/cluster/wham/src-M/hc.f
index a1a089e..3d514a7 100644
--- a/source/cluster/wham/src-M/hc.f
+++ b/source/cluster/wham/src-M/hc.f
@@ -334,12 +334,12 @@ C
   110 CONTINUE
   120 CONTINUE
 C
-      WRITE (iout,450) (j,j=2,LEV)
+c      WRITE (iout,450) (j,j=2,LEV)
   450 FORMAT(4X,' SEQ NOS',8(i2,'CL'),10000(i3,'CL'))
-      WRITE (iout,470) (' ---',j=2,LEV)
+c      WRITE (iout,470) (' ---',j=2,LEV)
   470 FORMAT(4X,' -------',10000a4)
       DO 500 I=1,N
-      WRITE (iout,600) I,(ICLASS(I,J),J=1,LEV-1) 
+c      WRITE (iout,600) I,(ICLASS(I,J),J=1,LEV-1) 
   600 FORMAT(I11,8I4,10000i5)                    
   500 CONTINUE
 C
@@ -455,22 +455,22 @@ C
                       IF (HEIGHT(L).EQ.IDUM) GOTO 190
                    ENDDO
   190              IDUM=L
-                   WRITE(iout,200) CRITVAL(IDUM),(OUT(I,J),J=1,3*LEV)
+c                   WRITE(iout,200) CRITVAL(IDUM),(OUT(I,J),J=1,3*LEV)
                    IC=IC+3
                    ELSE
                    LINE = ' '
-                   WRITE(iout,210) (OUT(I,J),J=1,3*LEV)
+c                   WRITE(iout,210) (OUT(I,J),J=1,3*LEV)
       ENDIF
   200 FORMAT(1H ,8X,F12.2,4X,27000A1)
   210 FORMAT(1H ,24X,27000A1)
       ENDDO
       WRITE(iout,250)
-      WRITE(iout,220)(IORDER(J),J=1,LEV)
-      WRITE(iout,250)
+c      WRITE(iout,220)(IORDER(J),J=1,LEV)
+c      WRITE(iout,250)
   220 FORMAT(1H ,24X,9000I3)
-      WRITE(iout,230) LEV
+c      WRITE(iout,230) LEV
   230 FORMAT(1H ,13X,'CRITERION        CLUSTERS 1 TO ',i3)
-      WRITE(iout,240) LEV-1
+c      WRITE(iout,240) LEV-1
   240 FORMAT(1H ,13X,'VALUES.      (TOP ',i3,' LEVELS OF HIERARCHY).')
   250 FORMAT(/)
 C