Skip to content

Commit b0973a9

Browse files
martin-frbgmartin-frbg
authored
fix typedef of logical to support INTERFACE64
1 parent 0d33422 commit b0973a9

60 files changed

Lines changed: 180 additions & 180 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/iparam2stage.c‎

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

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

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

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

‎lapack-netlib/SRC/iparmq.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/izmax1.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/lsamen.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/sbbcsd.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/sbdsdc.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/sbdsqr.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/sbdsvdx.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/scombssq.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/scsum1.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)