NIN=12                                                                    
C  FORMAT HEADINGS FOR OUTPUT LISTING                                           
      WRITE(4,20)                                                               
 20   FORMAT(1H1,'TABLE 1.  INITIAL DRY WEIGHTS AND NUTRIENT CONCENTRATI        
     1ONS OF VIRGINIA PINE PRIOR TO CO2 EXPOSURE' ///                           
     2' KEY:'/                                                                  
     3' MYC=MYCORRHIZAL TREATMENT (M)PISOLITHUS TINCTORIUS (X) NATIVE FU        
     3NGI'/                                                                     
     4' SZ=SIZE CLASS (LG, MED, SM)   CH=CHAMBER'/                              
     5' PT=PLANT PART USED FOR ANALYSIS (1) STEM (2) NEEDLE (3) ROOT'/          
     6' DRYWT=GRAMS DRY WEIGHT OF PLANT PART ANALYZED'/                         
     7' N,P,K,CA,AND MG ARE EXPRESSED IN GRAMS PER 100 GRAMS OF SAMPLE'/        
     8' MN,FE,AL,B,CU,ZN,SR,AND BA ARE EXPRESSED IN PPM.'/)                     
 25   CONTINUE                                                                  
C   FORMAT SUBHEADINGS FOR OUTPUT LISTING                                       
      WRITE(4,30)                                                               
 30   FORMAT(120(1H-)/1X,'MYC',1X,'SZ',1X,'CH',1X,'PT',2X,'DRYWT',3X,           
     1'N',7X,'P',5X,'K',6X,'CA',5X,'MG',6X,'MN',6X,'FE',6X,'AL',6X,'B',         
     16X,'CU',6X,'ZN',6X,'SR',6X,'BA',/ 120(1H-)/)                              
      DO 60 I=1,43                                                              
C   READ IN THE DATA                                                            
      READ(NIN,40,END=75)AMYC,ASZ,ICH,IPT,DRYWT,PCTN,PCTP,PCTK,PCTCA,           
     1PCTMG,PPMMN,PPMFE,PPMAL,PPMB,PPMCU,PPMZN,PPMSR,PPMBA                      
 40   FORMAT(A1,1X,A2,I2,1X,I1,1X,F5.3,F4.2,1X,F5.4,1X,F5.4,                    
     11X,F5.4,1X,F5.4,/ F7.2,F6.2,F5.1,1X,F6.3,F6.3,                            
     1F6.3,F6.3,F5.2)                                                           
C   WRITE THE OUTPUT IN TABULAR FORM                                            
      WRITE(4,50)AMYC,ASZ,ICH,IPT,DRYWT,PCTN,PCTP,PCTK,PCTCA,PCTMG,             
     1PPMMN,PPMFE,PPMAL,PPMB,PPMCU,PPMZN,PPMSR,PPMBA                            
 50   FORMAT(2X,A1,2X,A2,1X,I2,2X,I1,2X,F5.3,2X,F4.2,2X,F5.4,2X,F5.4,           
     12X,F5.4,2X,F5.4,2X,F7.2,2X,F6.2,2X,F5.1,2X,F6.3,2X,F6.3,2X,F6.3,          
     12X,F6.3,2X,F5.2)                                                          
 60   CONTINUE                                                                  
      WRITE(4,70)                                                               
 70   FORMAT(1H1/)                                                              
      GO TO 25                                                                  
 75   CONTINUE                                                                  
      WRITE(4,80)                                                               
 80   FORMAT(120(1H-)/)                                                         
      STOP                                                                      
      END