C**********************************************************                    
C* FORTRAN PROGRAM TO READ AND PRINT LANDCARB.ASC (FILE 2)*                    
C**********************************************************                    
       INTEGER I, ID, NLIN                                                     
       CHARACTER COUNTRY*20, ZONE*26                                           
       REAL      XLAND(90), XMGCHA(60)                                         
       INTEGER   CARB(70)                                                      
                                                                               
C**********************************************************                    
C*              OPEN FILES FOR INPUT/OUTPUT               *                    
C**********************************************************                    
       OPEN(UNIT=5,FILE='landcarb.asc',STATUS='OLD')                           
       OPEN(UNIT=6,FILE='print.out',STATUS='NEW')                              
                                                                               
C**********************************************************                    
C* READ AND PRINT THE LAND USE, MG C/HA, AND TOTAL CARBON *                    
C* DATA VARIABLES                                         *                    
C**********************************************************                    
  10   READ(5,100,END=999) ID, COUNTRY, ZONE                                   
       READ(5,110) (XLAND(I),I=1,90), (XMGCHA(I),I=1,60),                      
     1               (CARB(I),I=1,65), (CARB(I),I=66,70)                       
       WRITE(6,120) ID, COUNTRY, ZONE                                          
       DO 20 I=1,18                                                            
        NLIN=I*5                                                               
        WRITE(6,130) XLAND(NLIN-4), XLAND(NLIN-3),                             
     1         XLAND(NLIN-2), XLAND(NLIN-1), XLAND(NLIN)                       
  20   CONTINUE                                                                
       DO 30 I=1,12                                                            
        NLIN=I*5                                                               
        WRITE(6,130) XMGCHA(NLIN-4), XMGCHA(NLIN-3),                           
     1         XMGCHA(NLIN-2), XMGCHA(NLIN-1), XMGCHA(NLIN)                    
  30   CONTINUE                                                                
       DO 40 I=1,14                                                            
        NLIN=I*5                                                               
        WRITE(6,140) CARB(NLIN-4), CARB(NLIN-3),                               
     1         CARB(NLIN-2), CARB(NLIN-1), CARB(NLIN)                          
  40   CONTINUE                                                                
       GO TO 10                                                                
C                                                                              
 100   FORMAT(I4,A20,A26)                                                      
 110   FORMAT(18(5F10.2,/),12(5F10.2,/),13(5I10,/),5I10)                       
 120   FORMAT(1X,'ID= ',I4,1X,A20,A26)                                         
 130   FORMAT(1X,5F10.2)                                                       
 140   FORMAT(1X,5I10)                                                         
C**********************************************************                    
C*          CLOSE FILES AND EXIT GRACEFULLY               *                    
C**********************************************************                    
 999   CLOSE(UNIT=5)                                                           
       CLOSE(UNIT=6)                                                           
       STOP                                                                    
       END