SUBROUTINE ecrit1(list_pms,list_rep,list_sort,list_zams,model_num)

c routine private du module mod_cesam

c routine rassemblant des écritures de cesam.f
c avec pour fonction la réduction de la longueur de cesam.f

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

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

	USE mod_donnees, ONLY: langue

	IMPLICIT NONE

	INTEGER, INTENT(in) :: model_num
	LOGICAL, INTENT(in) :: list_pms,list_rep,list_sort,list_zams

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

	IF(list_sort .OR. list_rep)THEN
	 SELECT CASE(langue)
	 CASE('english')
	  WRITE(2,1805)model_num
1805	  FORMAT('Model number to be continued :'i5)
	 CASE DEFAULT
	  WRITE(2,805)model_num
805	  FORMAT('Reprise du modèle n° : ',i5)
	 END SELECT
	ELSEIF(list_zams)THEN
	 SELECT CASE(langue)
	 CASE('english')
	  WRITE(2,1806)
1806	  FORMAT('Homogeneous ZAMS model :')
	 CASE DEFAULT
	  WRITE(2,806)
806	  FORMAT('Modèle de ZAMS homogène :')
	 END SELECT
	ELSEIF(list_pms)THEN
	 SELECT CASE(langue)
	 CASE('english')
	  WRITE(2,1807)
1807	  FORMAT('Initial PMS model :')
	 CASE DEFAULT
	  WRITE(2,807)
807	  FORMAT('Modèle initial de PMS :')
	 END SELECT
	ENDIF

	RETURN

	END SUBROUTINE ecrit1