.Modelica_LinearSystems2.WorkInProgress.Math.LAPACK.wrapper_zungqr

Interface

function wrapper_zungqr
  input Real QR_real[:, :] "Square or rectangular matrix";
  input Real QR_imag[size(QR_real, 1), size(QR_real, 2)] "Square or rectangular matrix";
  input Real tau_real[min(size(QR_real, 1), size(QR_real, 2))] "The scalar factors of the elementary reflectors of Q, real part";
  input Real tau_imag[min(size(QR_real, 1), size(QR_real, 2))] "The scalar factors of the elementary reflectors of Q, imaginary part";
  output Real Q_real[size(QR_real, 1), size(QR_real, 2)] = QR_real;
  output Real Q_imag[size(QR_real, 1), size(QR_real, 2)] = QR_imag;
  output Integer info;
end wrapper_zungqr;