C   FORTRAN IV RETRIEVAL CODE (LACKING JOB CONTROL LANGUAGE)                    
C   TO READ AND PRINT THE TOTAL OZONE VARIATIONS DATA FILE                      
C   (FILE 4 ON THE MAGNETIC TAPE)                                               
       DIMENSION YEAR(29),WI(29),SP(29),SU(29),FA(29),ANN(29),                  
     1  WIA(29),SPA(29),SUA(29),FAA(29),ANNA(29),                               
     2  WIB(29),SPB(29),SUB(29),FAB(29),ANNB(29),                               
     3 YEAR1(29),WI1(29),SP1(29),SU1(29),FA1(29),ANN1(29),                      
     4  WIA1(29),SPA1(29),SUA1(29),FAA1(29),ANNA1(29),                          
     5  WIB1(29),SPB1(29),SUB1(29),FAB1(29),ANNB1(29)                           
         NYEARS=29                                                              
  1       CONTINUE                                                              
         DO 81 J=1,NYEARS                                                       
         READ(5,10,END=99) YEAR(J),WI(J),SP(J),SU(J),FA(J),ANN(J),              
     1  WIA(J),SPA(J),SUA(J),FAA(J),ANNA(J),                                    
     2   WIB(J),SPB(J),SUB(J),FAB(J),ANNB(J)                                    
 10      FORMAT(1X,I4,15(F7.1))                                                 
         READ(5,12,END=99) YEAR1(J),WI1(J),SP1(J),SU1(J),FA1(J),ANN1(J),        
     1  WIA1(J),SPA1(J),SUA1(J),FAA1(J),ANNA1(J),                               
     2  WIB1(J),SPB1(J),SUB1(J),FAB1(J),ANNB1(J)                                
 12      FORMAT(1X,I4,15(F7.1))                                                 
 81      CONTINUE                                                               
         WRITE (6,101)                                                          
101      FORMAT(1H0,'YEAR',2X,'WINTER',2X,'SPRING',2X,'SUMMER',2X,              
     1  'AUTUMN',2X,'ANNUAL',2X,'WINTER',2X,'SPRING',2X,'SUMMER',2X,            
     2  'AUTUMN',2X,'ANNUAL',2X,'WINTER',2X,'SPRING',2X,'SUMMER',2X,            
     3  'AUTUMN',2X,'ANNUAL')                                                   
         DO 241 J=1,NYEARS                                                      
        WRITE(6,11) YEAR(J),WI(J),SP(J),SU(J),FA(J),ANN(J),                     
     1  WIA(J),SPA(J),SUA(J),FAA(J),ANNA(J),                                    
     2  WIB(J),SPB(J),SUB(J),FAB(J),ANNB(J)                                     
 11      FORMAT(1X,I4,1X,15(F7.1,1X))                                           
241      CONTINUE                                                               
         WRITE (6,102)                                                          
102      FORMAT(1H0,'YEAR',2X,'WINTER',2X,'SPRING',2X,'SUMMER',2X,              
     1  'AUTUMN',2X,'ANNUAL',2X,'WINTER',2X,'SPRING',2X,'SUMMER',2X,            
     2  'AUTUMN',2X,'ANNUAL',2X,'WINTER',2X,'SPRING',2X,'SUMMER',2X,            
     3  'AUTUMN',2X,'ANNUAL')                                                   
         DO 251 J=1,NYEARS                                                      
         WRITE(6,13) YEAR1(J),WI1(J),SP1(J),SU1(J),FA1(J),ANN1(J),              
     1  WIA1(J),SPA1(J),SUA1(J),FAA1(J),ANNA1(J),                               
     2  WIB1(J),SPB1(J),SUB1(J),FAB1(J),ANNB1(J)                                
 13      FORMAT(1X,I4,1X,15(F7.1,1X))                                           
251      CONTINUE                                                               
         GO TO 1                                                                
 99        CONTINUE                                                             
          STOP                                                                  
          END