rl.f

Go to the documentation of this file.

      REAL*8 FUNCTION rl(Q)
      REAL*8 q,p
*
* A function to evaluate R_L/a(q), Eggleton 1983.
*
      p = q**(1.d0/3.d0)
      rl = 0.49d0*p*p/(0.6d0*p*p + log(1.d0+p))
*
      RETURN
      END