C*********************************************************                 
C* FORTRAN PROGRAM TO READ AND PRINT ECGRID.ASC (FILE 5) *                 
C*********************************************************                 
        INTEGER NLIN                                                             
        INTEGER ID, ERNUM, ELNUM, GM, GL, TRNUM, SLYR                            
        REAL    WHAVG, WHMAX, WHSD, ERAVG, ERMAX, ERMIN                          
        REAL    ELAVG, ELMAX, ELMIN, TRMAX, TRAVG, TRLVL                         
        REAL    SLR, SLG, SLC, SLS                                        
C*********************************************************                
C* INITIALIZE A COUNTER AND OPEN FILES FOR INPUT/OUTPUT  *                
C*********************************************************                
        NLIN=0                                                                   
        OPEN(UNIT=5,FILE='ecgrid.asc')                     
        OPEN(UNIT=6)                                     
C*********************************************************               
C*   READ AND PRINT GRID CELL ID AND 22 DATA VARIABLES   *                  
C*********************************************************                   
  10    READ (5,100,END=999) ID, WHAVG, WHMAX, WHSD, ERAVG,                      
     1   ERMAX, ERMIN, ERNUM, ELAVG, ELMAX, ELMIN, ELNUM                  
        READ (5,110) GM, GL, TRMAX, TRAVG, TRLVL, TRNUM,                        
     1    SLR, SLG, SLC, SLS, SLYR                                        
        IF (NLIN.GT.32) NLIN=0                                                  
        IF (NLIN.EQ.0) WRITE(6,120)                                             
        IF (NLIN.EQ.0) WRITE(6,130)                                             
        NLIN=NLIN+1                                                             
        WRITE(6,105) ID, WHAVG, WHMAX, WHSD, ERAVG,                             
     1    ERMAX, ERMIN, ERNUM, ELAVG, ELMAX, ELMIN, ELNUM                 
        WRITE(6,115)  GM, GL, TRMAX, TRAVG, TRLVL, TRNUM,                       
     1    SLR, SLG, SLC, SLS, SLYR                                        
  20    CONTINUE                                                            
        GO TO 10                                                                
C                                                                        
 100    FORMAT(I5,6F8.2,I4,3F8.2,I4)                                        
 105    FORMAT(1X,I5,6F8.2,I4,3F8.2,I4)                                     
 110    FORMAT(2I5,3F8.2,I4,4F8.2,I4)                                       
 115    FORMAT(1X,2I5,3F8.2,I4,4F8.2,I4)                                   
 120    FORMAT(1X,3X,'ID',3X,'WHAVG',3X,'WHMAX',4X,'WHSD',                 
     1    3X,'ERAVG',3X,'ERMAX',2X,'ERMIN ','ERNUM',2X,                  
     1    'ELAVG',3X,'ELMAX',2X,'ELMIN ','ELNUM')                        
 130    FORMAT(1X,2X,'GM',3X,'GL',3X,'TRMAX',3X,'TRAVG',                    
     1    2X,'TRLVL ','TRNUM',4X,'SLR',5X,'SLG',5X,'SLC',               
     1     5X,'SLS ','SLYR')                                             
C********************************************************                
C*          CLOSE FILES AND EXIT GRACEFULLY             *                
C********************************************************                
 999    CLOSE(UNIT=5)                                                          
        CLOSE(UNIT=6)                                                           
        STOP                                                                    
        END