NIN=12                                                                    
      WRITE(4,20)                                                               
 20   FORMAT(1H1,'TABLE 2.  PHYSICAL PARAMETERS OF VIRGINIA PINE AT FINA        
     1L HARVEST' ///                                                            
     2' DRY WEIGHT VALUES ARE IN GRAMS, CO2 TRT IS PPMV ABOVE AMBIENT' /        
     3' (340 PPMV), AND HEIGHT AND DIAMETER ARE EXPRESSED IN CM.'/              
     4' MYC REPRESENTS THE MYCORRHIZAL TREATMENT; (X) NATIVE FUNGI (M)'/        
     5' PISOLITHUS TINCTORIUS. SZ REPRESENTS THE SIZE CLASS (LG,MED,SM).        
     5 '/)                                                                      
 25   CONTINUE                                                                  
      WRITE(4,30)                                                               
 30   FORMAT(76(1H-)/1X,'REPLICATE',1X,'CHAMBER',1X,'MYC',1X,'SZ',1X,           
     1'CO2',1X,'HEIGHT',1X,'CANDLE',1X,'DIAMETER',6X,'DRY WEIGHT', /            
     226X,'TRT',25X,'NEEDLE',2X,'STEM',2X,'ROOT',/ 76(1H-)/)                    
C   PRINT 42 VALUES PER PAGE                                                    
      DO 60 I=1,42                                                              
C   READ IN THE DATA                                                            
      READ(NIN,40,END=75)IREP,ICH,AMYC,ASZ,ITRT,PHGT,ICAN,DIAM,PNEED,           
     1STEM,ROOT                                                                 
 40   FORMAT(2X,I1,3X,I2,2X,A1,A2,3X,I3,3X,F4.1,4X,I2,4X,F3.2,3X,F3.1,          
     13X,F3.1,3X,F4.1)                                                          
      WRITE(4,50)IREP,ICH,AMYC,ASZ,ITRT,PHGT,ICAN,DIAM,PNEED,STEM,ROOT          
 50   FORMAT(5X,I1,7X,I2,5X,A1,2X,A2,1X,I3,2X,F4.1,4X,I2,5X,F3.2,6X,            
     1F3.1,4X,F3.1,4X,F4.1)                                                     
 60   CONTINUE                                                                  
      WRITE(4,70)                                                               
 70   FORMAT(1H1/)                                                              
      GO TO 25                                                                  
 75   CONTINUE                                                                  
      WRITE(4,80)                                                               
 80   FORMAT(76(1H-)/)                                                          
      STOP                                                                      
      END