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

	REAL (kind=dp) FUNCTION m_abs(m_app,para)
	
c function PUBLIC du module mod_photo

c calcul de la magnitude absolue

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

c entrées:
c	m_app: magnitude apparente
c	para: parallaxe en mas  <====== ATTENTION

c sortie:
c	m_abs: magnitude absolue
	
c-----------------------------------------------------------------------

	USE mod_kind

	IMPLICIT NONE
	
	REAL (kind=dp), INTENT(in) :: m_app, para

c------------------------------------------------------------
	
	m_abs=m_app+5.d0+5.d0*LOG10(para*0.001d0)

	RETURN

	END FUNCTION m_abs