& smoothAbsFuncRange,
_RL 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
ELSEIF ( x .LT. -smoothAbsFuncRange ) THEN
sf = 10.0D0/smoothAbsFuncRange
IF ( x .GE. smoothAbsFuncRange ) THEN
ELSEIF ( x .LE. -smoothAbsFuncRange ) THEN