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
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
130
131
132
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
|
// Copyright 2008-2016 Conrad Sanderson (http://conradsanderson.id.au)
// Copyright 2008-2016 National ICT Australia (NICTA)
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
// http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
// ------------------------------------------------------------------------
//! \addtogroup typedef_elem
//! @{
#if (defined(ARMA_U8_TYPE) && defined(ARMA_S8_TYPE))
typedef ARMA_U8_TYPE u8;
typedef ARMA_S8_TYPE s8;
#else
#if UCHAR_MAX >= 0xff
typedef unsigned char u8;
typedef char s8;
#elif defined(UINT8_MAX)
typedef uint8_t u8;
typedef int8_t s8;
#else
#error "don't know how to typedef 'u8' on this system"
#endif
#endif
// NOTE:
// "char" is not guaranteed to be the same as "signed char"
// https://en.wikipedia.org/wiki/C_data_types
#if USHRT_MAX >= 0xffff
typedef unsigned short u16;
typedef short s16;
#elif defined(UINT16_MAX)
typedef uint16_t u16;
typedef int16_t s16;
#else
#error "don't know how to typedef 'u16' on this system"
#endif
#if UINT_MAX >= 0xffffffff
typedef unsigned int u32;
typedef int s32;
#elif defined(UINT32_MAX)
typedef uint32_t u32;
typedef int32_t s32;
#else
#error "don't know how to typedef 'u32' on this system"
#endif
#if ULLONG_MAX >= 0xffffffffffffffff
typedef unsigned long long u64;
typedef long long s64;
#elif defined(UINT64_MAX)
typedef uint64_t u64;
typedef int64_t s64;
#else
#error "don't know how to typedef 'u64' on this system"
#endif
// for compatibility with earlier versions of Armadillo
typedef unsigned long ulng_t;
typedef long slng_t;
#if defined(ARMA_64BIT_WORD)
typedef u64 uword;
typedef s64 sword;
typedef u32 uhword;
typedef s32 shword;
#define ARMA_MAX_UWORD 0xffffffffffffffff
#define ARMA_MAX_UHWORD 0xffffffff
#else
typedef u32 uword;
typedef s32 sword;
typedef u16 uhword;
typedef s16 shword;
#define ARMA_MAX_UWORD 0xffffffff
#define ARMA_MAX_UHWORD 0xffff
#endif
typedef std::complex<float> cx_float;
typedef std::complex<double> cx_double;
typedef void* void_ptr;
//
#if defined(ARMA_BLAS_LONG_LONG)
typedef long long blas_int;
#define ARMA_MAX_BLAS_INT 0x7fffffffffffffffULL
#elif defined(ARMA_BLAS_LONG)
typedef long blas_int;
#define ARMA_MAX_BLAS_INT 0x7fffffffffffffffUL
#else
typedef int blas_int;
#define ARMA_MAX_BLAS_INT 0x7fffffffU
#endif
//
#ifdef ARMA_USE_MKL_TYPES
// for compatibility with MKL
typedef MKL_Complex8 blas_cxf;
typedef MKL_Complex16 blas_cxd;
#else
// standard BLAS and LAPACK prototypes use "void*" pointers for complex arrays
typedef void blas_cxf;
typedef void blas_cxd;
#endif
//
// NOTE: blas_len is the fortran type for "hidden" arguments that specify the length of character arguments;
// NOTE: it varies across compilers, compiler versions and systems (eg. 32 bit vs 64 bit);
// NOTE: the default setting of "size_t" is an educated guess.
// NOTE: ---
// NOTE: for gcc / gfortran: https://gcc.gnu.org/onlinedocs/gfortran/Argument-passing-conventions.html
// NOTE: gcc 7 and earlier: int
// NOTE: gcc 8 and 9: size_t
// NOTE: ---
// NOTE: for ifort (intel fortran compiler):
// NOTE: "Intel Fortran Compiler User and Reference Guides", Document Number: 304970-006US, 2009, p. 301
// NOTE: http://www.complexfluids.ethz.ch/MK/ifort.pdf
// NOTE: the type is unsigned 4-byte integer on 32 bit systems
// NOTE: the type is unsigned 8-byte integer on 64 bit systems
// NOTE: ---
// NOTE: for NAG fortran: https://www.nag.co.uk/nagware/np/r62_doc/manual/compiler_11_1.html#AUTOTOC_11_1
// NOTE: Chrlen = usually int, or long long on 64-bit Windows
// NOTE: ---
// TODO: flang: https://github.com/flang-compiler/flang/wiki
// TODO: other compilers: http://fortranwiki.org/fortran/show/Compilers
#if !defined(ARMA_FORTRAN_CHARLEN_TYPE)
#if defined(__GNUC__) && !defined(__clang__)
#if (__GNUC__ <= 7)
#define ARMA_FORTRAN_CHARLEN_TYPE int
#else
#define ARMA_FORTRAN_CHARLEN_TYPE size_t
#endif
#else
// TODO: determine the type for other compilers
#define ARMA_FORTRAN_CHARLEN_TYPE size_t
#endif
#endif
typedef ARMA_FORTRAN_CHARLEN_TYPE blas_len;
//! @}
|
