Skip to content

Commit 04aae0e

Browse files
martin-frbgmartin-frbg
authored
fix typedef of logical to support INTERFACE64
1 parent 7a267e4 commit 04aae0e

84 files changed

Lines changed: 252 additions & 252 deletions

Some content is hidden

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

‎lapack-netlib/SRC/xerbla.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -54,8 +54,8 @@ static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;}
5454
static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
5555
#define pCf(z) (*_pCf(z))
5656
#define pCd(z) (*_pCd(z))
57-
typedef int logical;
58-
typedef short int shortlogical;
57+
typedef blasint logical;
58+
5959
typedef char logical1;
6060
typedef char integer1;
6161

@@ -257,7 +257,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
257257

258258
/* procedure parameter types for -A and -C++ */
259259

260-
#define F2C_proc_par_types 1
260+
261261
#ifdef __cplusplus
262262
typedef logical (*L_fp)(...);
263263
#else

‎lapack-netlib/SRC/xerbla_array.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zbbcsd.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zbdsqr.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zcgesv.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zcposv.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zdrscl.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zgbbrd.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zgbcon.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/zgbequ.c‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

0 commit comments

Comments
 (0)