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

	SUBROUTINE sortie(list)

c routine public du module mod_variables
c en cas de difficulté fermeture des fichiers .HR, .lis pgend

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

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

	USE mod_donnees, ONLY : baratine

	CHARACTER (len=*), OPTIONAL, INTENT(in) :: list

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

	IF(PRESENT(list))THEN
	 WRITE(*,1)list ; WRITE(2,1)list
1	 FORMAT('sortie depuis ',a)
	ELSE
	 WRITE(*,2) ; WRITE(2,2)
2	 FORMAT('sortie directe')
	ENDIF

	CLOSE(unit=2)		!FICHIER .lis
	CLOSE(unit=53)		!fichier .HR
	CLOSE(unit=54)		!fichier .mHHe
	CLOSE(unit=55)		!fichier .cephe
	IF(.NOT.baratine)THEN
	 CLOSE(unit=101)
	 CLOSE(unit=102)
	 CLOSE(unit=103)
	ENDIF
	CALL pgend

	STOP

	END SUBROUTINE sortie