c**********************************************************                     
c* fortran program to read and write wcline.asc (file 13) *                     
c**********************************************************                     
      integer nlin                                                              
      integer id, elnum, gl, gm, slyr, ernum, trnum                             
      integer elr, glr, gmr, lsr, err, trr, whr                                 
      real    elavg, elmax, elmin, slr, slg, slc, sls                           
      real    eravg, ermax, ermin, travg, trmax, trlvl                          
      real    whavg, whmax, whsd                                                
c*********************************************************                      
c* initialize a counter and open files for input/output  *                      
c*********************************************************                      
      nlin=0                                                                    
      open(unit=5,file='wcline.asc',read only,status='old')                     
      open(unit=6,file='wcline.out',status='new')                               
c************************************************************                   
c* read/write the line segment id and the 29 data variables *                   
c*   including the 22 origional and 7 risk data variables   *                   
c************************************************************                   
   10 read(5,100,end=999) id, elavg, elmax, elmin, elnum,                       
     1    elr, gl, glr, gm, gmr, slr, slg, slc                                  
      read(5,110) sls, slyr, lsr, eravg, ermax, ermin,                          
     1    ernum, err, travg, trmax, trlvl, trnum, trr                           
      read(5,120) whavg, whmax, whsd, whr                                       
                                                                                
      if (nlin.gt.32) nlin=0                                                    
      if (nlin.eq.0) write (6,130)                                              
      if (nlin.eq.0) write (6,140)                                              
      if (nlin.eq.0) write (6,150)                                              
      nlin=nlin+1                                                               
                                                                                
      write(6,105) id, elavg, elmax, elmin, elnum,                              
     1     elr, gl, glr, gm, gmr, slr, slg, slc                                 
      write(6,115) sls, slyr, lsr, eravg, ermax, ermin,                         
     1     ernum, err, travg, trmax, trlvl, trnum, trr                          
      write(6,125) whavg, whmax, whsd, whr                                      
   20 continue                                                                  
      go to 10                                                                  
  100 format (i4,3f8.2,6i4,3f8.2)                                               
  105 format (i4,3f8.2,6i4,3f8.2)                                               
  110 format (f8.2,2i4,3f8.2,2i4,3f8.2,2i4)                                     
  115 format (f8.2,2i4,3f8.2,2i4,3f8.2,2i4)                                     
  120 format (3f8.2,i4)                                                         
  125 format (3f8.2,i4)                                                         
  130 format (2x,'id',2x,'elavg',2x,'elmax',2x,'elmin',                         
     1    1x,'elnum',2x,'elr',2x,'gl',1x,'glr',1x,'gm',                         
     1    2x,'gmr',4x'slr',5x,'slg',5x,'slc')                                   
  140 format (3x,'sls',2x,'slyr',1x,'slr',3x,'eravg',2x,'ermax',                
     1    2x,'ermin',1x,'ernum',1x,'err',3x,'travg',                            
     1    2x,'trmax',2x,'trlvl',1x,'trnum',1x,'trr')                            
  150 format ('whavg',3x,'whmax',3x,'whsd',5x,'whr')                            
c***********************************************************                    
c*****           close files and exit                 ******                    
c***********************************************************                    
  999 close(unit=5)                                                             
      close(unit=6)                                                             
      stop                                                                      
      end