From 373e36377c06cec8b95e874271b43e3364996b67 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 4 Apr 2024 01:19:55 +0200 Subject: [PATCH] fix typedef of logical to support INTERFACE64 --- lapack-netlib/SRC/dgelst.c | 6 +++--- lapack-netlib/SRC/dgelsy.c | 6 +++--- lapack-netlib/SRC/dgemlq.c | 6 +++--- lapack-netlib/SRC/dgemlqt.c | 6 +++--- lapack-netlib/SRC/dgemqr.c | 6 +++--- lapack-netlib/SRC/dgemqrt.c | 6 +++--- lapack-netlib/SRC/dgeql2.c | 6 +++--- lapack-netlib/SRC/dgeqlf.c | 6 +++--- lapack-netlib/SRC/dgeqp3.c | 6 +++--- lapack-netlib/SRC/dgeqp3rk.c | 6 +++--- lapack-netlib/SRC/dgeqr.c | 6 +++--- lapack-netlib/SRC/dgeqr2.c | 6 +++--- lapack-netlib/SRC/dgeqr2p.c | 6 +++--- lapack-netlib/SRC/dgeqrf.c | 6 +++--- lapack-netlib/SRC/dgeqrfp.c | 6 +++--- lapack-netlib/SRC/dgeqrt.c | 6 +++--- lapack-netlib/SRC/dgeqrt2.c | 6 +++--- lapack-netlib/SRC/dgeqrt3.c | 6 +++--- lapack-netlib/SRC/dgerfs.c | 6 +++--- lapack-netlib/SRC/dgerfsx.c | 6 +++--- lapack-netlib/SRC/dgerq2.c | 6 +++--- lapack-netlib/SRC/dgerqf.c | 6 +++--- lapack-netlib/SRC/dgesc2.c | 6 +++--- lapack-netlib/SRC/dgesdd.c | 6 +++--- lapack-netlib/SRC/dgesv.c | 6 +++--- lapack-netlib/SRC/dgesvd.c | 6 +++--- lapack-netlib/SRC/dgesvdq.c | 6 +++--- lapack-netlib/SRC/dgesvdx.c | 6 +++--- lapack-netlib/SRC/dgesvj.c | 6 +++--- lapack-netlib/SRC/dgesvx.c | 6 +++--- lapack-netlib/SRC/dgesvxx.c | 6 +++--- lapack-netlib/SRC/dgetc2.c | 6 +++--- lapack-netlib/SRC/dgetf2.c | 6 +++--- lapack-netlib/SRC/dgetrf.c | 6 +++--- lapack-netlib/SRC/dgetrf2.c | 6 +++--- lapack-netlib/SRC/dgetri.c | 6 +++--- lapack-netlib/SRC/dgetrs.c | 6 +++--- lapack-netlib/SRC/dgetsls.c | 6 +++--- lapack-netlib/SRC/dgetsqrhrt.c | 6 +++--- lapack-netlib/SRC/dggbak.c | 6 +++--- lapack-netlib/SRC/dggbal.c | 6 +++--- lapack-netlib/SRC/dgges.c | 6 +++--- lapack-netlib/SRC/dgges3.c | 6 +++--- lapack-netlib/SRC/dggesx.c | 6 +++--- lapack-netlib/SRC/dggev.c | 6 +++--- lapack-netlib/SRC/dggev3.c | 6 +++--- lapack-netlib/SRC/dggevx.c | 6 +++--- lapack-netlib/SRC/dggglm.c | 6 +++--- lapack-netlib/SRC/dgghd3.c | 6 +++--- lapack-netlib/SRC/dgghrd.c | 6 +++--- lapack-netlib/SRC/dgglse.c | 6 +++--- lapack-netlib/SRC/dggqrf.c | 6 +++--- lapack-netlib/SRC/dggrqf.c | 6 +++--- lapack-netlib/SRC/dggsvd3.c | 6 +++--- lapack-netlib/SRC/dggsvp3.c | 6 +++--- lapack-netlib/SRC/dgsvj0.c | 6 +++--- lapack-netlib/SRC/dgsvj1.c | 6 +++--- lapack-netlib/SRC/dgtcon.c | 6 +++--- lapack-netlib/SRC/dgtrfs.c | 6 +++--- lapack-netlib/SRC/dgtsv.c | 6 +++--- lapack-netlib/SRC/dgtsvx.c | 6 +++--- lapack-netlib/SRC/dgttrf.c | 6 +++--- lapack-netlib/SRC/dgttrs.c | 6 +++--- lapack-netlib/SRC/dgtts2.c | 6 +++--- lapack-netlib/SRC/dhgeqz.c | 6 +++--- lapack-netlib/SRC/dhsein.c | 6 +++--- lapack-netlib/SRC/dhseqr.c | 6 +++--- lapack-netlib/SRC/disnan.c | 6 +++--- lapack-netlib/SRC/dla_gbamv.c | 6 +++--- lapack-netlib/SRC/dla_gbrcond.c | 6 +++--- lapack-netlib/SRC/dla_gbrfsx_extended.c | 6 +++--- lapack-netlib/SRC/dla_gbrpvgrw.c | 6 +++--- lapack-netlib/SRC/dla_geamv.c | 6 +++--- lapack-netlib/SRC/dla_gercond.c | 6 +++--- lapack-netlib/SRC/dla_gerfsx_extended.c | 6 +++--- lapack-netlib/SRC/dla_gerpvgrw.c | 6 +++--- lapack-netlib/SRC/dla_lin_berr.c | 6 +++--- lapack-netlib/SRC/dla_porcond.c | 6 +++--- lapack-netlib/SRC/dla_porfsx_extended.c | 6 +++--- lapack-netlib/SRC/dla_porpvgrw.c | 6 +++--- lapack-netlib/SRC/dla_syamv.c | 6 +++--- lapack-netlib/SRC/dla_syrcond.c | 6 +++--- lapack-netlib/SRC/dla_syrfsx_extended.c | 6 +++--- lapack-netlib/SRC/dla_syrpvgrw.c | 6 +++--- lapack-netlib/SRC/dla_wwaddw.c | 6 +++--- 85 files changed, 255 insertions(+), 255 deletions(-) diff --git a/lapack-netlib/SRC/dgelst.c b/lapack-netlib/SRC/dgelst.c index 9333bd5dd..afaeaf7cc 100644 --- a/lapack-netlib/SRC/dgelst.c +++ b/lapack-netlib/SRC/dgelst.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/dgelsy.c b/lapack-netlib/SRC/dgelsy.c index 5c625f939..c1a123bc0 100644 --- a/lapack-netlib/SRC/dgelsy.c +++ b/lapack-netlib/SRC/dgelsy.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/dgemlq.c b/lapack-netlib/SRC/dgemlq.c index acc56173a..f3e89dbe0 100644 --- a/lapack-netlib/SRC/dgemlq.c +++ b/lapack-netlib/SRC/dgemlq.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/dgemlqt.c b/lapack-netlib/SRC/dgemlqt.c index e188d3532..a306fe36f 100644 --- a/lapack-netlib/SRC/dgemlqt.c +++ b/lapack-netlib/SRC/dgemlqt.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/dgemqr.c b/lapack-netlib/SRC/dgemqr.c index a309b328b..fc4dc8c74 100644 --- a/lapack-netlib/SRC/dgemqr.c +++ b/lapack-netlib/SRC/dgemqr.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/dgemqrt.c b/lapack-netlib/SRC/dgemqrt.c index f8f939385..449c475df 100644 --- a/lapack-netlib/SRC/dgemqrt.c +++ b/lapack-netlib/SRC/dgemqrt.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/dgeql2.c b/lapack-netlib/SRC/dgeql2.c index 125ede360..4cbe6deb7 100644 --- a/lapack-netlib/SRC/dgeql2.c +++ b/lapack-netlib/SRC/dgeql2.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/dgeqlf.c b/lapack-netlib/SRC/dgeqlf.c index 94853a678..936552603 100644 --- a/lapack-netlib/SRC/dgeqlf.c +++ b/lapack-netlib/SRC/dgeqlf.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/dgeqp3.c b/lapack-netlib/SRC/dgeqp3.c index dd966a50e..5891cdc91 100644 --- a/lapack-netlib/SRC/dgeqp3.c +++ b/lapack-netlib/SRC/dgeqp3.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/dgeqp3rk.c b/lapack-netlib/SRC/dgeqp3rk.c index 17a78dd5a..219d649bc 100644 --- a/lapack-netlib/SRC/dgeqp3rk.c +++ b/lapack-netlib/SRC/dgeqp3rk.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/dgeqr.c b/lapack-netlib/SRC/dgeqr.c index dbd0c7e4f..dbf7cdfb5 100644 --- a/lapack-netlib/SRC/dgeqr.c +++ b/lapack-netlib/SRC/dgeqr.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/dgeqr2.c b/lapack-netlib/SRC/dgeqr2.c index f80cd2da8..f96cea469 100644 --- a/lapack-netlib/SRC/dgeqr2.c +++ b/lapack-netlib/SRC/dgeqr2.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/dgeqr2p.c b/lapack-netlib/SRC/dgeqr2p.c index 83f21e878..0b8f4e93e 100644 --- a/lapack-netlib/SRC/dgeqr2p.c +++ b/lapack-netlib/SRC/dgeqr2p.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/dgeqrf.c b/lapack-netlib/SRC/dgeqrf.c index fc0bb6989..4b8b05930 100644 --- a/lapack-netlib/SRC/dgeqrf.c +++ b/lapack-netlib/SRC/dgeqrf.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/dgeqrfp.c b/lapack-netlib/SRC/dgeqrfp.c index 5de166b5c..ae9ee6912 100644 --- a/lapack-netlib/SRC/dgeqrfp.c +++ b/lapack-netlib/SRC/dgeqrfp.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/dgeqrt.c b/lapack-netlib/SRC/dgeqrt.c index 2c0d8c12e..7b7d31b0e 100644 --- a/lapack-netlib/SRC/dgeqrt.c +++ b/lapack-netlib/SRC/dgeqrt.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/dgeqrt2.c b/lapack-netlib/SRC/dgeqrt2.c index 84a987387..f7760ea97 100644 --- a/lapack-netlib/SRC/dgeqrt2.c +++ b/lapack-netlib/SRC/dgeqrt2.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/dgeqrt3.c b/lapack-netlib/SRC/dgeqrt3.c index 997a8e1d1..7f5964c15 100644 --- a/lapack-netlib/SRC/dgeqrt3.c +++ b/lapack-netlib/SRC/dgeqrt3.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/dgerfs.c b/lapack-netlib/SRC/dgerfs.c index a332ec33d..5d5b7bb07 100644 --- a/lapack-netlib/SRC/dgerfs.c +++ b/lapack-netlib/SRC/dgerfs.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/dgerfsx.c b/lapack-netlib/SRC/dgerfsx.c index e003bfaa8..4fab4c3fb 100644 --- a/lapack-netlib/SRC/dgerfsx.c +++ b/lapack-netlib/SRC/dgerfsx.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/dgerq2.c b/lapack-netlib/SRC/dgerq2.c index 777847384..e5d26ce58 100644 --- a/lapack-netlib/SRC/dgerq2.c +++ b/lapack-netlib/SRC/dgerq2.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/dgerqf.c b/lapack-netlib/SRC/dgerqf.c index 1eb54dc84..cdee1efa3 100644 --- a/lapack-netlib/SRC/dgerqf.c +++ b/lapack-netlib/SRC/dgerqf.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/dgesc2.c b/lapack-netlib/SRC/dgesc2.c index 3e7288bc6..23f8773d9 100644 --- a/lapack-netlib/SRC/dgesc2.c +++ b/lapack-netlib/SRC/dgesc2.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/dgesdd.c b/lapack-netlib/SRC/dgesdd.c index a84ed5006..044732021 100644 --- a/lapack-netlib/SRC/dgesdd.c +++ b/lapack-netlib/SRC/dgesdd.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/dgesv.c b/lapack-netlib/SRC/dgesv.c index ad0978250..b871271d7 100644 --- a/lapack-netlib/SRC/dgesv.c +++ b/lapack-netlib/SRC/dgesv.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/dgesvd.c b/lapack-netlib/SRC/dgesvd.c index 32f136b7d..f7b3a74c6 100644 --- a/lapack-netlib/SRC/dgesvd.c +++ b/lapack-netlib/SRC/dgesvd.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/dgesvdq.c b/lapack-netlib/SRC/dgesvdq.c index c7f2001c3..ec6343e01 100644 --- a/lapack-netlib/SRC/dgesvdq.c +++ b/lapack-netlib/SRC/dgesvdq.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/dgesvdx.c b/lapack-netlib/SRC/dgesvdx.c index 3f3a8eb4f..2a5ad587a 100644 --- a/lapack-netlib/SRC/dgesvdx.c +++ b/lapack-netlib/SRC/dgesvdx.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/dgesvj.c b/lapack-netlib/SRC/dgesvj.c index 88ee26ce6..c2c89e69d 100644 --- a/lapack-netlib/SRC/dgesvj.c +++ b/lapack-netlib/SRC/dgesvj.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/dgesvx.c b/lapack-netlib/SRC/dgesvx.c index 646436f89..4ccb85463 100644 --- a/lapack-netlib/SRC/dgesvx.c +++ b/lapack-netlib/SRC/dgesvx.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/dgesvxx.c b/lapack-netlib/SRC/dgesvxx.c index 6c80d6b6d..1b470b7db 100644 --- a/lapack-netlib/SRC/dgesvxx.c +++ b/lapack-netlib/SRC/dgesvxx.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/dgetc2.c b/lapack-netlib/SRC/dgetc2.c index 1c33db5dc..574f4bb31 100644 --- a/lapack-netlib/SRC/dgetc2.c +++ b/lapack-netlib/SRC/dgetc2.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/dgetf2.c b/lapack-netlib/SRC/dgetf2.c index e0f7dd74c..595da91d4 100644 --- a/lapack-netlib/SRC/dgetf2.c +++ b/lapack-netlib/SRC/dgetf2.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/dgetrf.c b/lapack-netlib/SRC/dgetrf.c index 6e3faef5b..81f32f046 100644 --- a/lapack-netlib/SRC/dgetrf.c +++ b/lapack-netlib/SRC/dgetrf.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/dgetrf2.c b/lapack-netlib/SRC/dgetrf2.c index 802868e7d..2dc95a3ab 100644 --- a/lapack-netlib/SRC/dgetrf2.c +++ b/lapack-netlib/SRC/dgetrf2.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/dgetri.c b/lapack-netlib/SRC/dgetri.c index 6f5b386f6..3e7ced536 100644 --- a/lapack-netlib/SRC/dgetri.c +++ b/lapack-netlib/SRC/dgetri.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/dgetrs.c b/lapack-netlib/SRC/dgetrs.c index 50b962b61..876bb4bfe 100644 --- a/lapack-netlib/SRC/dgetrs.c +++ b/lapack-netlib/SRC/dgetrs.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/dgetsls.c b/lapack-netlib/SRC/dgetsls.c index 221c4d5e0..1c4cf686b 100644 --- a/lapack-netlib/SRC/dgetsls.c +++ b/lapack-netlib/SRC/dgetsls.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/dgetsqrhrt.c b/lapack-netlib/SRC/dgetsqrhrt.c index ae9e16bb9..e4d25d723 100644 --- a/lapack-netlib/SRC/dgetsqrhrt.c +++ b/lapack-netlib/SRC/dgetsqrhrt.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/dggbak.c b/lapack-netlib/SRC/dggbak.c index a81fe75e9..49f0d6e23 100644 --- a/lapack-netlib/SRC/dggbak.c +++ b/lapack-netlib/SRC/dggbak.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/dggbal.c b/lapack-netlib/SRC/dggbal.c index 422dc2d1e..151418fea 100644 --- a/lapack-netlib/SRC/dggbal.c +++ b/lapack-netlib/SRC/dggbal.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/dgges.c b/lapack-netlib/SRC/dgges.c index 399d12bc6..a7f24de4a 100644 --- a/lapack-netlib/SRC/dgges.c +++ b/lapack-netlib/SRC/dgges.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/dgges3.c b/lapack-netlib/SRC/dgges3.c index 89fca0326..8e1139349 100644 --- a/lapack-netlib/SRC/dgges3.c +++ b/lapack-netlib/SRC/dgges3.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/dggesx.c b/lapack-netlib/SRC/dggesx.c index 995b5f01e..3f5f6cd17 100644 --- a/lapack-netlib/SRC/dggesx.c +++ b/lapack-netlib/SRC/dggesx.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/dggev.c b/lapack-netlib/SRC/dggev.c index 7a8f34bb8..07d4b166c 100644 --- a/lapack-netlib/SRC/dggev.c +++ b/lapack-netlib/SRC/dggev.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/dggev3.c b/lapack-netlib/SRC/dggev3.c index fa8f27dbf..ab080dcff 100644 --- a/lapack-netlib/SRC/dggev3.c +++ b/lapack-netlib/SRC/dggev3.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/dggevx.c b/lapack-netlib/SRC/dggevx.c index 213beaf84..72f4c8bb3 100644 --- a/lapack-netlib/SRC/dggevx.c +++ b/lapack-netlib/SRC/dggevx.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/dggglm.c b/lapack-netlib/SRC/dggglm.c index 1299b3441..75913c497 100644 --- a/lapack-netlib/SRC/dggglm.c +++ b/lapack-netlib/SRC/dggglm.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/dgghd3.c b/lapack-netlib/SRC/dgghd3.c index c4507b8cb..5a4df0a0f 100644 --- a/lapack-netlib/SRC/dgghd3.c +++ b/lapack-netlib/SRC/dgghd3.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/dgghrd.c b/lapack-netlib/SRC/dgghrd.c index 03879f33e..2fc015905 100644 --- a/lapack-netlib/SRC/dgghrd.c +++ b/lapack-netlib/SRC/dgghrd.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/dgglse.c b/lapack-netlib/SRC/dgglse.c index e9b555073..17bc5c94a 100644 --- a/lapack-netlib/SRC/dgglse.c +++ b/lapack-netlib/SRC/dgglse.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/dggqrf.c b/lapack-netlib/SRC/dggqrf.c index 535db1cce..42fe5759e 100644 --- a/lapack-netlib/SRC/dggqrf.c +++ b/lapack-netlib/SRC/dggqrf.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/dggrqf.c b/lapack-netlib/SRC/dggrqf.c index 9b764d7b8..3cf0e3856 100644 --- a/lapack-netlib/SRC/dggrqf.c +++ b/lapack-netlib/SRC/dggrqf.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/dggsvd3.c b/lapack-netlib/SRC/dggsvd3.c index 347d0e08a..bd68d4f14 100644 --- a/lapack-netlib/SRC/dggsvd3.c +++ b/lapack-netlib/SRC/dggsvd3.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/dggsvp3.c b/lapack-netlib/SRC/dggsvp3.c index b07984e11..ab4f1ae05 100644 --- a/lapack-netlib/SRC/dggsvp3.c +++ b/lapack-netlib/SRC/dggsvp3.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/dgsvj0.c b/lapack-netlib/SRC/dgsvj0.c index 4dc598578..283751f66 100644 --- a/lapack-netlib/SRC/dgsvj0.c +++ b/lapack-netlib/SRC/dgsvj0.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/dgsvj1.c b/lapack-netlib/SRC/dgsvj1.c index b191834ed..463a26105 100644 --- a/lapack-netlib/SRC/dgsvj1.c +++ b/lapack-netlib/SRC/dgsvj1.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/dgtcon.c b/lapack-netlib/SRC/dgtcon.c index 1244943e8..9af5a8880 100644 --- a/lapack-netlib/SRC/dgtcon.c +++ b/lapack-netlib/SRC/dgtcon.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/dgtrfs.c b/lapack-netlib/SRC/dgtrfs.c index 81add9aa0..4354a75fb 100644 --- a/lapack-netlib/SRC/dgtrfs.c +++ b/lapack-netlib/SRC/dgtrfs.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/dgtsv.c b/lapack-netlib/SRC/dgtsv.c index c608f1c07..ce667e16e 100644 --- a/lapack-netlib/SRC/dgtsv.c +++ b/lapack-netlib/SRC/dgtsv.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/dgtsvx.c b/lapack-netlib/SRC/dgtsvx.c index d6aaf1e17..043a1c103 100644 --- a/lapack-netlib/SRC/dgtsvx.c +++ b/lapack-netlib/SRC/dgtsvx.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/dgttrf.c b/lapack-netlib/SRC/dgttrf.c index d4a9ebf13..fb16e7644 100644 --- a/lapack-netlib/SRC/dgttrf.c +++ b/lapack-netlib/SRC/dgttrf.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/dgttrs.c b/lapack-netlib/SRC/dgttrs.c index 818bc0e09..325b39527 100644 --- a/lapack-netlib/SRC/dgttrs.c +++ b/lapack-netlib/SRC/dgttrs.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/dgtts2.c b/lapack-netlib/SRC/dgtts2.c index 7ac39f706..663d3b31a 100644 --- a/lapack-netlib/SRC/dgtts2.c +++ b/lapack-netlib/SRC/dgtts2.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/dhgeqz.c b/lapack-netlib/SRC/dhgeqz.c index e24783316..87fcc7c59 100644 --- a/lapack-netlib/SRC/dhgeqz.c +++ b/lapack-netlib/SRC/dhgeqz.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/dhsein.c b/lapack-netlib/SRC/dhsein.c index 299fe7d54..1c3ce19d5 100644 --- a/lapack-netlib/SRC/dhsein.c +++ b/lapack-netlib/SRC/dhsein.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/dhseqr.c b/lapack-netlib/SRC/dhseqr.c index 2c3f9d9ce..85a6c3f73 100644 --- a/lapack-netlib/SRC/dhseqr.c +++ b/lapack-netlib/SRC/dhseqr.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/disnan.c b/lapack-netlib/SRC/disnan.c index 434220090..4480c00bc 100644 --- a/lapack-netlib/SRC/disnan.c +++ b/lapack-netlib/SRC/disnan.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/dla_gbamv.c b/lapack-netlib/SRC/dla_gbamv.c index 87d6e36bc..17ffdc4e7 100644 --- a/lapack-netlib/SRC/dla_gbamv.c +++ b/lapack-netlib/SRC/dla_gbamv.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/dla_gbrcond.c b/lapack-netlib/SRC/dla_gbrcond.c index 777b3ebd6..919ef90bd 100644 --- a/lapack-netlib/SRC/dla_gbrcond.c +++ b/lapack-netlib/SRC/dla_gbrcond.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/dla_gbrfsx_extended.c b/lapack-netlib/SRC/dla_gbrfsx_extended.c index 6fba8a5de..1caa72357 100644 --- a/lapack-netlib/SRC/dla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/dla_gbrfsx_extended.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/dla_gbrpvgrw.c b/lapack-netlib/SRC/dla_gbrpvgrw.c index 460975e70..2e92711ec 100644 --- a/lapack-netlib/SRC/dla_gbrpvgrw.c +++ b/lapack-netlib/SRC/dla_gbrpvgrw.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/dla_geamv.c b/lapack-netlib/SRC/dla_geamv.c index c52212090..6d9929d49 100644 --- a/lapack-netlib/SRC/dla_geamv.c +++ b/lapack-netlib/SRC/dla_geamv.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/dla_gercond.c b/lapack-netlib/SRC/dla_gercond.c index 3a6fa8eca..6fbc7d4b4 100644 --- a/lapack-netlib/SRC/dla_gercond.c +++ b/lapack-netlib/SRC/dla_gercond.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/dla_gerfsx_extended.c b/lapack-netlib/SRC/dla_gerfsx_extended.c index 96959334e..ad528f475 100644 --- a/lapack-netlib/SRC/dla_gerfsx_extended.c +++ b/lapack-netlib/SRC/dla_gerfsx_extended.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/dla_gerpvgrw.c b/lapack-netlib/SRC/dla_gerpvgrw.c index de3601d76..aa119c0e5 100644 --- a/lapack-netlib/SRC/dla_gerpvgrw.c +++ b/lapack-netlib/SRC/dla_gerpvgrw.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/dla_lin_berr.c b/lapack-netlib/SRC/dla_lin_berr.c index 63fba703a..cb4208dfb 100644 --- a/lapack-netlib/SRC/dla_lin_berr.c +++ b/lapack-netlib/SRC/dla_lin_berr.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/dla_porcond.c b/lapack-netlib/SRC/dla_porcond.c index 75e3f7f7a..a058d60b7 100644 --- a/lapack-netlib/SRC/dla_porcond.c +++ b/lapack-netlib/SRC/dla_porcond.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/dla_porfsx_extended.c b/lapack-netlib/SRC/dla_porfsx_extended.c index 482ff9cf6..e84a27343 100644 --- a/lapack-netlib/SRC/dla_porfsx_extended.c +++ b/lapack-netlib/SRC/dla_porfsx_extended.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/dla_porpvgrw.c b/lapack-netlib/SRC/dla_porpvgrw.c index 2ab26d1d9..1bfbe5be3 100644 --- a/lapack-netlib/SRC/dla_porpvgrw.c +++ b/lapack-netlib/SRC/dla_porpvgrw.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/dla_syamv.c b/lapack-netlib/SRC/dla_syamv.c index c696c3fab..27d30bf53 100644 --- a/lapack-netlib/SRC/dla_syamv.c +++ b/lapack-netlib/SRC/dla_syamv.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/dla_syrcond.c b/lapack-netlib/SRC/dla_syrcond.c index 9466eb0f2..6478edd92 100644 --- a/lapack-netlib/SRC/dla_syrcond.c +++ b/lapack-netlib/SRC/dla_syrcond.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/dla_syrfsx_extended.c b/lapack-netlib/SRC/dla_syrfsx_extended.c index ff90972d1..b517ea246 100644 --- a/lapack-netlib/SRC/dla_syrfsx_extended.c +++ b/lapack-netlib/SRC/dla_syrfsx_extended.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/dla_syrpvgrw.c b/lapack-netlib/SRC/dla_syrpvgrw.c index d27128b7e..4556fbaaf 100644 --- a/lapack-netlib/SRC/dla_syrpvgrw.c +++ b/lapack-netlib/SRC/dla_syrpvgrw.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/dla_wwaddw.c b/lapack-netlib/SRC/dla_wwaddw.c index bdc0ff26b..007601bea 100644 --- a/lapack-netlib/SRC/dla_wwaddw.c +++ b/lapack-netlib/SRC/dla_wwaddw.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