c********************************************************************** subroutine mag_ab(m,dm,pi,ma,mb) c calcul des magnitudes absolues Ma et Mb a partir c de la magnitude globale et du delta m, c Auteur: P. Morel, Departement J.D. Cassini, O.C.A., Observatoire de Nice c entrees c m : magnitude globale c dm : difference de magnitude c pi : parallaxe en mas c sortie c ma, mb : magnitudes absolues de A et B implicit none real*8 m,dm,pi,ma,mb ma=m+2.5*log10(1.+10.**(-0.4*dm))+5.+5.*log10(pi*0.001) mb=ma+dm return end