lapacke_sge_trans.c File Reference

#include "lapacke_utils.h"

Go to the source code of this file.

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

Function Documentation

LAPACKE_sge_trans()

void LAPACKE_sge_trans	(	int	matrix_layout,
		lapack_int	m,
		lapack_int	n,
		const float *	in,
		lapack_int	ldin,
		float *	out,
		lapack_int	ldout )

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