c********************************************************************
	
	SUBROUTINE tl_vrf(v,r,fesh,teff,ll)
	
c routine PUBLIC du module mod_photo
		
c calcul de la Teff en utilisant les Mv, Mr et [Fe/H]
c suivant Alonso et al. A&A 313, 873, 1996 (formules 4 et 5),
c calcul de L avec BcV (corr. bol) en fonction de (Teff,[Fe/H])
c Lejeune T., Cuisinier F., Buser R., 1998, A&AS 130, 65

c Auteur: P. Morel, Laboratoire Lagrange, O.C.A., CESAM2k

c entrees
c	v,k : magnitudes absolues V et K
c	fesh : [Fe/H]

c sorties
c	teff : Teff
c	ll : L/Lsol

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

	USE mod_kind
	USE mod_donnees, ONLY : init_ctes_phys, mbol_sun
	
	IMPLICIT NONE
	
	REAL (kind=dp), INTENT(in) :: v, r, fesh
	REAL (kind=dp), INTENT(out) :: teff, ll
		
	REAL (kind=dp), DIMENSION(11) :: tfe, dtfedt, dtfedfe
	REAL (kind=dp) :: dteff, m_bol
	
	LOGICAL, SAVE :: init=.TRUE.	
	
c-----------------------------------------------------------------------

	IF(init)THEN
	 init=.FALSE.
	 CALL init_ctes_phys
	ENDIF


	CALL t_vbf(v,0.d0,r,0.d0,fesh,0.d0,teff,dteff)

c correction bolometrique et luminosite L/Lsol
	CALL corr_bol_lejeune(teff,fesh,tfe,dtfedt,dtfedfe)
	m_bol=v+tfe(10) ; ll=10.d0**(-0.4d0*(m_bol-mbol_sun))
	WRITE(*,"('BcV=',es10.3,' Mbol=,'es10.3)")tfe(10),m_bol

	RETURN
		
	END SUBROUTINE tl_vrf