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

	SUBROUTINE lit_lr(init,chaine,fin,erreur,log_l,log_r,log_teff)

c subroutine public du module mod_exploit
c lecture du fichier mon_modele.LR

c entrées
c	init=.TRUE. : initialisation
c	chaine : nom_générique du modèle

c sorties :
c	fin=.TRUE. : le fichier .LR a été lu en entier
c	erreur=.TRUE. : erreur de lecture
c	log_l,log_r,log_teff : sens évident

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

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

	USE mod_kind
	USE mod_variables, ONLY : age, model_num

	IMPLICIT NONE

	REAL (kind=dp), INTENT(out) :: log_l, log_r, log_teff

	LOGICAL, INTENT(inout) :: init
	LOGICAL, INTENT(out) :: erreur, fin

	CHARACTER (len=*), INTENT(in) :: chaine

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

2000	FORMAT(8es10.3)

c initialisation
	IF(init)THEN
	 OPEN(unit=25,form='FORMATTED',status='old',file=chaine)
	 READ(25,80,END=30,ERR=4)age,log_teff,log_l,log_r,model_num
80	 FORMAT(es22.15,3es13.6,i5)
	 REWIND(unit=25) ; init=.FALSE.
	ENDIF

c lecture
	READ(25,80,END=30,ERR=4)age,log_teff,log_l,log_r,model_num

c pas d'erreur
	fin=.FALSE. ; erreur=.FALSE. ; RETURN

c fin de fichier
30	fin=.TRUE.  ; erreur=.FALSE. ; CLOSE(unit=25) ; RETURN

c en cas d'erreur
4	fin=.FALSE. ; erreur=.TRUE. ; PRINT*,'Dans lit_lr, erreur 4'
	WRITE(*,5)model_num,age,log_teff,log_l,log_r
5	FORMAT('model_num=',i5,', age=',es10.3,', log_teff=',es10.3,',log_l=',
	1 es10.3,', log_r=',es10.3)
	RETURN

	END SUBROUTINE lit_lr