lapacke_zge_trans.c File Reference

#include "lapacke_utils.h"

Go to the source code of this file.

Functions
void	LAPACKE_zge_trans (int matrix_layout, lapack_int m, lapack_int n, const lapack_complex_double *in, lapack_int ldin, lapack_complex_double *out, lapack_int ldout)

Function Documentation

LAPACKE_zge_trans()

void LAPACKE_zge_trans	(	int	matrix_layout,
		lapack_int	m,
		lapack_int	n,
		const lapack_complex_double *	in,
		lapack_int	ldin,
		lapack_complex_double *	out,
		lapack_int	ldout )

Definition at line 39 of file lapacke_zge_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 ];
        }
    }
}