lapack_int LAPACKE_dbbcsd	(	int	matrix_layout,
		char	jobu1,
		char	jobu2,
		char	jobv1t,
		char	jobv2t,
		char	trans,
		lapack_int	m,
		lapack_int	p,
		lapack_int	q,
		double *	theta,
		double *	phi,
		double *	u1,
		lapack_int	ldu1,
		double *	u2,
		lapack_int	ldu2,
		double *	v1t,
		lapack_int	ldv1t,
		double *	v2t,
		lapack_int	ldv2t,
		double *	b11d,
		double *	b11e,
		double *	b12d,
		double *	b12e,
		double *	b21d,
		double *	b21e,
		double *	b22d,
		double *	b22e
	)

Definition at line 36 of file lapacke_dbbcsd.c.

{
    lapack_int info = 0;
    lapack_int lwork = -1;
    double* work = NULL;
    double work_query;
    lapack_int nrows_u1, nrows_u2, nrows_v1t, nrows_v2t;
    if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
        LAPACKE_xerbla( "LAPACKE_dbbcsd", -1 );
        return -1;
    }
#ifndef LAPACK_DISABLE_NAN_CHECK
    /* Optionally check input matrices for NaNs */
    nrows_u1 = ( LAPACKE_lsame( jobu1, 'y' ) ? p : 1);
    nrows_u2 = ( LAPACKE_lsame( jobu2, 'y' ) ? m-p : 1);
    nrows_v1t = ( LAPACKE_lsame( jobv1t, 'y' ) ? q : 1);
    nrows_v2t = ( LAPACKE_lsame( jobv2t, 'y' ) ? m-q : 1);
    if( LAPACKE_d_nancheck( q-1, phi, 1 ) ) {
        return -11;
    }
    if( LAPACKE_d_nancheck( q, theta, 1 ) ) {
        return -10;
    }
    if( LAPACKE_lsame( jobu1, 'y' ) ) {
        if( LAPACKE_dge_nancheck( matrix_layout, nrows_u1, p, u1, ldu1 ) ) {
            return -12;
        }
    }
    if( LAPACKE_lsame( jobu2, 'y' ) ) {
        if( LAPACKE_dge_nancheck( matrix_layout, nrows_u2, m-p, u2, ldu2 ) ) {
            return -14;
        }
    }
    if( LAPACKE_lsame( jobv1t, 'y' ) ) {
        if( LAPACKE_dge_nancheck( matrix_layout, nrows_v1t, q, v1t, ldv1t ) ) {
            return -16;
        }
    }
    if( LAPACKE_lsame( jobv2t, 'y' ) ) {
        if( LAPACKE_dge_nancheck( matrix_layout, nrows_v2t, m-q, v2t, ldv2t ) ) {
            return -18;
        }
    }
#endif
    /* Query optimal working array(s) size */
    info = LAPACKE_dbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t,
                                trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2,
                                v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e,
                                b21d, b21e, b22d, b22e, &work_query, lwork );
    if( info != 0 ) {
        goto exit_level_0;
    }
    lwork = (lapack_int)work_query;
    /* Allocate memory for work arrays */
    work = (double*)LAPACKE_malloc( sizeof(double) * lwork );
    if( work == NULL ) {
        info = LAPACK_WORK_MEMORY_ERROR;
        goto exit_level_0;
    }
    /* Call middle-level interface */
    info = LAPACKE_dbbcsd_work( matrix_layout, jobu1, jobu2, jobv1t, jobv2t,
                                trans, m, p, q, theta, phi, u1, ldu1, u2, ldu2,
                                v1t, ldv1t, v2t, ldv2t, b11d, b11e, b12d, b12e,
                                b21d, b21e, b22d, b22e, work, lwork );
    /* Release memory and exit */
    LAPACKE_free( work );
exit_level_0:
    if( info == LAPACK_WORK_MEMORY_ERROR ) {
        LAPACKE_xerbla( "LAPACKE_dbbcsd", info );
    }
    return info;
}

Here is the call graph for this function: