NIN=12                                                                    
C     FORMAT HEADINGS FOR OUTPUT LISTING                                        
      WRITE(4,20)                                                               
 20   FORMAT(1H1,'   TABLE 4. MAJOR NUTRIENT CONCENTRATIONS OF VIRGINIA         
     1PINE AT FINAL HARVEST'//                                                  
     2' TABLE CONTAINS MAJOR NUTRIENT CONTENT OF VIRGINIA PINE GROWN AT         
     2 ELEVATED CO2'/                                                           
     3' CONCENTRATIONS IN CHAMBERS AT NORTH CAROLINA STATE UNIVERSITY. D        
     3ESIGN IS SPLIT'/                                                          
     4' PLOT, WITH TWO CHAMBERS FOR EACH OF FIVE CO2 LEVELS, PLUS TWO PL        
     4OTS'/                                                                     
     5' WITHOUT CHAMBERS.  HALF THE SEEDLINGS WERE INNOCULATED WITH THE         
     5MYCOSYMBIONT'/                                                            
     6' PISOLITHUS TINCTORIUS (M) AND THE OTHER HALF WERE MYCORRHIZAL WI        
     6TH NATIVE FUNGI'/                                                         
     7' (X). THERE WERE SMALL, MEDIUM, AND LARGE SIZE CLASSES.  CO2 TRT         
     7IS PPM ABOVE'/                                                            
     8' AMBIENT (340 PPM).  VALUES REPRESENT GRAMS OF NUTRIENT PER 100          
     8GRAMS SAMPLE.'/                                                           
     9' ANALYSES WERE DONE FOR DIFFERENT PLANT PARTS; STEM(1) NEEDLE(2)         
     9ROOT(3).'/)                                                               
 25   CONTINUE                                                                  
      WRITE(4,30)                                                               
 30   FORMAT(75(1H-)/1X,'REPLICATE',1X,'CHAMBER',1X,'FUNGI',1X,'SIZE',          
     11X,'CO2',2X,'PLANT',5X,'P',6X,'K',6X,'CA',6X,'MG',3X,'N', / 30X,          
     2'TRT',2X,'PART', / 75(1H-)/)                                              
C     PRINT 40 VALUES PER PAGE                                                  
      DO 60 I=1,40                                                              
C     READ IN DATA                                                              
      READ(NIN,40,END=75)IREP,ICH,AFUN,ASZ,ITRT,ITYP,P,PK,CA,PMG,N              
 40   FORMAT(1X,I1,2X,I2,1X,A1,1X,A2,2X,I3,2X,I1,2X,F5.4,2X,F5.4,2X,            
     1F5.4,2X,F5.4,2X,F4.2)                                                     
C     WRITE THE DATA OUT                                                        
      WRITE(4,50)IREP,ICH,AFUN,ASZ,ITRT,ITYP,P,PK,CA,PMG,N                      
 50   FORMAT(5X,I1,7X,I2,6X,A1,4X,A2,2X,I3,4X,I1,5X,F5.4,2X,F5.4,2X,            
     1F5.4,2X,F5.4,2X,F4.2)                                                     
 60   CONTINUE                                                                  
      WRITE(4,70)                                                               
 70   FORMAT(1H1/)                                                              
      GO TO 25                                                                  
 75   CONTINUE                                                                  
      WRITE(4,80)                                                               
 80   FORMAT(75(1H-)/)                                                          
      STOP                                                                      
      END                                                                       
/*