Nbody6
 All Files Functions Variables
rl.f
Go to the documentation of this file.
1  REAL*8 FUNCTION rl(Q)
2  REAL*8 q,p
3 *
4 * A function to evaluate R_L/a(q), Eggleton 1983.
5 *
6  p = q**(1.d0/3.d0)
7  rl = 0.49d0*p*p/(0.6d0*p*p + log(1.d0+p))
8 *
9  RETURN
10  END