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

	REAL (kind=dp) FUNCTION dm_abs(dm_app,dpara,para)

c function PUBLIC du module mod_photo
	
c calcul de l'erreur sur la magnitude absolue

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

c entrées:
c	m_app: magnitude apparente
c	para, dpara: parallaxe et erreur en mas  <====== ATTENTION

c sortie:
c	dm_abs: erreur sur la magnitude absolue
	
c-----------------------------------------------------------------------

	USE mod_kind

	IMPLICIT NONE
	
	REAL (kind=dp), INTENT(in) :: dm_app, para, dpara
	
	REAL (kind=dp), SAVE :: cte
	
	LOGICAL, SAVE :: init=.TRUE.
	
c------------------------------------------------------------------

	IF(init)THEN
	 init=.FALSE.
	 cte=5.d0/LOG(10.d0)
	ENDIF
	
	dm_abs=dm_app+cte*dpara/para

	RETURN

	END FUNCTION dm_abs