Sources Esope | Cast3M

fau_m1
C FAU_M1    SOURCE    BECC      10/05/05    21:15:00     6674
      function fau_m1(M,coef)
C
      real*8 fau_m1, M, coef
C
C     coef = 1.0D0 for m1_plus
C     coef = -1.0D0 for m1_minus
C
      fau_m1 = M + (coef * abs(M))
      fau_m1 = fau_m1 * 0.5D0
C
      return
      end