LAPACKE_cge_trans()

void LAPACKE_cge_trans	(	int	matrix_layout,
		lapack_int	m,
		lapack_int	n,
		const lapack_complex_float *	in,
		lapack_int	ldin,
		lapack_complex_float *	out,
		lapack_int	ldout
	)

Definition at line 39 of file lapacke_cge_trans.c.

{
    lapack_int i, j, x, y;
 
    if( in == NULL || out == NULL ) return;
 
    if( matrix_layout == LAPACK_COL_MAJOR ) {
        x = n;
        y = m;
    } else if ( matrix_layout == LAPACK_ROW_MAJOR ) {
        x = m;
        y = n;
    } else {
        /* Unknown input layout */
        return;
    }
 
    /* In case of incorrect m, n, ldin or ldout the function does nothing */
    for( i = 0; i < MIN( y, ldin ); i++ ) {
        for( j = 0; j < MIN( x, ldout ); j++ ) {
            out[ (size_t)i*ldout + j ] = in[ (size_t)j*ldin + i ];
        }
    }
}