tile.c

Go to the documentation of this file.

 
#include "control/common.h"
#include "control/auxiliary.h"
 
int
CHAMELEON_Lapack_to_Tile( void *A, int LDA, CHAM_desc_t *descA )
{
    return CHAMELEON_Lap2Desc( ChamUpperLower, A, LDA, descA );
}
 
int
CHAMELEON_Tile_to_Lapack( CHAM_desc_t *descA, void *A, int LDA )
{
    return CHAMELEON_Desc2Lap( ChamUpperLower, descA, A, LDA );
}
 
int CHAMELEON_Lap2Desc( cham_uplo_t uplo, void *A, int LDA, CHAM_desc_t *descA )
{
    switch( descA->dtyp ) {
#if defined(PRECISION_z)
    case ChamComplexDouble:
        return CHAMELEON_zLap2Desc( uplo, (CHAMELEON_Complex64_t *)A, LDA, descA );
        break;
#endif
#if defined(PRECISION_c)
    case ChamComplexFloat:
        return CHAMELEON_cLap2Desc( uplo, (CHAMELEON_Complex32_t *)A, LDA, descA );
        break;
#endif
#if defined(PRECISION_s)
    case ChamRealFloat:
        return CHAMELEON_sLap2Desc( uplo, (float *)A, LDA, descA );
        break;
#endif
#if defined(PRECISION_d)
    case ChamRealDouble:
        return CHAMELEON_dLap2Desc( uplo, (double *)A, LDA, descA );
        break;
#endif
    default:
        return CHAMELEON_ERR_ILLEGAL_VALUE;
    }
}
 
int CHAMELEON_Desc2Lap( cham_uplo_t uplo, CHAM_desc_t *descA, void *A, int LDA )
{
    switch( descA->dtyp ) {
#if defined(PRECISION_z)
    case ChamComplexDouble:
        return CHAMELEON_zDesc2Lap( uplo, descA, (CHAMELEON_Complex64_t *)A, LDA );
        break;
#endif
#if defined(PRECISION_c)
    case ChamComplexFloat:
        return CHAMELEON_cDesc2Lap( uplo, descA, (CHAMELEON_Complex32_t *)A, LDA );
        break;
#endif
#if defined(PRECISION_s)
    case ChamRealFloat:
        return CHAMELEON_sDesc2Lap( uplo, descA, (float *)A, LDA );
        break;
#endif
#if defined(PRECISION_d)
    case ChamRealDouble:
        return CHAMELEON_dDesc2Lap( uplo, descA, (double *)A, LDA );
        break;
#endif
    default:
        return CHAMELEON_ERR_ILLEGAL_VALUE;
    }
}