Skip to content

Commit bbd9d98

Browse files
martin-frbgmartin-frbg
authored
Merge pull request #2094 from martin-frbg/issue2066
Fix ReLAPACK integration problems
2 parents 6b41eb9 + 798c448 commit bbd9d98

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

75 files changed

+2074
-2043
lines changed

‎relapack/inc/relapack.h

Lines changed: 64 additions & 52 deletions
Original file line numberDiff line numberDiff line change
@@ -1,67 +1,79 @@
11
#ifndef RELAPACK_H
22
#define RELAPACK_H
33

4-
void RELAPACK_slauum(const char *, const int *, float *, const int *, int *);
5-
void RELAPACK_dlauum(const char *, const int *, double *, const int *, int *);
6-
void RELAPACK_clauum(const char *, const int *, float *, const int *, int *);
7-
void RELAPACK_zlauum(const char *, const int *, double *, const int *, int *);
4+
#ifdef USE64BITINT
5+
typedef BLASLONG blasint;
6+
#if defined(OS_WINDOWS) && defined(__64BIT__)
7+
#define blasabs(x) llabs(x)
8+
#else
9+
#define blasabs(x) labs(x)
10+
#endif
11+
#else
12+
typedef int blasint;
13+
#define blasabs(x) abs(x)
14+
#endif
815

9-
void RELAPACK_strtri(const char *, const char *, const int *, float *, const int *, int *);
10-
void RELAPACK_dtrtri(const char *, const char *, const int *, double *, const int *, int *);
11-
void RELAPACK_ctrtri(const char *, const char *, const int *, float *, const int *, int *);
12-
void RELAPACK_ztrtri(const char *, const char *, const int *, double *, const int *, int *);
16+
void RELAPACK_slauum(const char *, const blasint *, float *, const blasint *, blasint *);
17+
void RELAPACK_dlauum(const char *, const blasint *, double *, const blasint *, blasint *);
18+
void RELAPACK_clauum(const char *, const blasint *, float *, const blasint *, blasint *);
19+
void RELAPACK_zlauum(const char *, const blasint *, double *, const blasint *, blasint *);
1320

14-
void RELAPACK_spotrf(const char *, const int *, float *, const int *, int *);
15-
void RELAPACK_dpotrf(const char *, const int *, double *, const int *, int *);
16-
void RELAPACK_cpotrf(const char *, const int *, float *, const int *, int *);
17-
void RELAPACK_zpotrf(const char *, const int *, double *, const int *, int *);
21+
void RELAPACK_strtri(const char *, const char *, const blasint *, float *, const blasint *, blasint *);
22+
void RELAPACK_dtrtri(const char *, const char *, const blasint *, double *, const blasint *, blasint *);
23+
void RELAPACK_ctrtri(const char *, const char *, const blasint *, float *, const blasint *, blasint *);
24+
void RELAPACK_ztrtri(const char *, const char *, const blasint *, double *, const blasint *, blasint *);
1825

19-
void RELAPACK_spbtrf(const char *, const int *, const int *, float *, const int *, int *);
20-
void RELAPACK_dpbtrf(const char *, const int *, const int *, double *, const int *, int *);
21-
void RELAPACK_cpbtrf(const char *, const int *, const int *, float *, const int *, int *);
22-
void RELAPACK_zpbtrf(const char *, const int *, const int *, double *, const int *, int *);
26+
void RELAPACK_spotrf(const char *, const blasint *, float *, const blasint *, blasint *);
27+
void RELAPACK_dpotrf(const char *, const blasint *, double *, const blasint *, blasint *);
28+
void RELAPACK_cpotrf(const char *, const blasint *, float *, const blasint *, blasint *);
29+
void RELAPACK_zpotrf(const char *, const blasint *, double *, const blasint *, blasint *);
2330

24-
void RELAPACK_ssytrf(const char *, const int *, float *, const int *, int *, float *, const int *, int *);
25-
void RELAPACK_dsytrf(const char *, const int *, double *, const int *, int *, double *, const int *, int *);
26-
void RELAPACK_csytrf(const char *, const int *, float *, const int *, int *, float *, const int *, int *);
27-
void RELAPACK_chetrf(const char *, const int *, float *, const int *, int *, float *, const int *, int *);
28-
void RELAPACK_zsytrf(const char *, const int *, double *, const int *, int *, double *, const int *, int *);
29-
void RELAPACK_zhetrf(const char *, const int *, double *, const int *, int *, double *, const int *, int *);
30-
void RELAPACK_ssytrf_rook(const char *, const int *, float *, const int *, int *, float *, const int *, int *);
31-
void RELAPACK_dsytrf_rook(const char *, const int *, double *, const int *, int *, double *, const int *, int *);
32-
void RELAPACK_csytrf_rook(const char *, const int *, float *, const int *, int *, float *, const int *, int *);
33-
void RELAPACK_chetrf_rook(const char *, const int *, float *, const int *, int *, float *, const int *, int *);
34-
void RELAPACK_zsytrf_rook(const char *, const int *, double *, const int *, int *, double *, const int *, int *);
35-
void RELAPACK_zhetrf_rook(const char *, const int *, double *, const int *, int *, double *, const int *, int *);
31+
void RELAPACK_spbtrf(const char *, const blasint *, const blasint *, float *, const blasint *, blasint *);
32+
void RELAPACK_dpbtrf(const char *, const blasint *, const blasint *, double *, const blasint *, blasint *);
33+
void RELAPACK_cpbtrf(const char *, const blasint *, const blasint *, float *, const blasint *, blasint *);
34+
void RELAPACK_zpbtrf(const char *, const blasint *, const blasint *, double *, const blasint *, blasint *);
3635

37-
void RELAPACK_sgetrf(const int *, const int *, float *, const int *, int *, int *);
38-
void RELAPACK_dgetrf(const int *, const int *, double *, const int *, int *, int *);
39-
void RELAPACK_cgetrf(const int *, const int *, float *, const int *, int *, int *);
40-
void RELAPACK_zgetrf(const int *, const int *, double *, const int *, int *, int *);
36+
void RELAPACK_ssytrf(const char *, const blasint *, float *, const blasint *, blasint *, float *, const blasint *, blasint *);
37+
void RELAPACK_dsytrf(const char *, const blasint *, double *, const blasint *, blasint *, double *, const blasint *, blasint *);
38+
void RELAPACK_csytrf(const char *, const blasint *, float *, const blasint *, blasint *, float *, const blasint *, blasint *);
39+
void RELAPACK_chetrf(const char *, const blasint *, float *, const blasint *, blasint *, float *, const blasint *, blasint *);
40+
void RELAPACK_zsytrf(const char *, const blasint *, double *, const blasint *, blasint *, double *, const blasint *, blasint *);
41+
void RELAPACK_zhetrf(const char *, const blasint *, double *, const blasint *, blasint *, double *, const blasint *, blasint *);
42+
void RELAPACK_ssytrf_rook(const char *, const blasint *, float *, const blasint *, blasint *, float *, const blasint *, blasint *);
43+
void RELAPACK_dsytrf_rook(const char *, const blasint *, double *, const blasint *, blasint *, double *, const blasint *, blasint *);
44+
void RELAPACK_csytrf_rook(const char *, const blasint *, float *, const blasint *, blasint *, float *, const blasint *, blasint *);
45+
void RELAPACK_chetrf_rook(const char *, const blasint *, float *, const blasint *, blasint *, float *, const blasint *, blasint *);
46+
void RELAPACK_zsytrf_rook(const char *, const blasint *, double *, const blasint *, blasint *, double *, const blasint *, blasint *);
47+
void RELAPACK_zhetrf_rook(const char *, const blasint *, double *, const blasint *, blasint *, double *, const blasint *, blasint *);
4148

42-
void RELAPACK_sgbtrf(const int *, const int *, const int *, const int *, float *, const int *, int *, int *);
43-
void RELAPACK_dgbtrf(const int *, const int *, const int *, const int *, double *, const int *, int *, int *);
44-
void RELAPACK_cgbtrf(const int *, const int *, const int *, const int *, float *, const int *, int *, int *);
45-
void RELAPACK_zgbtrf(const int *, const int *, const int *, const int *, double *, const int *, int *, int *);
49+
void RELAPACK_sgetrf(const blasint *, const blasint *, float *, const blasint *, blasint *, blasint *);
50+
void RELAPACK_dgetrf(const blasint *, const blasint *, double *, const blasint *, blasint *, blasint *);
51+
void RELAPACK_cgetrf(const blasint *, const blasint *, float *, const blasint *, blasint *, blasint *);
52+
void RELAPACK_zgetrf(const blasint *, const blasint *, double *, const blasint *, blasint *, blasint *);
4653

47-
void RELAPACK_ssygst(const int *, const char *, const int *, float *, const int *, const float *, const int *, int *);
48-
void RELAPACK_dsygst(const int *, const char *, const int *, double *, const int *, const double *, const int *, int *);
49-
void RELAPACK_chegst(const int *, const char *, const int *, float *, const int *, const float *, const int *, int *);
50-
void RELAPACK_zhegst(const int *, const char *, const int *, double *, const int *, const double *, const int *, int *);
54+
void RELAPACK_sgbtrf(const blasint *, const blasint *, const blasint *, const blasint *, float *, const blasint *, blasint *, blasint *);
55+
void RELAPACK_dgbtrf(const blasint *, const blasint *, const blasint *, const blasint *, double *, const blasint *, blasint *, blasint *);
56+
void RELAPACK_cgbtrf(const blasint *, const blasint *, const blasint *, const blasint *, float *, const blasint *, blasint *, blasint *);
57+
void RELAPACK_zgbtrf(const blasint *, const blasint *, const blasint *, const blasint *, double *, const blasint *, blasint *, blasint *);
5158

52-
void RELAPACK_strsyl(const char *, const char *, const int *, const int *, const int *, const float *, const int *, const float *, const int *, float *, const int *, float *, int *);
53-
void RELAPACK_dtrsyl(const char *, const char *, const int *, const int *, const int *, const double *, const int *, const double *, const int *, double *, const int *, double *, int *);
54-
void RELAPACK_ctrsyl(const char *, const char *, const int *, const int *, const int *, const float *, const int *, const float *, const int *, float *, const int *, float *, int *);
55-
void RELAPACK_ztrsyl(const char *, const char *, const int *, const int *, const int *, const double *, const int *, const double *, const int *, double *, const int *, double *, int *);
59+
void RELAPACK_ssygst(const blasint *, const char *, const blasint *, float *, const blasint *, const float *, const blasint *, blasint *);
60+
void RELAPACK_dsygst(const blasint *, const char *, const blasint *, double *, const blasint *, const double *, const blasint *, blasint *);
61+
void RELAPACK_chegst(const blasint *, const char *, const blasint *, float *, const blasint *, const float *, const blasint *, blasint *);
62+
void RELAPACK_zhegst(const blasint *, const char *, const blasint *, double *, const blasint *, const double *, const blasint *, blasint *);
5663

57-
void RELAPACK_stgsyl(const char *, const int *, const int *, const int *, const float *, const int *, const float *, const int *, float *, const int *, const float *, const int *, const float *, const int *, float *, const int *, float *, float *, float *, const int *, int *, int *);
58-
void RELAPACK_dtgsyl(const char *, const int *, const int *, const int *, const double *, const int *, const double *, const int *, double *, const int *, const double *, const int *, const double *, const int *, double *, const int *, double *, double *, double *, const int *, int *, int *);
59-
void RELAPACK_ctgsyl(const char *, const int *, const int *, const int *, const float *, const int *, const float *, const int *, float *, const int *, const float *, const int *, const float *, const int *, float *, const int *, float *, float *, float *, const int *, int *, int *);
60-
void RELAPACK_ztgsyl(const char *, const int *, const int *, const int *, const double *, const int *, const double *, const int *, double *, const int *, const double *, const int *, const double *, const int *, double *, const int *, double *, double *, double *, const int *, int *, int *);
64+
void RELAPACK_strsyl(const char *, const char *, const blasint *, const blasint *, const blasint *, const float *, const blasint *, const float *, const blasint *, float *, const blasint *, float *, blasint *);
65+
void RELAPACK_dtrsyl(const char *, const char *, const blasint *, const blasint *, const blasint *, const double *, const blasint *, const double *, const blasint *, double *, const blasint *, double *, blasint *);
66+
void RELAPACK_ctrsyl(const char *, const char *, const blasint *, const blasint *, const blasint *, const float *, const blasint *, const float *, const blasint *, float *, const blasint *, float *, blasint *);
67+
void RELAPACK_ztrsyl(const char *, const char *, const blasint *, const blasint *, const blasint *, const double *, const blasint *, const double *, const blasint *, double *, const blasint *, double *, blasint *);
6168

62-
void RELAPACK_sgemmt(const char *, const char *, const char *, const int *, const int *, const float *, const float *, const int *, const float *, const int *, const float *, float *, const int *);
63-
void RELAPACK_dgemmt(const char *, const char *, const char *, const int *, const int *, const double *, const double *, const int *, const double *, const int *, const double *, double *, const int *);
64-
void RELAPACK_cgemmt(const char *, const char *, const char *, const int *, const int *, const float *, const float *, const int *, const float *, const int *, const float *, float *, const int *);
65-
void RELAPACK_zgemmt(const char *, const char *, const char *, const int *, const int *, const double *, const double *, const int *, const double *, const int *, const double *, double *, const int *);
69+
void RELAPACK_stgsyl(const char *, const blasint *, const blasint *, const blasint *, const float *, const blasint *, const float *, const blasint *, float *, const blasint *, const float *, const blasint *, const float *, const blasint *, float *, const blasint *, float *, float *, float *, const blasint *, blasint *, blasint *);
70+
void RELAPACK_dtgsyl(const char *, const blasint *, const blasint *, const blasint *, const double *, const blasint *, const double *, const blasint *, double *, const blasint *, const double *, const blasint *, const double *, const blasint *, double *, const blasint *, double *, double *, double *, const blasint *, blasint *, blasint *);
71+
void RELAPACK_ctgsyl(const char *, const blasint *, const blasint *, const blasint *, const float *, const blasint *, const float *, const blasint *, float *, const blasint *, const float *, const blasint *, const float *, const blasint *, float *, const blasint *, float *, float *, float *, const blasint *, blasint *, blasint *);
72+
void RELAPACK_ztgsyl(const char *, const blasint *, const blasint *, const blasint *, const double *, const blasint *, const double *, const blasint *, double *, const blasint *, const double *, const blasint *, const double *, const blasint *, double *, const blasint *, double *, double *, double *, const blasint *, blasint *, blasint *);
73+
74+
void RELAPACK_sgemmt(const char *, const char *, const char *, const blasint *, const blasint *, const float *, const float *, const blasint *, const float *, const blasint *, const float *, float *, const blasint *);
75+
void RELAPACK_dgemmt(const char *, const char *, const char *, const blasint *, const blasint *, const double *, const double *, const blasint *, const double *, const blasint *, const double *, double *, const blasint *);
76+
void RELAPACK_cgemmt(const char *, const char *, const char *, const blasint *, const blasint *, const float *, const float *, const blasint *, const float *, const blasint *, const float *, float *, const blasint *);
77+
void RELAPACK_zgemmt(const char *, const char *, const char *, const blasint *, const blasint *, const double *, const double *, const blasint *, const double *, const blasint *, const double *, double *, const blasint *);
6678

6779
#endif /* RELAPACK_H */

0 commit comments

Comments
 (0)