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
sgecfi2.h
Go to the documentation of this file.
1 
21 #ifndef SGECFI2_H
22 #define SGECFI2_H
23 
24 #define ipt_call( name, m1, n1, mb, nb ) \
25  ipt_s##name(plasma, (m1), (n1), (A+A11), (mb), (nb), sequence, request); \
26  ipt_s##name(plasma, (m1), (n-(n1)), (A+A12), (mb), (n-(n1)), sequence, request); \
27  ipt_s##name(plasma, (m-(m1)), (n1), (A+A21), (m-(m1)), (nb), sequence, request); \
28  ipt_s##name(plasma, (m-(m1)), (n-(n1)), (A+A22), (m-(m1)), (n-(n1)), sequence, request);
29 
30 #define ipt_cal2( name, m1, n1, mb, nb ) \
31  ipt_s##name(plasma, PlasmaIPT_NoDep, PlasmaIPT_NoDep, (m1), (n1), (A+A11), (mb), (nb), sequence, request); \
32  ipt_s##name(plasma, PlasmaIPT_NoDep, PlasmaIPT_NoDep, (m1), (n-(n1)), (A+A12), (mb), (n-(n1)), sequence, request); \
33  ipt_s##name(plasma, PlasmaIPT_NoDep, PlasmaIPT_NoDep, (m-(m1)), (n1), (A+A21), (m-(m1)), (nb), sequence, request); \
34  ipt_s##name(plasma, PlasmaIPT_NoDep, PlasmaIPT_NoDep, (m-(m1)), (n-(n1)), (A+A22), (m-(m1)), (n-(n1)), sequence, request);
35 
36 /* one transformation */
37 #define ipt_srm2rrrb( plasma, m, n, A, mb, nb, seq, req) ipt_scm2ccrb( (plasma), (n), (m), (A), (nb), (mb), (seq), (req));
38 #define ipt_srrrb2rm( plasma, m, n, A, mb, nb, seq, req) ipt_sccrb2cm( (plasma), (n), (m), (A), (nb), (mb), (seq), (req));
39 int ipt_scm2ccrb (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
40 int ipt_sccrb2cm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
41 
42 int ipt_sccrb2crrb(plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
43 int ipt_scrrb2ccrb(plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
44 int ipt_srcrb2rrrb(plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
45 int ipt_srrrb2rcrb(plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
46 
47 #define ipt_scrrb2rrrb(plasma, m, n, A, mb, nb, seq, req) ipt_sccrb2rcrb((plasma), (m), (n), (A), (mb), (nb), (seq), (req));
48 #define ipt_srcrb2ccrb(plasma, m, n, A, mb, nb, seq, req) ipt_sccrb2rcrb((plasma), (n), (m), (A), (nb), (mb), (seq), (req));
49 #define ipt_srrrb2crrb(plasma, m, n, A, mb, nb, seq, req) ipt_sccrb2rcrb((plasma), (n), (m), (A), (nb), (mb), (seq), (req));
50 int ipt_sccrb2rcrb(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
51 
52 /* 2 transformations */
53 #define ipt_srm2crrb( plasma, m, n, A, mb, nb, seq, req) ipt_scm2rcrb( (plasma), (n), (m), (A), (nb), (mb), (seq), (req));
54 #define ipt_scrrb2rm( plasma, m, n, A, mb, nb, seq, req) ipt_srcrb2cm( (plasma), (n), (m), (A), (nb), (mb), (seq), (req));
55 int ipt_scm2rcrb (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
56 int ipt_srcrb2cm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
57 
58 int ipt_sccrb2rrrb(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
59 int ipt_srrrb2ccrb(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
60 int ipt_scrrb2rcrb(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
61 int ipt_srcrb2crrb(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
62 
63 int ipt_scm2crrb (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
64 int ipt_scrrb2cm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
65 int ipt_srcrb2rm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
66 int ipt_srm2rcrb (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
67 
68 /* 3 transformations */
69 int ipt_scm2rrrb (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
70 int ipt_srrrb2cm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
71 int ipt_sccrb2rm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
72 int ipt_srm2ccrb (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
73 
74 /* 4 transformations */
75 int ipt_scm2rm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
76 int ipt_srm2cm (plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
77 
78 
79 int ipt_spanel2all(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
80 int ipt_sall2panel(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
81 int ipt_spanel2tile(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
82 int ipt_stile2panel(plasma_context_t *plasma, int m, int n, float *A, int mb, int nb, PLASMA_sequence *seq, PLASMA_request *req);
83 #endif /* SGECFI2_H */