1
2
3
4
5
6
7
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#ifndef SCALAPACK_H_
#define SCALAPACK_H_
#ifdef __cplusplus
extern "C" {
#endif
int numroc_(const int*, const int*, const int*, const int*, const int*);
void descinit_(int*, const int*, const int*, const int*, const int*, const int*, const int*, const int*, const int*, int*);
/* Level 1 */
// Single
void psaxpy_(const int*, const float*,
const float*, const int*, const int*, const int*, const int*,
const float*, const int*, const int*, const int*, const int*
);
// Double
void pdaxpy_(const int*, const double*,
const double*, const int*, const int*, const int*, const int*,
const double*, const int*, const int*, const int*, const int*
);
/* Level 2 */
// Single
void psgemv_(const char*, const int*, const int*,
const float*, const float*, const int*, const int*, const int*,
const float*, const int*, const int*, const int*, const int*,
const float*, float*, const int*, const int*, const int*, const int*
);
// Double
void pdgemv_(const char*, const int*, const int*,
const double*, const double*, const int*, const int*, const int*,
const double*, const int*, const int*, const int*, const int*,
const double*, double*, const int*, const int*, const int*, const int*
);
/*************
* Scalapack *
*************/
// lu_decomp
void psgetrf_(const int*, const int*, float*, const int*, const int*, const int*, int*, int*);
void pdgetrf_(const int*, const int*, double*, const int*, const int*, const int*, int*, int*);
// cholesky
void pspotrf_(const char*, const int*, float*, const int*, const int*, const int*, int*);
void pdpotrf_(const char*, const int*, double*, const int*, const int*, const int*, int*);
// qr_decomp
void psgeqpf_(const int*, const int*, float*, const int*, const int*, const int*, int*, float*, float*, const int*, int*);
void pdgeqpf_(const int*, const int*, double*, const int*, const int*, const int*, int*, double*, double*, const int*, int*);
// svd_decomp
void psgesvd_(const char*, const char*, const int*, const int*, float*, const int*, const int*, const int*, float*, float*, const int*, const int*, const int*, float*, const int*, const int*, const int*, float*, const int*, int*);
void pdgesvd_(const char*, const char*, const int*, const int*, double*, const int*, const int*, const int*, double*, double*, const int*, const int*, const int*, double*, const int*, const int*, const int*, double*, const int*, int*);
// symm_ev
void pssyevd_(const char*, const char*, const int*, float*, const int*, const int*, const int*, float*, float*, const int*, const int*, const int*, float*, const int*, int*, const int*, int*);
void pdsyevd_(const char*, const char*, const int*, double*, const int*, const int*, const int*, double*, double*, const int*, const int*, const int*, double*, const int*, int*, const int*, int*);
#ifdef __cplusplus
}
#endif
#endif /* SCALAPACK_H_ */
|
GitWeb
