& smoothAbsFuncRange,
_RL smoothAbsFuncRange
& inAdExact, smoothAbsFuncRange,
smoothAbsFuncRange = 0. _d 0
if ( smoothAbsFuncRange .lt. 0.0 ) then
if ( smoothAbsFuncRange .ne. 0.0 ) then
sf = 10.0/smoothAbsFuncRange
if ( x .gt. smoothAbsFuncRange ) then
else if ( x .lt. -smoothAbsFuncRange ) then
sf = 10.0D0/smoothAbsFuncRange
if ( x .ge. smoothAbsFuncRange ) then
else if ( x .le. -smoothAbsFuncRange ) then