c*******************************************************************************
c ... how many reactions does the chemical system have?

        subroutine getnumreac(numreactions)


        IMPLICIT NONE
        include 'parameter.par'
        include 'chem.com'

        integer numreactions

        numreactions = numreac

        return
        end

c*******************************************************************************