Skip to content

Commit 03698f4

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

Some content is hidden

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

94 files changed

+282
-282
lines changed

‎lapack-netlib/SRC/cheev.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/cheevd.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/cheevd_2stage.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/cheevr.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/cheevr_2stage.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/cheevx.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/cheevx_2stage.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/chegs2.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/chegst.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/chegv.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)