NIN=12                                                                    
C      FORMAT HEADINGS FOR OUTPUT LISTING                                       
      WRITE(4,20)                                                               
 20   FORMAT(1H1,'        TABLE 6. SOIL NUTRIENT ANALYSIS AT FINAL HARVE        
     1ST'//                                                                     
     2'  UNITS: SOLUBLE SALTS IS EXPRESSED AS A PERCENT'/                       
     3'         P, K, CA, MG, AND NITRATE ARE EXPRESSED IN PPM' /               
     4'         CO2 TRT IS EXPRESSED AS PPMV CO2 ABOVE AMBIENT (340 PPMV        
     4)'/)                                                                      
 25   CONTINUE                                                                  
      WRITE(4,30)                                                               
 30   FORMAT(73(1H-)/1X,'CHAMBER',1X,'REPLICATE',1X,'MYC',1X,'SIZE',1X,         
     1'CO2',2X,'SOIL',2X,'P',5X,'K',5X,'CA',2X,'MG',2X,'NO3-',2X,               
     1'SOLUBLE'/ 22X,'CLASS',1X,'TRT',3X,'PH',31X,'SALTS' / 73(1H-)/)           
C      PRINT 40 VALUES PER PAGE                                                 
      DO 60 I=1,40                                                              
C      READ IN DATA                                                             
      READ(NIN,40,END=80) ICH,IREP,AMYC,ASZ,ITRT,PH,IP,IK,ICA,                  
     1IMG,INITR,SALT                                                            
 40   FORMAT(I2,3X,I1,2X,A1,1X,A2,1X,I3,2X,F3.1,2X,I2,2X,I2,2X,                 
     1I3,2X,I2,2X,I2,2X,F4.1)                                                   
C      PRINT DATA OUT                                                           
      WRITE(4,50) ICH,IREP,AMYC,ASZ,ITRT,PH,IP,IK,ICA,IMG,INITR,                
     1SALT                                                                      
 50   FORMAT(4X,I2,7X,I1,6X,A1,3X,A2,2X,I3,2X,F3.1,2X,I2,4X,I2,4X,I3,           
     12X,I2,4X,I2,4X,F4.1)                                                      
 60   CONTINUE                                                                  
      WRITE(4,70)                                                               
 70   FORMAT(1H1/)                                                              
      GO TO 25                                                                  
 80   CONTINUE                                                                  
      WRITE(4,90)                                                               
 90   FORMAT(73(1H-)/)                                                          
      STOP                                                                      
      END                                                                       
/*