c*******************************************************************************
c ... get dG/dT for each of the pure species

        subroutine dcgsp(tc,dcgspl)

        IMPLICIT NONE

        include 'parameter.par'
        include 'therm.com'

        integer jtab,jtp,k
        double precision tc,rtab,cgsv

        real*8 dcgspl(nsmx)

c-------------------------------------------------------------------------------
c ... linear interpolation from derivative tables

            jtab = int((tc-temp1tab)*odtab) + 1
            rtab = (tc-temptab(jtab))*odtab
            jtp  = jtab + 1

            do k=1,n_species
               cgsv     = cgsptb_t(k,jtab)
               dcgspl(k) = cgsv + rtab*(cgsptb_t(k,jtp) - cgsv)
            end do

c-------------------------------------------------------------------------------

        return
        end