SUBROUTINE aromatic(chem,input,ninp)
      IMPLICIT NONE
      INCLUDE 'general.h'

      
      CHARACTER*130   line
      CHARACTER(LEN=lfo) chem
      INTEGER         nc
      INTEGER         ninp
      CHARACTER(LEN=lfo) input(300)
      
* initialize
      line = ' '

* read aromatic.dat and write out aromatic reactions in file 16

      OPEN (11,FILE='aromatic.dat',STATUS='OLD')

10    READ (11,'(a)')line
      IF (line(1:1).eq.'/') GOTO 10
      IF (line(1:1).eq.'#') GOTO 20
      
* -----------------------------------
* load secondary species in the stack
* -----------------------------------

* load species into chem
      nc=INDEX(line,' ')
      chem=line(1:nc)

      ninp = ninp+1
      input(ninp) = chem
      GOTO 10
20     CONTINUE   	   

30    READ (11,'(a)')line   
       IF (line(1:4).eq.'****') GOTO 40
       IF (line(1:1).eq.'/') GOTO 30
        write(17,*)line
	WRITE(16,100) line
100     FORMAT (A130)
      GOTO 30
40    CONTINUE      
      RETURN
      END