C*********************************************************                
C* FORTRAN PROGRAM TO READ AND PRINT ECRISK.ASC (FILE 13)*                
C*********************************************************                
        INTEGER NLIN                                                            
        INTEGER ID, ERR, LSR, WHR, ELR, GMR, GLR, TRR                           
C*********************************************************               
C* INITIALIZE A COUNTER AND OPEN FILES FOR INPUT/OUTPUT  *               
C*********************************************************               
        NLIN=0                                                                  
        OPEN(UNIT=5,FILE='ecrisk.asc')                    
	OPEN(UNIT=6)                               
C*********************************************************               
C* READ AND PRINT GRID CELL ID AND SEVEN RISK VARIABLES  *               
C*********************************************************               
  10    READ(5,100,END=999) ID,                                             
     1   ERR,LSR,WHR,ELR,GMR,GLR,TRR                                      
        IF (NLIN.GT.65) NLIN=0                                                  
        IF (NLIN.EQ.0) WRITE(6,110)                                             
        NLIN=NLIN+1                                                             
        WRITE(6,105) ID,ERR,LSR,WHR,ELR,GMR,GLR,TRR                             
  20    CONTINUE                                                            
        GO TO 10                                                                
C                                                                        
 100    FORMAT(I5,7I4)                                                      
 105    FORMAT(1X,I5,7I4)                                                   
 110    FORMAT(1X,3X,'ID',1X,'ERR',1X,'LSR',1X,'WHR',1X,                    
     1   'ELR',1X,'GMR',1X,'GLR',1X,'TRR')                               
C********************************************************                
C*          CLOSE FILES AND EXIT GRACEFULLY             *                
C********************************************************                
 999    CLOSE(UNIT=5)                                                
        CLOSE(UNIT=6)                                                           
        STOP                                                                     
        END