lapacke_sorbdb_work.c File Reference

#include "lapacke_utils.h"

Go to the source code of this file.

Functions
lapack_int	LAPACKE_sorbdb_work (int matrix_layout, char trans, char signs, lapack_int m, lapack_int p, lapack_int q, float *x11, lapack_int ldx11, float *x12, lapack_int ldx12, float *x21, lapack_int ldx21, float *x22, lapack_int ldx22, float *theta, float *phi, float *taup1, float *taup2, float *tauq1, float *tauq2, float *work, lapack_int lwork)

Function Documentation

LAPACKE_sorbdb_work()

lapack_int LAPACKE_sorbdb_work	(	int	matrix_layout,
		char	trans,
		char	signs,
		lapack_int	m,
		lapack_int	p,
		lapack_int	q,
		float *	x11,
		lapack_int	ldx11,
		float *	x12,
		lapack_int	ldx12,
		float *	x21,
		lapack_int	ldx21,
		float *	x22,
		lapack_int	ldx22,
		float *	theta,
		float *	phi,
		float *	taup1,
		float *	taup2,
		float *	tauq1,
		float *	tauq2,
		float *	work,
		lapack_int	lwork )

Definition at line 35 of file lapacke_sorbdb_work.c.

{
    lapack_int info = 0;
    /* LAPACK function works with matrices in both layouts. It is supported
     * through TRANS parameter. So all conversion between layouts can be
     * completed in LAPACK function. See the table below which describes how
     * every LAPACKE call is forwarded to corresponding LAPACK call.
     *
     *   matrix_layout    | trans_LAPACKE | -> trans_LAPACK
     *                    |   (trans)     |       (ltrans)
     *   -----------------+---------------+----------------
     *   LAPACK_COL_MAJOR |     'N'       | ->     'N'
     *   LAPACK_COL_MAJOR |     'T'       | ->     'T'
     *   LAPACK_ROW_MAJOR |     'N'       | ->     'T'
     *   LAPACK_ROW_MAJOR |     'T'       | ->     'T'
     *       (note that for row major layout trans parameter is ignored)
     */
    if( matrix_layout == LAPACK_COL_MAJOR ||
        matrix_layout == LAPACK_ROW_MAJOR ) {
        char ltrans;
        if( !LAPACKE_lsame( trans, 't' ) && matrix_layout == LAPACK_COL_MAJOR ) {
            ltrans = 'n';
        } else {
            ltrans = 't';
        }
        /* Call LAPACK function and adjust info */
        LAPACK_sorbdb( &ltrans, &signs, &m, &p, &q, x11, &ldx11, x12, &ldx12,
                       x21, &ldx21, x22, &ldx22, theta, phi, taup1, taup2,
                       tauq1, tauq2, work, &lwork, &info );
        if( info < 0 ) {
            info = info - 1;
        }
    } else {
        info = -1;
        LAPACKE_xerbla( "LAPACKE_sorbdb_work", info );
    }
    return info;
}