DIMENSION YEAR(150),GROUP(150),WOLF(150),UMBRA(150),                    
     1  WHOLE(150),PENUMB(150),RATIO(150)                                       
         I=0                                                                    
1       CONTINUE                                                                
        I=I+1                                                                   
        READ(5,100,END=99) YEAR(I),GROUP(I),WOLF(I),UMBRA(I),                   
     1  WHOLE(I)                                                                
100     FORMAT(I4,F5.1,F7.1,F6.1,F7.1)                                          
        PENUMB(I)=WHOLE(I)-UMBRA(I)                                             
        RATIO(I)=UMBRA(I)/PENUMB(I)                                             
        GO TO 1                                                                 
99      CONTINUE                                                                
        I=I-1                                                                   
        WRITE(6,200)                                                            
200     FORMAT(1H1,74(1H_)/1H ,2X,'YEAR',4X,'GROUP',5X,                         
     1  '  WOLF',3X,' UMBRA',                                                   
     1  4X,'  WHOLE',6X,'PENUMBRA',5X,                                          
     2  '  RATIO'/74(1H_)/)                                                     
        DO 10 J=1,I                                                             
        IF(MOD(J,45) .EQ. 0) WRITE(6,200)                                       
        WRITE(6,250) YEAR(J),GROUP(J),WOLF(J),UMBRA(J),                         
     1  WHOLE(J),PENUMB(J),RATIO(J)                                             
250     FORMAT(1H ,2X,I4,4X,F5.1,4X,F7.1,3X,F6.1,4X,F7.1,6X,                    
     1  F8.1,7X,F5.2)                                                           
10      CONTINUE                                                                
        STOP                                                                    
        END