C*********************************************************                     
C*   FORTRAN PROGRAM TO READ AND PRINT FILES ALLT2.ASC,  *                     
C*   ALLT2ERR.ASC, ALLT2S.ASC, ALLA2.ASC, ALLA2S.ASC,    *                     
C*   ALLA2R.ASC, ALLA2RS.ASC, AND BACKGRD.ASC.           *                     
C*********************************************************                     
        REAL YEAR, NM1010, NM785, NM535, NM486, NM428                          
                                                                               
C*********************************************************                     
C*   OPEN FILES FOR INPUT/OUTPUT                         *                     
C*********************************************************                     
        OPEN(UNIT=5,FILE='allt2.asc')                                          
        OPEN(UNIT=6,FORM='PRINT')                                              
                                                                               
C*********************************************************                     
C*   READ AND PRINT YEAR.FRACTION AND TOTAL OPTICAL OR   *                     
C*   AEROSOL DEPTHS FOR 5 WAVELENGTHS.                   *                     
C*********************************************************                     
  10    READ (5,100,END=999) YEAR, NM1010, NM785, NM535,                       
     1                       NM486, NM428                                      
        WRITE(6,110) YEAR, NM1010,  NM785, NM535,                              
     1                       NM486, NM428                                      
        GOTO 10                                                                
C                                                                              
 100    FORMAT(F10.5,5F8.4)                                                    
 110    FORMAT(1X,F10.5,5F8.4)                                                 
                                                                               
C*********************************************************                     
C*          CLOSE FILES AND EXIT GRACEFULLY              *                     
C*********************************************************                     
 999    CLOSE(UNIT=5)                                                          
        CLOSE(UNIT=6)                                                          
        STOP                                                                   
        END