C   FORTRAN IV RETRIEVAL CODE (LACKING JOB CONTROL LANGUAGE)                    
C   TO READ AND PRINT THE LAYER-MEAN OZONE VARIATIONS DATA FILE                 
C   (FILE 5 ON THE MAGNETIC TAPE)                                               
       DIMENSION YEAR(26),WI(26),SP(26),SU(26),FA(26),ANN(26),                  
     1  WIA(26),SPA(26),SUA(26),FAA(26),ANNA(26),                               
     2  WIB(26),SPB(26),SUB(26),FAB(26),ANNB(26),                               
     3 YEAR1(26),WI1(26),SP1(26),SU1(26),FA1(26),ANN1(26),                      
     4  WIA1(26),SPA1(26),SUA1(26),FAA1(26),ANNA1(26),                          
     5  WIB1(26),SPB1(26),SUB1(26),FAB1(26),ANNB1(26)                           
         NYEARS=26                                                              
  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