Download fau_m1.eso

Back to the list

   1 : C FAU_M1    SOURCE    BECC      10/05/05    21:15:00     6674           
   2 :       function fau_m1(M,coef)
   3 : C     
   4 :       real*8 fau_m1, M, coef
   5 : C
   6 : C     coef = 1.0D0 for m1_plus
   7 : C     coef = -1.0D0 for m1_minus
   8 : C
   9 :       fau_m1 = M + (coef * abs(M))
  10 :       fau_m1 = fau_m1 * 0.5D0
  11 : C
  12 :       return
  13 :       end
  14 : 
  15 :          
  16 :  

© Cast3M 2003 - All rights reserved.
Disclaimer