NIN=12                                                                    
C     FORMAT HEADINGS FOR OUTPUT LISTING                                        
      WRITE(4,20)                                                               
 20   FORMAT(1H1,'TABLE 5.  MINOR NUTRIENT CONCENTRATIONS OF VIRGINIA PI        
     1NE AT FINAL HARVEST'/                                                     
     2'                        (UNITS = MG/GRAM DRYWT SAMPLE)'//                
     3' SOME QUANTITIES OF AL AND FE EXCEEDED THE DETECTION LIMITS OF TH        
     3E'/                                                                       
     4' INSTRUMENTATION.  THESE VALUES ARE REPRESENTED AS 900 WHICH IS T        
     4HE'/                                                                      
     5' HIGHEST LEVEL OF DETECTION AND THUS REPRESENTS THE MINIMUM CONCE        
     5NTRATION'/                                                                
     6' POSSIBLE FOR AL AND FE.'/)                                              
 25   CONTINUE                                                                  
      WRITE(4,30)                                                               
 30   FORMAT(76(1H-)/1X,'REP',1X,'CH',1X,'MYC',1X,'SZ',1X,'CO2',1X,             
     1'PLANT',2X,'MN',4X,'FE',5X,'AL',5X,'B',5X,'CU',5X,'ZN',5X,                
     1'SR',5X,'BA', / 15X,'TRT',2X,'PART', / 76(1H-)/)                          
C  PRINT 45 VALUES PER PAGE                                                     
      DO 60 I=1,45                                                              
C  READ IN DATA                                                                 
      READ(NIN,40,END=75)ICH,AFUN,ASZ,ITRT,ITYP,PMN,FE,AL,B,CU,ZN,SR,BA,        
     1IREP                                                                      
 40   FORMAT(I2,1X,A1,1X,A2,1X,I3,1X,I1,1X,F6.2,2X,F6.2,2X,F5.1,4X,             
     1F6.3,1X,F7.4,2X,F5.2,2X,F6.3,3X,F6.3,1X,I1,/)                             
C  WRITE OUT THE DATA                                                           
      WRITE(4,50)IREP,ICH,AFUN,ASZ,ITRT,ITYP,PMN,FE,AL,B,CU,ZN,SR,BA            
 50   FORMAT(1X,I1,2X,I2,2X,A1,3X,A2,1X,I3,3X,I1,2X,F6.2,1X,F6.2,1X,            
     1F5.1,1X,F6.3,1X,F7.4,1X,F5.2,1X,F6.3,1X,F6.3)                             
 60   CONTINUE                                                                  
      WRITE(4,70)                                                               
 70   FORMAT(1H1/)                                                              
      GO TO 25                                                                  
 75   CONTINUE                                                                  
      WRITE(4,80)                                                               
 80   FORMAT(76(1H-)/)                                                          
      STOP                                                                      
      END                                                                       
/*