PLASMA: /home/mathieu/svn/plasma/trunk/tools/plasma_2.5.0/control/tile.h Source File

PLASMA 2.4.6

- Main Page
- Modules
- Data Types List

All Data Structures Functions Groups
tile.h
1
14 #ifndef _PLASMA_TILE_H_
15 #define _PLASMA_TILE_H_
16
17 #if defined( _WIN32 ) || defined( _WIN64 )
18 typedef __int64 int64_t;
19 #else
20 #include <inttypes.h>
21 #endif
22
23 #define ELTADDR(A, type, m, n) (type *)plasma_geteltaddr(A, m, n)
24 #define ELTLDD(A, k) ( ( (((k)-1)/(A).mb) + (A).i/(A).mb) < (A).lm1 ? (A).mb : (A).lm%(A).mb )
25 #define BLKADDR(A, type, m, n) (type *)plasma_getaddr(A, m, n)
26 #define BLKLDD(A, k) ( ( (k) + (A).i/(A).mb) < (A).lm1 ? (A).mb : (A).lm%(A).mb )
27
28 #ifdef __cplusplus
29 extern "C" {
30 #endif
31
32 /***************************************************************************/
35 void plasma_pztile_to_lapack(plasma_context_t *plasma);
36 void plasma_pctile_to_lapack(plasma_context_t *plasma);
37 void plasma_pdtile_to_lapack(plasma_context_t *plasma);
38 void plasma_pstile_to_lapack(plasma_context_t *plasma);
39 void plasma_pzlapack_to_tile(plasma_context_t *plasma);
40 void plasma_pclapack_to_tile(plasma_context_t *plasma);
41 void plasma_pdlapack_to_tile(plasma_context_t *plasma);
42 void plasma_pslapack_to_tile(plasma_context_t *plasma);
43 void plasma_pztile_zero(plasma_context_t *plasma);
44 void plasma_pctile_zero(plasma_context_t *plasma);
45 void plasma_pdtile_zero(plasma_context_t *plasma);
46 void plasma_pstile_zero(plasma_context_t *plasma);
47
48 /***************************************************************************/
51 void plasma_pztile_to_lapack_quark(PLASMA_desc, PLASMA_Complex64_t*, int, PLASMA_sequence *sequence, PLASMA_request *request);
52 void plasma_pctile_to_lapack_quark(PLASMA_desc, PLASMA_Complex32_t*, int, PLASMA_sequence *sequence, PLASMA_request *request);
53 void plasma_pdtile_to_lapack_quark(PLASMA_desc, double*, int, PLASMA_sequence *sequence, PLASMA_request *request);
54 void plasma_pstile_to_lapack_quark(PLASMA_desc, float*, int, PLASMA_sequence *sequence, PLASMA_request *request);
55 void plasma_pzlapack_to_tile_quark(PLASMA_Complex64_t*, int, PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
56 void plasma_pclapack_to_tile_quark(PLASMA_Complex32_t*, int, PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
57 void plasma_pdlapack_to_tile_quark(double*, int, PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
58 void plasma_pslapack_to_tile_quark(float*, int, PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
59 void plasma_pztile_zero_quark(PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
60 void plasma_pctile_zero_quark(PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
61 void plasma_pdtile_zero_quark(PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
62 void plasma_pstile_zero_quark(PLASMA_desc, PLASMA_sequence *sequence, PLASMA_request *request);
63
64 #ifdef __cplusplus
65 }
66 #endif
67
68 #endif