Newer
Older
/**
*
PRUVOST Florent
committed
* @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved.
PRUVOST Florent
committed
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
*
**/
/**
*
* @file runtime_z.h
*
* MORSE auxiliary routines
* MORSE is a software package provided by Univ. of Tennessee,
* Univ. of California Berkeley and Univ. of Colorado Denver
*
* @version 2.5.0
* @comment This file has been automatically generated
* from Plasma 2.5.0 for MORSE 1.0.0
* @author Jakub Kurzak
* @author Hatem Ltaief
* @author Azzam Haidar
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @precisions normal z -> c d s
*
**/
#ifndef _RUNTIME_ZBLAS_H_
#define _RUNTIME_ZBLAS_H_
#define COMPLEX
#ifdef __cplusplus
extern "C" {
#endif
/** ****************************************************************************
* Declarations of QUARK wrappers (called by MORSE) - alphabetical order
**/
Mathieu Faverge
committed
void MORSE_TASK_dzasum(MORSE_option_t *options,
MORSE_enum storev, MORSE_enum uplo, int M, int N,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn);
void MORSE_TASK_zgeadd(MORSE_option_t *options,
MORSE_enum trans, int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, MORSE_desc_t *B, int Bm, int Bn, int ldb);
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
void MORSE_TASK_zbrdalg(MORSE_option_t *options,
MORSE_enum uplo,
int N, int NB,
MORSE_desc_t *A,
MORSE_desc_t *C, int Cm, int Cn,
MORSE_desc_t *S, int Sm, int Sn,
int i, int j, int m, int grsiz, int BAND,
int *PCOL, int *ACOL, int *MCOL);
void MORSE_TASK_zgelqt(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_zgemm(MORSE_option_t *options,
MORSE_enum transA, MORSE_enum transB,
int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zgemm2( MORSE_option_t *options,
MORSE_enum transA, MORSE_enum transB,
int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zgemm_f2(MORSE_option_t *options,
MORSE_enum transA, MORSE_enum transB,
int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc,
MORSE_desc_t *fake1, int fake1m, int fake1n, int szefake1, int flag1,
MORSE_desc_t *fake2, int fake2m, int fake2n, int szefake2, int flag2);
void MORSE_TASK_zgemm_p2(MORSE_option_t *options,
MORSE_enum transA, MORSE_enum transB,
int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_Complex64_t **B, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zgemm_p2f1(MORSE_option_t *options,
MORSE_enum transA, MORSE_enum transB,
int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
const MORSE_Complex64_t **B, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc,
MORSE_desc_t *fake1, int fake1m, int fake1n, int szefake1, int flag1);
void MORSE_TASK_zgemm_p3(MORSE_option_t *options,
MORSE_enum transA, MORSE_enum transB,
int m, int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_Complex64_t **C, int ldc);
void MORSE_TASK_zgeqrt(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_zgessm(MORSE_option_t *options,
int m, int n, int k, int ib, int nb,
int *IPIV,
MORSE_desc_t *L, int Lm, int Ln, int ldl,
MORSE_desc_t *D, int Dm, int Dn, int ldd,
MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_zgessq( MORSE_option_t *options,
int m, int n,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn);
void MORSE_TASK_zgetrf(MORSE_option_t *options,
int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
int *IPIV,
MORSE_bool check_info, int iinfo);
void MORSE_TASK_zgetrf_incpiv(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV,
MORSE_bool check_info, int iinfo);
Mathieu Faverge
committed
void MORSE_TASK_zgetrf_nopiv(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda, int iinfo);
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
void MORSE_TASK_zgetrf_reclap(MORSE_option_t *options,
int m, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
int *IPIV,
MORSE_bool check_info, int iinfo,
int nbthread);
void MORSE_TASK_zgetrf_rectil(MORSE_option_t *options,
MORSE_desc_t A, MORSE_desc_t *Amn, int Amnm, int Amnn, int size,
int *IPIV,
MORSE_bool check_info, int iinfo,
int nbthread);
void MORSE_TASK_zgetrip(MORSE_option_t *options,
int m, int n, MORSE_desc_t *A, int Am, int An, int szeA);
void MORSE_TASK_zgetrip_f1(MORSE_option_t *options,
int m, int n, MORSE_desc_t *A, int Am, int An, int szeA,
MORSE_desc_t *fake, int fakem, int faken, int szeF, int paramF);
void MORSE_TASK_zgetrip_f2(MORSE_option_t *options,
int m, int n, MORSE_desc_t *A, int Am, int An, int szeA,
MORSE_desc_t *fake1, int fake1m, int fake1n, int szeF1, int paramF1,
MORSE_desc_t *fake2, int fake2m, int fake2n, int szeF2, int paramF2);
void MORSE_TASK_zhemm(MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zhegst(MORSE_option_t *options,
int itype, MORSE_enum uplo, int N,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn, int LDB,
int iinfo);
void MORSE_TASK_zherk(MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
double alpha, MORSE_desc_t *A, int Am, int An, int lda,
double beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zher2k(MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int LDB,
double beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zherfb(MORSE_option_t *options,
MORSE_enum uplo,
int n, int k, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt,
MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zlacpy(MORSE_option_t *options,
MORSE_enum uplo, int m, int n, int mb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb);
void MORSE_TASK_zlange(MORSE_option_t *options,
MORSE_enum norm, int M, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn);
void MORSE_TASK_zlange_max(MORSE_option_t *options,
MORSE_desc_t *A, int Am, int An,
MORSE_desc_t *B, int Bm, int Bn);
#ifdef COMPLEX
void MORSE_TASK_zhessq( MORSE_option_t *options,
MORSE_enum uplo, int n,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn );
void MORSE_TASK_zlanhe(MORSE_option_t *options,
MORSE_enum norm, MORSE_enum uplo, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn);
#endif
void MORSE_TASK_zlansy(MORSE_option_t *options,
MORSE_enum norm, MORSE_enum uplo, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn);
void MORSE_TASK_zlantr(MORSE_option_t *options,
MORSE_enum norm, MORSE_enum uplo, MORSE_enum diag,
int M, int N, int NB,
MORSE_desc_t *A, int Am, int An, int LDA,
MORSE_desc_t *B, int Bm, int Bn);
void MORSE_TASK_zlaset(MORSE_option_t *options,
MORSE_enum uplo, int n1, int n2, MORSE_Complex64_t alpha,
MORSE_Complex64_t beta, MORSE_desc_t *tileA, int tileAm, int tileAn, int ldtilea);
void MORSE_TASK_zlaset2(MORSE_option_t *options,
MORSE_enum uplo, int n1, int n2, MORSE_Complex64_t alpha,
MORSE_desc_t *tileA, int tileAm, int tileAn, int ldtilea);
void MORSE_TASK_zlaswp(MORSE_option_t *options,
int n, MORSE_desc_t *A, int Am, int An, int lda,
int i1, int i2, int *ipiv, int inc);
void MORSE_TASK_zlaswp_f2(MORSE_option_t *options,
int n, MORSE_desc_t *A, int Am, int An, int lda,
int i1, int i2, int *ipiv, int inc,
MORSE_desc_t *fake1, int fake1m, int fake1n, int szefake1, int flag1,
MORSE_desc_t *fake2, int fake2m, int fake2n, int szefake2, int flag2);
void MORSE_TASK_zlaswp_ontile(MORSE_option_t *options,
MORSE_desc_t descA, MORSE_desc_t *A, int Am, int An,
int i1, int i2, int *ipiv, int inc, MORSE_Complex64_t *fakepanel);
void MORSE_TASK_zlaswp_ontile_f2(MORSE_option_t *options,
MORSE_desc_t descA, MORSE_desc_t *A, int Am, int An,
int i1, int i2, int *ipiv, int inc,
MORSE_desc_t *fake1, int fake1m, int fake1n, int szefake1, int flag1,
MORSE_desc_t *fake2, int fake2m, int fake2n, int szefake2, int flag2);
void MORSE_TASK_zlaswpc_ontile(MORSE_option_t *options,
MORSE_desc_t descA, MORSE_desc_t *A, int Am, int An,
int i1, int i2, int *ipiv, int inc, MORSE_Complex64_t *fakepanel);
void MORSE_TASK_zlatro(MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans, int m, int n, int mb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb);
void MORSE_TASK_zlauum(MORSE_option_t *options,
MORSE_enum uplo, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda);
void MORSE_TASK_zplghe(MORSE_option_t *options,
double bump, int m, int n, MORSE_desc_t *A, int Am, int An, int lda,
int bigM, int m0, int n0, unsigned long long int seed );
void MORSE_TASK_zplgsy(MORSE_option_t *options,
MORSE_Complex64_t bump, int m, int n, MORSE_desc_t *A, int Am, int An, int lda,
int bigM, int m0, int n0, unsigned long long int seed );
void MORSE_TASK_zplrnt(MORSE_option_t *options,
int m, int n, MORSE_desc_t *A, int Am, int An, int lda,
int bigM, int m0, int n0, unsigned long long int seed );
void MORSE_TASK_zpotrf(MORSE_option_t *options,
MORSE_enum uplo, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
int iinfo);
void MORSE_TASK_zshift( MORSE_option_t *options,
int s, int m, int n, int L,
MORSE_Complex64_t *A);
void MORSE_TASK_zshiftw(MORSE_option_t *options,
int s, int cl, int m, int n, int L,
MORSE_desc_t *A, int Am, int An, MORSE_Complex64_t *W);
void MORSE_TASK_zssssm(MORSE_option_t *options,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *L1, int L1m, int L1n, int ldl1,
MORSE_desc_t *L2, int L2m, int L2n, int ldl2,
const int *IPIV);
void MORSE_TASK_zsymm(MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zsyrk(MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zsyr2k(MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans,
int n, int k, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int LDB,
MORSE_Complex64_t beta, MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zsyssq( MORSE_option_t *options,
MORSE_enum uplo, int n,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn );
Mathieu Faverge
committed
void MORSE_TASK_zsytrf_nopiv(MORSE_option_t *options,
MORSE_enum uplo, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
int iinfo);
void MORSE_TASK_zswpab(MORSE_option_t *options,
int i, int n1, int n2,
MORSE_desc_t *A, int Am, int An, int szeA);
void MORSE_TASK_zswptr_ontile(MORSE_option_t *options,
MORSE_desc_t descA, MORSE_desc_t *Aij, int Aijm, int Aijn,
int i1, int i2, int *ipiv, int inc,
MORSE_desc_t *Akk, int Akkm, int Akkn, int ldak);
void MORSE_TASK_ztrdalg(MORSE_option_t *options,
MORSE_enum uplo,
int N, int NB,
MORSE_desc_t *A,
MORSE_desc_t *C, int Cm, int Cn,
MORSE_desc_t *S, int Sm, int Sn,
int i, int j, int m, int grsiz, int BAND,
int *PCOL, int *ACOL, int *MCOL);
void MORSE_TASK_ztradd(MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum trans, int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t beta, MORSE_desc_t *B, int Bm, int Bn, int ldb);
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
void MORSE_TASK_ztrasm(MORSE_option_t *options,
MORSE_enum storev, MORSE_enum uplo, MORSE_enum diag, int M, int N,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn);
void MORSE_TASK_ztrmm(MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo, MORSE_enum transA, MORSE_enum diag,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb);
void MORSE_TASK_ztrmm_p2(MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo, MORSE_enum transA, MORSE_enum diag,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_Complex64_t **B, int ldb);
void MORSE_TASK_ztrsm(MORSE_option_t *options,
MORSE_enum side, MORSE_enum uplo, MORSE_enum transA, MORSE_enum diag,
int m, int n, int nb,
MORSE_Complex64_t alpha, MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *B, int Bm, int Bn, int ldb);
void MORSE_TASK_ztrssq( MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum diag,
int m, int n,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn );
void MORSE_TASK_ztrtri(MORSE_option_t *options,
MORSE_enum uplo, MORSE_enum diag, int n, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
int iinfo);
void MORSE_TASK_ztslqt(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztsmlq(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztsmlq_hetra1(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztsmlq_corner(MORSE_option_t *options,
int m1, int n1, int m2, int n2, int m3, int n3, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *A3, int A3m, int A3n, int lda3,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztsmqr(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztsmqr_hetra1(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztsmqr_corner(MORSE_option_t *options,
int m1, int n1, int m2, int n2, int m3, int n3, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *A3, int A3m, int A3n, int lda3,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztsqrt(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_ztstrf(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *U, int Um, int Un, int ldu,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *L, int Lm, int Ln, int ldl,
int *IPIV,
MORSE_bool check_info, int iinfo);
void MORSE_TASK_zttmqr(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_zttqrt(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_zttmlq(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m1, int n1, int m2, int n2, int k, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_zttlqt(MORSE_option_t *options,
int m, int n, int ib, int nb,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *T, int Tm, int Tn, int ldt);
void MORSE_TASK_zpamm(MORSE_option_t *options,
int op, MORSE_enum side, MORSE_enum storev,
int m, int n, int k, int l,
MORSE_desc_t *A1, int A1m, int A1n, int lda1,
MORSE_desc_t *A2, int A2m, int A2n, int lda2,
MORSE_desc_t *V, int Vm, int Vn, int ldv,
MORSE_desc_t *W, int Wm, int Wn, int ldw);
void MORSE_TASK_zplssq( MORSE_option_t *options,
MORSE_desc_t *SCALESUMSQ, int SCALESUMSQm, int SCALESUMSQn,
MORSE_desc_t *SCLSSQ, int SCLSSQm, int SCLSSQn );
void MORSE_TASK_zplssq2( MORSE_option_t *options,
MORSE_desc_t *RESULT, int RESULTm, int RESULTn );
void MORSE_TASK_zunmlq(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m, int n, int ib, int nb, int k,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt,
MORSE_desc_t *C, int Cm, int Cn, int ldc);
void MORSE_TASK_zunmqr(MORSE_option_t *options,
MORSE_enum side, MORSE_enum trans,
int m, int n, int k, int ib, int nb,
MORSE_desc_t *A, int Am, int An, int lda,
MORSE_desc_t *T, int Tm, int Tn, int ldt,
MORSE_desc_t *C, int Cm, int Cn, int ldc);
#ifdef __cplusplus
}
#endif
#undef COMPLEX
#endif