diff --git a/lapack-netlib/SRC/zlaswp.c b/lapack-netlib/SRC/zlaswp.c index 84616be2b..eee4de061 100644 --- a/lapack-netlib/SRC/zlaswp.c +++ b/lapack-netlib/SRC/zlaswp.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/zlasyf.c b/lapack-netlib/SRC/zlasyf.c index f52e18b6a..cc26f87e0 100644 --- a/lapack-netlib/SRC/zlasyf.c +++ b/lapack-netlib/SRC/zlasyf.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/zlasyf_aa.c b/lapack-netlib/SRC/zlasyf_aa.c index 6a769f996..d5bc9fe1a 100644 --- a/lapack-netlib/SRC/zlasyf_aa.c +++ b/lapack-netlib/SRC/zlasyf_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/zlasyf_rk.c b/lapack-netlib/SRC/zlasyf_rk.c index a8690e3b0..f388372b2 100644 --- a/lapack-netlib/SRC/zlasyf_rk.c +++ b/lapack-netlib/SRC/zlasyf_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/zlasyf_rook.c b/lapack-netlib/SRC/zlasyf_rook.c index 09ff4c304..6c1302aeb 100644 --- a/lapack-netlib/SRC/zlasyf_rook.c +++ b/lapack-netlib/SRC/zlasyf_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/zlat2c.c b/lapack-netlib/SRC/zlat2c.c index a11ce7f97..a3a2de70d 100644 --- a/lapack-netlib/SRC/zlat2c.c +++ b/lapack-netlib/SRC/zlat2c.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/zlatbs.c b/lapack-netlib/SRC/zlatbs.c index f862c1488..33e73dbf2 100644 --- a/lapack-netlib/SRC/zlatbs.c +++ b/lapack-netlib/SRC/zlatbs.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/zlatdf.c b/lapack-netlib/SRC/zlatdf.c index 125fc1752..a207a62cb 100644 --- a/lapack-netlib/SRC/zlatdf.c +++ b/lapack-netlib/SRC/zlatdf.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/zlatps.c b/lapack-netlib/SRC/zlatps.c index f73d72e71..125cc4425 100644 --- a/lapack-netlib/SRC/zlatps.c +++ b/lapack-netlib/SRC/zlatps.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/zlatrd.c b/lapack-netlib/SRC/zlatrd.c index 81a3479f7..9a6cf3b13 100644 --- a/lapack-netlib/SRC/zlatrd.c +++ b/lapack-netlib/SRC/zlatrd.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/zlatrs.c b/lapack-netlib/SRC/zlatrs.c index 71122e2cc..6bd493c1f 100644 --- a/lapack-netlib/SRC/zlatrs.c +++ b/lapack-netlib/SRC/zlatrs.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/zlatrs3.c b/lapack-netlib/SRC/zlatrs3.c index 0afc8d26c..dddf96eea 100644 --- a/lapack-netlib/SRC/zlatrs3.c +++ b/lapack-netlib/SRC/zlatrs3.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(double *x) {int e; (void)frexp(*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/zlatrz.c b/lapack-netlib/SRC/zlatrz.c index 69be8eaa8..3c2b754fd 100644 --- a/lapack-netlib/SRC/zlatrz.c +++ b/lapack-netlib/SRC/zlatrz.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/zlatsqr.c b/lapack-netlib/SRC/zlatsqr.c index 7e98a6203..baa0e5511 100644 --- a/lapack-netlib/SRC/zlatsqr.c +++ b/lapack-netlib/SRC/zlatsqr.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/zlaunhr_col_getrfnp.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp.c index ed22ca82e..82393ba86 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp.c +++ b/lapack-netlib/SRC/zlaunhr_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/zlaunhr_col_getrfnp2.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c index acf267024..91d93849d 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/zlaunhr_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/zlauu2.c b/lapack-netlib/SRC/zlauu2.c index 9a8dbea6d..0086794da 100644 --- a/lapack-netlib/SRC/zlauu2.c +++ b/lapack-netlib/SRC/zlauu2.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/zlauum.c b/lapack-netlib/SRC/zlauum.c index b8331beee..0f3a5528b 100644 --- a/lapack-netlib/SRC/zlauum.c +++ b/lapack-netlib/SRC/zlauum.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/zpbcon.c b/lapack-netlib/SRC/zpbcon.c index 36d2dac74..574e5d79f 100644 --- a/lapack-netlib/SRC/zpbcon.c +++ b/lapack-netlib/SRC/zpbcon.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/zpbequ.c b/lapack-netlib/SRC/zpbequ.c index eecf4b2f8..d4b46d313 100644 --- a/lapack-netlib/SRC/zpbequ.c +++ b/lapack-netlib/SRC/zpbequ.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/zpbrfs.c b/lapack-netlib/SRC/zpbrfs.c index 7e1166d9d..d3f813d41 100644 --- a/lapack-netlib/SRC/zpbrfs.c +++ b/lapack-netlib/SRC/zpbrfs.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/zpbstf.c b/lapack-netlib/SRC/zpbstf.c index c46dcb8c3..78b5d1b75 100644 --- a/lapack-netlib/SRC/zpbstf.c +++ b/lapack-netlib/SRC/zpbstf.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/zpbsv.c b/lapack-netlib/SRC/zpbsv.c index a9a19b714..c4fe2e1e7 100644 --- a/lapack-netlib/SRC/zpbsv.c +++ b/lapack-netlib/SRC/zpbsv.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/zpbsvx.c b/lapack-netlib/SRC/zpbsvx.c index 83b923883..43b487403 100644 --- a/lapack-netlib/SRC/zpbsvx.c +++ b/lapack-netlib/SRC/zpbsvx.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/zpbtf2.c b/lapack-netlib/SRC/zpbtf2.c index f050b9602..3454ca6f7 100644 --- a/lapack-netlib/SRC/zpbtf2.c +++ b/lapack-netlib/SRC/zpbtf2.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/zpbtrf.c b/lapack-netlib/SRC/zpbtrf.c index 268d1c101..6dfc68947 100644 --- a/lapack-netlib/SRC/zpbtrf.c +++ b/lapack-netlib/SRC/zpbtrf.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/zpbtrs.c b/lapack-netlib/SRC/zpbtrs.c index 3e8d2cf79..e1eb3415a 100644 --- a/lapack-netlib/SRC/zpbtrs.c +++ b/lapack-netlib/SRC/zpbtrs.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/zpftrf.c b/lapack-netlib/SRC/zpftrf.c index f2231e331..1c01e97b7 100644 --- a/lapack-netlib/SRC/zpftrf.c +++ b/lapack-netlib/SRC/zpftrf.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/zpftri.c b/lapack-netlib/SRC/zpftri.c index 52ab6aff5..2e0045390 100644 --- a/lapack-netlib/SRC/zpftri.c +++ b/lapack-netlib/SRC/zpftri.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/zpftrs.c b/lapack-netlib/SRC/zpftrs.c index 26aaaa61c..7206231ff 100644 --- a/lapack-netlib/SRC/zpftrs.c +++ b/lapack-netlib/SRC/zpftrs.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/zpocon.c b/lapack-netlib/SRC/zpocon.c index 4eecb1316..51305a415 100644 --- a/lapack-netlib/SRC/zpocon.c +++ b/lapack-netlib/SRC/zpocon.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/zpoequ.c b/lapack-netlib/SRC/zpoequ.c index e3fcc4892..59ff410db 100644 --- a/lapack-netlib/SRC/zpoequ.c +++ b/lapack-netlib/SRC/zpoequ.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/zpoequb.c b/lapack-netlib/SRC/zpoequb.c index 54c36e772..c323ec60c 100644 --- a/lapack-netlib/SRC/zpoequb.c +++ b/lapack-netlib/SRC/zpoequb.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/zporfs.c b/lapack-netlib/SRC/zporfs.c index 9b963c44a..aebda152e 100644 --- a/lapack-netlib/SRC/zporfs.c +++ b/lapack-netlib/SRC/zporfs.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/zporfsx.c b/lapack-netlib/SRC/zporfsx.c index aa3ac4f72..61885f2fe 100644 --- a/lapack-netlib/SRC/zporfsx.c +++ b/lapack-netlib/SRC/zporfsx.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/zposv.c b/lapack-netlib/SRC/zposv.c index a577d5315..cc8fbf581 100644 --- a/lapack-netlib/SRC/zposv.c +++ b/lapack-netlib/SRC/zposv.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/zposvx.c b/lapack-netlib/SRC/zposvx.c index 10032d758..b8a0150ef 100644 --- a/lapack-netlib/SRC/zposvx.c +++ b/lapack-netlib/SRC/zposvx.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/zposvxx.c b/lapack-netlib/SRC/zposvxx.c index b6473cf98..a62619cbf 100644 --- a/lapack-netlib/SRC/zposvxx.c +++ b/lapack-netlib/SRC/zposvxx.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/zpotf2.c b/lapack-netlib/SRC/zpotf2.c index 594f33802..c4c8c77ff 100644 --- a/lapack-netlib/SRC/zpotf2.c +++ b/lapack-netlib/SRC/zpotf2.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/zpotrf.c b/lapack-netlib/SRC/zpotrf.c index 99dd13bde..37d1babb7 100644 --- a/lapack-netlib/SRC/zpotrf.c +++ b/lapack-netlib/SRC/zpotrf.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/zpotrf2.c b/lapack-netlib/SRC/zpotrf2.c index 0b773aae6..0520c7fe5 100644 --- a/lapack-netlib/SRC/zpotrf2.c +++ b/lapack-netlib/SRC/zpotrf2.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/zpotri.c b/lapack-netlib/SRC/zpotri.c index 92b0f844b..f4f5d7617 100644 --- a/lapack-netlib/SRC/zpotri.c +++ b/lapack-netlib/SRC/zpotri.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/zpotrs.c b/lapack-netlib/SRC/zpotrs.c index ddbe496e5..c01deca93 100644 --- a/lapack-netlib/SRC/zpotrs.c +++ b/lapack-netlib/SRC/zpotrs.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/zppcon.c b/lapack-netlib/SRC/zppcon.c index 541c330af..e44f73a49 100644 --- a/lapack-netlib/SRC/zppcon.c +++ b/lapack-netlib/SRC/zppcon.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/zppequ.c b/lapack-netlib/SRC/zppequ.c index 7b7d7be22..04d5955ab 100644 --- a/lapack-netlib/SRC/zppequ.c +++ b/lapack-netlib/SRC/zppequ.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/zpprfs.c b/lapack-netlib/SRC/zpprfs.c index 652d53cbc..80bca1606 100644 --- a/lapack-netlib/SRC/zpprfs.c +++ b/lapack-netlib/SRC/zpprfs.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/zppsv.c b/lapack-netlib/SRC/zppsv.c index 4788368fc..46784aded 100644 --- a/lapack-netlib/SRC/zppsv.c +++ b/lapack-netlib/SRC/zppsv.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/zppsvx.c b/lapack-netlib/SRC/zppsvx.c index ff1cb299e..2b3446572 100644 --- a/lapack-netlib/SRC/zppsvx.c +++ b/lapack-netlib/SRC/zppsvx.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/zpptrf.c b/lapack-netlib/SRC/zpptrf.c index 8e099c203..c595af7e0 100644 --- a/lapack-netlib/SRC/zpptrf.c +++ b/lapack-netlib/SRC/zpptrf.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/zpptri.c b/lapack-netlib/SRC/zpptri.c index 215e34379..f05e6e6bb 100644 --- a/lapack-netlib/SRC/zpptri.c +++ b/lapack-netlib/SRC/zpptri.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/zpptrs.c b/lapack-netlib/SRC/zpptrs.c index 4ede1c717..7c88d70ff 100644 --- a/lapack-netlib/SRC/zpptrs.c +++ b/lapack-netlib/SRC/zpptrs.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/zpstf2.c b/lapack-netlib/SRC/zpstf2.c index 9fa691324..4d563869e 100644 --- a/lapack-netlib/SRC/zpstf2.c +++ b/lapack-netlib/SRC/zpstf2.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/zpstrf.c b/lapack-netlib/SRC/zpstrf.c index 056f93b46..806b4ba20 100644 --- a/lapack-netlib/SRC/zpstrf.c +++ b/lapack-netlib/SRC/zpstrf.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/zptcon.c b/lapack-netlib/SRC/zptcon.c index 45e748a6b..8496b48cc 100644 --- a/lapack-netlib/SRC/zptcon.c +++ b/lapack-netlib/SRC/zptcon.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/zpteqr.c b/lapack-netlib/SRC/zpteqr.c index e557bcc7c..578aa7739 100644 --- a/lapack-netlib/SRC/zpteqr.c +++ b/lapack-netlib/SRC/zpteqr.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/zptrfs.c b/lapack-netlib/SRC/zptrfs.c index 3bf491577..a59ac5cdc 100644 --- a/lapack-netlib/SRC/zptrfs.c +++ b/lapack-netlib/SRC/zptrfs.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/zptsv.c b/lapack-netlib/SRC/zptsv.c index 37e853465..c08a1b800 100644 --- a/lapack-netlib/SRC/zptsv.c +++ b/lapack-netlib/SRC/zptsv.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/zptsvx.c b/lapack-netlib/SRC/zptsvx.c index 3ab57d235..25d742016 100644 --- a/lapack-netlib/SRC/zptsvx.c +++ b/lapack-netlib/SRC/zptsvx.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/zpttrf.c b/lapack-netlib/SRC/zpttrf.c index e2c271f90..8069c1b22 100644 --- a/lapack-netlib/SRC/zpttrf.c +++ b/lapack-netlib/SRC/zpttrf.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/zpttrs.c b/lapack-netlib/SRC/zpttrs.c index c9a0336fa..327e1bad0 100644 --- a/lapack-netlib/SRC/zpttrs.c +++ b/lapack-netlib/SRC/zpttrs.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/zptts2.c b/lapack-netlib/SRC/zptts2.c index 9b6d2fb9f..9f80af125 100644 --- a/lapack-netlib/SRC/zptts2.c +++ b/lapack-netlib/SRC/zptts2.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