01: /* ///////////////////////////// P /// L /// A /// S /// M /// A /////////////////////////////// */
02: /* ///                    PLASMA auxiliary routines (version 2.1.0)                          ///
03:  * ///                    Author: Bilel Hadri                                                ///
04:  * ///                    Release Date: November, 15th 2009                                  ///
05:  * ///                    PLASMA is a software package provided by Univ. of Tennessee,       ///
06:  * ///                    Univ. of California Berkeley and Univ. of Colorado Denver          /// */
07: /* ///////////////////////////////////////////////////////////////////////////////////////////// */
08: #include "common.h"
09: 
10: #ifdef ADD_
11:     #define PLASMA_ZCGESV           plasma_zcgesv_
12:     #define PLASMA_DSGESV           plasma_dsgesv_
13: 
14:     #define PLASMA_ZCGESV_TILE       plasma_zcgesv_tile_
15:     #define PLASMA_DSGESV_TILE       plasma_dsgesv_tile_
16: #elif defined (NOCHANGE)
17:     #define PLASMA_ZCGESV           plasma_zcgesv
18:     #define PLASMA_DSGESV           plasma_dsgesv
19: 
20:     #define PLASMA_ZCGESV_TILE       plasma_zcgesv_tile
21:     #define PLASMA_DSGESV_TILE       plasma_dsgesv_tile
22: #endif
23: 
24: #ifdef __cplusplus
25: extern "C" {
26: #endif
27: 
28: /* ///////////////////////////////////////////////////////////////////////////////////////////// */
29: //  FORTRAN API - math functions
30: void PLASMA_ZCGESV(int *N, int *NRHS, PLASMA_Complex64_t *A, int *LDA, PLASMA_Complex64_t *B, int *LDB, PLASMA_Complex64_t *X, int *LDX, int *ITER, int *INFO)
31: {   *INFO = PLASMA_zcgesv(*N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); }
32: 
33: void PLASMA_DSGESV(int *N, int *NRHS, double *A, int *LDA, double *B, int *LDB, double *X, int *LDX, int *ITER, int *INFO)
34: {   *INFO = PLASMA_dsgesv(*N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); }
35: 
36: #ifdef __cplusplus
37: }
38: #endif
39: 
40: /* ///////////////////////////////////////////////////////////////////////////////////////////// */
41: //  Math functions - native interface
42: 
43: void PLASMA_ZCGESV_TILE(long long int *A, long long int *L, int **IPIVH, long long int *B, long long *X, int *ITER, int *INFO)
44: {   *INFO = PLASMA_zcgesv_Tile((PLASMA_desc *)(*A), (PLASMA_desc *)(*L), *IPIVH, (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }
45: 
46: void PLASMA_DSGESV_TILE(long long int *A, long long int *L, int **IPIVH, long long int *B, long long *X, int *ITER, int *INFO)
47: {   *INFO = PLASMA_zcgesv_Tile((PLASMA_desc *)(*A), (PLASMA_desc *)(*L), *IPIVH, (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }
48: