C*********************************************************
C* FORTRAN PROGAM TO READ AND PRINT XCNORTH.ASC (FILE 18)*
C*********************************************************
      INTEGER XCNORTH,XCNORTHID,NREC
      REAL AREA,PERIMETER,XCNORTH,XCNORTHID,
    1 CGJA,CFJA,CGFE,CFFE,CGMR,CFMR,CGAP,CFAP,
      2 CGMY,CFMY,CGJN,CFJN,CGJL,CFJL,CGAG,CFAG,
      3 CGSP,CFSP,CGOB,CFOB,CGNV,CFNV,CGDC,CFDC,CGAN,CFAN
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) AREA,PERIMETER,XCNORTH,
    1 XCNORTHID,CGJA,CFJA,CGFE,CFFE,CGMR,CFMR,CGAP,CFAP,
      2 CGMY,CFMY,CGJN
     READ(UNIT=5,FMT=101,END=999) CFJN,CGJL,CFJL,CGAG,CFAG,
      1 CGSP,CFSP,CGOB,CFOB,CGNV,CFNV,CGDC,CFDC,CGAN,CFAN
 100   FORMAT(2F12.3,2I5,11F8.2)
 101   FORMAT(15F8.2)
C*********************************************************
C*  START A NEW PAGE AND WRITE A DESCRIPTIVE HEADER      *
C*********************************************************
       IF (NREC.EQ.36) NREC=0
       IF (NREC.EQ.0) WRITE(6,102)
       IF (NREC.EQ.0) WRITE(6,103)
 102   FORMAT('1','AREA',8X,'PERIMETER',3X,'#',4X,'ID',3X,
     1  'CGJA',4X,'CFJA',4X,'CGFE',4X,'CFFE',4X,'CGMR',4X,
     2  'CFMR',4X,'CGAP',4X,'CFAP',4X,'CGMY',4X,'CFMY',4X,
     3  'CGJN',4X)
 103   FORMAT(' ','CFJN',4X,'CGJL',4X,'CFJL',4X,'CGAG',4X,
     1  'CFAG',4X,'CGSP',4X,'CFSP',4X,'CGOB',4X,'CFOB',4X,
     2  'CGNV',4X,'CFNV',4X,'CGDC',4X,'CFDC',4X,'CGAM',4X,
     3  'CFAN',4X)
       NREC=NREC+2
C*********************************************************
C*  WRITE THE FLAT ASCII FILE TO THE OUTPUT DIVICE       *
C*********************************************************
       WRITE(6,104) AREA,PERIMETER,XCNORTH,
    1 XCNORTHID,CGJA,CFJA,CGFE,CFFE,CGMR,CFMR,CGAP,CFAP,
      2 CGMY,CFMY,CGJN
       WRITE(6,105) CFJN,CGJL,CFJL,CGAG,CFAG,
      1 CGSP,CFSP,CGOB,CFOB,CGNV,CFNV,CGDC,CFDC,CGAN,CFAN

 104   FORMAT(1X,2F12.3,2I5,11F8.2)
 105   FORMAT(1X,15F8.2)
C
       GO TO 10
 999   STOP
       END