lapacke_sgeqp3_work.c File Reference

#include "lapacke_utils.h"

Include dependency graph for lapacke_sgeqp3_work.c:

Go to the source code of this file.

Functions
lapack_int	LAPACKE_sgeqp3_work (int matrix_order, lapack_int m, lapack_int n, float *a, lapack_int lda, lapack_int *jpvt, float *tau, float *work, lapack_int lwork)

Function Documentation

lapack_int LAPACKE_sgeqp3_work	(	int	matrix_order,
		lapack_int	m,
		lapack_int	n,
		float *	a,
		lapack_int	lda,
		lapack_int *	jpvt,
		float *	tau,
		float *	work,
		lapack_int	lwork
	)

Definition at line 36 of file lapacke_sgeqp3_work.c.

{
    lapack_int info = 0;
    if( matrix_order == LAPACK_COL_MAJOR ) {
        /* Call LAPACK function and adjust info */
        LAPACK_sgeqp3( &m, &n, a, &lda, jpvt, tau, work, &lwork, &info );
        if( info < 0 ) {
            info = info - 1;
        }
    } else if( matrix_order == LAPACK_ROW_MAJOR ) {
        lapack_int lda_t = MAX(1,m);
        float* a_t = NULL;
        /* Check leading dimension(s) */
        if( lda < n ) {
            info = -5;
            LAPACKE_xerbla( "LAPACKE_sgeqp3_work", info );
            return info;
        }
        /* Query optimal working array(s) size if requested */
        if( lwork == -1 ) {
            LAPACK_sgeqp3( &m, &n, a, &lda_t, jpvt, tau, work, &lwork, &info );
            return (info < 0) ? (info - 1) : info;
        }
        /* Allocate memory for temporary array(s) */
        a_t = (float*)