Skip to content

Commit d939444

Browse files
martin-frbgmartin-frbg
authored
fix typedef of logical to support INTERFACE64
1 parent 03698f4 commit d939444

Some content is hidden

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

81 files changed

+243
-243
lines changed

‎lapack-netlib/SRC/cgelst.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/cgelsy.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/cgemlq.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/cgemlqt.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/cgemqr.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/cgemqrt.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/cgeql2.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/cgeqlf.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/cgeqp3.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/cgeqp3rk.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)