C**********************************************************                    
C* FORTRAN PROGRAM TO READ AND PRINT FLAGS.ASC (FILE 5   )*                    
C**********************************************************                    
       INTEGER I, ID                                                           
       CHARACTER COUNTRY*20, ZONE*26                                           
       INTEGER AG_FLG(5), NON_FLG(5), HP_FLG(5), LP_FLG(5)                     
                                                                               
C**********************************************************                    
C*             OPEN FILES FOR INPUT/OUTPUT                *                    
C**********************************************************                    
       OPEN(UNIT=5,FILE='flags.asc',STATUS='OLD')                              
       OPEN(UNIT=6,FILE='print.out',STATUS='NEW')                              
                                                                               
C**********************************************************                    
C* READ AND PRINT THE DATA ACCURACY FLAGS DEVELOPED FOR   *                    
C* LANDCARB.ASC (FILE 2)                                  *                    
C**********************************************************                    
  10   READ(5,100,END=999) ID, COUNTRY, ZONE                                   
       READ(5,110) (AG_FLG(I),I=1,5), (NON_FLG(I),I=1,5),                      
     1             (HP_FLG(I),I=1,5), (LP_FLG(I),I=1,5)                        
       WRITE(6,120) ID, COUNTRY, ZONE                                          
       WRITE(6,130) (AG_FLG(I),I=1,5), (NON_FLG(I),I=1,5),                     
     1              (HP_FLG(I),I=1,5), (LP_FLG(I),I=1,5)                       
  20   CONTINUE                                                                
       GO TO 10                                                                
                                                                               
C                                                                              
 100   FORMAT(I4,A20,A26)                                                      
 110   FORMAT(3(5I10,/),5I10)                                                  
 120   FORMAT(1X,'ID= ',I4,1X,A20,A26)                                         
 130   FORMAT(1X,3(5I10,/,1X),5I10)                                            
C**********************************************************                    
C*          CLOSE FILES AND EXIT GRACEFULLY               *                    
C**********************************************************                    
 999   CLOSE(UNIT=5)                                                           
       CLOSE(UNIT=6)                                                           
       STOP                                                                    
       END