Calculate the optimal size of the WORK array in dgeqp3
function dgeqp3_workdim import Modelica_LinearSystems2.Math.Matrices.LAPACK; input Real A[:, :]; output Integer lwork; output Integer info; end dgeqp3_workdim;