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