NIN=12                                                                    
C  FORMAT HEADINGS FOR OUTPUT LISTING                                           
      WRITE(4,20)                                                               
 20   FORMAT(1H1,'       TABLE 7.  ELEMENTS FROM SOIL LEACHATE SAMPLES'/        
     2'                    (UNITS=MICROGRAMS PER MILLILITER)'/)                 
 25   CONTINUE                                                                  
      WRITE(4,30)                                                               
 30   FORMAT(76(1H-)/ 1X,'REPLICATE',3X,'MYCOR-',5X,'SIZE',1X,'CO2',3X,         
     1'P',5X,'K',5X,'CA',4X,'MG',4X,'MN',5X,'FE',4X,'AL',/ 13X,'RHIZAE'         
     2,4X,'CLASS',1X,'TRT',/ 76(1H-) /)                                         
C  PRINT 42 VALUES PER PAGE                                                     
      DO 60 I=1,42                                                              
C  READ IN DATA                                                                 
      READ(NIN,40,END=75)IREP,AFUN,ASZ,ITRT,P,PK,CA,PMG,PMN,FE,PAL              
 40   FORMAT(2X,I1,1X,A1,1X,A2,2X,I3,3X,F4.3,2X,F4.2,2X,F5.2,2X,F4.2,4X,        
     1F4.3,5X,F5.2,3X,F5.2)                                                     
C  PRINT THE DATA OUT                                                           
      WRITE(4,50)IREP,AFUN,ASZ,ITRT,P,PK,CA,PMG,PMN,FE,PAL                      
 50   FORMAT(5X,I1,9X,A1,8X,A2,2X,I3,1X,F4.3,2X,F4.2,2X,F5.2,2X,F4.2,2X,        
     1F4.3,2X,F5.2,2X,F5.2)                                                     
 60   CONTINUE                                                                  
      WRITE(4,70)                                                               
 70   FORMAT(1H1/)                                                              
      GO TO 25                                                                  
 75   CONTINUE                                                                  
      WRITE(4,80)                                                               
 80   FORMAT(76(1H-)/)                                                          
      STOP                                                                      
      END                                                                       
/*