c********************************************************************
	
	SUBROUTINE tl_vif(v,i,fesh,teff,ll)
	
c routine PUBLIC du module mod_photo

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,i : magnitudes absolues V et I
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, i, fesh
	REAL (kind=dp), INTENT(out) :: teff, ll
	
	REAL (kind=dp), DIMENSION(11) :: tfe, dtfedt, dtfedfe
	REAL (kind=dp) :: m_bol, dteff
	
 	LOGICAL, SAVE :: init=.TRUE.
 		
c-----------------------------------------------------------------------	
	IF(init)THEN
	 init=.FALSE.
	 CALL init_ctes_phys
	ENDIF
	
	CALL t_vif(v,0.d0,i,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_vif