morse_f77.c

/**
 *
 * @copyright (c) 2009-2014 The University of Tennessee and The University
 *                          of Tennessee Research Foundation.
 *                          All rights reserved.
 * @copyright (c) 2012-2014 Inria. All rights reserved.
 * @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
 *
 **/

/**
 *
 * @file morse_f77.c
 *
 *  MORSE auxiliary routines
 *  MORSE is a software package provided by Univ. of Tennessee,
 *  Univ. of California Berkeley and Univ. of Colorado Denver
 *
 * @version 0.9.0
 * @author Bilel Hadri
 * @author Cedric Castagnede
 * @date 2010-11-15
 *
 **/
#include <stdlib.h>
#include "control/common.h"
#include "morse.h"

#ifdef ADD_
    #define MORSE_INIT             morse_init_
    #define MORSE_FINALIZE         morse_finalize_
    #define MORSE_ENABLE           morse_enable_
    #define MORSE_DISABLE          morse_disable_
    #define MORSE_SET              morse_set_
    #define MORSE_GET              morse_get_
    #define MORSE_DEALLOC_HANDLE   morse_dealloc_handle_
    #define MORSE_VERSION          morse_version_
    #define MORSE_DESC_CREATE      morse_desc_create_
    #define MORSE_DESC_DESTROY     morse_desc_destroy_
    #define MORSE_LAPACK_TO_TILE   morse_lapack_to_tile_
    #define MORSE_TILE_TO_LAPACK   morse_tile_to_lapack_
#elif defined (NOCHANGE)
    #define MORSE_INIT             morse_init
    #define MORSE_FINALIZE         morse_finalize
    #define MORSE_ENABLE           morse_enable
    #define MORSE_DISABLE          morse_disable
    #define MORSE_SET              morse_set
    #define MORSE_GET              morse_get
    #define MORSE_DEALLOC_HANDLE   morse_dealloc_handle
    #define MORSE_VERSION          morse_version
    #define MORSE_DESC_CREATE      morse_desc_create
    #define MORSE_DESC_DESTROY     morse_desc_destroy
 #define MORSE_LAPACK_TO_TILE   morse_lapack_to_tile
 #define MORSE_TILE_TO_LAPACK   morse_tile_to_lapack
#endif

#ifdef __cplusplus
extern "C" {
#endif

/*******************************************************************************
 *  FORTRAN API - auxiliary function prototypes
 **/
void MORSE_INIT(int *CORES, int *NGPUS, int *INFO)
{   *INFO = MORSE_Init(*CORES, *NGPUS); }

void MORSE_FINALIZE(int *INFO)
{   *INFO = MORSE_Finalize(); }

void MORSE_ENABLE(MORSE_enum *lever, int *INFO)
{   *INFO = MORSE_Enable(*lever); }

void MORSE_DISABLE(MORSE_enum *lever, int *INFO)
{   *INFO = MORSE_Disable(*lever); }

void MORSE_SET(MORSE_enum *param, int *value, int *INFO)
{   *INFO = MORSE_Set(*param, *value); }

void MORSE_GET(MORSE_enum *param, int *value, int *INFO)
{   *INFO = MORSE_Get(*param, value); }

void MORSE_DEALLOC_HANDLE(size_t *sp, int *INFO)
{   free((void *)(*sp));
    *INFO = MORSE_SUCCESS; }

void MORSE_VERSION(int *VER_MAJOR, int *VER_MINOR, int *VER_MICRO, int *INFO)
{
    *VER_MAJOR = CHAMELEON_VERSION_MAJOR;
    *VER_MINOR = CHAMELEON_VERSION_MINOR;
    *VER_MICRO = CHAMELEON_VERSION_MICRO;
    *INFO = MORSE_SUCCESS;
}

/***************************************************************************//**
 *  FORTRAN API - descriptor allocation and deallocation
 **/
  void MORSE_DESC_CREATE(MORSE_desc_t **desc, void *mat, MORSE_enum *dtyp, int *mb, int *nb, int *bsiz, int *lm, int *ln, int *i, int *j, int *m, int *n, int *p, int *q, int *INFO)
{   *INFO = MORSE_Desc_Create(desc, mat, *dtyp, *mb, *nb, *bsiz, *lm, *ln, *i, *j, *m, *n, *p, *q); }

void MORSE_DESC_DESTROY(MORSE_desc_t **desc, int *INFO)
{   *INFO = MORSE_Desc_Destroy(desc); }

/***************************************************************************//**
 *  FORTRAN API - conversion from LAPACK F77 matrix layout to tile layout
 **/
void MORSE_LAPACK_TO_TILE(intptr_t *Af77, int *LDA, intptr_t *A, int *INFO)
{   *INFO = MORSE_Lapack_to_Tile( (void *)Af77, *LDA, (MORSE_desc_t *)(*A)); }

void MORSE_TILE_TO_LAPACK(intptr_t *A, intptr_t *Af77, int *LDA, int *INFO)
{   *INFO = MORSE_Tile_to_Lapack((MORSE_desc_t *)(*A), (void *)Af77, *LDA); }

#ifdef __cplusplus
}
#endif