function [lev_out_dB, gain_out_dB] = cmp_gain(R, lev_knee_dB, lev_in_dB)
	k = lev_in_dB > lev_knee_dB;
	lev_out_dB = (1-k).*lev_in_dB + k.*(lev_knee_dB + R*(lev_in_dB - lev_knee_dB));
	gain_out_dB = - (lev_in_dB - lev_out_dB);
endfunction