_RL xsq
xsq = max(sqrt(abs(exf_one - 16.*huol)),exf_one)
x = sqrt(xsq)
& (exf_one + xsq)/8.) - exf_two*atan(x) +
xsq = max(sqrt(abs(exf_one - 16.*htol)),exf_one)
& exf_two*log((exf_one + xsq)/exf_two)
xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
& 2. _d 0*log(5. _d -1*(1. _d 0+xsq)) -
& (2. _d 0*log(5. _d -1*(1. _d 0+xsq)))
_RL xsq ! = x^2 [-]
xsq = SQRT( ABS(one - huol*16. _d 0) )
x = SQRT(xsq)
& ( LOG( (one + two*x + xsq)*(one+xsq)*.125 )
xsq = SQRT( ABS(one - htol*16. _d 0) )
& + (one-stable)*( two*LOG(half*(one+xsq)) )