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

	SUBROUTINE csv_lb(a,dnu02,dnu13,nu0,p0,compg)

c routine PRIVATE du module mod_cesam
c écritures csv dans les sorties ASCII *_LB.csv

c entrées:
c	a: somme 1/r dc/dr (c:vson)
c	dnu02,dnu13,nu0: notations évidentes
c	compg: comp. chim. par gramme

c Auteur : P.Morel, Laboratoire Lagrange, OCA, cesam2k

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

	USE mod_donnees, ONLY : ihe4, nchim, nucleo
	USE mod_kind
	USE mod_numerique, ONLY: csv_write
	USE mod_variables, ONLY: age, chim, lstar, log10_teff, model_num,
	1 n_qs, rstar

	REAL(kind=dp), INTENT(in), DIMENSION(:,:) :: compg
	REAL(kind=dp), INTENT(in) :: a, dnu02, dnu13, nu0, p0

	REAL(kind=dp) :: teff, xc, y, zsx

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

c X au centre
	xc=compg(1,1)
	y=compg(ihe4,n_qs)
	IF(nchim > 1)y=y+compg(ihe4-1,n_qs)
	zsx=(1.d0-compg(1,n_qs)-y)/compg(1,n_qs)

c Teff
	teff=10.d0**log10_teff

c écritures sur le fichier mon_modele.LB.csv
c	list_LB='model_num,age_Ma,R_sun,Teff_K,lum_sun,A,dnu02,dnu13,Nu0,P0,X_c,Y,Z/X'
	CALL csv_write(56,model_num,.FALSE.)
	CALL csv_write(56,age,.FALSE.)
	CALL csv_write(56,REAL(rstar,sp),.FALSE.)
	CALL csv_write(56,REAL(teff,sp),.FALSE.)
	CALL csv_write(56,REAL(lstar,sp),.FALSE.)
	CALL csv_write(56,REAL(a,sp),.FALSE.)
	CALL csv_write(56,REAL(dnu02,sp),.FALSE.)
	CALL csv_write(56,REAL(dnu13,sp),.FALSE.)
	CALL csv_write(56,REAL(nu0,sp),.FALSE.)
	CALL csv_write(56,REAL(p0,sp),.FALSE.)
	CALL csv_write(56,REAL(xc,sp),.FALSE.)
	CALL csv_write(56,REAL(y,sp),.FALSE.)

c dernière écriture par modèle
	CALL csv_write(56,REAL(zsx,sp),.TRUE.)

	RETURN

	END SUBROUTINE csv_lb