c*********************************************************                      
c* fortran program to read and write wcrisk.asc (file 9) *                      
c*********************************************************                      
      integer nlin                                                              
      integer id, elr, glr, gmr, lsr, err, trr, whr                             
c*********************************************************                      
c* initialize a counter and open files for input/output  *                      
c*********************************************************                      
      nlin=0                                                                    
      open(unit=5,file='wcrisk.asc',readonly,status='old')                      
      open(unit=6,file='wcrisk.out',status='new')                               
c*********************************************************                      
c* read/write the grid cell id and the 7 risk variables  *                      
c*********************************************************                      
   10 read(5,100,end=999) id, elr, glr, gmr, lsr,                               
     1    err, trr, whr                                                         
                                                                                
      if (nlin.gt.63) nlin=0                                                    
      if (nlin.eq.0) write (6,110)                                              
      nlin=nlin+1                                                               
                                                                                
      write(6,105) id, elr, glr, gmr, lsr,                                      
     1     err, trr, whr                                                        
   20 continue                                                                  
      go to 10                                                                  
  100 format (i5,7i4)                                                           
  105 format (i5,7i4)                                                           
  110 format (3x,'id',2x,'elr',1x,'glr',1x,'gmr',1x,                            
     1    'lsr',1x,'err',1x,'trr',1x,'whr')                                     
c***********************************************************                    
c*****           close files and exit                 ******                    
c***********************************************************                    
  999 close(unit=5)                                                             
      close(unit=6)                                                             
      stop                                                                      
      end