INTEGER YEAR                                                          
       REAL*4 LAT,LONG                                                       
       DIMENSION  NAME(26)                                           
       INTEGER DURAT,DVIG,DVIN,DVIS,RATIO                                    
       DO 10 I=1,100                                                         
  1    READ(5,100,END=99) YEAR,LAT,LONG,(NAME(K),K=1,26),                    
     1EMAX,DURAT,DVIG,DVIN,DVIS,RATIO                                        
 100     FORMAT(I4,F6.2,F6.1,26A1,F3.1,2X,I2,4I5)                            
       WRITE(6,200) YEAR,LAT,LONG,(NAME(K),K=1,26),EMAX,DURAT,               
     1DVIG,DVIN,DVIS,RATIO                                                   
 200  FORMAT(1H,I4,2X,F6.2,2X,F6.1,2X,26A1,2X,F3.1,2X,I2,2X,I5,1X,I5,1X,     
     1I5,1X,I5)                                                              
  10   CONTINUE                                                              
       GO TO 1                                                               
  99   STOP                                                                  
       END