C**********************************************************                    
C* FORTRAN PROGRAM TO READ AND PRINT FACTORS.ASC (FILE 8) *                    
C**********************************************************                    
       INTEGER I, ID                                                           
       CHARACTER COUNTRY*20, ZONE*26, PRANGE*20                                
       REAL      AG_TMP(7), AG_PRM(7), SETTLE(7),                              
     1            FR_CON(7), FR_INT(7), WT_FOR(7),                             
     2            WT_NON(7), GRASS(7),  BARREN(7),                             
     3            WATER(7) , PMEAN, SPACE, N(3:7)                              
                                                                               
C**********************************************************                    
C*          OPEN FILES FOR INPUT/OUTPUT                   *                    
C**********************************************************                    
       OPEN(UNIT=5,FILE='factors.asc',STATUS='OLD')                            
       OPEN(UNIT=6,FILE='print.out',STATUS='NEW')                              
                                                                               
C**********************************************************                    
C* READ AND PRINT THE M, E, D, N, AND MEAN AND RANGE FOR  *                    
C* PRECIPITATION. M, E, D, AND N WERE USED TO CALC THE    *                    
C* MG C/HA CONTAINED IN LANDCARB.ASC (FILE 2)             *                    
C**********************************************************                    
  10   READ(5,100,END=999) ID, COUNTRY, ZONE, PRANGE                           
       READ(5,110) (AG_TMP(I),I=1,7), (AG_PRM(I),I=1,7),                       
     1              (SETTLE(I),I=1,7), (FR_CON(I),I=1,7),                      
     2              (FR_INT(I),I=1,7), (WT_FOR(I),I=1,7),                      
     3              (WT_NON(I),I=1,7), (GRASS(I), I=1,7),                      
     4              (BARREN(I),I=1,7), (WATER(I), I=1,7),                      
     5              PMEAN, SPACE, (N(I),I=3,7)                                 
       WRITE(6,120) ID, COUNTRY, ZONE, PRANGE                                  
       WRITE(6,130) (AG_TMP(I),I=1,7), (AG_PRM(I),I=1,7),                      
     1               (SETTLE(I),I=1,7), (FR_CON(I),I=1,7),                     
     2               (FR_INT(I),I=1,7), (WT_FOR(I),I=1,7),                     
     3               (WT_NON(I),I=1,7), (GRASS(I), I=1,7),                     
     4               (BARREN(I),I=1,7), (WATER(I), I=1,7),                     
     5               PMEAN, SPACE, (N(I),I=3,7)                                
  20   CONTINUE                                                                
       GO TO 10                                                                
C                                                                              
 100   FORMAT(I4,A20,A26,A20)                                                  
 110   FORMAT(10(7F10.2,/),7F10.2)                                             
 120   FORMAT(1X,'ID= ',I4,1X,A20,A26,/,1X,                                    
     1         'Precip. Range= ',A20)                                          
 130   FORMAT(1X,10(7F10.2,/,1X),7F10.2)                                       
C**********************************************************                    
C*          CLOSE FILES AND EXIT GRACEFULLY               *                    
C**********************************************************                    
 999   CLOSE(UNIT=5)                                                           
       CLOSE(UNIT=6)                                                           
       STOP                                                                    
       END