C*********************************************************
C* FORTRAN PROGAM TO READ AND PRINT SEAICE.ASC (FILE 34) *
C*********************************************************
       INTEGER SI, SIID, NREC
       REAL AREA, PERIMETER, SEAICE
C*********************************************************
C*  INITIALIZE A COUNTER OF THE NUMBER OF RECORDS READ   *
C*********************************************************
       NREC=0
C*********************************************************
C*  READ THE FLAT ASCII FILE INFORMATION                 *
C*********************************************************
  10   READ(UNIT=5,FMT=100,END=999) AREA,PERIMETER,SI,
     1    SIID,SEAICE
 100   FORMAT(2F13.3,2I6,F5.1)
C*********************************************************
C*  START A NEW PAGE AND WRITE A DESCRIPTIVE HEADER      *
C*********************************************************
       IF (NREC.EQ.77) NREC=0
       IF (NREC.EQ.0) WRITE(6,101)
 101   FORMAT('1','AREA',9X,'PERIMETER',4X,'#',5X,'ID',4X,
     1   'SEAICE')
       NREC=NREC+1
C*********************************************************
C*  WRITE THE FLAT ASCII FILE TO THE OUTPUT DIVICE       *
C*********************************************************
       WRITE(6,102) AREA,PERIMETER,SI,SIID,SEAICE
 102   FORMAT(1X,2F13.3,2I6,F5.1)
C
       GO TO 10
 999   STOP
       END