Lapack documentation: Purpose ======= applies a plane rotation. =====================================================================
function drot extends Modelica.Icons.Function; input Real x[:]; input Real y[size(x, 1)]; input Real c; input Real s; input Integer incx = 1; input Integer incy = 1; output Real xr[size(x, 1)] = x; output Real yr[size(x, 1)] = y; end drot;