function wrapper_zgetrf input Real A_real[:, :] "Square or rectangular matrix"; input Real A_imag[size(A_real, 1), size(A_real, 2)] "Square or rectangular matrix"; output Real LU_real[size(A_real, 1), size(A_real, 2)] = A_real "LU factorization in packed format, real part"; output Real LU_imag[size(A_real, 1), size(A_real, 2)] = A_imag "LU factorization in packed format, imaginary part"; output Integer pivots[min(size(A_real, 1), size(A_real, 2))] "Pivot vector"; output Integer info; end wrapper_zgetrf;