SUBROUTINE TASKS(OUT,TSCTB) IMPLICIT INTEGER (A-Z) DIMENSION TSCTB(#41) DIMENSION HIGH(3),LOW(3) WRITE(OUT,30) 30 FORMAT(16X,'TASK SIZE HISTOGRAM') DO 10 I=1,33,3 DO 20 J = 1,3 LOW(J)=(I-1+J-1)*1024 HIGH(J)=(J-1+I)*1024-1 20 CONTINUE IF(I.EQ.31) HIGH(3) = #777777 WRITE(OUT,40)(LOW(J),HIGH(J),TSCTB(J-1+I),J=1,3) 40 FORMAT(2X,3(O6,'-',O6,I4,3X)) 10 CONTINUE RETURN END