Télécharger fau_m2.eso
Retour à la liste
fau_m2 C FAU_M2 SOURCE BECC 10/05/05 21:15:05 6674 function fau_m2(M,coef)C real*8 fau_m2, M, coefCC coef = 1.0D0 for m1_plusC coef = -1.0D0 for m1_minusC fau_m2 = M + coef fau_m2 = fau_m2 * fau_m2 fau_m2 = coef * 0.25D0 * fau_m2C return end
C FAU_M2 SOURCE BECC 10/05/05 21:15:05 6674 function fau_m2(M,coef)C real*8 fau_m2, M, coefCC coef = 1.0D0 for m1_plusC coef = -1.0D0 for m1_minusC fau_m2 = M + coef fau_m2 = fau_m2 * fau_m2 fau_m2 = coef * 0.25D0 * fau_m2C return end
© Cast3M 2003 - Tous droits réservés. Mentions légales