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

	SUBROUTINE tab_vth

c subroutine PUBLIC du module mod_evol

c formation de l'interpolation de variables thermodynamiques
c sur la base mc (ie.m^2/3), mct, knotc
c vth(1)=lnP, vth(2)=lnT,
c en_m23 (m^2/3) vth(3)=r**2, vth(4)=l**2/3,
c .NOT.en_m23 (m^1/3) vth(3)=r, vth(4)=l,
c vth(5)=ln ro, vth(6)=cp, vth(7)=delta, vth(8)=gamma1, vth(9)=ln µ, vth(10)=ln kap
c y(11)=dégénérescence

c Auteur: P.Morel, Département Cassiopée, O.C.A., CESAM2k

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

	USE mod_donnees, ONLY :  m_ch, nvth
	USE mod_kind
	USE mod_numerique, ONLY : bsp_gal
	USE mod_variables, ONLY : dim_ch, knotc, mct, vth

	IMPLICIT NONE

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

2000	FORMAT(8es10.3)

	IF(ALLOCATED(vth))DEALLOCATE(vth)
	ALLOCATE(vth(nvth,dim_ch))

c formation des coefficients
	CALL bsp_gal(nvth,vth,m_ch,mct,knotc,coeff_vth)

	RETURN

	END SUBROUTINE tab_vth