LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Classes Files Functions Variables Typedefs Macros
lapacke_zge_trans.c File Reference
#include "lapacke_utils.h"
Include dependency graph for lapacke_zge_trans.c:

Go to the source code of this file.

Functions/Subroutines

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

Function/Subroutine Documentation

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

Definition at line 40 of file lapacke_zge_trans.c.

{
lapack_int i, j, x, y;
if( in == NULL || out == NULL ) return;
if( matrix_order == LAPACK_COL_MAJOR ) {
x = n;
y = m;
} else if ( matrix_order == 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 ];
}
}
}