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

PLASMA 2.4.6

- Main Page
- Modules
- Data Types List

All Data Structures Functions Groups
compute_s.h
1
17 /***************************************************************************/
20 #define plasma_sdesc_alloc( descA, mb, nb, lm, ln, i, j, m, n, free) \
21 descA = plasma_desc_init( \
22 PlasmaRealFloat, (mb), (nb), ((mb)*(nb)), \
23 (m), (n), (i), (j), (m), (n)); \
24 if ( plasma_desc_mat_alloc( &(descA) ) ) { \
25 plasma_error( __func__, "plasma_shared_alloc() failed"); \
26 {free;}; \
27 return PLASMA_ERR_OUT_OF_RESOURCES; \
28 }
29
30 #define plasma_sooplap2tile( descA, A, mb, nb, lm, ln, i, j, m, n, seq, req, free) \
31 descA = plasma_desc_init( \
32 PlasmaRealFloat, (mb), (nb), ((mb)*(nb)), \
33 (lm), (ln), (i), (j), (m), (n)); \
34 if ( plasma_desc_mat_alloc( &(descA) ) ) { \
35 plasma_error( __func__, "plasma_shared_alloc() failed"); \
36 {free;}; \
37 return PLASMA_ERR_OUT_OF_RESOURCES; \
38 } \
39 plasma_parallel_call_5( \
40 plasma_pslapack_to_tile, \
41 float*, (A), \
42 int, (lm), \
43 PLASMA_desc, (descA), \
44 PLASMA_sequence*, (seq), \
45 PLASMA_request*, (req));
46
47 #define plasma_siplap2tile( descA, A, mb, nb, lm, ln, i, j, m, n, seq, req) \
48 descA = plasma_desc_init( \
49 PlasmaRealFloat, (mb), (nb), ((mb)*(nb)), \
50 (lm), (ln), (i), (j), (m), (n)); \
51 descA.mat = A; \
52 PLASMA_sgecfi_Async((lm), (ln), (A), PlasmaCM, (mb), (nb), \
53 PlasmaCCRB, (mb), (nb), (seq), (req));
54
55
56 #define plasma_sooptile2lap( descA, A, mb, nb, lm, ln, seq, req) \
57 plasma_parallel_call_5(plasma_pstile_to_lapack, \
58 PLASMA_desc, (descA), \
59 float*, (A), \
60 int, (lm), \
61 PLASMA_sequence*, (seq), \
62 PLASMA_request*, (req));
63
64 #define plasma_siptile2lap( descA, A, mb, nb, lm, ln, seq, req) \
65 PLASMA_sgecfi_Async((lm), (ln), (A), PlasmaCCRB, (mb), (nb), \
66 PlasmaCM, (mb), (nb), (seq), (req));
67
68 /***************************************************************************/
71 void plasma_psgeadd (plasma_context_t *plasma);
72 void plasma_psgelqf (plasma_context_t *plasma);
73 void plasma_psgemm (plasma_context_t *plasma);
74 void plasma_psgeqrf (plasma_context_t *plasma);
75 void plasma_psgerbb (plasma_context_t *plasma);
76 void plasma_psgetmi2(plasma_context_t *plasma);
77 void plasma_psgetrf_incpiv(plasma_context_t *plasma);
78 #ifdef COMPLEX
79 void plasma_pssymm (plasma_context_t *plasma);
80 void plasma_pssyrk (plasma_context_t *plasma);
81 void plasma_pssyr2k (plasma_context_t *plasma);
82 #endif
83 void plasma_pslacpy (plasma_context_t *plasma);
84 void plasma_pslag2d (plasma_context_t *plasma);
85 void plasma_pslange (plasma_context_t *plasma);
86 #ifdef COMPLEX
87 void plasma_pslansy (plasma_context_t *plasma);
88 #endif
89 void plasma_pslansy (plasma_context_t *plasma);
90 void plasma_pspack (plasma_context_t *plasma);
91 void plasma_psplgsy (plasma_context_t *plasma);
92 void plasma_psplgsy (plasma_context_t *plasma);
93 void plasma_psplrnt (plasma_context_t *plasma);
94 void plasma_pspotrf (plasma_context_t *plasma);
95 void plasma_psshift (plasma_context_t *plasma);
96 void plasma_pssymm (plasma_context_t *plasma);
97 void plasma_pssyrk (plasma_context_t *plasma);
98 void plasma_pssyr2k (plasma_context_t *plasma);
99 void plasma_pstrmm (plasma_context_t *plasma);
100 void plasma_pstrsm (plasma_context_t *plasma);
101 void plasma_pstrsmpl(plasma_context_t *plasma);
102 void plasma_pstrsmrv(plasma_context_t *plasma);
103 void plasma_psorglq (plasma_context_t *plasma);
104 void plasma_psorgqr (plasma_context_t *plasma);
105 void plasma_psorgqrrh(plasma_context_t *plasma);
106 void plasma_psormlq (plasma_context_t *plasma);
107 void plasma_psormqr (plasma_context_t *plasma);
108 void plasma_psunpack(plasma_context_t *plasma);
109 void plasma_pssytrd_hb2st(plasma_context_t *plasma);
110 void plasma_psormqr_blgtrd(plasma_context_t *plasma);
111 void plasma_pslarft_blgtrd(plasma_context_t *plasma);
112
113 /***************************************************************************/
116 int plasma_sshift(plasma_context_t *plasma, int m, int n, float *A,
117 int nprob, int me, int ne, int L,
118 PLASMA_sequence *sequence, PLASMA_request *request);
119
120 /***************************************************************************/
123 void plasma_psgeadd_quark(float alpha, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
124 void plasma_psbarrier_tl2pnl_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
125 void plasma_psbarrier_pnl2tl_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
126 void plasma_psbarrier_tl2row_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
127 void plasma_psbarrier_row2tl_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
128 void plasma_psgebrd_tb2bd_quark(PLASMA_enum uplo, PLASMA_desc A, float *D, float *E, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
129 void plasma_psgebrd_ge2tb_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
130 void plasma_psgelqf_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
131 void plasma_psgelqfrh_quark(PLASMA_desc A, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
132 void plasma_psgemm_quark(PLASMA_enum transA, PLASMA_enum transB, float alpha, PLASMA_desc A, PLASMA_desc B, float beta, PLASMA_desc C, PLASMA_sequence *sequence, PLASMA_request *request);
133 void plasma_psgeqrf_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
134 void plasma_psgeqrfrh_quark(PLASMA_desc A, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
135 void plasma_psgerbh_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
136 void plasma_psgerbbrh_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
137 void plasma_psgetmi2_quark(PLASMA_enum idep, PLASMA_enum odep, PLASMA_enum storev, int m, int n, int mb, int nb, float *A, PLASMA_sequence *sequence, PLASMA_request *request);
138 void plasma_psgetrf_incpiv_quark(PLASMA_desc A, PLASMA_desc L, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
139 void plasma_psgetrf_reclap_quark(PLASMA_desc A, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
140 void plasma_psgetrf_rectil_quark(PLASMA_desc A, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
141 void plasma_pssbcpy_t2bl_quark(PLASMA_enum uplo, PLASMA_desc A, float *AB, int LDAB, PLASMA_sequence *sequence, PLASMA_request *request);
142 void plasma_pssygst_quark(PLASMA_enum itype, PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
143 #ifdef COMPLEX
144 void plasma_pssymm_quark(PLASMA_enum side, PLASMA_enum uplo, float alpha, PLASMA_desc A, PLASMA_desc B, float beta, PLASMA_desc C, PLASMA_sequence *sequence, PLASMA_request *request);
145 void plasma_pssyrk_quark(PLASMA_enum uplo, PLASMA_enum trans, float alpha, PLASMA_desc A, float beta, PLASMA_desc C, PLASMA_sequence *sequence, PLASMA_request *request);
146 void plasma_pssyr2k_quark(PLASMA_enum uplo, PLASMA_enum trans, float alpha, PLASMA_desc A, PLASMA_desc B, float beta, PLASMA_desc C, PLASMA_sequence *sequence, PLASMA_request *request);
147 #endif
148 void plasma_pssytrd_he2hb_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
149 void plasma_pslacpy_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
150 void plasma_pslag2d_quark(PLASMA_desc A, PLASMA_desc SB, PLASMA_sequence *sequence, PLASMA_request *request);
151 void plasma_pslange_quark(PLASMA_enum norm, PLASMA_desc A, float *work, float *result, PLASMA_sequence *sequence, PLASMA_request *request);
152 #ifdef COMPLEX
153 void plasma_pslansy_quark(PLASMA_enum norm, PLASMA_enum uplo, PLASMA_desc A, float *work, float *result, PLASMA_sequence *sequence, PLASMA_request *request);
154 #endif
155 void plasma_pslansy_quark(PLASMA_enum norm, PLASMA_enum uplo, PLASMA_desc A, float *work, float *result, PLASMA_sequence *sequence, PLASMA_request *request);
156 void plasma_pslaset_quark( PLASMA_enum uplo, float alpha, float beta, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
157 void plasma_pslaset2_quark(PLASMA_enum uplo, float alpha, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
158 void plasma_pslaswp_quark(PLASMA_desc B, int *IPIV, int inc, PLASMA_sequence *sequence, PLASMA_request *request);
159 void plasma_pslaswpc_quark(PLASMA_desc B, int *IPIV, int inc, PLASMA_sequence *sequence, PLASMA_request *request);
160 void plasma_pslauum_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
161 void plasma_psplgsy_quark(float bump, PLASMA_desc A, unsigned long long int seed, PLASMA_sequence *sequence, PLASMA_request *request);
162 void plasma_psplgsy_quark(float bump, PLASMA_desc A, unsigned long long int seed, PLASMA_sequence *sequence, PLASMA_request *request );
163 void plasma_psplrnt_quark(PLASMA_desc A, unsigned long long int seed, PLASMA_sequence *sequence, PLASMA_request *request );
164 void plasma_pspotrf_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
165 void plasma_psshift_quark(int, int, int, float *, int *, int, int, int, PLASMA_sequence*, PLASMA_request*);
166 void plasma_pssymm_quark(PLASMA_enum side, PLASMA_enum uplo, float alpha, PLASMA_desc A, PLASMA_desc B, float beta, PLASMA_desc C, PLASMA_sequence *sequence, PLASMA_request *request);
167 void plasma_pssyrk_quark(PLASMA_enum uplo, PLASMA_enum trans, float alpha, PLASMA_desc A, float beta, PLASMA_desc C, PLASMA_sequence *sequence, PLASMA_request *request);
168 void plasma_pssyr2k_quark(PLASMA_enum uplo, PLASMA_enum trans, float alpha, PLASMA_desc A, PLASMA_desc B, float beta, PLASMA_desc C, PLASMA_sequence *sequence, PLASMA_request *request);
169 void plasma_pstrmm_quark(PLASMA_enum side, PLASMA_enum uplo, PLASMA_enum transA, PLASMA_enum diag, float alpha, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
170 void plasma_pstrsm_quark(PLASMA_enum side, PLASMA_enum uplo, PLASMA_enum transA, PLASMA_enum diag, float alpha, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
171 void plasma_pstrsmpl_quark(PLASMA_desc A, PLASMA_desc B, PLASMA_desc L, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
172 void plasma_pstrsmrv_quark(PLASMA_enum side, PLASMA_enum uplo, PLASMA_enum transA, PLASMA_enum diag, float alpha, PLASMA_desc A, PLASMA_desc W, PLASMA_sequence *sequence, PLASMA_request *request);
173 void plasma_pstrtri_quark(PLASMA_enum uplo, PLASMA_enum diag, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
174 void plasma_psorgbr_quark(PLASMA_enum side, PLASMA_desc A, PLASMA_desc O, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
175 void plasma_psorgbrrh_quark(PLASMA_enum side, PLASMA_desc A, PLASMA_desc O, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
176 void plasma_psorgqr_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
177 void plasma_psorgqrrh_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
178 void plasma_psorglq_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
179 void plasma_psorglqrh_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
180 void plasma_psorgtr_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
181 void plasma_psormqr_quark(PLASMA_enum side, PLASMA_enum trans, PLASMA_desc A, PLASMA_desc B, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
182 void plasma_psormqrrh_quark(PLASMA_enum side, PLASMA_enum trans, PLASMA_desc A, PLASMA_desc B, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
183 void plasma_psormlq_quark(PLASMA_enum side, PLASMA_enum trans, PLASMA_desc A, PLASMA_desc B, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
184 void plasma_psormlqrh_quark(PLASMA_enum side, PLASMA_enum trans, PLASMA_desc A, PLASMA_desc B, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
185