From 8bed05a9368b981c66e207eb5b42f0edc30e5ca1 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 4 Apr 2024 01:32:37 +0200 Subject: [PATCH] fix typedef of logical to support INTERFACE64 --- lapack-netlib/SRC/claswp.c | 6 +++--- lapack-netlib/SRC/clasyf.c | 6 +++--- lapack-netlib/SRC/clasyf_aa.c | 6 +++--- lapack-netlib/SRC/clasyf_rk.c | 6 +++--- lapack-netlib/SRC/clasyf_rook.c | 6 +++--- lapack-netlib/SRC/clatbs.c | 6 +++--- lapack-netlib/SRC/clatdf.c | 6 +++--- lapack-netlib/SRC/clatps.c | 6 +++--- lapack-netlib/SRC/clatrd.c | 6 +++--- lapack-netlib/SRC/clatrs.c | 6 +++--- lapack-netlib/SRC/clatrs3.c | 6 +++--- lapack-netlib/SRC/clatrz.c | 6 +++--- lapack-netlib/SRC/clatsqr.c | 6 +++--- lapack-netlib/SRC/claunhr_col_getrfnp.c | 6 +++--- lapack-netlib/SRC/claunhr_col_getrfnp2.c | 6 +++--- lapack-netlib/SRC/clauu2.c | 6 +++--- lapack-netlib/SRC/clauum.c | 6 +++--- lapack-netlib/SRC/cpbcon.c | 6 +++--- lapack-netlib/SRC/cpbequ.c | 6 +++--- lapack-netlib/SRC/cpbrfs.c | 6 +++--- lapack-netlib/SRC/cpbstf.c | 6 +++--- lapack-netlib/SRC/cpbsv.c | 6 +++--- lapack-netlib/SRC/cpbsvx.c | 6 +++--- lapack-netlib/SRC/cpbtf2.c | 6 +++--- lapack-netlib/SRC/cpbtrf.c | 6 +++--- lapack-netlib/SRC/cpbtrs.c | 6 +++--- lapack-netlib/SRC/cpftrf.c | 6 +++--- lapack-netlib/SRC/cpftri.c | 6 +++--- lapack-netlib/SRC/cpftrs.c | 6 +++--- lapack-netlib/SRC/cpocon.c | 6 +++--- lapack-netlib/SRC/cpoequ.c | 6 +++--- lapack-netlib/SRC/cpoequb.c | 6 +++--- lapack-netlib/SRC/cporfs.c | 6 +++--- lapack-netlib/SRC/cporfsx.c | 6 +++--- lapack-netlib/SRC/cposv.c | 6 +++--- lapack-netlib/SRC/cposvx.c | 6 +++--- lapack-netlib/SRC/cposvxx.c | 6 +++--- lapack-netlib/SRC/cpotf2.c | 6 +++--- lapack-netlib/SRC/cpotrf.c | 6 +++--- lapack-netlib/SRC/cpotrf2.c | 6 +++--- lapack-netlib/SRC/cpotri.c | 6 +++--- lapack-netlib/SRC/cpotrs.c | 6 +++--- lapack-netlib/SRC/cppcon.c | 6 +++--- lapack-netlib/SRC/cppequ.c | 6 +++--- lapack-netlib/SRC/cpprfs.c | 6 +++--- lapack-netlib/SRC/cppsv.c | 6 +++--- lapack-netlib/SRC/cppsvx.c | 6 +++--- lapack-netlib/SRC/cpptrf.c | 6 +++--- lapack-netlib/SRC/cpptri.c | 6 +++--- lapack-netlib/SRC/cpptrs.c | 6 +++--- lapack-netlib/SRC/cpstf2.c | 6 +++--- lapack-netlib/SRC/cpstrf.c | 6 +++--- lapack-netlib/SRC/cptcon.c | 6 +++--- lapack-netlib/SRC/cpteqr.c | 6 +++--- lapack-netlib/SRC/cptrfs.c | 6 +++--- lapack-netlib/SRC/cptsv.c | 6 +++--- lapack-netlib/SRC/cptsvx.c | 6 +++--- lapack-netlib/SRC/cpttrf.c | 6 +++--- lapack-netlib/SRC/cpttrs.c | 6 +++--- lapack-netlib/SRC/cptts2.c | 6 +++--- lapack-netlib/SRC/crot.c | 6 +++--- lapack-netlib/SRC/crscl.c | 6 +++--- lapack-netlib/SRC/cspcon.c | 6 +++--- lapack-netlib/SRC/cspmv.c | 6 +++--- lapack-netlib/SRC/cspr.c | 6 +++--- lapack-netlib/SRC/csprfs.c | 6 +++--- lapack-netlib/SRC/cspsv.c | 6 +++--- lapack-netlib/SRC/cspsvx.c | 6 +++--- lapack-netlib/SRC/csptrf.c | 6 +++--- lapack-netlib/SRC/csptri.c | 6 +++--- lapack-netlib/SRC/csptrs.c | 6 +++--- lapack-netlib/SRC/csrscl.c | 6 +++--- lapack-netlib/SRC/cstedc.c | 6 +++--- lapack-netlib/SRC/cstegr.c | 6 +++--- lapack-netlib/SRC/cstein.c | 6 +++--- lapack-netlib/SRC/cstemr.c | 6 +++--- lapack-netlib/SRC/csteqr.c | 6 +++--- lapack-netlib/SRC/csycon.c | 6 +++--- lapack-netlib/SRC/csycon_3.c | 6 +++--- lapack-netlib/SRC/csycon_rook.c | 6 +++--- lapack-netlib/SRC/csyconv.c | 6 +++--- lapack-netlib/SRC/csyconvf.c | 6 +++--- lapack-netlib/SRC/csyconvf_rook.c | 6 +++--- lapack-netlib/SRC/csyequb.c | 6 +++--- lapack-netlib/SRC/csymv.c | 6 +++--- lapack-netlib/SRC/csyr.c | 6 +++--- lapack-netlib/SRC/csyrfs.c | 6 +++--- lapack-netlib/SRC/csyrfsx.c | 6 +++--- lapack-netlib/SRC/csysv.c | 6 +++--- lapack-netlib/SRC/csysv_aa.c | 6 +++--- lapack-netlib/SRC/csysv_aa_2stage.c | 6 +++--- lapack-netlib/SRC/csysv_rk.c | 6 +++--- lapack-netlib/SRC/csysv_rook.c | 6 +++--- 93 files changed, 279 insertions(+), 279 deletions(-) diff --git a/lapack-netlib/SRC/claswp.c b/lapack-netlib/SRC/claswp.c index 404e6aad5..372a7960d 100644 --- a/lapack-netlib/SRC/claswp.c +++ b/lapack-netlib/SRC/claswp.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clasyf.c b/lapack-netlib/SRC/clasyf.c index df3a0d9f0..89b1f75f8 100644 --- a/lapack-netlib/SRC/clasyf.c +++ b/lapack-netlib/SRC/clasyf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clasyf_aa.c b/lapack-netlib/SRC/clasyf_aa.c index 6f5898961..9f986aedf 100644 --- a/lapack-netlib/SRC/clasyf_aa.c +++ b/lapack-netlib/SRC/clasyf_aa.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clasyf_rk.c b/lapack-netlib/SRC/clasyf_rk.c index f72b1c105..e592a19c3 100644 --- a/lapack-netlib/SRC/clasyf_rk.c +++ b/lapack-netlib/SRC/clasyf_rk.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clasyf_rook.c b/lapack-netlib/SRC/clasyf_rook.c index a4613912f..1ed592bd4 100644 --- a/lapack-netlib/SRC/clasyf_rook.c +++ b/lapack-netlib/SRC/clasyf_rook.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatbs.c b/lapack-netlib/SRC/clatbs.c index 168aca749..df8e5e02e 100644 --- a/lapack-netlib/SRC/clatbs.c +++ b/lapack-netlib/SRC/clatbs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatdf.c b/lapack-netlib/SRC/clatdf.c index 68c1d63ef..7ab67315c 100644 --- a/lapack-netlib/SRC/clatdf.c +++ b/lapack-netlib/SRC/clatdf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatps.c b/lapack-netlib/SRC/clatps.c index 64563abbd..ff8f2172e 100644 --- a/lapack-netlib/SRC/clatps.c +++ b/lapack-netlib/SRC/clatps.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatrd.c b/lapack-netlib/SRC/clatrd.c index f1c30202b..3e8328522 100644 --- a/lapack-netlib/SRC/clatrd.c +++ b/lapack-netlib/SRC/clatrd.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatrs.c b/lapack-netlib/SRC/clatrs.c index 61e43419d..9363e028b 100644 --- a/lapack-netlib/SRC/clatrs.c +++ b/lapack-netlib/SRC/clatrs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatrs3.c b/lapack-netlib/SRC/clatrs3.c index a53483ff0..91bd5cdfd 100644 --- a/lapack-netlib/SRC/clatrs3.c +++ b/lapack-netlib/SRC/clatrs3.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -263,7 +263,7 @@ static int my_expfunc(float *x) {int e; (void)frexpf(*x,&e); return e;} /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatrz.c b/lapack-netlib/SRC/clatrz.c index 2447fbac1..531c800da 100644 --- a/lapack-netlib/SRC/clatrz.c +++ b/lapack-netlib/SRC/clatrz.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clatsqr.c b/lapack-netlib/SRC/clatsqr.c index d88e0da3a..42576d127 100644 --- a/lapack-netlib/SRC/clatsqr.c +++ b/lapack-netlib/SRC/clatsqr.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp.c b/lapack-netlib/SRC/claunhr_col_getrfnp.c index 70f8c44dc..8c14b0578 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp.c +++ b/lapack-netlib/SRC/claunhr_col_getrfnp.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp2.c b/lapack-netlib/SRC/claunhr_col_getrfnp2.c index 65fdc0027..6b405e255 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/claunhr_col_getrfnp2.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clauu2.c b/lapack-netlib/SRC/clauu2.c index 2be32a3c0..07c021388 100644 --- a/lapack-netlib/SRC/clauu2.c +++ b/lapack-netlib/SRC/clauu2.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/clauum.c b/lapack-netlib/SRC/clauum.c index 45a1de4a9..e0e9c992c 100644 --- a/lapack-netlib/SRC/clauum.c +++ b/lapack-netlib/SRC/clauum.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbcon.c b/lapack-netlib/SRC/cpbcon.c index e46ce643a..4ae81d084 100644 --- a/lapack-netlib/SRC/cpbcon.c +++ b/lapack-netlib/SRC/cpbcon.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbequ.c b/lapack-netlib/SRC/cpbequ.c index 0d69760da..49f42ad23 100644 --- a/lapack-netlib/SRC/cpbequ.c +++ b/lapack-netlib/SRC/cpbequ.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbrfs.c b/lapack-netlib/SRC/cpbrfs.c index fccc1f3d4..c80fe8a36 100644 --- a/lapack-netlib/SRC/cpbrfs.c +++ b/lapack-netlib/SRC/cpbrfs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbstf.c b/lapack-netlib/SRC/cpbstf.c index f0a88e4b4..ceb0a4d27 100644 --- a/lapack-netlib/SRC/cpbstf.c +++ b/lapack-netlib/SRC/cpbstf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbsv.c b/lapack-netlib/SRC/cpbsv.c index 83b0f63b1..b69809ecf 100644 --- a/lapack-netlib/SRC/cpbsv.c +++ b/lapack-netlib/SRC/cpbsv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbsvx.c b/lapack-netlib/SRC/cpbsvx.c index 49925c13c..b9f7c4493 100644 --- a/lapack-netlib/SRC/cpbsvx.c +++ b/lapack-netlib/SRC/cpbsvx.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbtf2.c b/lapack-netlib/SRC/cpbtf2.c index de89747f9..e2cfb6ad9 100644 --- a/lapack-netlib/SRC/cpbtf2.c +++ b/lapack-netlib/SRC/cpbtf2.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbtrf.c b/lapack-netlib/SRC/cpbtrf.c index b239f20b4..3aaa28744 100644 --- a/lapack-netlib/SRC/cpbtrf.c +++ b/lapack-netlib/SRC/cpbtrf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpbtrs.c b/lapack-netlib/SRC/cpbtrs.c index 14b1bae6f..24939ae44 100644 --- a/lapack-netlib/SRC/cpbtrs.c +++ b/lapack-netlib/SRC/cpbtrs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpftrf.c b/lapack-netlib/SRC/cpftrf.c index 67bdc365e..04b6a7def 100644 --- a/lapack-netlib/SRC/cpftrf.c +++ b/lapack-netlib/SRC/cpftrf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpftri.c b/lapack-netlib/SRC/cpftri.c index 9005b128a..a0c598442 100644 --- a/lapack-netlib/SRC/cpftri.c +++ b/lapack-netlib/SRC/cpftri.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpftrs.c b/lapack-netlib/SRC/cpftrs.c index 2feb7e53b..7fa6bd350 100644 --- a/lapack-netlib/SRC/cpftrs.c +++ b/lapack-netlib/SRC/cpftrs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpocon.c b/lapack-netlib/SRC/cpocon.c index 6665d0037..e20c2994d 100644 --- a/lapack-netlib/SRC/cpocon.c +++ b/lapack-netlib/SRC/cpocon.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpoequ.c b/lapack-netlib/SRC/cpoequ.c index f7f9e87cf..2006b12a2 100644 --- a/lapack-netlib/SRC/cpoequ.c +++ b/lapack-netlib/SRC/cpoequ.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpoequb.c b/lapack-netlib/SRC/cpoequb.c index b7c246116..2c9f5a764 100644 --- a/lapack-netlib/SRC/cpoequb.c +++ b/lapack-netlib/SRC/cpoequb.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cporfs.c b/lapack-netlib/SRC/cporfs.c index 5c3237ec9..7c9b90d75 100644 --- a/lapack-netlib/SRC/cporfs.c +++ b/lapack-netlib/SRC/cporfs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cporfsx.c b/lapack-netlib/SRC/cporfsx.c index aa3ac4f72..61885f2fe 100644 --- a/lapack-netlib/SRC/cporfsx.c +++ b/lapack-netlib/SRC/cporfsx.c @@ -54,8 +54,8 @@ static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -257,7 +257,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cposv.c b/lapack-netlib/SRC/cposv.c index 2a24682ac..2616194fc 100644 --- a/lapack-netlib/SRC/cposv.c +++ b/lapack-netlib/SRC/cposv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cposvx.c b/lapack-netlib/SRC/cposvx.c index 10161efaf..60862279e 100644 --- a/lapack-netlib/SRC/cposvx.c +++ b/lapack-netlib/SRC/cposvx.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cposvxx.c b/lapack-netlib/SRC/cposvxx.c index d36d9b4a3..6f64b6eb3 100644 --- a/lapack-netlib/SRC/cposvxx.c +++ b/lapack-netlib/SRC/cposvxx.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpotf2.c b/lapack-netlib/SRC/cpotf2.c index 6d6d4182f..1fffebc67 100644 --- a/lapack-netlib/SRC/cpotf2.c +++ b/lapack-netlib/SRC/cpotf2.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpotrf.c b/lapack-netlib/SRC/cpotrf.c index 5395ad952..155302fd9 100644 --- a/lapack-netlib/SRC/cpotrf.c +++ b/lapack-netlib/SRC/cpotrf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpotrf2.c b/lapack-netlib/SRC/cpotrf2.c index ff478e774..a8b289161 100644 --- a/lapack-netlib/SRC/cpotrf2.c +++ b/lapack-netlib/SRC/cpotrf2.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpotri.c b/lapack-netlib/SRC/cpotri.c index 6681781e3..f82badadc 100644 --- a/lapack-netlib/SRC/cpotri.c +++ b/lapack-netlib/SRC/cpotri.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpotrs.c b/lapack-netlib/SRC/cpotrs.c index dfedbef85..c614de522 100644 --- a/lapack-netlib/SRC/cpotrs.c +++ b/lapack-netlib/SRC/cpotrs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cppcon.c b/lapack-netlib/SRC/cppcon.c index ad4cbd1ee..66087fb86 100644 --- a/lapack-netlib/SRC/cppcon.c +++ b/lapack-netlib/SRC/cppcon.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cppequ.c b/lapack-netlib/SRC/cppequ.c index 27e735cdf..eb350ca0a 100644 --- a/lapack-netlib/SRC/cppequ.c +++ b/lapack-netlib/SRC/cppequ.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpprfs.c b/lapack-netlib/SRC/cpprfs.c index 185f15996..72afc9c19 100644 --- a/lapack-netlib/SRC/cpprfs.c +++ b/lapack-netlib/SRC/cpprfs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cppsv.c b/lapack-netlib/SRC/cppsv.c index 4f2ae517d..e9320bf1f 100644 --- a/lapack-netlib/SRC/cppsv.c +++ b/lapack-netlib/SRC/cppsv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cppsvx.c b/lapack-netlib/SRC/cppsvx.c index 9798ed06f..178c3521a 100644 --- a/lapack-netlib/SRC/cppsvx.c +++ b/lapack-netlib/SRC/cppsvx.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpptrf.c b/lapack-netlib/SRC/cpptrf.c index 711fb200b..1f2a4a84e 100644 --- a/lapack-netlib/SRC/cpptrf.c +++ b/lapack-netlib/SRC/cpptrf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpptri.c b/lapack-netlib/SRC/cpptri.c index 1d99d3e88..db7773862 100644 --- a/lapack-netlib/SRC/cpptri.c +++ b/lapack-netlib/SRC/cpptri.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpptrs.c b/lapack-netlib/SRC/cpptrs.c index 6251b1e53..dadb90ce2 100644 --- a/lapack-netlib/SRC/cpptrs.c +++ b/lapack-netlib/SRC/cpptrs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpstf2.c b/lapack-netlib/SRC/cpstf2.c index f0ac9bf92..ae7fb05c4 100644 --- a/lapack-netlib/SRC/cpstf2.c +++ b/lapack-netlib/SRC/cpstf2.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpstrf.c b/lapack-netlib/SRC/cpstrf.c index e8cb87df4..ab4811273 100644 --- a/lapack-netlib/SRC/cpstrf.c +++ b/lapack-netlib/SRC/cpstrf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cptcon.c b/lapack-netlib/SRC/cptcon.c index 829e7bd50..3920fd2da 100644 --- a/lapack-netlib/SRC/cptcon.c +++ b/lapack-netlib/SRC/cptcon.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpteqr.c b/lapack-netlib/SRC/cpteqr.c index b382724e0..41f373ff3 100644 --- a/lapack-netlib/SRC/cpteqr.c +++ b/lapack-netlib/SRC/cpteqr.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cptrfs.c b/lapack-netlib/SRC/cptrfs.c index 470465011..e56f94cb5 100644 --- a/lapack-netlib/SRC/cptrfs.c +++ b/lapack-netlib/SRC/cptrfs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cptsv.c b/lapack-netlib/SRC/cptsv.c index b2e3edbff..2d0ece1f4 100644 --- a/lapack-netlib/SRC/cptsv.c +++ b/lapack-netlib/SRC/cptsv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cptsvx.c b/lapack-netlib/SRC/cptsvx.c index 7c0c26251..f04b96eba 100644 --- a/lapack-netlib/SRC/cptsvx.c +++ b/lapack-netlib/SRC/cptsvx.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpttrf.c b/lapack-netlib/SRC/cpttrf.c index d071efc18..06f71abc4 100644 --- a/lapack-netlib/SRC/cpttrf.c +++ b/lapack-netlib/SRC/cpttrf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cpttrs.c b/lapack-netlib/SRC/cpttrs.c index 803ed3261..474596e6f 100644 --- a/lapack-netlib/SRC/cpttrs.c +++ b/lapack-netlib/SRC/cpttrs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cptts2.c b/lapack-netlib/SRC/cptts2.c index d6f5c0aff..ce3d90105 100644 --- a/lapack-netlib/SRC/cptts2.c +++ b/lapack-netlib/SRC/cptts2.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/crot.c b/lapack-netlib/SRC/crot.c index eed83d90a..f001028fb 100644 --- a/lapack-netlib/SRC/crot.c +++ b/lapack-netlib/SRC/crot.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/crscl.c b/lapack-netlib/SRC/crscl.c index 7c87553d5..640842282 100644 --- a/lapack-netlib/SRC/crscl.c +++ b/lapack-netlib/SRC/crscl.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cspcon.c b/lapack-netlib/SRC/cspcon.c index c03725281..784be1728 100644 --- a/lapack-netlib/SRC/cspcon.c +++ b/lapack-netlib/SRC/cspcon.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cspmv.c b/lapack-netlib/SRC/cspmv.c index 03622bcfc..732372dea 100644 --- a/lapack-netlib/SRC/cspmv.c +++ b/lapack-netlib/SRC/cspmv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cspr.c b/lapack-netlib/SRC/cspr.c index 2ea2b048e..2a0e4e9b9 100644 --- a/lapack-netlib/SRC/cspr.c +++ b/lapack-netlib/SRC/cspr.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csprfs.c b/lapack-netlib/SRC/csprfs.c index 9b7979c89..bccda39eb 100644 --- a/lapack-netlib/SRC/csprfs.c +++ b/lapack-netlib/SRC/csprfs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cspsv.c b/lapack-netlib/SRC/cspsv.c index 84fe88f4e..253059704 100644 --- a/lapack-netlib/SRC/cspsv.c +++ b/lapack-netlib/SRC/cspsv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cspsvx.c b/lapack-netlib/SRC/cspsvx.c index 3caff1f52..59865d588 100644 --- a/lapack-netlib/SRC/cspsvx.c +++ b/lapack-netlib/SRC/cspsvx.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csptrf.c b/lapack-netlib/SRC/csptrf.c index 9c5b85374..c3aedf418 100644 --- a/lapack-netlib/SRC/csptrf.c +++ b/lapack-netlib/SRC/csptrf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csptri.c b/lapack-netlib/SRC/csptri.c index 610ef8966..57ade8326 100644 --- a/lapack-netlib/SRC/csptri.c +++ b/lapack-netlib/SRC/csptri.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csptrs.c b/lapack-netlib/SRC/csptrs.c index 0e1e7ffb5..ac3098a98 100644 --- a/lapack-netlib/SRC/csptrs.c +++ b/lapack-netlib/SRC/csptrs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csrscl.c b/lapack-netlib/SRC/csrscl.c index d7d08c345..e82571d08 100644 --- a/lapack-netlib/SRC/csrscl.c +++ b/lapack-netlib/SRC/csrscl.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cstedc.c b/lapack-netlib/SRC/cstedc.c index 1d60e6a97..9d60c9aa9 100644 --- a/lapack-netlib/SRC/cstedc.c +++ b/lapack-netlib/SRC/cstedc.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cstegr.c b/lapack-netlib/SRC/cstegr.c index 836534ef6..7e56ff334 100644 --- a/lapack-netlib/SRC/cstegr.c +++ b/lapack-netlib/SRC/cstegr.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cstein.c b/lapack-netlib/SRC/cstein.c index 335dbaa48..2002dcdf6 100644 --- a/lapack-netlib/SRC/cstein.c +++ b/lapack-netlib/SRC/cstein.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/cstemr.c b/lapack-netlib/SRC/cstemr.c index ede8ea27e..b817c760e 100644 --- a/lapack-netlib/SRC/cstemr.c +++ b/lapack-netlib/SRC/cstemr.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csteqr.c b/lapack-netlib/SRC/csteqr.c index c85a56dd5..d2158f133 100644 --- a/lapack-netlib/SRC/csteqr.c +++ b/lapack-netlib/SRC/csteqr.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csycon.c b/lapack-netlib/SRC/csycon.c index 4f606a5fe..3842cdef7 100644 --- a/lapack-netlib/SRC/csycon.c +++ b/lapack-netlib/SRC/csycon.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csycon_3.c b/lapack-netlib/SRC/csycon_3.c index 2bb7f3032..906266121 100644 --- a/lapack-netlib/SRC/csycon_3.c +++ b/lapack-netlib/SRC/csycon_3.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csycon_rook.c b/lapack-netlib/SRC/csycon_rook.c index ac0fb0105..8936a85c8 100644 --- a/lapack-netlib/SRC/csycon_rook.c +++ b/lapack-netlib/SRC/csycon_rook.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csyconv.c b/lapack-netlib/SRC/csyconv.c index f1f7c1c41..da9c4cec9 100644 --- a/lapack-netlib/SRC/csyconv.c +++ b/lapack-netlib/SRC/csyconv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csyconvf.c b/lapack-netlib/SRC/csyconvf.c index edb900d16..9b9742ee9 100644 --- a/lapack-netlib/SRC/csyconvf.c +++ b/lapack-netlib/SRC/csyconvf.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csyconvf_rook.c b/lapack-netlib/SRC/csyconvf_rook.c index d453eda3e..7d05991a5 100644 --- a/lapack-netlib/SRC/csyconvf_rook.c +++ b/lapack-netlib/SRC/csyconvf_rook.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csyequb.c b/lapack-netlib/SRC/csyequb.c index 223619d29..9f194854d 100644 --- a/lapack-netlib/SRC/csyequb.c +++ b/lapack-netlib/SRC/csyequb.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csymv.c b/lapack-netlib/SRC/csymv.c index d07419db5..3148e83a8 100644 --- a/lapack-netlib/SRC/csymv.c +++ b/lapack-netlib/SRC/csymv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csyr.c b/lapack-netlib/SRC/csyr.c index e684b2024..beeeb07c3 100644 --- a/lapack-netlib/SRC/csyr.c +++ b/lapack-netlib/SRC/csyr.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csyrfs.c b/lapack-netlib/SRC/csyrfs.c index 2bd501fc3..633afc41e 100644 --- a/lapack-netlib/SRC/csyrfs.c +++ b/lapack-netlib/SRC/csyrfs.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csyrfsx.c b/lapack-netlib/SRC/csyrfsx.c index aa3ac4f72..61885f2fe 100644 --- a/lapack-netlib/SRC/csyrfsx.c +++ b/lapack-netlib/SRC/csyrfsx.c @@ -54,8 +54,8 @@ static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;} #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -257,7 +257,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csysv.c b/lapack-netlib/SRC/csysv.c index 1eecd1711..e52875c7b 100644 --- a/lapack-netlib/SRC/csysv.c +++ b/lapack-netlib/SRC/csysv.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csysv_aa.c b/lapack-netlib/SRC/csysv_aa.c index 065159fd3..3eb5f4803 100644 --- a/lapack-netlib/SRC/csysv_aa.c +++ b/lapack-netlib/SRC/csysv_aa.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csysv_aa_2stage.c b/lapack-netlib/SRC/csysv_aa_2stage.c index 0a6827fd3..50a778026 100644 --- a/lapack-netlib/SRC/csysv_aa_2stage.c +++ b/lapack-netlib/SRC/csysv_aa_2stage.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csysv_rk.c b/lapack-netlib/SRC/csysv_rk.c index 4e731fdf8..eaecbdd09 100644 --- a/lapack-netlib/SRC/csysv_rk.c +++ b/lapack-netlib/SRC/csysv_rk.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else diff --git a/lapack-netlib/SRC/csysv_rook.c b/lapack-netlib/SRC/csysv_rook.c index a55218a8a..97fff6a2a 100644 --- a/lapack-netlib/SRC/csysv_rook.c +++ b/lapack-netlib/SRC/csysv_rook.c @@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double* #endif #define pCf(z) (*_pCf(z)) #define pCd(z) (*_pCd(z)) -typedef int logical; -typedef short int shortlogical; +typedef blasint logical; + typedef char logical1; typedef char integer1; @@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n"; /* procedure parameter types for -A and -C++ */ -#define F2C_proc_par_types 1 + #ifdef __cplusplus typedef logical (*L_fp)(...); #else