        subroutine TABE(NYR)
      include 'SIZE.INC'
      include 'GLOBAL.INC'
      include 'LOCAL.INC'
      include 'UNITS.INC'
      include 'LOCAL1.INC'
        integer NYR
        integer K, III, IV, VRAIL
5000  format ('1','Exposure Analysis Modeling System -- EXAMS Version ',
     &   F4.2,', Mode',I2/' Ecosystem: ',50A1)
5010  format (' Chemical:  ',50A1)
5020  format (1X,63('-'))
5030  format (' Table 19.  Summary time-trace of spatially averaged, mon
     &thly'/' mean chemical concentrations during',I5,'.'/1X,63('-'))
5040  format (1X,'Month',3X,'Average Chemical Concentrations',5X,'Total 
     &Chemical Mass'/1X,5('-'),3X,31('-'),5X,19('-'))
5050  format (7X,' Water Column',6X,'Benthic Sediments',2X,'Water Col  B
     &enthic')
5060  format (4X,20('-'),1X,19('-'),1X,9('-'),1X,9('-')/4X,'Free-mg/L So
     &rb-mg/kg Pore-mg/L Sed-mg/kg  Total ','kg  Total kg')
      III = VRAIL(ECONAM)
      write (RPTLUN(MACHNO),5000) VERSN,MODEG,(ECONAM(IV),IV=1,III)
      do 100 K = 1, KCHEM
         III = VRAIL(CHEMNA(1,K))
         write (RPTLUN(MACHNO),5010) (CHEMNA(IV,K),IV=1,III)
100   continue
      write (RPTLUN(MACHNO),5020)
      write (RPTLUN(MACHNO),5030) NYR
      write (RPTLUN(MACHNO),5040)
      write (RPTLUN(MACHNO),5050)
      write (RPTLUN(MACHNO),5060)
      write (RPTLUN(MACHNO),5020)
      return
      end
