X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2Fhc.f;h=3d514a7a3aa795db04688a17452c68b82dc328ad;hb=8c073a2ffd0a50442e7fdf20780a0dd94ed74799;hp=3788cdb1d5b9e9d59b066a16b7a2091cc773847b;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git

diff --git a/source/cluster/wham/src-M/hc.f b/source/cluster/wham/src-M/hc.f
index 3788cdb..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
@@ -414,8 +414,10 @@ C-------------------------------------------------C
       CHARACTER*80 LINE
       INTEGER IORDER(LEV),HEIGHT(LEV)
       REAL CRITVAL(LEV)
-      INTEGER OUT(3*LEV,3*LEV)
-      INTEGER UP,ACROSS,BLANK
+c      INTEGER OUT(3*LEV,3*LEV)
+c      INTEGER UP,ACROSS,BLANK
+      CHARACTER*1 OUT(3*LEV,3*LEV)
+      CHARACTER*1 UP,ACROSS,BLANK
       DATA UP,ACROSS,BLANK/'|','-',' '/
 C
 C
@@ -453,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