        subroutine CHMOUT
      include 'SIZE.INC'
      include 'GLOBAL.INC'
      include 'LOCAL.INC'
      include 'UNITS.INC'
        integer I, J, K
5000  format (1PG10.4,7G10.4)
      K = MCHEMG
      write (RWLUN(MACHNO),5010) (CHEMNA(I,K),I=1,50)
5010  format (50A1)
      write (RWLUN(MACHNO),5020) (SPFLGG(I,K),I=1,7)
5020  format (7(I1,1X))
      write (RWLUN(MACHNO),5000) MWTG(K),KOCG(K),KOWG(K)
      write (RWLUN(MACHNO),5000) KVOG(K),HENRYG(K),EHENG(K),VAPRG(K),
     &   EVPRG(K)
      do 100 J = 1, 7
         if (SPFLGG(J,K).ne.1) go to 100
         write (RWLUN(MACHNO),5000) SOLG(J,K),ESOLG(J,K),KPSG(J,K),KPBG(
     &      J,K),KPDOCG(J,K)
         if (J.gt.1) write (RWLUN(MACHNO),5000) PKG(J-1,K),EPKG(J-1,K),
     &      KIECG(J-1,K)
         write (RWLUN(MACHNO),5000) (QUANTG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (ABSORG(I,J,K),I=1,46)
         write (RWLUN(MACHNO),5000) KDPG(J,K),RFLATG(J,K),LAMAXG(J,K)
         write (RWLUN(MACHNO),5000) (KAHG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (EAHG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (KNHG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (ENHG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (KBHG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (EBHG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (KOXG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (EOXG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (K1O2G(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (EK1O2G(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (KREDG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (EREDG(I,J,K),I=1,3)
         write (RWLUN(MACHNO),5000) (KBACWG(I,J,K),I=1,4)
         write (RWLUN(MACHNO),5000) (QTBAWG(I,J,K),I=1,4)
         write (RWLUN(MACHNO),5000) (KBACSG(I,J,K),I=1,4)
         write (RWLUN(MACHNO),5000) (QTBASG(I,J,K),I=1,4)
100   continue
      return
      end
