SUBROUTINE PRINT(DEV,IDATE,IBUF)
	DIMENSION IDATE(6),XMON(12)
	INTEGER*4 IBUF(20),IUSED,IFREE,ITOTAL
	DATA XMON/'JAN ','FEB ','MAR ','APR ','MAY ','JUN ','JUL ',
     1  'AUG ','SEP ','OCT ','NOV ','DEC '/
	IFREE=IBUF(19)
	ITOTAL=IBUF(20)
	IUSED=ITOTAL-IFREE
	WRITE(5,100) DEV,IDATE(3),XMON(IDATE(2)),IDATE(1),(IDATE(I),I=4,6),
     1  (IBUF(I),I=1,18),IFREE,IUSED,ITOTAL
100	FORMAT('0FRAGMENTATION STATISTICS FOR ',A4,5X,I2,'-',A3,'-',I2,
     1  5X,I2,':',I2,':',I2//15X,'CONTIGUOUS FREE BLOCKS (HOLES)',
     2  /5X,'HOLE RANGE',5X,'FREQUENCY',5X,'NUMBER OF BLOCKS'
     3  /5X,'  0 -   25',6X,I5,13X,I6/5X,' 26 -   50',6X,I5,13X,I6,
     4  /5X,' 51 -   75',6X,I5,13X,I6/5X,' 76 -  100',6X,I5,13X,I6,
     5  /5X,'101 -  250',6X,I5,13X,I6/5X,'251 -  500',6X,I5,13X,I6, 
     6  /5X,'501 -  750',6X,I5,13X,I6/5X,'751 - 1000',6X,I5,13X,I6,
     7  /5X,'    > 1000',6X,I5,13X,I6,
     8  //5X,I6,' BLOCKS FREE, ',I6,' BLOCKS USED OUT OF ',I6)
	RETURN
	END