Source position: cblas.pas line 418
procedure cblas_srotg(
var a: Float32;
var b: Float32;
var c: Float32;
var s: Float32
);