https://github.com/florentrenaud/nbody6tt
Tip revision: 8a4716382ead3ece116c48a4ae5c65f8c9534437 authored by Florent on 29 January 2015, 12:19:28 UTC
Nbody6 - 29 January 2015 (added GPU2/Build/.gitkeep)
Nbody6 - 29 January 2015 (added GPU2/Build/.gitkeep)
Tip revision: 8a47163
rl.f
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
