Source position: dpmspecialfunctions.pas line 170
procedure kelvin_kerkei(
x: Double;
var kr: Double;
var ki: Double
);