lapacke_sorcsd_work.c File Reference

#include "lapacke_utils.h"

Go to the source code of this file.

Functions

lapack_int

LAPACKE_sorcsd_work (int matrix_layout, char jobu1, char jobu2, char jobv1t, char jobv2t, 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 *u1, lapack_int ldu1, float *u2, lapack_int ldu2, float *v1t, lapack_int ldv1t, float *v2t, lapack_int ldv2t, float *work, lapack_int lwork, lapack_int *iwork)

Function Documentation

LAPACKE_sorcsd_work()

lapack_int LAPACKE_sorcsd_work	(	int	matrix_layout,
		char	jobu1,
		char	jobu2,
		char	jobv1t,
		char	jobv2t,
		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 *	u1,
		lapack_int	ldu1,
		float *	u2,
		lapack_int	ldu2,
		float *	v1t,
		lapack_int	ldv1t,
		float *	v2t,
		lapack_int	ldv2t,
		float *	work,
		lapack_int	lwork,
		lapack_int *	iwork )

Definition at line 35 of file lapacke_sorcsd_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_sorcsd( &jobu1, &jobu2, &jobv1t, &jobv2t, &ltrans, &signs, &m,
                       &p, &q, x11, &ldx11, x12, &ldx12, x21, &ldx21, x22,
                       &ldx22, theta, u1, &ldu1, u2, &ldu2, v1t, &ldv1t, v2t,
                       &ldv2t, work, &lwork, iwork, &info );
        if( info < 0 ) {
            info = info - 1;
        }
    } else {
        info = -1;
        LAPACKE_xerbla( "LAPACKE_sorcsd_work", info );
    }
    return info;
}