IF (ICDIFF(1).NE.0) THEN
WRITE(LOUT,1009) ICDIFF
1009 FORMAT(/,1X,'diffractive events: total ',I8,/,49X,
& 'low mass high mass',/,24X,'single diffraction',
& 7X,I8,4X,I8,/,24X,'double diffraction',7X,I8,4X,I8)
ENDIF
IF (ICDIFF(1).NE.0) THEN
WRITE(LOUT,1009) ICDIFF
1009 FORMAT(/,1X,'diffractive events: total ',I8,/,49X,
& 'low mass high mass',/,24X,'single diffraction',
& 7X,I8,4X,I8,/,24X,'double diffraction',7X,I8,4X,I8)
ENDIF