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
compute_s.h
Go to the documentation of this file.
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, 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*, sequence, \
45  PLASMA_request*, &request);
46 
47 #define plasma_siplap2tile( descA, A, mb, nb, lm, ln, i, j, m, n) \
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), sequence, &request);
54 
55 
56 
57 #define plasma_sooptile2lap( descA, A, mb, nb, lm, ln) \
58  plasma_parallel_call_5(plasma_pstile_to_lapack, \
59  PLASMA_desc, (descA), \
60  float*, (A), \
61  int, (lm), \
62  PLASMA_sequence*, sequence, \
63  PLASMA_request*, &request);
64 
65 #define plasma_siptile2lap( descA, A, mb, nb, lm, ln) \
66  PLASMA_sgecfi_Async((lm), (ln), (A), PlasmaCCRB, (mb), (nb), \
67  PlasmaCM, (mb), (nb), sequence, &request);
68 
69 /***************************************************************************/
72 void plasma_psgeadd (plasma_context_t *plasma);
73 void plasma_psgelqf (plasma_context_t *plasma);
74 void plasma_psgemm (plasma_context_t *plasma);
75 void plasma_psgeqrf (plasma_context_t *plasma);
76 void plasma_psgerbb (plasma_context_t *plasma);
77 void plasma_psgetmi2(plasma_context_t *plasma);
78 void plasma_psgetrf_incpiv(plasma_context_t *plasma);
79 #ifdef COMPLEX
80 void plasma_pssymm (plasma_context_t *plasma);
81 void plasma_pssyrk (plasma_context_t *plasma);
82 void plasma_pssyr2k (plasma_context_t *plasma);
83 #endif
84 void plasma_pslacpy (plasma_context_t *plasma);
85 void plasma_pslag2d (plasma_context_t *plasma);
86 void plasma_pslange (plasma_context_t *plasma);
87 #ifdef COMPLEX
88 void plasma_pslansy (plasma_context_t *plasma);
89 #endif
90 void plasma_pslansy (plasma_context_t *plasma);
91 void plasma_pspack (plasma_context_t *plasma);
92 void plasma_psplgsy (plasma_context_t *plasma);
93 void plasma_psplgsy (plasma_context_t *plasma);
94 void plasma_psplrnt (plasma_context_t *plasma);
95 void plasma_pspotrf (plasma_context_t *plasma);
96 void plasma_psshift (plasma_context_t *plasma);
97 void plasma_pssymm (plasma_context_t *plasma);
98 void plasma_pssyrk (plasma_context_t *plasma);
99 void plasma_pssyr2k (plasma_context_t *plasma);
100 void plasma_pstrmm (plasma_context_t *plasma);
101 void plasma_pstrsm (plasma_context_t *plasma);
102 void plasma_pstrsmpl(plasma_context_t *plasma);
103 void plasma_pstrsmrv(plasma_context_t *plasma);
104 void plasma_psorglq (plasma_context_t *plasma);
105 void plasma_psorgqr (plasma_context_t *plasma);
106 void plasma_psorgqrrh(plasma_context_t *plasma);
107 void plasma_psormlq (plasma_context_t *plasma);
108 void plasma_psormqr (plasma_context_t *plasma);
109 void plasma_psunpack(plasma_context_t *plasma);
110 
111 /***************************************************************************/
114 int plasma_sshift(plasma_context_t *plasma, int m, int n, float *A,
115  int nprob, int me, int ne, int L,
116  PLASMA_sequence *sequence, PLASMA_request *request);
117 
118 /***************************************************************************/
121 void plasma_psgeadd_quark(float alpha, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
122 void plasma_psbarrier_tl2pnl_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
123 void plasma_psbarrier_pnl2tl_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
124 void plasma_psbarrier_tl2row_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
125 void plasma_psbarrier_row2tl_quark(PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
126 void plasma_psgelqf_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
127 void plasma_psgelqfrh_quark(PLASMA_desc A, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
128 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);
129 void plasma_psgeqrf_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
130 void plasma_psgeqrfrh_quark(PLASMA_desc A, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
131 void plasma_psgerbh_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
132 void plasma_psgerbb_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
133 void plasma_psgerbbrh_quark(PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
134 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);
135 void plasma_psgetrf_incpiv_quark(PLASMA_desc A, PLASMA_desc L, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
136 void plasma_psgetrf_reclap_quark(PLASMA_desc A, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
137 void plasma_psgetrf_rectil_quark(PLASMA_desc A, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
138 void plasma_pssygst_quark(PLASMA_enum itype, PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
139 #ifdef COMPLEX
140 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);
141 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);
142 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);
143 #endif
144 void plasma_pssyrbt_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
145 void plasma_psgbrdb_quark(PLASMA_enum uplo, PLASMA_desc A, float *D, float *E, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
146 void plasma_pssbrdt_quark(PLASMA_enum uplo, PLASMA_desc A, float *D, float *E, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
147 void plasma_pslacpy_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc B, PLASMA_sequence *sequence, PLASMA_request *request);
148 void plasma_pslag2d_quark(PLASMA_desc A, PLASMA_desc SB, PLASMA_sequence *sequence, PLASMA_request *request);
149 void plasma_pslange_quark(PLASMA_enum norm, PLASMA_desc A, float *work, float *result, PLASMA_sequence *sequence, PLASMA_request *request);
150 #ifdef COMPLEX
151 void plasma_pslansy_quark(PLASMA_enum norm, PLASMA_enum uplo, PLASMA_desc A, float *work, float *result, PLASMA_sequence *sequence, PLASMA_request *request);
152 #endif
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 void plasma_pslaset_quark( PLASMA_enum uplo, float alpha, float beta, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
155 void plasma_pslaset2_quark(PLASMA_enum uplo, float alpha, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
156 void plasma_pslaswp_quark(PLASMA_desc B, int *IPIV, int inc, PLASMA_sequence *sequence, PLASMA_request *request);
157 void plasma_pslaswpc_quark(PLASMA_desc B, int *IPIV, int inc, PLASMA_sequence *sequence, PLASMA_request *request);
158 void plasma_pslauum_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
159 void plasma_psplgsy_quark(float bump, PLASMA_desc A, unsigned long long int seed, PLASMA_sequence *sequence, PLASMA_request *request);
160 void plasma_psplgsy_quark(float bump, PLASMA_desc A, unsigned long long int seed, PLASMA_sequence *sequence, PLASMA_request *request );
161 void plasma_psplrnt_quark(PLASMA_desc A, unsigned long long int seed, PLASMA_sequence *sequence, PLASMA_request *request );
162 void plasma_pspotrf_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
163 void plasma_psshift_quark(int, int, int, float *, int *, int, int, PLASMA_sequence*, PLASMA_request*);
164 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);
165 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);
166 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);
167 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);
168 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);
169 void plasma_pstrsmpl_quark(PLASMA_desc A, PLASMA_desc B, PLASMA_desc L, int *IPIV, PLASMA_sequence *sequence, PLASMA_request *request);
170 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);
171 void plasma_pstrtri_quark(PLASMA_enum uplo, PLASMA_enum diag, PLASMA_desc A, PLASMA_sequence *sequence, PLASMA_request *request);
172 void plasma_psorgbr_quark(PLASMA_enum side, PLASMA_desc A, PLASMA_desc O, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
173 void plasma_psorgbrrh_quark(PLASMA_enum side, PLASMA_desc A, PLASMA_desc O, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
174 void plasma_psorgqr_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
175 void plasma_psorgqrrh_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
176 void plasma_psorglq_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
177 void plasma_psorglqrh_quark(PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, int BS, PLASMA_sequence *sequence, PLASMA_request *request);
178 void plasma_psorgtr_quark(PLASMA_enum uplo, PLASMA_desc A, PLASMA_desc Q, PLASMA_desc T, PLASMA_sequence *sequence, PLASMA_request *request);
179 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);
180 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);
181 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);
182 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);