double precision kBz
	   double precision hPl
	   double precision c0
	   double precision pi
	   double precision Pl
	   double precision Nav
	   double precision cdop
	   parameter(pi=3.141592653D+0)
	   parameter(kBz=1.3806D-23)    ! J/K     (Constante de Boltzmann)
	   parameter(c0=2.99792458D+8)  ! m/s     (célérité de la lumière dans le vide)
	   parameter(hPl=6.62606896D-34)! Js      (constante de Planck)
                   parameter(Pl=5.6696D-8)      ! W/m2/K4 (constante de Stefan-Boltzman)
	   parameter(Nav=6.02214179D+23)      ! moelcule/mol (Avogadro)
                   parameter(cdop=1.132443252D-8) ! doppler constant= sqrt(2ln(2)*kBz*Nav)/c