NIN=12                                                                    
C  FORMAT HEADINGS FOR OUTPUT LISTING                                           
      WRITE(4,20)                                                               
 20   FORMAT(1H1,'    TABLE 8.  ADDITIONAL SOLUTES FROM SOIL LEACHATE           
     1SAMPLES'/                                                                 
     2'                    (UNITS=MICROGRAMS PER MILLILITER)'/)                 
 25   CONTINUE                                                                  
      WRITE(4,30)                                                               
 30   FORMAT(64(1H-)/ 1X,'REPLICATE',2X,'MYCOR-',5X,'SIZE',1X,'CO2',3X,         
     1'B',4X,'ZN',5X,'NA',3X,'NH4',3X,'NO3',3X,/ 12X,'RHIZAE'                   
     2,4X,'CLASS',1X,'TRT',/ 64(1H-) /)                                         
C  PRINT 45 VALUES PER PAGE                                                     
      DO 60 I=1,45                                                              
C  READ IN DATA                                                                 
      READ(NIN,40,END=75)IREP,AFUN,ASZ,ITRT,B,ZN,PNA,PNH,PNO                    
 40   FORMAT(2X,I1,2X,A1,1X,A2,1X,I3,3X,F4.3,3X,F4.3,3X,F4.2,4X,F4.2,           
     14X,F4.2)                                                                  
      WRITE(4,50)IREP,AFUN,ASZ,ITRT,B,ZN,PNA,PNH,PNO                            
 50   FORMAT(5X,I1,9X,A1,8X,A2,2X,I3,1X,F4.3,2X,F4.3,2X,F4.2,2X,F4.2,2X,        
     1F4.2)                                                                     
 60   CONTINUE                                                                  
      WRITE(4,70)                                                               
 70   FORMAT(1H1/)                                                              
      GO TO 25                                                                  
 75   CONTINUE                                                                  
      WRITE(4,80)                                                               
 80   FORMAT(64(1H-)/)                                                          
      STOP                                                                      
      END                                                                       
/*