PLASMA  2.4.5
PLASMA - Parallel Linear Algebra for Scalable Multi-core Architectures
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
plasma_mf77.c
Go to the documentation of this file.
1 
14 #include <stdlib.h>
15 #include "common.h"
16 
17 #define PLASMA_ZCGESV PLASMA_FNAME(zcgesv, ZCGESV)
18 #define PLASMA_DSGESV PLASMA_FNAME(dsgesv, DSGESV)
19 #define PLASMA_ZCPOSV PLASMA_FNAME(zcposv, ZCPOSV)
20 #define PLASMA_DSPOSV PLASMA_FNAME(dsposv, DSPOSV)
21 #define PLASMA_ZCGELS PLASMA_FNAME(zcgels, ZCGELS)
22 #define PLASMA_DSGELS PLASMA_FNAME(dsgels, DSGELS)
23 #define PLASMA_ZCUNGESV PLASMA_FNAME(zcungesv, ZCUNGESV)
24 #define PLASMA_DSUNGESV PLASMA_FNAME(dsungesv, DSUNGESV)
25 
26 #define PLASMA_ZCGESV_TILE PLASMA_TILE_FNAME(zcgesv, ZCGESV)
27 #define PLASMA_DSGESV_TILE PLASMA_TILE_FNAME(dsgesv, DSGESV)
28 #define PLASMA_ZCPOSV_TILE PLASMA_TILE_FNAME(zcposv, ZCPOSV)
29 #define PLASMA_DSPOSV_TILE PLASMA_TILE_FNAME(dsposv, DSPOSV)
30 #define PLASMA_ZCGELS_TILE PLASMA_TILE_FNAME(zcgels, ZCGELS)
31 #define PLASMA_DSGELS_TILE PLASMA_TILE_FNAME(dsgels, DSGELS)
32 #define PLASMA_ZCUNGESV_TILE PLASMA_TILE_FNAME(zcungesv, ZCUNGESV)
33 #define PLASMA_DSUNGESV_TILE PLASMA_TILE_FNAME(dsungesv, DSUNGESV)
34 
35 #ifdef __cplusplus
36 extern "C" {
37 #endif
38 
39 /***************************************************************************/
42 void PLASMA_ZCGESV(int *N, int *NRHS, PLASMA_Complex64_t *A, int *LDA, int *IPIV, PLASMA_Complex64_t *B, int *LDB, PLASMA_Complex64_t *X, int *LDX, int *ITER, int *INFO)
43 { *INFO = PLASMA_zcgesv(*N, *NRHS, A, *LDA, IPIV, B, *LDB, X, *LDX, ITER); }
44 
45 void PLASMA_DSGESV(int *N, int *NRHS, double *A, int *LDA, int *IPIV, double *B, int *LDB, double *X, int *LDX, int *ITER, int *INFO)
46 { *INFO = PLASMA_dsgesv(*N, *NRHS, A, *LDA, IPIV, B, *LDB, X, *LDX, ITER); }
47 
48 void PLASMA_ZCPOSV(PLASMA_enum *uplo, 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)
49 { *INFO = PLASMA_zcposv(*uplo, *N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); }
50 
51 void PLASMA_DSPOSV(PLASMA_enum *uplo, int *N, int *NRHS, double *A, int *LDA, double *B, int *LDB, double *X, int *LDX, int *ITER, int *INFO)
52 { *INFO = PLASMA_dsposv(*uplo, *N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); }
53 
54 /* void PLASMA_ZCGELS(PLASMA_enum *trans, int *M, int *N, int *NRHS, PLASMA_Complex64_t *A, int *LDA, PLASMA_Complex64_t **T, PLASMA_Complex64_t *B, int *LDB, PLASMA_Complex64_t *X, int *LDX, int *ITER, int *INFO) */
55 /* { *INFO = PLASMA_zcgels(*trans, *M, *N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); } */
56 
57 /* void PLASMA_DSGELS(PLASMA_enum *trans, int *M, int *N, int *NRHS, double *A, int *LDA, double *B, int *LDB, double *X, int *LDX, int *ITER, int *INFO) */
58 /* { *INFO = PLASMA_dsgels(*trans, *M, *N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); } */
59 
60 void PLASMA_ZCUNGESV(PLASMA_enum *trans, 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)
61 { *INFO = PLASMA_zcungesv(*trans, *N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); }
62 
63 void PLASMA_DSUNGESV(PLASMA_enum *trans, int *N, int *NRHS, double *A, int *LDA, double *B, int *LDB, double *X, int *LDX, int *ITER, int *INFO)
64 { *INFO = PLASMA_dsungesv(*trans, *N, *NRHS, A, *LDA, B, *LDB, X, *LDX, ITER); }
65 
66 #ifdef __cplusplus
67 }
68 #endif
69 
70 /***************************************************************************/
73 void PLASMA_ZCGESV_TILE(intptr_t *A, int *IPIV, intptr_t *B, intptr_t *X, int *ITER, int *INFO)
74 { *INFO = PLASMA_zcgesv_Tile((PLASMA_desc *)(*A), IPIV, (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }
75 
76 void PLASMA_DSGESV_TILE(intptr_t *A, int *IPIV, intptr_t *B, intptr_t *X, int *ITER, int *INFO)
77 { *INFO = PLASMA_zcgesv_Tile((PLASMA_desc *)(*A), IPIV, (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }
78 
79 void PLASMA_ZCPOSV_TILE(PLASMA_enum *uplo, intptr_t *A, intptr_t *B, intptr_t *X, int *ITER, int *INFO)
80 { *INFO = PLASMA_zcposv_Tile(*uplo, (PLASMA_desc *)(*A), (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }
81 
82 void PLASMA_DSPOSV_TILE(PLASMA_enum *uplo, intptr_t *A, intptr_t *B, intptr_t *X, int *ITER, int *INFO)
83 { *INFO = PLASMA_dsposv_Tile(*uplo, (PLASMA_desc *)(*A), (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }
84 
85 /* void PLASMA_ZCGELS_TILE(PLASMA_enum *trans, intptr_t *A, intptr_t *B, intptr_t *T, intptr_t *X, int *ITER, int *INFO) */
86 /* { *INFO = PLASMA_zcgels_Tile(*trans, (PLASMA_desc *)(*A), (PLASMA_desc *)(*B), (PLASMA_desc *)(*T), (PLASMA_desc *)(*X), ITER); } */
87 
88 /* void PLASMA_DSGELS_TILE(PLASMA_enum *trans, intptr_t *A, intptr_t *B, intptr_t *T, intptr_t *X, int *ITER, int *INFO) */
89 /* { *INFO = PLASMA_dsgels_Tile(*trans, (PLASMA_desc *)(*A), (PLASMA_desc *)(*B), (PLASMA_desc *)(*T), (PLASMA_desc *)(*X), ITER); } */
90 
91 void PLASMA_ZCUNGESV_TILE(PLASMA_enum *trans, intptr_t *A, intptr_t *T, intptr_t *B, intptr_t *X, int *ITER, int *INFO)
92 { *INFO = PLASMA_zcungesv_Tile(*trans, (PLASMA_desc *)(*A), (PLASMA_desc *)(*T), (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }
93 
94 void PLASMA_DSUNGESV_TILE(PLASMA_enum *trans, intptr_t *A, intptr_t *T, intptr_t *B, intptr_t *X, int *ITER, int *INFO)
95 { *INFO = PLASMA_dsungesv_Tile(*trans, (PLASMA_desc *)(*A), (PLASMA_desc *)(*T), (PLASMA_desc *)(*B), (PLASMA_desc *)(*X), ITER); }