************************************************************************ SUBROUTINE OEDGX(OUT,SPX,SPLBL,REGLBL,MON,DAY,YR,HR,MIN) IMPLICIT INTEGER*4 (A-Z) CHARACTER SPX*4, SPLBL*35, REGLBL*20 include 'essp.inc' WRITE(OUT,5) SPX, SPLBL, REGLBL, MON,DAY,YR,HR,MIN 5 FORMAT(1H ,A4,2X,A35,A20,5X,I2,'-',I2,'-',I4,5X,I2,':',I2/) * START WRITING ROW 1 (Y = 1) KMX = YMX + 1 DO 20 J=YMN,YMX K = KMX - J WRITE(OUT,16) (EDGE(I,K),I=XMN,XMX) 16 FORMAT(1X,178I1) 20 CONTINUE RETURN END