diff --git a/lapack-netlib/INSTALL/dlamch.c b/lapack-netlib/INSTALL/dlamch.c index 744130a878..7a174aa582 100644 --- a/lapack-netlib/INSTALL/dlamch.c +++ b/lapack-netlib/INSTALL/dlamch.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/droundup_lwork.c b/lapack-netlib/INSTALL/droundup_lwork.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/INSTALL/droundup_lwork.c +++ b/lapack-netlib/INSTALL/droundup_lwork.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/dsecnd_INT_ETIME.c b/lapack-netlib/INSTALL/dsecnd_INT_ETIME.c index 36853ef4be..185353cf2f 100644 --- a/lapack-netlib/INSTALL/dsecnd_INT_ETIME.c +++ b/lapack-netlib/INSTALL/dsecnd_INT_ETIME.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/dsecnd_NONE.c b/lapack-netlib/INSTALL/dsecnd_NONE.c index 3c7072657d..d1dca0c3b9 100644 --- a/lapack-netlib/INSTALL/dsecnd_NONE.c +++ b/lapack-netlib/INSTALL/dsecnd_NONE.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/ilaver.c b/lapack-netlib/INSTALL/ilaver.c index b274af2928..212cd6bc22 100644 --- a/lapack-netlib/INSTALL/ilaver.c +++ b/lapack-netlib/INSTALL/ilaver.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/lsame.c b/lapack-netlib/INSTALL/lsame.c index 534cca4e4c..4745fa6a9f 100644 --- a/lapack-netlib/INSTALL/lsame.c +++ b/lapack-netlib/INSTALL/lsame.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/lsametst.c b/lapack-netlib/INSTALL/lsametst.c index 4b46115fcb..0d3e6637eb 100644 --- a/lapack-netlib/INSTALL/lsametst.c +++ b/lapack-netlib/INSTALL/lsametst.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/second_INT_ETIME.c b/lapack-netlib/INSTALL/second_INT_ETIME.c index 51b7ddb548..d9bfed9b82 100644 --- a/lapack-netlib/INSTALL/second_INT_ETIME.c +++ b/lapack-netlib/INSTALL/second_INT_ETIME.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/second_NONE.c b/lapack-netlib/INSTALL/second_NONE.c index a446d96805..d2610e3f03 100644 --- a/lapack-netlib/INSTALL/second_NONE.c +++ b/lapack-netlib/INSTALL/second_NONE.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/secondtst.c b/lapack-netlib/INSTALL/secondtst.c index 694679bb50..e90ba92e04 100644 --- a/lapack-netlib/INSTALL/secondtst.c +++ b/lapack-netlib/INSTALL/secondtst.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/slamch.c b/lapack-netlib/INSTALL/slamch.c index a000ed6648..1828e8e90a 100644 --- a/lapack-netlib/INSTALL/slamch.c +++ b/lapack-netlib/INSTALL/slamch.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/INSTALL/sroundup_lwork.c b/lapack-netlib/INSTALL/sroundup_lwork.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/INSTALL/sroundup_lwork.c +++ b/lapack-netlib/INSTALL/sroundup_lwork.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/cgegs.c b/lapack-netlib/SRC/DEPRECATED/cgegs.c index 45e2f5e63d..1b39e83b00 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgegs.c +++ b/lapack-netlib/SRC/DEPRECATED/cgegs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -779,7 +779,7 @@ rices */ *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *); real safmin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; @@ -898,7 +898,7 @@ rices */ if (*info != 0) { i__1 = -(*info); - xerbla_("CGEGS ", &i__1); + xerbla_("CGEGS", &i__1, (ftnlen)5); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/cgegv.c b/lapack-netlib/SRC/DEPRECATED/cgegv.c index 06b85adc43..96bf0a00c0 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgegv.c +++ b/lapack-netlib/SRC/DEPRECATED/cgegv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -852,7 +852,7 @@ rices */ integer *, integer *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, integer *, real *, integer *), - xerbla_(char *, integer *); + xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvl, iright; @@ -969,7 +969,7 @@ rices */ if (*info != 0) { i__1 = -(*info); - xerbla_("CGEGV ", &i__1); + xerbla_("CGEGV", &i__1, (ftnlen)5); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/cgelsx.c b/lapack-netlib/SRC/DEPRECATED/cgelsx.c index e6c742db40..72ba3f164e 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgelsx.c +++ b/lapack-netlib/SRC/DEPRECATED/cgelsx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -730,7 +730,7 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, - integer *); + integer *, ftnlen); real bignum; extern /* Subroutine */ int clatzm_(char *, integer *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex @@ -787,7 +787,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("CGELSX", &i__1); + xerbla_("CGELSX", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/cgeqpf.c b/lapack-netlib/SRC/DEPRECATED/cgeqpf.c index d68356d4ec..477d7380e2 100644 --- a/lapack-netlib/SRC/DEPRECATED/cgeqpf.c +++ b/lapack-netlib/SRC/DEPRECATED/cgeqpf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -688,7 +688,7 @@ f"> */ extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, integer *, complex *); extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer isamax_(integer *, real *, integer *); complex aii; integer pvt; @@ -725,7 +725,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("CGEQPF", &i__1); + xerbla_("CGEQPF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/cggsvd.c b/lapack-netlib/SRC/DEPRECATED/cggsvd.c index 31d0f66266..629d46aed3 100644 --- a/lapack-netlib/SRC/DEPRECATED/cggsvd.c +++ b/lapack-netlib/SRC/DEPRECATED/cggsvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -878,7 +878,7 @@ f"> */ complex *, integer *, real *, real *, real *, real *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *), xerbla_(char *, - integer *), cggsvp_(char *, char *, char *, integer *, + integer *, ftnlen), cggsvp_(char *, char *, char *, integer *, integer *, integer *, complex *, integer *, complex *, integer *, real *, real *, integer *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, integer *, real *, @@ -950,7 +950,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("CGGSVD", &i__1); + xerbla_("CGGSVD", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/cggsvp.c b/lapack-netlib/SRC/DEPRECATED/cggsvp.c index 75cf645c09..0b799fc6d4 100644 --- a/lapack-netlib/SRC/DEPRECATED/cggsvp.c +++ b/lapack-netlib/SRC/DEPRECATED/cggsvp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -803,7 +803,7 @@ f"> */ *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, integer - *), clapmt_(logical *, integer *, integer *, complex *, + *, ftnlen), clapmt_(logical *, integer *, integer *, complex *, integer *, integer *); logical forwrd; @@ -872,7 +872,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("CGGSVP", &i__1); + xerbla_("CGGSVP", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/clahrd.c b/lapack-netlib/SRC/DEPRECATED/clahrd.c index 0f90d28de4..e1ddd4ad32 100644 --- a/lapack-netlib/SRC/DEPRECATED/clahrd.c +++ b/lapack-netlib/SRC/DEPRECATED/clahrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/clatzm.c b/lapack-netlib/SRC/DEPRECATED/clatzm.c index 2b727ce6be..c6082dc730 100644 --- a/lapack-netlib/SRC/DEPRECATED/clatzm.c +++ b/lapack-netlib/SRC/DEPRECATED/clatzm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/ctzrqf.c b/lapack-netlib/SRC/DEPRECATED/ctzrqf.c index 7ac23fcad2..a0b3c72e01 100644 --- a/lapack-netlib/SRC/DEPRECATED/ctzrqf.c +++ b/lapack-netlib/SRC/DEPRECATED/ctzrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -672,7 +672,7 @@ f"> */ integer m1; extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, integer *, complex *), clacgv_(integer *, complex *, integer *), - xerbla_(char *, integer *); + xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -703,7 +703,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("CTZRQF", &i__1); + xerbla_("CTZRQF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/dgegs.c b/lapack-netlib/SRC/DEPRECATED/dgegs.c index f67d623a88..40bffd450b 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgegs.c +++ b/lapack-netlib/SRC/DEPRECATED/dgegs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -783,7 +783,7 @@ rices */ doublereal safmin; extern /* Subroutine */ int dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *); + xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; @@ -904,7 +904,7 @@ rices */ if (*info != 0) { i__1 = -(*info); - xerbla_("DGEGS ", &i__1); + xerbla_("DGEGS", &i__1, (ftnlen)5); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/dgegv.c b/lapack-netlib/SRC/DEPRECATED/dgegv.c index d5ba764630..2718db7f83 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgegv.c +++ b/lapack-netlib/SRC/DEPRECATED/dgegv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -878,7 +878,7 @@ rices */ logical *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, integer *, integer *, doublereal *, integer *), - xerbla_(char *, integer *); + xerbla_(char *, integer *, ftnlen); integer ijobvl, iright; logical ilimit; extern integer ilaenv_(integer *, char *, char *, integer *, integer *, @@ -997,7 +997,7 @@ rices */ if (*info != 0) { i__1 = -(*info); - xerbla_("DGEGV ", &i__1); + xerbla_("DGEGV ", &i__1, (ftnlen)6); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/dgelsx.c b/lapack-netlib/SRC/DEPRECATED/dgelsx.c index ecc4c53e42..726e2c19c0 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgelsx.c +++ b/lapack-netlib/SRC/DEPRECATED/dgelsx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -726,7 +726,7 @@ f"> */ doublereal *, integer *, integer *, doublereal *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), xerbla_(char *, - integer *); + integer *, ftnlen); doublereal bignum; extern /* Subroutine */ int dlatzm_(char *, integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, @@ -781,7 +781,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("DGELSX", &i__1); + xerbla_("DGELSX", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/dgeqpf.c b/lapack-netlib/SRC/DEPRECATED/dgeqpf.c index 550b61f560..215ff729fd 100644 --- a/lapack-netlib/SRC/DEPRECATED/dgeqpf.c +++ b/lapack-netlib/SRC/DEPRECATED/dgeqpf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -684,7 +684,7 @@ f"> */ extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, integer *, doublereal *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal aii; integer pvt; @@ -719,7 +719,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("DGEQPF", &i__1); + xerbla_("DGEQPF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/dggsvd.c b/lapack-netlib/SRC/DEPRECATED/dggsvd.c index 8a31fd2468..d2332bd790 100644 --- a/lapack-netlib/SRC/DEPRECATED/dggsvd.c +++ b/lapack-netlib/SRC/DEPRECATED/dggsvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -874,7 +874,7 @@ f"> */ *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, - integer *), xerbla_(char *, integer *), dggsvp_(char *, char *, char *, integer *, integer *, + integer *), xerbla_(char *, integer *, ftnlen), dggsvp_(char *, char *, char *, integer *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *, doublereal *, integer *, @@ -945,7 +945,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("DGGSVD", &i__1); + xerbla_("DGGSVD", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/dggsvp.c b/lapack-netlib/SRC/DEPRECATED/dggsvp.c index a151f88407..7bbd48b29a 100644 --- a/lapack-netlib/SRC/DEPRECATED/dggsvp.c +++ b/lapack-netlib/SRC/DEPRECATED/dggsvp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -797,7 +797,7 @@ f"> */ integer *, integer *, doublereal *, doublereal *, integer *), dlacpy_(char *, integer *, integer *, doublereal *, integer *, doublereal *, integer *), dlaset_(char *, integer *, - integer *, doublereal *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *), dlapmt_(logical *, + integer *, doublereal *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *, ftnlen), dlapmt_(logical *, integer *, integer *, doublereal *, integer *, integer *); logical forwrd; @@ -865,7 +865,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("DGGSVP", &i__1); + xerbla_("DGGSVP", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/dlahrd.c b/lapack-netlib/SRC/DEPRECATED/dlahrd.c index 7d0800bc33..fa0aa4bd4f 100644 --- a/lapack-netlib/SRC/DEPRECATED/dlahrd.c +++ b/lapack-netlib/SRC/DEPRECATED/dlahrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/dlatzm.c b/lapack-netlib/SRC/DEPRECATED/dlatzm.c index 3f0ab9fb19..25ae05e6a9 100644 --- a/lapack-netlib/SRC/DEPRECATED/dlatzm.c +++ b/lapack-netlib/SRC/DEPRECATED/dlatzm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/dtzrqf.c b/lapack-netlib/SRC/DEPRECATED/dtzrqf.c index 69ee27578e..46cfbcba39 100644 --- a/lapack-netlib/SRC/DEPRECATED/dtzrqf.c +++ b/lapack-netlib/SRC/DEPRECATED/dtzrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -672,7 +672,7 @@ f"> */ ; integer m1; extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, - integer *, doublereal *), xerbla_(char *, integer *); + integer *, doublereal *), xerbla_(char *, integer *, ftnlen); /* -- LAPACK computational routine (version 3.7.0) -- */ @@ -703,7 +703,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("DTZRQF", &i__1); + xerbla_("DTZRQF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/sgegs.c b/lapack-netlib/SRC/DEPRECATED/sgegs.c index e238edab30..6794333300 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgegs.c +++ b/lapack-netlib/SRC/DEPRECATED/sgegs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -772,7 +772,7 @@ ices */ extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, integer *, real *, integer *, real *, integer *, real *, integer * , real *, integer *, integer *), xerbla_(char *, - integer *); + integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; @@ -899,7 +899,7 @@ ices */ if (*info != 0) { i__1 = -(*info); - xerbla_("SGEGS ", &i__1); + xerbla_("SGEGS", &i__1, (ftnlen)5); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/sgegv.c b/lapack-netlib/SRC/DEPRECATED/sgegv.c index 8ed81b4152..22250b559f 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgegv.c +++ b/lapack-netlib/SRC/DEPRECATED/sgegv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -858,7 +858,7 @@ rices */ char chtemp[1]; logical ldumma[1]; extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, - real *, integer *, integer *, real *, integer *, integer *), xerbla_(char *, integer *); + real *, integer *, integer *, real *, integer *, integer *), xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer ijobvl, iright; @@ -988,7 +988,7 @@ rices */ if (*info != 0) { i__1 = -(*info); - xerbla_("SGEGV ", &i__1); + xerbla_("SGEGV", &i__1, (ftnlen)5); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/sgelsx.c b/lapack-netlib/SRC/DEPRECATED/sgelsx.c index 78846b4758..e14c3ea144 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgelsx.c +++ b/lapack-netlib/SRC/DEPRECATED/sgelsx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -716,7 +716,7 @@ f"> */ integer mn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real bignum; extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, real *, integer *, integer *, real *, integer *, integer *), sgeqpf_(integer *, integer *, real *, integer *, integer @@ -774,7 +774,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("SGELSX", &i__1); + xerbla_("SGELSX", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/sgeqpf.c b/lapack-netlib/SRC/DEPRECATED/sgeqpf.c index 5831a03955..0ae4292b7f 100644 --- a/lapack-netlib/SRC/DEPRECATED/sgeqpf.c +++ b/lapack-netlib/SRC/DEPRECATED/sgeqpf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -679,7 +679,7 @@ f"> */ integer *); integer mn; extern real slamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *), slarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarfg_( integer *, real *, real *, integer *, real *); extern integer isamax_(integer *, real *, integer *); real aii; @@ -716,7 +716,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("SGEQPF", &i__1); + xerbla_("SGEQPF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/sggsvd.c b/lapack-netlib/SRC/DEPRECATED/sggsvd.c index 1281cca904..87857a2186 100644 --- a/lapack-netlib/SRC/DEPRECATED/sggsvd.c +++ b/lapack-netlib/SRC/DEPRECATED/sggsvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -869,7 +869,7 @@ f"> */ logical wantu, wantv; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *), stgsja_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), stgsja_( char *, char *, char *, integer *, integer *, integer *, integer * , integer *, real *, integer *, real *, integer *, real *, real *, real *, real *, real *, integer *, real *, integer *, real *, @@ -944,7 +944,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("SGGSVD", &i__1); + xerbla_("SGGSVD", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/sggsvp.c b/lapack-netlib/SRC/DEPRECATED/sggsvp.c index e6c51aa118..41580c8711 100644 --- a/lapack-netlib/SRC/DEPRECATED/sggsvp.c +++ b/lapack-netlib/SRC/DEPRECATED/sggsvp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -789,7 +789,7 @@ f"> */ integer *, integer *, real *, integer *, real *, real *, integer * ), sorm2r_(char *, char *, integer *, integer *, integer *, real * , integer *, real *, real *, integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *, - real *, integer *, real *, real *, integer *, real *, integer *), xerbla_(char *, integer *), sgeqpf_( + real *, integer *, real *, real *, integer *, real *, integer *), xerbla_(char *, integer *, ftnlen), sgeqpf_( integer *, integer *, real *, integer *, integer *, real *, real * , integer *), slacpy_(char *, integer *, integer *, real *, integer *, real *, integer *), slaset_(char *, integer *, @@ -861,7 +861,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("SGGSVP", &i__1); + xerbla_("SGGSVP", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/slahrd.c b/lapack-netlib/SRC/DEPRECATED/slahrd.c index 2d60c82683..ef6d1e171d 100644 --- a/lapack-netlib/SRC/DEPRECATED/slahrd.c +++ b/lapack-netlib/SRC/DEPRECATED/slahrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/slatzm.c b/lapack-netlib/SRC/DEPRECATED/slatzm.c index 9ae546bfa1..1e2ac2448f 100644 --- a/lapack-netlib/SRC/DEPRECATED/slatzm.c +++ b/lapack-netlib/SRC/DEPRECATED/slatzm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/stzrqf.c b/lapack-netlib/SRC/DEPRECATED/stzrqf.c index 047d42da6d..b2c95000b9 100644 --- a/lapack-netlib/SRC/DEPRECATED/stzrqf.c +++ b/lapack-netlib/SRC/DEPRECATED/stzrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -667,7 +667,7 @@ f"> */ real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *); integer m1; extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, - real *, integer *), xerbla_(char *, integer *), slarfg_( + real *, integer *), xerbla_(char *, integer *, ftnlen), slarfg_( integer *, real *, real *, integer *, real *); @@ -699,7 +699,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("STZRQF", &i__1); + xerbla_("STZRQF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/zgegs.c b/lapack-netlib/SRC/DEPRECATED/zgegs.c index 4c8a59d3c1..0a33a819fa 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgegs.c +++ b/lapack-netlib/SRC/DEPRECATED/zgegs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -767,7 +767,7 @@ rices */ , integer *, doublereal *, doublereal *, doublereal *, integer *); logical ilascl, ilbscl; doublereal safmin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, @@ -903,7 +903,7 @@ rices */ if (*info != 0) { i__1 = -(*info); - xerbla_("ZGEGS ", &i__1); + xerbla_("ZGEGS", &i__1, (ftnlen)5); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/zgegv.c b/lapack-netlib/SRC/DEPRECATED/zgegv.c index e4238f51a6..0e3e12210d 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgegv.c +++ b/lapack-netlib/SRC/DEPRECATED/zgegv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -829,7 +829,7 @@ rices */ doublecomplex *, integer *, doublecomplex *, integer *, integer * , integer *, doublereal *, doublereal *, doublereal *, integer *); doublereal salfar, safmin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal safmax; char chtemp[1]; logical ldumma[1]; @@ -972,7 +972,7 @@ rices */ if (*info != 0) { i__1 = -(*info); - xerbla_("ZGEGV ", &i__1); + xerbla_("ZGEGV", &i__1, (ftnlen)5); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/DEPRECATED/zgelsx.c b/lapack-netlib/SRC/DEPRECATED/zgelsx.c index 6a4cdbfe92..9aae312699 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgelsx.c +++ b/lapack-netlib/SRC/DEPRECATED/zgelsx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -723,7 +723,7 @@ f"> */ integer mn; extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, - doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *); + doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); doublereal bignum; @@ -788,7 +788,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("ZGELSX", &i__1); + xerbla_("ZGELSX", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/zgeqpf.c b/lapack-netlib/SRC/DEPRECATED/zgeqpf.c index 72cbafff7d..097af67ed0 100644 --- a/lapack-netlib/SRC/DEPRECATED/zgeqpf.c +++ b/lapack-netlib/SRC/DEPRECATED/zgeqpf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -689,7 +689,7 @@ f"> */ integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *); extern integer idamax_(integer *, doublereal *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *), zlarfg_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarfg_( integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *); doublecomplex aii; @@ -727,7 +727,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("ZGEQPF", &i__1); + xerbla_("ZGEQPF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/zggsvd.c b/lapack-netlib/SRC/DEPRECATED/zggsvd.c index 3400a048bb..adeef104da 100644 --- a/lapack-netlib/SRC/DEPRECATED/zggsvd.c +++ b/lapack-netlib/SRC/DEPRECATED/zggsvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -871,7 +871,7 @@ f"> */ doublereal *, integer *); logical wantq, wantu, wantv; extern doublereal dlamch_(char *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); extern /* Subroutine */ int ztgsja_(char *, char *, char *, integer *, @@ -953,7 +953,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("ZGGSVD", &i__1); + xerbla_("ZGGSVD", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/zggsvp.c b/lapack-netlib/SRC/DEPRECATED/zggsvp.c index 17e4601f3f..119c170ebf 100644 --- a/lapack-netlib/SRC/DEPRECATED/zggsvp.c +++ b/lapack-netlib/SRC/DEPRECATED/zggsvp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -803,7 +803,7 @@ f"> */ doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), xerbla_( - char *, integer *), zgeqpf_(integer *, integer *, + char *, integer *, ftnlen), zgeqpf_(integer *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, doublereal *, integer *), zlacpy_(char *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, @@ -878,7 +878,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("ZGGSVP", &i__1); + xerbla_("ZGGSVP", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/DEPRECATED/zlahrd.c b/lapack-netlib/SRC/DEPRECATED/zlahrd.c index 4a4e9860e7..a3a20cd46b 100644 --- a/lapack-netlib/SRC/DEPRECATED/zlahrd.c +++ b/lapack-netlib/SRC/DEPRECATED/zlahrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/zlatzm.c b/lapack-netlib/SRC/DEPRECATED/zlatzm.c index 2884323926..3914e526c5 100644 --- a/lapack-netlib/SRC/DEPRECATED/zlatzm.c +++ b/lapack-netlib/SRC/DEPRECATED/zlatzm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/DEPRECATED/ztzrqf.c b/lapack-netlib/SRC/DEPRECATED/ztzrqf.c index 5d8e325bd0..97cc779002 100644 --- a/lapack-netlib/SRC/DEPRECATED/ztzrqf.c +++ b/lapack-netlib/SRC/DEPRECATED/ztzrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -671,7 +671,7 @@ f"> */ extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, integer *), xerbla_( - char *, integer *), zlarfg_(integer *, doublecomplex *, + char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *); @@ -704,7 +704,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("ZTZRQF", &i__1); + xerbla_("ZTZRQF", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/SRC/cbbcsd.c b/lapack-netlib/SRC/cbbcsd.c index d3cbea59ce..b12ed4447f 100644 --- a/lapack-netlib/SRC/cbbcsd.c +++ b/lapack-netlib/SRC/cbbcsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cbdsqr.c b/lapack-netlib/SRC/cbdsqr.c index 288053863f..a8e2008977 100644 --- a/lapack-netlib/SRC/cbdsqr.c +++ b/lapack-netlib/SRC/cbdsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbbrd.c b/lapack-netlib/SRC/cgbbrd.c index 61b9e9b50c..4cd49ffa2a 100644 --- a/lapack-netlib/SRC/cgbbrd.c +++ b/lapack-netlib/SRC/cgbbrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbcon.c b/lapack-netlib/SRC/cgbcon.c index e5bb9a9e8b..cdad442ff2 100644 --- a/lapack-netlib/SRC/cgbcon.c +++ b/lapack-netlib/SRC/cgbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbequ.c b/lapack-netlib/SRC/cgbequ.c index 18f6412046..be30e1e756 100644 --- a/lapack-netlib/SRC/cgbequ.c +++ b/lapack-netlib/SRC/cgbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbequb.c b/lapack-netlib/SRC/cgbequb.c index 5de604ee64..fe1cf8c13f 100644 --- a/lapack-netlib/SRC/cgbequb.c +++ b/lapack-netlib/SRC/cgbequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbrfs.c b/lapack-netlib/SRC/cgbrfs.c index 3733312274..c42042219c 100644 --- a/lapack-netlib/SRC/cgbrfs.c +++ b/lapack-netlib/SRC/cgbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbrfsx.c b/lapack-netlib/SRC/cgbrfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/cgbrfsx.c +++ b/lapack-netlib/SRC/cgbrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbsv.c b/lapack-netlib/SRC/cgbsv.c index c5fcd2f82e..543c18fb14 100644 --- a/lapack-netlib/SRC/cgbsv.c +++ b/lapack-netlib/SRC/cgbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbsvx.c b/lapack-netlib/SRC/cgbsvx.c index 0712d114cc..27fe400dd1 100644 --- a/lapack-netlib/SRC/cgbsvx.c +++ b/lapack-netlib/SRC/cgbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbsvxx.c b/lapack-netlib/SRC/cgbsvxx.c index 50804b1795..febbbfa500 100644 --- a/lapack-netlib/SRC/cgbsvxx.c +++ b/lapack-netlib/SRC/cgbsvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbtf2.c b/lapack-netlib/SRC/cgbtf2.c index 1e2e885357..227866f0eb 100644 --- a/lapack-netlib/SRC/cgbtf2.c +++ b/lapack-netlib/SRC/cgbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbtrf.c b/lapack-netlib/SRC/cgbtrf.c index 8bfcdf5264..298b6f69bf 100644 --- a/lapack-netlib/SRC/cgbtrf.c +++ b/lapack-netlib/SRC/cgbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgbtrs.c b/lapack-netlib/SRC/cgbtrs.c index df1ea67eea..fda0a5dc28 100644 --- a/lapack-netlib/SRC/cgbtrs.c +++ b/lapack-netlib/SRC/cgbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgebak.c b/lapack-netlib/SRC/cgebak.c index c406a3d391..ef3df1ee06 100644 --- a/lapack-netlib/SRC/cgebak.c +++ b/lapack-netlib/SRC/cgebak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgebal.c b/lapack-netlib/SRC/cgebal.c index 45e8b0f4ec..00ecc13677 100644 --- a/lapack-netlib/SRC/cgebal.c +++ b/lapack-netlib/SRC/cgebal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgebd2.c b/lapack-netlib/SRC/cgebd2.c index 6f8229b2fb..fd2fd91638 100644 --- a/lapack-netlib/SRC/cgebd2.c +++ b/lapack-netlib/SRC/cgebd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgebrd.c b/lapack-netlib/SRC/cgebrd.c index 6389348a72..66236568c0 100644 --- a/lapack-netlib/SRC/cgebrd.c +++ b/lapack-netlib/SRC/cgebrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgecon.c b/lapack-netlib/SRC/cgecon.c index 4dd42754a7..1026ee19f6 100644 --- a/lapack-netlib/SRC/cgecon.c +++ b/lapack-netlib/SRC/cgecon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeequ.c b/lapack-netlib/SRC/cgeequ.c index dfa45c381e..4a3a7bcedb 100644 --- a/lapack-netlib/SRC/cgeequ.c +++ b/lapack-netlib/SRC/cgeequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeequb.c b/lapack-netlib/SRC/cgeequb.c index 788d4c8410..2df69656c7 100644 --- a/lapack-netlib/SRC/cgeequb.c +++ b/lapack-netlib/SRC/cgeequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgees.c b/lapack-netlib/SRC/cgees.c index 7b0f60880c..59d3a0edae 100644 --- a/lapack-netlib/SRC/cgees.c +++ b/lapack-netlib/SRC/cgees.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeesx.c b/lapack-netlib/SRC/cgeesx.c index 46ab3631fa..8b24846bed 100644 --- a/lapack-netlib/SRC/cgeesx.c +++ b/lapack-netlib/SRC/cgeesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeev.c b/lapack-netlib/SRC/cgeev.c index ba4338b1dd..83a8640854 100644 --- a/lapack-netlib/SRC/cgeev.c +++ b/lapack-netlib/SRC/cgeev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeevx.c b/lapack-netlib/SRC/cgeevx.c index d4e6a2e5dd..bbec9e677a 100644 --- a/lapack-netlib/SRC/cgeevx.c +++ b/lapack-netlib/SRC/cgeevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgehd2.c b/lapack-netlib/SRC/cgehd2.c index 329b3c1b2a..c76e3b3a3e 100644 --- a/lapack-netlib/SRC/cgehd2.c +++ b/lapack-netlib/SRC/cgehd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgehrd.c b/lapack-netlib/SRC/cgehrd.c index 6706ff60d4..ce2befb6f8 100644 --- a/lapack-netlib/SRC/cgehrd.c +++ b/lapack-netlib/SRC/cgehrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgejsv.c b/lapack-netlib/SRC/cgejsv.c index ca5a5f23ae..8daaae5c40 100644 --- a/lapack-netlib/SRC/cgejsv.c +++ b/lapack-netlib/SRC/cgejsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelq.c b/lapack-netlib/SRC/cgelq.c index eefd0fa26d..c9aca59ada 100644 --- a/lapack-netlib/SRC/cgelq.c +++ b/lapack-netlib/SRC/cgelq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelq2.c b/lapack-netlib/SRC/cgelq2.c index 0b2c9b1446..4f1f49bfb9 100644 --- a/lapack-netlib/SRC/cgelq2.c +++ b/lapack-netlib/SRC/cgelq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelqf.c b/lapack-netlib/SRC/cgelqf.c index 22fe3e5adb..a841b2bd6c 100644 --- a/lapack-netlib/SRC/cgelqf.c +++ b/lapack-netlib/SRC/cgelqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelqt.c b/lapack-netlib/SRC/cgelqt.c index 969003d430..1c2988b29b 100644 --- a/lapack-netlib/SRC/cgelqt.c +++ b/lapack-netlib/SRC/cgelqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelqt3.c b/lapack-netlib/SRC/cgelqt3.c index 5e667dcbec..036ecbb86b 100644 --- a/lapack-netlib/SRC/cgelqt3.c +++ b/lapack-netlib/SRC/cgelqt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgels.c b/lapack-netlib/SRC/cgels.c index 0b2228b0de..de3cebd66a 100644 --- a/lapack-netlib/SRC/cgels.c +++ b/lapack-netlib/SRC/cgels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelsd.c b/lapack-netlib/SRC/cgelsd.c index a7368621b5..2e0c2fcc4f 100644 --- a/lapack-netlib/SRC/cgelsd.c +++ b/lapack-netlib/SRC/cgelsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelss.c b/lapack-netlib/SRC/cgelss.c index 683e3c8394..4f769fa945 100644 --- a/lapack-netlib/SRC/cgelss.c +++ b/lapack-netlib/SRC/cgelss.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgelst.c b/lapack-netlib/SRC/cgelst.c index 48ded643dc..2081e126b2 100644 --- a/lapack-netlib/SRC/cgelst.c +++ b/lapack-netlib/SRC/cgelst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -736,7 +736,7 @@ f"> */ extern real slamch_(char *); extern /* Subroutine */ int claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, - integer *); + integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern /* Subroutine */ int cgelqt_(integer *, integer *, integer *, @@ -826,7 +826,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("CGELST ", &i__1); + xerbla_("CGELST", &i__1, (ftnlen)6); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/cgelsy.c b/lapack-netlib/SRC/cgelsy.c index 3f974deaf2..9f39e97d5b 100644 --- a/lapack-netlib/SRC/cgelsy.c +++ b/lapack-netlib/SRC/cgelsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgemlq.c b/lapack-netlib/SRC/cgemlq.c index a11fc8ce85..16c784a41b 100644 --- a/lapack-netlib/SRC/cgemlq.c +++ b/lapack-netlib/SRC/cgemlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgemlqt.c b/lapack-netlib/SRC/cgemlqt.c index 07caec98b7..958d046d0e 100644 --- a/lapack-netlib/SRC/cgemlqt.c +++ b/lapack-netlib/SRC/cgemlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgemqr.c b/lapack-netlib/SRC/cgemqr.c index e9a0efaa84..39a0763c99 100644 --- a/lapack-netlib/SRC/cgemqr.c +++ b/lapack-netlib/SRC/cgemqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgemqrt.c b/lapack-netlib/SRC/cgemqrt.c index 0771c85087..02679a6d75 100644 --- a/lapack-netlib/SRC/cgemqrt.c +++ b/lapack-netlib/SRC/cgemqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeql2.c b/lapack-netlib/SRC/cgeql2.c index 6e8095ffe7..dc2e02a97a 100644 --- a/lapack-netlib/SRC/cgeql2.c +++ b/lapack-netlib/SRC/cgeql2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqlf.c b/lapack-netlib/SRC/cgeqlf.c index 7ca4164792..ebec142f3a 100644 --- a/lapack-netlib/SRC/cgeqlf.c +++ b/lapack-netlib/SRC/cgeqlf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqp3.c b/lapack-netlib/SRC/cgeqp3.c index 0e93eae682..94b0d6245a 100644 --- a/lapack-netlib/SRC/cgeqp3.c +++ b/lapack-netlib/SRC/cgeqp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqr.c b/lapack-netlib/SRC/cgeqr.c index 6398096ecb..15dff54f81 100644 --- a/lapack-netlib/SRC/cgeqr.c +++ b/lapack-netlib/SRC/cgeqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqr2.c b/lapack-netlib/SRC/cgeqr2.c index ffffeeeb0a..5d34c4934c 100644 --- a/lapack-netlib/SRC/cgeqr2.c +++ b/lapack-netlib/SRC/cgeqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqr2p.c b/lapack-netlib/SRC/cgeqr2p.c index 960ffc5900..4ecf1e1627 100644 --- a/lapack-netlib/SRC/cgeqr2p.c +++ b/lapack-netlib/SRC/cgeqr2p.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqrf.c b/lapack-netlib/SRC/cgeqrf.c index 0fd9debac4..a727641689 100644 --- a/lapack-netlib/SRC/cgeqrf.c +++ b/lapack-netlib/SRC/cgeqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqrfp.c b/lapack-netlib/SRC/cgeqrfp.c index 5079824c84..39fb0bf398 100644 --- a/lapack-netlib/SRC/cgeqrfp.c +++ b/lapack-netlib/SRC/cgeqrfp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqrt.c b/lapack-netlib/SRC/cgeqrt.c index 3fdeabfd0f..8d9e5ffd82 100644 --- a/lapack-netlib/SRC/cgeqrt.c +++ b/lapack-netlib/SRC/cgeqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqrt2.c b/lapack-netlib/SRC/cgeqrt2.c index 3a34ab3853..33e6a66e97 100644 --- a/lapack-netlib/SRC/cgeqrt2.c +++ b/lapack-netlib/SRC/cgeqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgeqrt3.c b/lapack-netlib/SRC/cgeqrt3.c index c2aea5dc53..ff94dbce2d 100644 --- a/lapack-netlib/SRC/cgeqrt3.c +++ b/lapack-netlib/SRC/cgeqrt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgerfs.c b/lapack-netlib/SRC/cgerfs.c index a4ce88fade..fe2057860f 100644 --- a/lapack-netlib/SRC/cgerfs.c +++ b/lapack-netlib/SRC/cgerfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgerfsx.c b/lapack-netlib/SRC/cgerfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/cgerfsx.c +++ b/lapack-netlib/SRC/cgerfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgerq2.c b/lapack-netlib/SRC/cgerq2.c index e3144ff139..f5dd30681e 100644 --- a/lapack-netlib/SRC/cgerq2.c +++ b/lapack-netlib/SRC/cgerq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgerqf.c b/lapack-netlib/SRC/cgerqf.c index 86a08e8db8..03cddb5f80 100644 --- a/lapack-netlib/SRC/cgerqf.c +++ b/lapack-netlib/SRC/cgerqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesc2.c b/lapack-netlib/SRC/cgesc2.c index dacfda0d81..1a1ab237e1 100644 --- a/lapack-netlib/SRC/cgesc2.c +++ b/lapack-netlib/SRC/cgesc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesdd.c b/lapack-netlib/SRC/cgesdd.c index ad9c84c17d..66cc55b5c0 100644 --- a/lapack-netlib/SRC/cgesdd.c +++ b/lapack-netlib/SRC/cgesdd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesv.c b/lapack-netlib/SRC/cgesv.c index d3a277b0c0..84ecf0d2fc 100644 --- a/lapack-netlib/SRC/cgesv.c +++ b/lapack-netlib/SRC/cgesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesvd.c b/lapack-netlib/SRC/cgesvd.c index 752cc375b4..64f3308034 100644 --- a/lapack-netlib/SRC/cgesvd.c +++ b/lapack-netlib/SRC/cgesvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesvdq.c b/lapack-netlib/SRC/cgesvdq.c index d5cf58f823..2662e4c28f 100644 --- a/lapack-netlib/SRC/cgesvdq.c +++ b/lapack-netlib/SRC/cgesvdq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesvdx.c b/lapack-netlib/SRC/cgesvdx.c index 7df4cf2468..7c8c62cdf4 100644 --- a/lapack-netlib/SRC/cgesvdx.c +++ b/lapack-netlib/SRC/cgesvdx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesvj.c b/lapack-netlib/SRC/cgesvj.c index 53b1132814..5723f02d84 100644 --- a/lapack-netlib/SRC/cgesvj.c +++ b/lapack-netlib/SRC/cgesvj.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesvx.c b/lapack-netlib/SRC/cgesvx.c index b39803abb5..270c6682f8 100644 --- a/lapack-netlib/SRC/cgesvx.c +++ b/lapack-netlib/SRC/cgesvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgesvxx.c b/lapack-netlib/SRC/cgesvxx.c index ced9e0b2cf..d4fec7f6da 100644 --- a/lapack-netlib/SRC/cgesvxx.c +++ b/lapack-netlib/SRC/cgesvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetc2.c b/lapack-netlib/SRC/cgetc2.c index 8c1d12d835..126eceea97 100644 --- a/lapack-netlib/SRC/cgetc2.c +++ b/lapack-netlib/SRC/cgetc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetf2.c b/lapack-netlib/SRC/cgetf2.c index 61b27239cb..2800376beb 100644 --- a/lapack-netlib/SRC/cgetf2.c +++ b/lapack-netlib/SRC/cgetf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetrf.c b/lapack-netlib/SRC/cgetrf.c index 485f9d848a..633cdde61a 100644 --- a/lapack-netlib/SRC/cgetrf.c +++ b/lapack-netlib/SRC/cgetrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetrf2.c b/lapack-netlib/SRC/cgetrf2.c index 88eff2b449..fe77115f9c 100644 --- a/lapack-netlib/SRC/cgetrf2.c +++ b/lapack-netlib/SRC/cgetrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetri.c b/lapack-netlib/SRC/cgetri.c index 803aa666ef..6cddaba961 100644 --- a/lapack-netlib/SRC/cgetri.c +++ b/lapack-netlib/SRC/cgetri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetrs.c b/lapack-netlib/SRC/cgetrs.c index dfdd204a82..fbc3fa169d 100644 --- a/lapack-netlib/SRC/cgetrs.c +++ b/lapack-netlib/SRC/cgetrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetsls.c b/lapack-netlib/SRC/cgetsls.c index 6f550a9f18..27669117fb 100644 --- a/lapack-netlib/SRC/cgetsls.c +++ b/lapack-netlib/SRC/cgetsls.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgetsqrhrt.c b/lapack-netlib/SRC/cgetsqrhrt.c index 23b525ae63..1566a58af9 100644 --- a/lapack-netlib/SRC/cgetsqrhrt.c +++ b/lapack-netlib/SRC/cgetsqrhrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggbak.c b/lapack-netlib/SRC/cggbak.c index aca1d31a8b..e8d21fe0e0 100644 --- a/lapack-netlib/SRC/cggbak.c +++ b/lapack-netlib/SRC/cggbak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggbal.c b/lapack-netlib/SRC/cggbal.c index 559244c228..37debc71a9 100644 --- a/lapack-netlib/SRC/cggbal.c +++ b/lapack-netlib/SRC/cggbal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgges.c b/lapack-netlib/SRC/cgges.c index 03dbf28e60..0740c2f437 100644 --- a/lapack-netlib/SRC/cgges.c +++ b/lapack-netlib/SRC/cgges.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgges3.c b/lapack-netlib/SRC/cgges3.c index 046f7946b9..764908d42a 100644 --- a/lapack-netlib/SRC/cgges3.c +++ b/lapack-netlib/SRC/cgges3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggesx.c b/lapack-netlib/SRC/cggesx.c index 06102e1401..59ad05d0f6 100644 --- a/lapack-netlib/SRC/cggesx.c +++ b/lapack-netlib/SRC/cggesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggev.c b/lapack-netlib/SRC/cggev.c index 6ef818dbb6..a6fe5aec98 100644 --- a/lapack-netlib/SRC/cggev.c +++ b/lapack-netlib/SRC/cggev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggev3.c b/lapack-netlib/SRC/cggev3.c index a00f1a18cc..a5e85e29c9 100644 --- a/lapack-netlib/SRC/cggev3.c +++ b/lapack-netlib/SRC/cggev3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggevx.c b/lapack-netlib/SRC/cggevx.c index da6bf97346..03c41a9292 100644 --- a/lapack-netlib/SRC/cggevx.c +++ b/lapack-netlib/SRC/cggevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggglm.c b/lapack-netlib/SRC/cggglm.c index 056bd9142c..33136057ed 100644 --- a/lapack-netlib/SRC/cggglm.c +++ b/lapack-netlib/SRC/cggglm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgghd3.c b/lapack-netlib/SRC/cgghd3.c index a795b803d5..99dd74eeb9 100644 --- a/lapack-netlib/SRC/cgghd3.c +++ b/lapack-netlib/SRC/cgghd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgghrd.c b/lapack-netlib/SRC/cgghrd.c index deddb5b25c..5b258274f8 100644 --- a/lapack-netlib/SRC/cgghrd.c +++ b/lapack-netlib/SRC/cgghrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgglse.c b/lapack-netlib/SRC/cgglse.c index 80b959a4df..e13ad3040e 100644 --- a/lapack-netlib/SRC/cgglse.c +++ b/lapack-netlib/SRC/cgglse.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggqrf.c b/lapack-netlib/SRC/cggqrf.c index f1e873b669..67d08eda9b 100644 --- a/lapack-netlib/SRC/cggqrf.c +++ b/lapack-netlib/SRC/cggqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggrqf.c b/lapack-netlib/SRC/cggrqf.c index 415373382a..17b2f84c32 100644 --- a/lapack-netlib/SRC/cggrqf.c +++ b/lapack-netlib/SRC/cggrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggsvd3.c b/lapack-netlib/SRC/cggsvd3.c index 0e9e0e42dc..f9abaf7b1f 100644 --- a/lapack-netlib/SRC/cggsvd3.c +++ b/lapack-netlib/SRC/cggsvd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cggsvp3.c b/lapack-netlib/SRC/cggsvp3.c index 6f5f3ac75d..5c5a4ea6f2 100644 --- a/lapack-netlib/SRC/cggsvp3.c +++ b/lapack-netlib/SRC/cggsvp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgsvj0.c b/lapack-netlib/SRC/cgsvj0.c index 4cb871737b..146cfee591 100644 --- a/lapack-netlib/SRC/cgsvj0.c +++ b/lapack-netlib/SRC/cgsvj0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgsvj1.c b/lapack-netlib/SRC/cgsvj1.c index 71c9a063a6..b1be933a19 100644 --- a/lapack-netlib/SRC/cgsvj1.c +++ b/lapack-netlib/SRC/cgsvj1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgtcon.c b/lapack-netlib/SRC/cgtcon.c index 5e636caa76..22222149fe 100644 --- a/lapack-netlib/SRC/cgtcon.c +++ b/lapack-netlib/SRC/cgtcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgtrfs.c b/lapack-netlib/SRC/cgtrfs.c index 6010d834ef..d217549041 100644 --- a/lapack-netlib/SRC/cgtrfs.c +++ b/lapack-netlib/SRC/cgtrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgtsv.c b/lapack-netlib/SRC/cgtsv.c index 1bbbb35d04..d435a5b3c0 100644 --- a/lapack-netlib/SRC/cgtsv.c +++ b/lapack-netlib/SRC/cgtsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgtsvx.c b/lapack-netlib/SRC/cgtsvx.c index 2bde80f9d8..ca9a994858 100644 --- a/lapack-netlib/SRC/cgtsvx.c +++ b/lapack-netlib/SRC/cgtsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgttrf.c b/lapack-netlib/SRC/cgttrf.c index fdd5c0206d..fda95786ab 100644 --- a/lapack-netlib/SRC/cgttrf.c +++ b/lapack-netlib/SRC/cgttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgttrs.c b/lapack-netlib/SRC/cgttrs.c index 5d6de8f0ff..1407f1a720 100644 --- a/lapack-netlib/SRC/cgttrs.c +++ b/lapack-netlib/SRC/cgttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cgtts2.c b/lapack-netlib/SRC/cgtts2.c index 25e5245903..065391b3e4 100644 --- a/lapack-netlib/SRC/cgtts2.c +++ b/lapack-netlib/SRC/cgtts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chb2st_kernels.c b/lapack-netlib/SRC/chb2st_kernels.c index 99e54dfce9..36d288b99f 100644 --- a/lapack-netlib/SRC/chb2st_kernels.c +++ b/lapack-netlib/SRC/chb2st_kernels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbev.c b/lapack-netlib/SRC/chbev.c index 228212d68c..ff6e7c115e 100644 --- a/lapack-netlib/SRC/chbev.c +++ b/lapack-netlib/SRC/chbev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbev_2stage.c b/lapack-netlib/SRC/chbev_2stage.c index e39b8ee5c3..03471e9ff5 100644 --- a/lapack-netlib/SRC/chbev_2stage.c +++ b/lapack-netlib/SRC/chbev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbevd.c b/lapack-netlib/SRC/chbevd.c index 9b0c599db7..7b146dbc89 100644 --- a/lapack-netlib/SRC/chbevd.c +++ b/lapack-netlib/SRC/chbevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbevd_2stage.c b/lapack-netlib/SRC/chbevd_2stage.c index 176ff6d7f6..8b97bcd3bd 100644 --- a/lapack-netlib/SRC/chbevd_2stage.c +++ b/lapack-netlib/SRC/chbevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbevx.c b/lapack-netlib/SRC/chbevx.c index f9c8678537..fe8812562b 100644 --- a/lapack-netlib/SRC/chbevx.c +++ b/lapack-netlib/SRC/chbevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbevx_2stage.c b/lapack-netlib/SRC/chbevx_2stage.c index 96f3aa7a2e..08bbe3998f 100644 --- a/lapack-netlib/SRC/chbevx_2stage.c +++ b/lapack-netlib/SRC/chbevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbgst.c b/lapack-netlib/SRC/chbgst.c index 6836059ca5..63e7eefba1 100644 --- a/lapack-netlib/SRC/chbgst.c +++ b/lapack-netlib/SRC/chbgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbgv.c b/lapack-netlib/SRC/chbgv.c index 4d5cbc1cf8..a73a5d2f4b 100644 --- a/lapack-netlib/SRC/chbgv.c +++ b/lapack-netlib/SRC/chbgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbgvd.c b/lapack-netlib/SRC/chbgvd.c index 6fb7e6795c..289c7585ce 100644 --- a/lapack-netlib/SRC/chbgvd.c +++ b/lapack-netlib/SRC/chbgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbgvx.c b/lapack-netlib/SRC/chbgvx.c index eb81c8a2f1..0bd7cadf71 100644 --- a/lapack-netlib/SRC/chbgvx.c +++ b/lapack-netlib/SRC/chbgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chbtrd.c b/lapack-netlib/SRC/chbtrd.c index 2c91004e39..17f8b2ca35 100644 --- a/lapack-netlib/SRC/chbtrd.c +++ b/lapack-netlib/SRC/chbtrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/checon.c b/lapack-netlib/SRC/checon.c index 4cfcea0fdf..f508fe1eef 100644 --- a/lapack-netlib/SRC/checon.c +++ b/lapack-netlib/SRC/checon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/checon_3.c b/lapack-netlib/SRC/checon_3.c index 5794b8c7da..b158a43a28 100644 --- a/lapack-netlib/SRC/checon_3.c +++ b/lapack-netlib/SRC/checon_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/checon_rook.c b/lapack-netlib/SRC/checon_rook.c index 88a8c80bb6..7fbf67f526 100644 --- a/lapack-netlib/SRC/checon_rook.c +++ b/lapack-netlib/SRC/checon_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheequb.c b/lapack-netlib/SRC/cheequb.c index 53d07b9742..0e6bbab61f 100644 --- a/lapack-netlib/SRC/cheequb.c +++ b/lapack-netlib/SRC/cheequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheev.c b/lapack-netlib/SRC/cheev.c index 9ef5c529e7..68dba86202 100644 --- a/lapack-netlib/SRC/cheev.c +++ b/lapack-netlib/SRC/cheev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheev_2stage.c b/lapack-netlib/SRC/cheev_2stage.c index e1ab3e60f2..0580173348 100644 --- a/lapack-netlib/SRC/cheev_2stage.c +++ b/lapack-netlib/SRC/cheev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheevd.c b/lapack-netlib/SRC/cheevd.c index a6a4e33a7a..b9497d3094 100644 --- a/lapack-netlib/SRC/cheevd.c +++ b/lapack-netlib/SRC/cheevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheevd_2stage.c b/lapack-netlib/SRC/cheevd_2stage.c index 8bc56d0926..c3036ce1a7 100644 --- a/lapack-netlib/SRC/cheevd_2stage.c +++ b/lapack-netlib/SRC/cheevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheevr.c b/lapack-netlib/SRC/cheevr.c index bf99e339b9..831284c828 100644 --- a/lapack-netlib/SRC/cheevr.c +++ b/lapack-netlib/SRC/cheevr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheevr_2stage.c b/lapack-netlib/SRC/cheevr_2stage.c index 9ea9f950e9..1572139241 100644 --- a/lapack-netlib/SRC/cheevr_2stage.c +++ b/lapack-netlib/SRC/cheevr_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheevx.c b/lapack-netlib/SRC/cheevx.c index 2474c6cd77..c66afc2f10 100644 --- a/lapack-netlib/SRC/cheevx.c +++ b/lapack-netlib/SRC/cheevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheevx_2stage.c b/lapack-netlib/SRC/cheevx_2stage.c index beec82da78..ffbe5b3b64 100644 --- a/lapack-netlib/SRC/cheevx_2stage.c +++ b/lapack-netlib/SRC/cheevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chegs2.c b/lapack-netlib/SRC/chegs2.c index a74f77a13e..58d20e8f46 100644 --- a/lapack-netlib/SRC/chegs2.c +++ b/lapack-netlib/SRC/chegs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chegst.c b/lapack-netlib/SRC/chegst.c index 7285356a9e..eae8968a63 100644 --- a/lapack-netlib/SRC/chegst.c +++ b/lapack-netlib/SRC/chegst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chegv.c b/lapack-netlib/SRC/chegv.c index eee1f048b1..a4e8e6d2a1 100644 --- a/lapack-netlib/SRC/chegv.c +++ b/lapack-netlib/SRC/chegv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chegv_2stage.c b/lapack-netlib/SRC/chegv_2stage.c index 7106af1f7c..d08c7e6287 100644 --- a/lapack-netlib/SRC/chegv_2stage.c +++ b/lapack-netlib/SRC/chegv_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chegvd.c b/lapack-netlib/SRC/chegvd.c index 855dc1e262..7531ea4189 100644 --- a/lapack-netlib/SRC/chegvd.c +++ b/lapack-netlib/SRC/chegvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chegvx.c b/lapack-netlib/SRC/chegvx.c index 24df5668b8..38afa36322 100644 --- a/lapack-netlib/SRC/chegvx.c +++ b/lapack-netlib/SRC/chegvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cherfs.c b/lapack-netlib/SRC/cherfs.c index 9cb5b2f488..046a6b0989 100644 --- a/lapack-netlib/SRC/cherfs.c +++ b/lapack-netlib/SRC/cherfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cherfsx.c b/lapack-netlib/SRC/cherfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/cherfsx.c +++ b/lapack-netlib/SRC/cherfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chesv.c b/lapack-netlib/SRC/chesv.c index 5d6dfee6ab..7bc91d2229 100644 --- a/lapack-netlib/SRC/chesv.c +++ b/lapack-netlib/SRC/chesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chesv_aa.c b/lapack-netlib/SRC/chesv_aa.c index 76e3b19013..b7a34ebeb0 100644 --- a/lapack-netlib/SRC/chesv_aa.c +++ b/lapack-netlib/SRC/chesv_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chesv_aa_2stage.c b/lapack-netlib/SRC/chesv_aa_2stage.c index f2849bb28d..20ddcd7ebc 100644 --- a/lapack-netlib/SRC/chesv_aa_2stage.c +++ b/lapack-netlib/SRC/chesv_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chesv_rk.c b/lapack-netlib/SRC/chesv_rk.c index b3219dfb29..4c51f6e0fe 100644 --- a/lapack-netlib/SRC/chesv_rk.c +++ b/lapack-netlib/SRC/chesv_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chesv_rook.c b/lapack-netlib/SRC/chesv_rook.c index 5819d265fe..180286960a 100644 --- a/lapack-netlib/SRC/chesv_rook.c +++ b/lapack-netlib/SRC/chesv_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chesvx.c b/lapack-netlib/SRC/chesvx.c index 0bed0d3e3c..b5175087e2 100644 --- a/lapack-netlib/SRC/chesvx.c +++ b/lapack-netlib/SRC/chesvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chesvxx.c b/lapack-netlib/SRC/chesvxx.c index 3f321c3d26..442a1a74b9 100644 --- a/lapack-netlib/SRC/chesvxx.c +++ b/lapack-netlib/SRC/chesvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cheswapr.c b/lapack-netlib/SRC/cheswapr.c index 2c53be0e3d..538457ee04 100644 --- a/lapack-netlib/SRC/cheswapr.c +++ b/lapack-netlib/SRC/cheswapr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetd2.c b/lapack-netlib/SRC/chetd2.c index cdd845fcf0..00f1b09a13 100644 --- a/lapack-netlib/SRC/chetd2.c +++ b/lapack-netlib/SRC/chetd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetf2.c b/lapack-netlib/SRC/chetf2.c index c03d84651b..018a63fce8 100644 --- a/lapack-netlib/SRC/chetf2.c +++ b/lapack-netlib/SRC/chetf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetf2_rk.c b/lapack-netlib/SRC/chetf2_rk.c index 07c75f79e6..b44a3725e8 100644 --- a/lapack-netlib/SRC/chetf2_rk.c +++ b/lapack-netlib/SRC/chetf2_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetf2_rook.c b/lapack-netlib/SRC/chetf2_rook.c index 6be8797452..9d3a8eea51 100644 --- a/lapack-netlib/SRC/chetf2_rook.c +++ b/lapack-netlib/SRC/chetf2_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrd.c b/lapack-netlib/SRC/chetrd.c index 1aa8c1162a..b99b086fa0 100644 --- a/lapack-netlib/SRC/chetrd.c +++ b/lapack-netlib/SRC/chetrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrd_2stage.c b/lapack-netlib/SRC/chetrd_2stage.c index 2bdb761fbb..6826338c5a 100644 --- a/lapack-netlib/SRC/chetrd_2stage.c +++ b/lapack-netlib/SRC/chetrd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrd_hb2st.c b/lapack-netlib/SRC/chetrd_hb2st.c index 29eb70ac6e..f4321f3a71 100644 --- a/lapack-netlib/SRC/chetrd_hb2st.c +++ b/lapack-netlib/SRC/chetrd_hb2st.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrd_he2hb.c b/lapack-netlib/SRC/chetrd_he2hb.c index 072bcea430..107a51412d 100644 --- a/lapack-netlib/SRC/chetrd_he2hb.c +++ b/lapack-netlib/SRC/chetrd_he2hb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrf.c b/lapack-netlib/SRC/chetrf.c index c9f2e1c516..3cef96f67b 100644 --- a/lapack-netlib/SRC/chetrf.c +++ b/lapack-netlib/SRC/chetrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrf_aa.c b/lapack-netlib/SRC/chetrf_aa.c index ff02b316fc..47c0f64325 100644 --- a/lapack-netlib/SRC/chetrf_aa.c +++ b/lapack-netlib/SRC/chetrf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrf_aa_2stage.c b/lapack-netlib/SRC/chetrf_aa_2stage.c index e7ab409f9c..8db98147d6 100644 --- a/lapack-netlib/SRC/chetrf_aa_2stage.c +++ b/lapack-netlib/SRC/chetrf_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrf_rk.c b/lapack-netlib/SRC/chetrf_rk.c index 614b1e93d1..e82a33c5ae 100644 --- a/lapack-netlib/SRC/chetrf_rk.c +++ b/lapack-netlib/SRC/chetrf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrf_rook.c b/lapack-netlib/SRC/chetrf_rook.c index 4850a0aff8..6b6857fb06 100644 --- a/lapack-netlib/SRC/chetrf_rook.c +++ b/lapack-netlib/SRC/chetrf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetri.c b/lapack-netlib/SRC/chetri.c index bd3bf7a6d5..facebd18a6 100644 --- a/lapack-netlib/SRC/chetri.c +++ b/lapack-netlib/SRC/chetri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetri2.c b/lapack-netlib/SRC/chetri2.c index dc26121d97..9bc736377b 100644 --- a/lapack-netlib/SRC/chetri2.c +++ b/lapack-netlib/SRC/chetri2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetri2x.c b/lapack-netlib/SRC/chetri2x.c index 9daebcf4e2..10903caf62 100644 --- a/lapack-netlib/SRC/chetri2x.c +++ b/lapack-netlib/SRC/chetri2x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetri_3.c b/lapack-netlib/SRC/chetri_3.c index 4b63cc99f5..15cb5191de 100644 --- a/lapack-netlib/SRC/chetri_3.c +++ b/lapack-netlib/SRC/chetri_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetri_3x.c b/lapack-netlib/SRC/chetri_3x.c index 4f061ba10a..d6375a5ff7 100644 --- a/lapack-netlib/SRC/chetri_3x.c +++ b/lapack-netlib/SRC/chetri_3x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetri_rook.c b/lapack-netlib/SRC/chetri_rook.c index fd209056a5..67d3c2b990 100644 --- a/lapack-netlib/SRC/chetri_rook.c +++ b/lapack-netlib/SRC/chetri_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrs.c b/lapack-netlib/SRC/chetrs.c index 1e17a5e746..6e6ce8f157 100644 --- a/lapack-netlib/SRC/chetrs.c +++ b/lapack-netlib/SRC/chetrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrs2.c b/lapack-netlib/SRC/chetrs2.c index b2be27b6b5..c31ef26be0 100644 --- a/lapack-netlib/SRC/chetrs2.c +++ b/lapack-netlib/SRC/chetrs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrs_3.c b/lapack-netlib/SRC/chetrs_3.c index 7a994c0414..eeeda8955a 100644 --- a/lapack-netlib/SRC/chetrs_3.c +++ b/lapack-netlib/SRC/chetrs_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrs_aa.c b/lapack-netlib/SRC/chetrs_aa.c index 69819ccdf5..2883f663d0 100644 --- a/lapack-netlib/SRC/chetrs_aa.c +++ b/lapack-netlib/SRC/chetrs_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrs_aa_2stage.c b/lapack-netlib/SRC/chetrs_aa_2stage.c index ff2693e5f8..c713cd11a0 100644 --- a/lapack-netlib/SRC/chetrs_aa_2stage.c +++ b/lapack-netlib/SRC/chetrs_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chetrs_rook.c b/lapack-netlib/SRC/chetrs_rook.c index 936ee3c636..7700530e35 100644 --- a/lapack-netlib/SRC/chetrs_rook.c +++ b/lapack-netlib/SRC/chetrs_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chfrk.c b/lapack-netlib/SRC/chfrk.c index 5e0eca2825..5ca2e09dca 100644 --- a/lapack-netlib/SRC/chfrk.c +++ b/lapack-netlib/SRC/chfrk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chgeqz.c b/lapack-netlib/SRC/chgeqz.c index cb738aa412..cf7b42c481 100644 --- a/lapack-netlib/SRC/chgeqz.c +++ b/lapack-netlib/SRC/chgeqz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chla_transtype.c b/lapack-netlib/SRC/chla_transtype.c index 7bb53987e0..79e2352c71 100644 --- a/lapack-netlib/SRC/chla_transtype.c +++ b/lapack-netlib/SRC/chla_transtype.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpcon.c b/lapack-netlib/SRC/chpcon.c index 13aee7d57c..33f8e6fe23 100644 --- a/lapack-netlib/SRC/chpcon.c +++ b/lapack-netlib/SRC/chpcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpev.c b/lapack-netlib/SRC/chpev.c index b812d29a4a..980d35b055 100644 --- a/lapack-netlib/SRC/chpev.c +++ b/lapack-netlib/SRC/chpev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpevd.c b/lapack-netlib/SRC/chpevd.c index 3e3ffc5835..0457f19847 100644 --- a/lapack-netlib/SRC/chpevd.c +++ b/lapack-netlib/SRC/chpevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpevx.c b/lapack-netlib/SRC/chpevx.c index a7f92e1df8..e85707edfc 100644 --- a/lapack-netlib/SRC/chpevx.c +++ b/lapack-netlib/SRC/chpevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpgst.c b/lapack-netlib/SRC/chpgst.c index 923b0b10b7..a784f945d7 100644 --- a/lapack-netlib/SRC/chpgst.c +++ b/lapack-netlib/SRC/chpgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpgv.c b/lapack-netlib/SRC/chpgv.c index a44d81e506..7ffe716a70 100644 --- a/lapack-netlib/SRC/chpgv.c +++ b/lapack-netlib/SRC/chpgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpgvd.c b/lapack-netlib/SRC/chpgvd.c index c60eabcc32..e5d5d121c8 100644 --- a/lapack-netlib/SRC/chpgvd.c +++ b/lapack-netlib/SRC/chpgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpgvx.c b/lapack-netlib/SRC/chpgvx.c index be34f9af6a..537de92e45 100644 --- a/lapack-netlib/SRC/chpgvx.c +++ b/lapack-netlib/SRC/chpgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chprfs.c b/lapack-netlib/SRC/chprfs.c index d127189ee5..aafcb5423f 100644 --- a/lapack-netlib/SRC/chprfs.c +++ b/lapack-netlib/SRC/chprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpsv.c b/lapack-netlib/SRC/chpsv.c index a9cadb4990..ff01666f1a 100644 --- a/lapack-netlib/SRC/chpsv.c +++ b/lapack-netlib/SRC/chpsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chpsvx.c b/lapack-netlib/SRC/chpsvx.c index 5ac0ef5011..4479403f4b 100644 --- a/lapack-netlib/SRC/chpsvx.c +++ b/lapack-netlib/SRC/chpsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chptrd.c b/lapack-netlib/SRC/chptrd.c index 1796bdd879..c33c82b177 100644 --- a/lapack-netlib/SRC/chptrd.c +++ b/lapack-netlib/SRC/chptrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chptrf.c b/lapack-netlib/SRC/chptrf.c index 431722909a..a0904ff5cd 100644 --- a/lapack-netlib/SRC/chptrf.c +++ b/lapack-netlib/SRC/chptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chptri.c b/lapack-netlib/SRC/chptri.c index b83affabcd..9e52d7b796 100644 --- a/lapack-netlib/SRC/chptri.c +++ b/lapack-netlib/SRC/chptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chptrs.c b/lapack-netlib/SRC/chptrs.c index 89a977fdee..f1eccb7735 100644 --- a/lapack-netlib/SRC/chptrs.c +++ b/lapack-netlib/SRC/chptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chsein.c b/lapack-netlib/SRC/chsein.c index 3fddc94cd1..1f6749b0d6 100644 --- a/lapack-netlib/SRC/chsein.c +++ b/lapack-netlib/SRC/chsein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/chseqr.c b/lapack-netlib/SRC/chseqr.c index bb8001be43..02a3eb3d27 100644 --- a/lapack-netlib/SRC/chseqr.c +++ b/lapack-netlib/SRC/chseqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gbamv.c b/lapack-netlib/SRC/cla_gbamv.c index e8a49ab261..d3c0d01c39 100644 --- a/lapack-netlib/SRC/cla_gbamv.c +++ b/lapack-netlib/SRC/cla_gbamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gbrcond_c.c b/lapack-netlib/SRC/cla_gbrcond_c.c index ce023746bd..2623455043 100644 --- a/lapack-netlib/SRC/cla_gbrcond_c.c +++ b/lapack-netlib/SRC/cla_gbrcond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gbrcond_x.c b/lapack-netlib/SRC/cla_gbrcond_x.c index 3fc00713fd..df066e5d45 100644 --- a/lapack-netlib/SRC/cla_gbrcond_x.c +++ b/lapack-netlib/SRC/cla_gbrcond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gbrfsx_extended.c b/lapack-netlib/SRC/cla_gbrfsx_extended.c index e193bcce92..779c7a83c1 100644 --- a/lapack-netlib/SRC/cla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/cla_gbrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gbrpvgrw.c b/lapack-netlib/SRC/cla_gbrpvgrw.c index 47bbb51cc5..a3cc74d714 100644 --- a/lapack-netlib/SRC/cla_gbrpvgrw.c +++ b/lapack-netlib/SRC/cla_gbrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_geamv.c b/lapack-netlib/SRC/cla_geamv.c index 856a6168cb..37cccbbc8c 100644 --- a/lapack-netlib/SRC/cla_geamv.c +++ b/lapack-netlib/SRC/cla_geamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gercond_c.c b/lapack-netlib/SRC/cla_gercond_c.c index 153a06ca51..9de827683d 100644 --- a/lapack-netlib/SRC/cla_gercond_c.c +++ b/lapack-netlib/SRC/cla_gercond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gercond_x.c b/lapack-netlib/SRC/cla_gercond_x.c index f12d87d6e4..38b251c4c8 100644 --- a/lapack-netlib/SRC/cla_gercond_x.c +++ b/lapack-netlib/SRC/cla_gercond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gerfsx_extended.c b/lapack-netlib/SRC/cla_gerfsx_extended.c index 72915a1940..e8b5a36a1f 100644 --- a/lapack-netlib/SRC/cla_gerfsx_extended.c +++ b/lapack-netlib/SRC/cla_gerfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_gerpvgrw.c b/lapack-netlib/SRC/cla_gerpvgrw.c index 4a5e5867e9..3a7c7f8527 100644 --- a/lapack-netlib/SRC/cla_gerpvgrw.c +++ b/lapack-netlib/SRC/cla_gerpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_heamv.c b/lapack-netlib/SRC/cla_heamv.c index a7603183e0..a078fa7050 100644 --- a/lapack-netlib/SRC/cla_heamv.c +++ b/lapack-netlib/SRC/cla_heamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_hercond_c.c b/lapack-netlib/SRC/cla_hercond_c.c index ed575863d1..6bfea12d1b 100644 --- a/lapack-netlib/SRC/cla_hercond_c.c +++ b/lapack-netlib/SRC/cla_hercond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_hercond_x.c b/lapack-netlib/SRC/cla_hercond_x.c index 962b323a07..bc7dd364bb 100644 --- a/lapack-netlib/SRC/cla_hercond_x.c +++ b/lapack-netlib/SRC/cla_hercond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_herfsx_extended.c b/lapack-netlib/SRC/cla_herfsx_extended.c index c4a42e805c..203c3ffb82 100644 --- a/lapack-netlib/SRC/cla_herfsx_extended.c +++ b/lapack-netlib/SRC/cla_herfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_herpvgrw.c b/lapack-netlib/SRC/cla_herpvgrw.c index 7694549278..3b7d32dd78 100644 --- a/lapack-netlib/SRC/cla_herpvgrw.c +++ b/lapack-netlib/SRC/cla_herpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_lin_berr.c b/lapack-netlib/SRC/cla_lin_berr.c index 73aa2f4d9e..dae6ffedfc 100644 --- a/lapack-netlib/SRC/cla_lin_berr.c +++ b/lapack-netlib/SRC/cla_lin_berr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_porcond_c.c b/lapack-netlib/SRC/cla_porcond_c.c index a3ef77bbf1..840c5ea807 100644 --- a/lapack-netlib/SRC/cla_porcond_c.c +++ b/lapack-netlib/SRC/cla_porcond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_porcond_x.c b/lapack-netlib/SRC/cla_porcond_x.c index d06cfc2e84..f7a5961da5 100644 --- a/lapack-netlib/SRC/cla_porcond_x.c +++ b/lapack-netlib/SRC/cla_porcond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_porfsx_extended.c b/lapack-netlib/SRC/cla_porfsx_extended.c index a27c20ef3e..5d47080b3c 100644 --- a/lapack-netlib/SRC/cla_porfsx_extended.c +++ b/lapack-netlib/SRC/cla_porfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_porpvgrw.c b/lapack-netlib/SRC/cla_porpvgrw.c index 7fe941c9ef..98d58a32c3 100644 --- a/lapack-netlib/SRC/cla_porpvgrw.c +++ b/lapack-netlib/SRC/cla_porpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_syamv.c b/lapack-netlib/SRC/cla_syamv.c index a86ea19071..0d36559cb4 100644 --- a/lapack-netlib/SRC/cla_syamv.c +++ b/lapack-netlib/SRC/cla_syamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_syrcond_c.c b/lapack-netlib/SRC/cla_syrcond_c.c index 3e5e36b32d..9247f7a3b7 100644 --- a/lapack-netlib/SRC/cla_syrcond_c.c +++ b/lapack-netlib/SRC/cla_syrcond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_syrcond_x.c b/lapack-netlib/SRC/cla_syrcond_x.c index cbcee5ee2c..08d493057a 100644 --- a/lapack-netlib/SRC/cla_syrcond_x.c +++ b/lapack-netlib/SRC/cla_syrcond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_syrfsx_extended.c b/lapack-netlib/SRC/cla_syrfsx_extended.c index 3d2e57fbe4..6ad4ea0d29 100644 --- a/lapack-netlib/SRC/cla_syrfsx_extended.c +++ b/lapack-netlib/SRC/cla_syrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_syrpvgrw.c b/lapack-netlib/SRC/cla_syrpvgrw.c index 9ff5f2d19d..28cd85ec68 100644 --- a/lapack-netlib/SRC/cla_syrpvgrw.c +++ b/lapack-netlib/SRC/cla_syrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cla_wwaddw.c b/lapack-netlib/SRC/cla_wwaddw.c index 4fa11ff39a..3c89def6a8 100644 --- a/lapack-netlib/SRC/cla_wwaddw.c +++ b/lapack-netlib/SRC/cla_wwaddw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clabrd.c b/lapack-netlib/SRC/clabrd.c index 65bd6678f1..f4c05938a3 100644 --- a/lapack-netlib/SRC/clabrd.c +++ b/lapack-netlib/SRC/clabrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clacgv.c b/lapack-netlib/SRC/clacgv.c index db4ca1ad64..1994878928 100644 --- a/lapack-netlib/SRC/clacgv.c +++ b/lapack-netlib/SRC/clacgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clacn2.c b/lapack-netlib/SRC/clacn2.c index f8f454a1e6..779619bb28 100644 --- a/lapack-netlib/SRC/clacn2.c +++ b/lapack-netlib/SRC/clacn2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clacon.c b/lapack-netlib/SRC/clacon.c index 505656461f..ca3ceccfd3 100644 --- a/lapack-netlib/SRC/clacon.c +++ b/lapack-netlib/SRC/clacon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clacp2.c b/lapack-netlib/SRC/clacp2.c index fb53cd0141..6f67b7453b 100644 --- a/lapack-netlib/SRC/clacp2.c +++ b/lapack-netlib/SRC/clacp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clacpy.c b/lapack-netlib/SRC/clacpy.c index 301460b6ea..b1ffcf2cf3 100644 --- a/lapack-netlib/SRC/clacpy.c +++ b/lapack-netlib/SRC/clacpy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clacrm.c b/lapack-netlib/SRC/clacrm.c index d4d6b0f97c..0b40aaf8a3 100644 --- a/lapack-netlib/SRC/clacrm.c +++ b/lapack-netlib/SRC/clacrm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clacrt.c b/lapack-netlib/SRC/clacrt.c index cef37e6eb9..8b615ffd08 100644 --- a/lapack-netlib/SRC/clacrt.c +++ b/lapack-netlib/SRC/clacrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cladiv.c b/lapack-netlib/SRC/cladiv.c index adee25b4b7..5db2961567 100644 --- a/lapack-netlib/SRC/cladiv.c +++ b/lapack-netlib/SRC/cladiv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claed0.c b/lapack-netlib/SRC/claed0.c index 2b696508e9..5f7038ba25 100644 --- a/lapack-netlib/SRC/claed0.c +++ b/lapack-netlib/SRC/claed0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claed7.c b/lapack-netlib/SRC/claed7.c index 1eaa7e9c24..426f8d5895 100644 --- a/lapack-netlib/SRC/claed7.c +++ b/lapack-netlib/SRC/claed7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claed8.c b/lapack-netlib/SRC/claed8.c index 1bd9439cb6..9a034d85b9 100644 --- a/lapack-netlib/SRC/claed8.c +++ b/lapack-netlib/SRC/claed8.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claein.c b/lapack-netlib/SRC/claein.c index 3ecbcb982b..41cdbc63d4 100644 --- a/lapack-netlib/SRC/claein.c +++ b/lapack-netlib/SRC/claein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claesy.c b/lapack-netlib/SRC/claesy.c index 79d4047da5..a9699a42a3 100644 --- a/lapack-netlib/SRC/claesy.c +++ b/lapack-netlib/SRC/claesy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claev2.c b/lapack-netlib/SRC/claev2.c index 00fe82cae7..ad8fd45c96 100644 --- a/lapack-netlib/SRC/claev2.c +++ b/lapack-netlib/SRC/claev2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clag2z.c b/lapack-netlib/SRC/clag2z.c index d30f9d5385..6277495e28 100644 --- a/lapack-netlib/SRC/clag2z.c +++ b/lapack-netlib/SRC/clag2z.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clags2.c b/lapack-netlib/SRC/clags2.c index 8090c1d84e..ee3e655002 100644 --- a/lapack-netlib/SRC/clags2.c +++ b/lapack-netlib/SRC/clags2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clagtm.c b/lapack-netlib/SRC/clagtm.c index a4911f2900..7f235650fc 100644 --- a/lapack-netlib/SRC/clagtm.c +++ b/lapack-netlib/SRC/clagtm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clahef.c b/lapack-netlib/SRC/clahef.c index 57b7546d51..dcae7dace1 100644 --- a/lapack-netlib/SRC/clahef.c +++ b/lapack-netlib/SRC/clahef.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clahef_aa.c b/lapack-netlib/SRC/clahef_aa.c index 65808ee9ce..07f49b6cae 100644 --- a/lapack-netlib/SRC/clahef_aa.c +++ b/lapack-netlib/SRC/clahef_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clahef_rk.c b/lapack-netlib/SRC/clahef_rk.c index db17fe19f5..ef121ea167 100644 --- a/lapack-netlib/SRC/clahef_rk.c +++ b/lapack-netlib/SRC/clahef_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clahef_rook.c b/lapack-netlib/SRC/clahef_rook.c index 0b1b8218bb..b791ee489c 100644 --- a/lapack-netlib/SRC/clahef_rook.c +++ b/lapack-netlib/SRC/clahef_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clahqr.c b/lapack-netlib/SRC/clahqr.c index 3ebf092aa9..6644c7b029 100644 --- a/lapack-netlib/SRC/clahqr.c +++ b/lapack-netlib/SRC/clahqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clahr2.c b/lapack-netlib/SRC/clahr2.c index 00bd4a8a04..38e7ff98db 100644 --- a/lapack-netlib/SRC/clahr2.c +++ b/lapack-netlib/SRC/clahr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claic1.c b/lapack-netlib/SRC/claic1.c index 91028074e6..5a8dc54474 100644 --- a/lapack-netlib/SRC/claic1.c +++ b/lapack-netlib/SRC/claic1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clals0.c b/lapack-netlib/SRC/clals0.c index ee2b4367d9..7d7d17eff3 100644 --- a/lapack-netlib/SRC/clals0.c +++ b/lapack-netlib/SRC/clals0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clalsa.c b/lapack-netlib/SRC/clalsa.c index 2ef3e12317..808b71efad 100644 --- a/lapack-netlib/SRC/clalsa.c +++ b/lapack-netlib/SRC/clalsa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clalsd.c b/lapack-netlib/SRC/clalsd.c index 2fab22a070..477dbb9ed1 100644 --- a/lapack-netlib/SRC/clalsd.c +++ b/lapack-netlib/SRC/clalsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clamswlq.c b/lapack-netlib/SRC/clamswlq.c index 085587ee14..984c4acbff 100644 --- a/lapack-netlib/SRC/clamswlq.c +++ b/lapack-netlib/SRC/clamswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clamtsqr.c b/lapack-netlib/SRC/clamtsqr.c index 475199719f..fc892b3c47 100644 --- a/lapack-netlib/SRC/clamtsqr.c +++ b/lapack-netlib/SRC/clamtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clangb.c b/lapack-netlib/SRC/clangb.c index 1bf23d9cdb..6f77c9cb81 100644 --- a/lapack-netlib/SRC/clangb.c +++ b/lapack-netlib/SRC/clangb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clange.c b/lapack-netlib/SRC/clange.c index 419f450c1d..148cf1ceef 100644 --- a/lapack-netlib/SRC/clange.c +++ b/lapack-netlib/SRC/clange.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clangt.c b/lapack-netlib/SRC/clangt.c index 6d841cc0e5..9ff66c72f0 100644 --- a/lapack-netlib/SRC/clangt.c +++ b/lapack-netlib/SRC/clangt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clanhb.c b/lapack-netlib/SRC/clanhb.c index d58a0eca57..d9927dedf0 100644 --- a/lapack-netlib/SRC/clanhb.c +++ b/lapack-netlib/SRC/clanhb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clanhe.c b/lapack-netlib/SRC/clanhe.c index 362f4a220f..bfa7ee212a 100644 --- a/lapack-netlib/SRC/clanhe.c +++ b/lapack-netlib/SRC/clanhe.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clanhf.c b/lapack-netlib/SRC/clanhf.c index 14f4f73470..9a02aa78c1 100644 --- a/lapack-netlib/SRC/clanhf.c +++ b/lapack-netlib/SRC/clanhf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clanhp.c b/lapack-netlib/SRC/clanhp.c index b6da41055b..492cd7178e 100644 --- a/lapack-netlib/SRC/clanhp.c +++ b/lapack-netlib/SRC/clanhp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clanhs.c b/lapack-netlib/SRC/clanhs.c index 8b5075f815..0b04ff8263 100644 --- a/lapack-netlib/SRC/clanhs.c +++ b/lapack-netlib/SRC/clanhs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clanht.c b/lapack-netlib/SRC/clanht.c index 8432e24407..b7f6d17787 100644 --- a/lapack-netlib/SRC/clanht.c +++ b/lapack-netlib/SRC/clanht.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clansb.c b/lapack-netlib/SRC/clansb.c index 0f5eba4a87..7eedb2f957 100644 --- a/lapack-netlib/SRC/clansb.c +++ b/lapack-netlib/SRC/clansb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clansp.c b/lapack-netlib/SRC/clansp.c index ca9d24d60e..37247494f1 100644 --- a/lapack-netlib/SRC/clansp.c +++ b/lapack-netlib/SRC/clansp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clansy.c b/lapack-netlib/SRC/clansy.c index 1467a8230e..36ed6c40d2 100644 --- a/lapack-netlib/SRC/clansy.c +++ b/lapack-netlib/SRC/clansy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clantb.c b/lapack-netlib/SRC/clantb.c index 4078823c2c..fb27a85883 100644 --- a/lapack-netlib/SRC/clantb.c +++ b/lapack-netlib/SRC/clantb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clantp.c b/lapack-netlib/SRC/clantp.c index f1c43d22d5..5ecb252db1 100644 --- a/lapack-netlib/SRC/clantp.c +++ b/lapack-netlib/SRC/clantp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clantr.c b/lapack-netlib/SRC/clantr.c index 3f63cfa96c..f414f70bf3 100644 --- a/lapack-netlib/SRC/clantr.c +++ b/lapack-netlib/SRC/clantr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clapll.c b/lapack-netlib/SRC/clapll.c index e2b82f37aa..d144341385 100644 --- a/lapack-netlib/SRC/clapll.c +++ b/lapack-netlib/SRC/clapll.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clapmr.c b/lapack-netlib/SRC/clapmr.c index 614b66a5a1..d145d0cb58 100644 --- a/lapack-netlib/SRC/clapmr.c +++ b/lapack-netlib/SRC/clapmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clapmt.c b/lapack-netlib/SRC/clapmt.c index 8c76420135..0bc34d75a7 100644 --- a/lapack-netlib/SRC/clapmt.c +++ b/lapack-netlib/SRC/clapmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqgb.c b/lapack-netlib/SRC/claqgb.c index 118d7f5fbc..e326815979 100644 --- a/lapack-netlib/SRC/claqgb.c +++ b/lapack-netlib/SRC/claqgb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqge.c b/lapack-netlib/SRC/claqge.c index 5879796ff4..c1dc7da63f 100644 --- a/lapack-netlib/SRC/claqge.c +++ b/lapack-netlib/SRC/claqge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqhb.c b/lapack-netlib/SRC/claqhb.c index 777f2e7bd8..5871e47d28 100644 --- a/lapack-netlib/SRC/claqhb.c +++ b/lapack-netlib/SRC/claqhb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqhe.c b/lapack-netlib/SRC/claqhe.c index 855bdbf6e5..72f4880bae 100644 --- a/lapack-netlib/SRC/claqhe.c +++ b/lapack-netlib/SRC/claqhe.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqhp.c b/lapack-netlib/SRC/claqhp.c index 6ba4f0a34c..a50fa4cd3c 100644 --- a/lapack-netlib/SRC/claqhp.c +++ b/lapack-netlib/SRC/claqhp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqp2.c b/lapack-netlib/SRC/claqp2.c index 728fce7a32..9ce7fbe517 100644 --- a/lapack-netlib/SRC/claqp2.c +++ b/lapack-netlib/SRC/claqp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqps.c b/lapack-netlib/SRC/claqps.c index fcb48b9b77..a8d4cadffa 100644 --- a/lapack-netlib/SRC/claqps.c +++ b/lapack-netlib/SRC/claqps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqr0.c b/lapack-netlib/SRC/claqr0.c index 68e51f4446..94c944ba59 100644 --- a/lapack-netlib/SRC/claqr0.c +++ b/lapack-netlib/SRC/claqr0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqr1.c b/lapack-netlib/SRC/claqr1.c index 201499eece..592b70d261 100644 --- a/lapack-netlib/SRC/claqr1.c +++ b/lapack-netlib/SRC/claqr1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqr2.c b/lapack-netlib/SRC/claqr2.c index b5941df622..b5cc6edb9c 100644 --- a/lapack-netlib/SRC/claqr2.c +++ b/lapack-netlib/SRC/claqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqr3.c b/lapack-netlib/SRC/claqr3.c index 474ea19c67..2d2a63b977 100644 --- a/lapack-netlib/SRC/claqr3.c +++ b/lapack-netlib/SRC/claqr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqr4.c b/lapack-netlib/SRC/claqr4.c index 191cfcb7be..6b97f9fee2 100644 --- a/lapack-netlib/SRC/claqr4.c +++ b/lapack-netlib/SRC/claqr4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqr5.c b/lapack-netlib/SRC/claqr5.c index b60f2c2480..80c321d6b6 100644 --- a/lapack-netlib/SRC/claqr5.c +++ b/lapack-netlib/SRC/claqr5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqsb.c b/lapack-netlib/SRC/claqsb.c index 9170ccccbb..a995ee5fa3 100644 --- a/lapack-netlib/SRC/claqsb.c +++ b/lapack-netlib/SRC/claqsb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqsp.c b/lapack-netlib/SRC/claqsp.c index d42141a1fc..7a57f5873d 100644 --- a/lapack-netlib/SRC/claqsp.c +++ b/lapack-netlib/SRC/claqsp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqsy.c b/lapack-netlib/SRC/claqsy.c index e393959cad..9b7318927c 100644 --- a/lapack-netlib/SRC/claqsy.c +++ b/lapack-netlib/SRC/claqsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqz0.c b/lapack-netlib/SRC/claqz0.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/claqz0.c +++ b/lapack-netlib/SRC/claqz0.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqz1.c b/lapack-netlib/SRC/claqz1.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/claqz1.c +++ b/lapack-netlib/SRC/claqz1.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqz2.c b/lapack-netlib/SRC/claqz2.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/claqz2.c +++ b/lapack-netlib/SRC/claqz2.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claqz3.c b/lapack-netlib/SRC/claqz3.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/claqz3.c +++ b/lapack-netlib/SRC/claqz3.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clar1v.c b/lapack-netlib/SRC/clar1v.c index e1063dbe8a..77db0c321a 100644 --- a/lapack-netlib/SRC/clar1v.c +++ b/lapack-netlib/SRC/clar1v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clar2v.c b/lapack-netlib/SRC/clar2v.c index 0ac4915ae9..b1ba149891 100644 --- a/lapack-netlib/SRC/clar2v.c +++ b/lapack-netlib/SRC/clar2v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarcm.c b/lapack-netlib/SRC/clarcm.c index 3b727d06c1..650f7f6491 100644 --- a/lapack-netlib/SRC/clarcm.c +++ b/lapack-netlib/SRC/clarcm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarf.c b/lapack-netlib/SRC/clarf.c index 68f198c250..3c45687e53 100644 --- a/lapack-netlib/SRC/clarf.c +++ b/lapack-netlib/SRC/clarf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarfb.c b/lapack-netlib/SRC/clarfb.c index ebd0d636ce..855816bf2b 100644 --- a/lapack-netlib/SRC/clarfb.c +++ b/lapack-netlib/SRC/clarfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarfb_gett.c b/lapack-netlib/SRC/clarfb_gett.c index 37a7aaeb72..165725b167 100644 --- a/lapack-netlib/SRC/clarfb_gett.c +++ b/lapack-netlib/SRC/clarfb_gett.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarfg.c b/lapack-netlib/SRC/clarfg.c index 1800ae79da..df09f28623 100644 --- a/lapack-netlib/SRC/clarfg.c +++ b/lapack-netlib/SRC/clarfg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarfgp.c b/lapack-netlib/SRC/clarfgp.c index 4477c21341..f0600d3848 100644 --- a/lapack-netlib/SRC/clarfgp.c +++ b/lapack-netlib/SRC/clarfgp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarft.c b/lapack-netlib/SRC/clarft.c index ffe87449c7..1baa0f5cbf 100644 --- a/lapack-netlib/SRC/clarft.c +++ b/lapack-netlib/SRC/clarft.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarfx.c b/lapack-netlib/SRC/clarfx.c index bcf2c48f55..9b64dba9d3 100644 --- a/lapack-netlib/SRC/clarfx.c +++ b/lapack-netlib/SRC/clarfx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarfy.c b/lapack-netlib/SRC/clarfy.c index 1bda7663e4..073dc13208 100644 --- a/lapack-netlib/SRC/clarfy.c +++ b/lapack-netlib/SRC/clarfy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clargv.c b/lapack-netlib/SRC/clargv.c index 5b60fe52ad..b786864d95 100644 --- a/lapack-netlib/SRC/clargv.c +++ b/lapack-netlib/SRC/clargv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarnv.c b/lapack-netlib/SRC/clarnv.c index c079633c68..175d371991 100644 --- a/lapack-netlib/SRC/clarnv.c +++ b/lapack-netlib/SRC/clarnv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarrv.c b/lapack-netlib/SRC/clarrv.c index 59c83dec5c..8ac790cac3 100644 --- a/lapack-netlib/SRC/clarrv.c +++ b/lapack-netlib/SRC/clarrv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarscl2.c b/lapack-netlib/SRC/clarscl2.c index 7f76979e52..242140536a 100644 --- a/lapack-netlib/SRC/clarscl2.c +++ b/lapack-netlib/SRC/clarscl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clartg.c b/lapack-netlib/SRC/clartg.c index c91de371fe..21ad11d17a 100644 --- a/lapack-netlib/SRC/clartg.c +++ b/lapack-netlib/SRC/clartg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clartv.c b/lapack-netlib/SRC/clartv.c index f59b7feba0..de4f2f364a 100644 --- a/lapack-netlib/SRC/clartv.c +++ b/lapack-netlib/SRC/clartv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarz.c b/lapack-netlib/SRC/clarz.c index 986450688c..4b1b55c71b 100644 --- a/lapack-netlib/SRC/clarz.c +++ b/lapack-netlib/SRC/clarz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarzb.c b/lapack-netlib/SRC/clarzb.c index 5f8d7fa4f6..e61e581a65 100644 --- a/lapack-netlib/SRC/clarzb.c +++ b/lapack-netlib/SRC/clarzb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clarzt.c b/lapack-netlib/SRC/clarzt.c index cf3c6a1e77..cb83ffc98d 100644 --- a/lapack-netlib/SRC/clarzt.c +++ b/lapack-netlib/SRC/clarzt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clascl.c b/lapack-netlib/SRC/clascl.c index 4d1e4c31c4..845b76f980 100644 --- a/lapack-netlib/SRC/clascl.c +++ b/lapack-netlib/SRC/clascl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clascl2.c b/lapack-netlib/SRC/clascl2.c index 06ee8a443a..04f716244a 100644 --- a/lapack-netlib/SRC/clascl2.c +++ b/lapack-netlib/SRC/clascl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claset.c b/lapack-netlib/SRC/claset.c index 8372580c88..0e56724135 100644 --- a/lapack-netlib/SRC/claset.c +++ b/lapack-netlib/SRC/claset.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clasr.c b/lapack-netlib/SRC/clasr.c index 7aebcaa310..4c43b6d534 100644 --- a/lapack-netlib/SRC/clasr.c +++ b/lapack-netlib/SRC/clasr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/classq.c b/lapack-netlib/SRC/classq.c index 539df4b59b..6de2adb5dc 100644 --- a/lapack-netlib/SRC/classq.c +++ b/lapack-netlib/SRC/classq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claswlq.c b/lapack-netlib/SRC/claswlq.c index 3048880cef..d17b56a4d7 100644 --- a/lapack-netlib/SRC/claswlq.c +++ b/lapack-netlib/SRC/claswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -718,12 +718,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *n < *m) { *info = -2; - } else if (*mb < 1 || *mb > *m && *m > 0) { + } else if (*mb < 1 || (*mb > *m && *m > 0)) { *info = -3; - } else if (*nb <= *m) { + } else if (*nb <= 0) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *mb) { *info = -8; } else if (*lwork < *m * *mb && ! lquery) { diff --git a/lapack-netlib/SRC/claswp.c b/lapack-netlib/SRC/claswp.c index 60148c4fdb..8cf5a55147 100644 --- a/lapack-netlib/SRC/claswp.c +++ b/lapack-netlib/SRC/claswp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clasyf.c b/lapack-netlib/SRC/clasyf.c index 9faf598024..9364bddeae 100644 --- a/lapack-netlib/SRC/clasyf.c +++ b/lapack-netlib/SRC/clasyf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clasyf_aa.c b/lapack-netlib/SRC/clasyf_aa.c index 64d40af935..d146d39f65 100644 --- a/lapack-netlib/SRC/clasyf_aa.c +++ b/lapack-netlib/SRC/clasyf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clasyf_rk.c b/lapack-netlib/SRC/clasyf_rk.c index ba6f339f20..be2c915785 100644 --- a/lapack-netlib/SRC/clasyf_rk.c +++ b/lapack-netlib/SRC/clasyf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clasyf_rook.c b/lapack-netlib/SRC/clasyf_rook.c index 1a20913e89..0389d88a59 100644 --- a/lapack-netlib/SRC/clasyf_rook.c +++ b/lapack-netlib/SRC/clasyf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clatbs.c b/lapack-netlib/SRC/clatbs.c index 67f3a236bc..d737ad3a18 100644 --- a/lapack-netlib/SRC/clatbs.c +++ b/lapack-netlib/SRC/clatbs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clatdf.c b/lapack-netlib/SRC/clatdf.c index 4a7990b6af..44189548ce 100644 --- a/lapack-netlib/SRC/clatdf.c +++ b/lapack-netlib/SRC/clatdf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clatps.c b/lapack-netlib/SRC/clatps.c index 1fb11c9667..47111b763e 100644 --- a/lapack-netlib/SRC/clatps.c +++ b/lapack-netlib/SRC/clatps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clatrd.c b/lapack-netlib/SRC/clatrd.c index 0def564ad4..4469190e7a 100644 --- a/lapack-netlib/SRC/clatrd.c +++ b/lapack-netlib/SRC/clatrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clatrs.c b/lapack-netlib/SRC/clatrs.c index b68fee3531..11a9021091 100644 --- a/lapack-netlib/SRC/clatrs.c +++ b/lapack-netlib/SRC/clatrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clatrs3.c b/lapack-netlib/SRC/clatrs3.c index f6d76cf499..c9f25d1c1d 100644 --- a/lapack-netlib/SRC/clatrs3.c +++ b/lapack-netlib/SRC/clatrs3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -777,7 +777,7 @@ static integer c_n1 = -1; extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; @@ -874,7 +874,7 @@ static integer c_n1 = -1; } if (*info != 0) { i__1 = -(*info); - xerbla_("CLATRS3", &i__1); + xerbla_("CLATRS3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/clatrz.c b/lapack-netlib/SRC/clatrz.c index df017628d4..c5525992dc 100644 --- a/lapack-netlib/SRC/clatrz.c +++ b/lapack-netlib/SRC/clatrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clatsqr.c b/lapack-netlib/SRC/clatsqr.c index 08235f02e6..41a276a16b 100644 --- a/lapack-netlib/SRC/clatsqr.c +++ b/lapack-netlib/SRC/clatsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -720,12 +720,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *m < *n) { *info = -2; - } else if (*mb <= *n) { + } else if (*mb < 1) { *info = -3; - } else if (*nb < 1 || *nb > *n && *n > 0) { + } else if (*nb < 1 || (*nb > *n && *n > 0)) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *nb) { *info = -8; } else if (*lwork < *n * *nb && ! lquery) { diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp.c b/lapack-netlib/SRC/claunhr_col_getrfnp.c index d6cb51abec..f8a10434a9 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp.c +++ b/lapack-netlib/SRC/claunhr_col_getrfnp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/claunhr_col_getrfnp2.c b/lapack-netlib/SRC/claunhr_col_getrfnp2.c index e79b4c8e3a..18da26156f 100644 --- a/lapack-netlib/SRC/claunhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/claunhr_col_getrfnp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clauu2.c b/lapack-netlib/SRC/clauu2.c index f79cdb1f06..bece99576c 100644 --- a/lapack-netlib/SRC/clauu2.c +++ b/lapack-netlib/SRC/clauu2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/clauum.c b/lapack-netlib/SRC/clauum.c index d2a0b0419e..05285f736e 100644 --- a/lapack-netlib/SRC/clauum.c +++ b/lapack-netlib/SRC/clauum.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbcon.c b/lapack-netlib/SRC/cpbcon.c index 05da914200..7e5e7a205c 100644 --- a/lapack-netlib/SRC/cpbcon.c +++ b/lapack-netlib/SRC/cpbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbequ.c b/lapack-netlib/SRC/cpbequ.c index b46fcaa066..fc18420ffe 100644 --- a/lapack-netlib/SRC/cpbequ.c +++ b/lapack-netlib/SRC/cpbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbrfs.c b/lapack-netlib/SRC/cpbrfs.c index cf61e5dc95..af88ad47f9 100644 --- a/lapack-netlib/SRC/cpbrfs.c +++ b/lapack-netlib/SRC/cpbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbstf.c b/lapack-netlib/SRC/cpbstf.c index 0fedc15380..9af7773ad9 100644 --- a/lapack-netlib/SRC/cpbstf.c +++ b/lapack-netlib/SRC/cpbstf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbsv.c b/lapack-netlib/SRC/cpbsv.c index 9b1a3cd0d5..9b2bb23f61 100644 --- a/lapack-netlib/SRC/cpbsv.c +++ b/lapack-netlib/SRC/cpbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbsvx.c b/lapack-netlib/SRC/cpbsvx.c index 70337aaa62..c6c18cd25f 100644 --- a/lapack-netlib/SRC/cpbsvx.c +++ b/lapack-netlib/SRC/cpbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbtf2.c b/lapack-netlib/SRC/cpbtf2.c index b14bbb51ee..b17b8972b9 100644 --- a/lapack-netlib/SRC/cpbtf2.c +++ b/lapack-netlib/SRC/cpbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbtrf.c b/lapack-netlib/SRC/cpbtrf.c index f44cb5c3fa..f8ca9d410e 100644 --- a/lapack-netlib/SRC/cpbtrf.c +++ b/lapack-netlib/SRC/cpbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpbtrs.c b/lapack-netlib/SRC/cpbtrs.c index c79f6aa5c9..693f881ce3 100644 --- a/lapack-netlib/SRC/cpbtrs.c +++ b/lapack-netlib/SRC/cpbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpftrf.c b/lapack-netlib/SRC/cpftrf.c index e53b4f5f67..a127d8b7bc 100644 --- a/lapack-netlib/SRC/cpftrf.c +++ b/lapack-netlib/SRC/cpftrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpftri.c b/lapack-netlib/SRC/cpftri.c index 0eb513032f..932a99a90a 100644 --- a/lapack-netlib/SRC/cpftri.c +++ b/lapack-netlib/SRC/cpftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpftrs.c b/lapack-netlib/SRC/cpftrs.c index c6f404bc7a..898bf3608e 100644 --- a/lapack-netlib/SRC/cpftrs.c +++ b/lapack-netlib/SRC/cpftrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpocon.c b/lapack-netlib/SRC/cpocon.c index d4071768f5..2bbc9e33f8 100644 --- a/lapack-netlib/SRC/cpocon.c +++ b/lapack-netlib/SRC/cpocon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpoequ.c b/lapack-netlib/SRC/cpoequ.c index f09ef845b6..a241b71a90 100644 --- a/lapack-netlib/SRC/cpoequ.c +++ b/lapack-netlib/SRC/cpoequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpoequb.c b/lapack-netlib/SRC/cpoequb.c index 0a9eb9648d..da3bf22ffe 100644 --- a/lapack-netlib/SRC/cpoequb.c +++ b/lapack-netlib/SRC/cpoequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cporfs.c b/lapack-netlib/SRC/cporfs.c index 4d7f78bf0c..1407432eef 100644 --- a/lapack-netlib/SRC/cporfs.c +++ b/lapack-netlib/SRC/cporfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cporfsx.c b/lapack-netlib/SRC/cporfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/cporfsx.c +++ b/lapack-netlib/SRC/cporfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cposv.c b/lapack-netlib/SRC/cposv.c index 93e6759fe3..6232240447 100644 --- a/lapack-netlib/SRC/cposv.c +++ b/lapack-netlib/SRC/cposv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cposvx.c b/lapack-netlib/SRC/cposvx.c index 6e9cf48a81..ed29e3640b 100644 --- a/lapack-netlib/SRC/cposvx.c +++ b/lapack-netlib/SRC/cposvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cposvxx.c b/lapack-netlib/SRC/cposvxx.c index f4614361b3..6ebf30bacf 100644 --- a/lapack-netlib/SRC/cposvxx.c +++ b/lapack-netlib/SRC/cposvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpotf2.c b/lapack-netlib/SRC/cpotf2.c index 63153797dc..297e15244e 100644 --- a/lapack-netlib/SRC/cpotf2.c +++ b/lapack-netlib/SRC/cpotf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpotrf.c b/lapack-netlib/SRC/cpotrf.c index ded299f8d5..3d6213e21f 100644 --- a/lapack-netlib/SRC/cpotrf.c +++ b/lapack-netlib/SRC/cpotrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpotrf2.c b/lapack-netlib/SRC/cpotrf2.c index cadc520d5c..a1d859de81 100644 --- a/lapack-netlib/SRC/cpotrf2.c +++ b/lapack-netlib/SRC/cpotrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpotri.c b/lapack-netlib/SRC/cpotri.c index 79e9d8954c..6b8793d9bb 100644 --- a/lapack-netlib/SRC/cpotri.c +++ b/lapack-netlib/SRC/cpotri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpotrs.c b/lapack-netlib/SRC/cpotrs.c index e110b9641d..6bd0b16d1f 100644 --- a/lapack-netlib/SRC/cpotrs.c +++ b/lapack-netlib/SRC/cpotrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cppcon.c b/lapack-netlib/SRC/cppcon.c index 07899b71b4..bd378da7e1 100644 --- a/lapack-netlib/SRC/cppcon.c +++ b/lapack-netlib/SRC/cppcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cppequ.c b/lapack-netlib/SRC/cppequ.c index f4bdf882c3..93b73c4475 100644 --- a/lapack-netlib/SRC/cppequ.c +++ b/lapack-netlib/SRC/cppequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpprfs.c b/lapack-netlib/SRC/cpprfs.c index 8d0b934a74..bf12d8448a 100644 --- a/lapack-netlib/SRC/cpprfs.c +++ b/lapack-netlib/SRC/cpprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cppsv.c b/lapack-netlib/SRC/cppsv.c index 19882e6710..2c4ee02031 100644 --- a/lapack-netlib/SRC/cppsv.c +++ b/lapack-netlib/SRC/cppsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cppsvx.c b/lapack-netlib/SRC/cppsvx.c index 4005ea3d43..18824abe5d 100644 --- a/lapack-netlib/SRC/cppsvx.c +++ b/lapack-netlib/SRC/cppsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpptrf.c b/lapack-netlib/SRC/cpptrf.c index f53353a5f7..5b67ea4bd9 100644 --- a/lapack-netlib/SRC/cpptrf.c +++ b/lapack-netlib/SRC/cpptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpptri.c b/lapack-netlib/SRC/cpptri.c index 17f12de1cc..9987c653d9 100644 --- a/lapack-netlib/SRC/cpptri.c +++ b/lapack-netlib/SRC/cpptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpptrs.c b/lapack-netlib/SRC/cpptrs.c index 2b8a083329..5dca92b32f 100644 --- a/lapack-netlib/SRC/cpptrs.c +++ b/lapack-netlib/SRC/cpptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpstf2.c b/lapack-netlib/SRC/cpstf2.c index 5e6ed763e5..8db7b12602 100644 --- a/lapack-netlib/SRC/cpstf2.c +++ b/lapack-netlib/SRC/cpstf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpstrf.c b/lapack-netlib/SRC/cpstrf.c index cb1bbd3fd4..d62a638d33 100644 --- a/lapack-netlib/SRC/cpstrf.c +++ b/lapack-netlib/SRC/cpstrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cptcon.c b/lapack-netlib/SRC/cptcon.c index b1585da7e0..c2f4182f44 100644 --- a/lapack-netlib/SRC/cptcon.c +++ b/lapack-netlib/SRC/cptcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpteqr.c b/lapack-netlib/SRC/cpteqr.c index 9856e544f5..22b276b02b 100644 --- a/lapack-netlib/SRC/cpteqr.c +++ b/lapack-netlib/SRC/cpteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cptrfs.c b/lapack-netlib/SRC/cptrfs.c index dbab40f70d..2fcc6f884c 100644 --- a/lapack-netlib/SRC/cptrfs.c +++ b/lapack-netlib/SRC/cptrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cptsv.c b/lapack-netlib/SRC/cptsv.c index f018d7553d..a449eb3554 100644 --- a/lapack-netlib/SRC/cptsv.c +++ b/lapack-netlib/SRC/cptsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cptsvx.c b/lapack-netlib/SRC/cptsvx.c index c0e96951e8..9ae6cece9d 100644 --- a/lapack-netlib/SRC/cptsvx.c +++ b/lapack-netlib/SRC/cptsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpttrf.c b/lapack-netlib/SRC/cpttrf.c index 592ceb877c..908f813bd3 100644 --- a/lapack-netlib/SRC/cpttrf.c +++ b/lapack-netlib/SRC/cpttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cpttrs.c b/lapack-netlib/SRC/cpttrs.c index abe967d69b..93a9572aa3 100644 --- a/lapack-netlib/SRC/cpttrs.c +++ b/lapack-netlib/SRC/cpttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cptts2.c b/lapack-netlib/SRC/cptts2.c index ed66ca2112..72934222c0 100644 --- a/lapack-netlib/SRC/cptts2.c +++ b/lapack-netlib/SRC/cptts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/crot.c b/lapack-netlib/SRC/crot.c index 93782ce8f7..27fdf56b67 100644 --- a/lapack-netlib/SRC/crot.c +++ b/lapack-netlib/SRC/crot.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cspcon.c b/lapack-netlib/SRC/cspcon.c index 0c4dfcada1..b2b897ed75 100644 --- a/lapack-netlib/SRC/cspcon.c +++ b/lapack-netlib/SRC/cspcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cspmv.c b/lapack-netlib/SRC/cspmv.c index 743ab8a200..7d9f0eb57e 100644 --- a/lapack-netlib/SRC/cspmv.c +++ b/lapack-netlib/SRC/cspmv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cspr.c b/lapack-netlib/SRC/cspr.c index 4735cb91f8..afeccc5591 100644 --- a/lapack-netlib/SRC/cspr.c +++ b/lapack-netlib/SRC/cspr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csprfs.c b/lapack-netlib/SRC/csprfs.c index 14708f80ca..7791d17faf 100644 --- a/lapack-netlib/SRC/csprfs.c +++ b/lapack-netlib/SRC/csprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cspsv.c b/lapack-netlib/SRC/cspsv.c index 6b552b24cb..2b3ad96d23 100644 --- a/lapack-netlib/SRC/cspsv.c +++ b/lapack-netlib/SRC/cspsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cspsvx.c b/lapack-netlib/SRC/cspsvx.c index 5e78be9fb4..db0ca2eb89 100644 --- a/lapack-netlib/SRC/cspsvx.c +++ b/lapack-netlib/SRC/cspsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csptrf.c b/lapack-netlib/SRC/csptrf.c index f98b9b06b9..899e05b7cd 100644 --- a/lapack-netlib/SRC/csptrf.c +++ b/lapack-netlib/SRC/csptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csptri.c b/lapack-netlib/SRC/csptri.c index 1f9e86d56b..42b56a7b35 100644 --- a/lapack-netlib/SRC/csptri.c +++ b/lapack-netlib/SRC/csptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csptrs.c b/lapack-netlib/SRC/csptrs.c index 7088e4d0da..97b0a9d589 100644 --- a/lapack-netlib/SRC/csptrs.c +++ b/lapack-netlib/SRC/csptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csrscl.c b/lapack-netlib/SRC/csrscl.c index cb786ac5de..95b8c93ecb 100644 --- a/lapack-netlib/SRC/csrscl.c +++ b/lapack-netlib/SRC/csrscl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cstedc.c b/lapack-netlib/SRC/cstedc.c index 8f047d1cec..42363df04b 100644 --- a/lapack-netlib/SRC/cstedc.c +++ b/lapack-netlib/SRC/cstedc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cstegr.c b/lapack-netlib/SRC/cstegr.c index e8ed6ed3d3..c7affd5a19 100644 --- a/lapack-netlib/SRC/cstegr.c +++ b/lapack-netlib/SRC/cstegr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cstein.c b/lapack-netlib/SRC/cstein.c index 4ac90325c6..ba37b09d0f 100644 --- a/lapack-netlib/SRC/cstein.c +++ b/lapack-netlib/SRC/cstein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cstemr.c b/lapack-netlib/SRC/cstemr.c index 0f621bcc12..0abcc26b1d 100644 --- a/lapack-netlib/SRC/cstemr.c +++ b/lapack-netlib/SRC/cstemr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csteqr.c b/lapack-netlib/SRC/csteqr.c index 77139c0231..41e084b034 100644 --- a/lapack-netlib/SRC/csteqr.c +++ b/lapack-netlib/SRC/csteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csycon.c b/lapack-netlib/SRC/csycon.c index 0d704e6172..6e9f15c0d3 100644 --- a/lapack-netlib/SRC/csycon.c +++ b/lapack-netlib/SRC/csycon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csycon_3.c b/lapack-netlib/SRC/csycon_3.c index ad0789c2d9..1671a4f4a2 100644 --- a/lapack-netlib/SRC/csycon_3.c +++ b/lapack-netlib/SRC/csycon_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csycon_rook.c b/lapack-netlib/SRC/csycon_rook.c index 93a1dbeede..ffd004ccd7 100644 --- a/lapack-netlib/SRC/csycon_rook.c +++ b/lapack-netlib/SRC/csycon_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyconv.c b/lapack-netlib/SRC/csyconv.c index 55bdc59533..85d8d57400 100644 --- a/lapack-netlib/SRC/csyconv.c +++ b/lapack-netlib/SRC/csyconv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyconvf.c b/lapack-netlib/SRC/csyconvf.c index 00e40d0d8b..6c4c3c7948 100644 --- a/lapack-netlib/SRC/csyconvf.c +++ b/lapack-netlib/SRC/csyconvf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyconvf_rook.c b/lapack-netlib/SRC/csyconvf_rook.c index 77baad3b6d..6f957a4061 100644 --- a/lapack-netlib/SRC/csyconvf_rook.c +++ b/lapack-netlib/SRC/csyconvf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyequb.c b/lapack-netlib/SRC/csyequb.c index 492191f0e4..0afa3d0f32 100644 --- a/lapack-netlib/SRC/csyequb.c +++ b/lapack-netlib/SRC/csyequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csymv.c b/lapack-netlib/SRC/csymv.c index 78178cdc20..51a5c9ff34 100644 --- a/lapack-netlib/SRC/csymv.c +++ b/lapack-netlib/SRC/csymv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyr.c b/lapack-netlib/SRC/csyr.c index 8cc35ccfb8..df88c42217 100644 --- a/lapack-netlib/SRC/csyr.c +++ b/lapack-netlib/SRC/csyr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyrfs.c b/lapack-netlib/SRC/csyrfs.c index f242780746..73aba285c6 100644 --- a/lapack-netlib/SRC/csyrfs.c +++ b/lapack-netlib/SRC/csyrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyrfsx.c b/lapack-netlib/SRC/csyrfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/csyrfsx.c +++ b/lapack-netlib/SRC/csyrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csysv.c b/lapack-netlib/SRC/csysv.c index dcdbbb700f..4c5a899d92 100644 --- a/lapack-netlib/SRC/csysv.c +++ b/lapack-netlib/SRC/csysv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csysv_aa.c b/lapack-netlib/SRC/csysv_aa.c index 78328b7893..07fd820e0e 100644 --- a/lapack-netlib/SRC/csysv_aa.c +++ b/lapack-netlib/SRC/csysv_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csysv_aa_2stage.c b/lapack-netlib/SRC/csysv_aa_2stage.c index 3fef43809a..0343869e0f 100644 --- a/lapack-netlib/SRC/csysv_aa_2stage.c +++ b/lapack-netlib/SRC/csysv_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csysv_rk.c b/lapack-netlib/SRC/csysv_rk.c index 6b9babdb82..65fdd355fa 100644 --- a/lapack-netlib/SRC/csysv_rk.c +++ b/lapack-netlib/SRC/csysv_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csysv_rook.c b/lapack-netlib/SRC/csysv_rook.c index e1411fa6ac..2d78a3486f 100644 --- a/lapack-netlib/SRC/csysv_rook.c +++ b/lapack-netlib/SRC/csysv_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csysvx.c b/lapack-netlib/SRC/csysvx.c index deca3f592d..0bcc490395 100644 --- a/lapack-netlib/SRC/csysvx.c +++ b/lapack-netlib/SRC/csysvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csysvxx.c b/lapack-netlib/SRC/csysvxx.c index 4027ed9718..965ea208b2 100644 --- a/lapack-netlib/SRC/csysvxx.c +++ b/lapack-netlib/SRC/csysvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csyswapr.c b/lapack-netlib/SRC/csyswapr.c index 4a56c9ee53..a5d3472330 100644 --- a/lapack-netlib/SRC/csyswapr.c +++ b/lapack-netlib/SRC/csyswapr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytf2.c b/lapack-netlib/SRC/csytf2.c index fc452299c8..59040b9126 100644 --- a/lapack-netlib/SRC/csytf2.c +++ b/lapack-netlib/SRC/csytf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytf2_rk.c b/lapack-netlib/SRC/csytf2_rk.c index ff2dc4208f..d2f63b3471 100644 --- a/lapack-netlib/SRC/csytf2_rk.c +++ b/lapack-netlib/SRC/csytf2_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytf2_rook.c b/lapack-netlib/SRC/csytf2_rook.c index 92aa52c515..9477ac5fe2 100644 --- a/lapack-netlib/SRC/csytf2_rook.c +++ b/lapack-netlib/SRC/csytf2_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrf.c b/lapack-netlib/SRC/csytrf.c index 9a3276164a..8b3d2cbbb7 100644 --- a/lapack-netlib/SRC/csytrf.c +++ b/lapack-netlib/SRC/csytrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrf_aa.c b/lapack-netlib/SRC/csytrf_aa.c index 75c8e85bdf..421f581e2c 100644 --- a/lapack-netlib/SRC/csytrf_aa.c +++ b/lapack-netlib/SRC/csytrf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrf_aa_2stage.c b/lapack-netlib/SRC/csytrf_aa_2stage.c index b3539e9fa3..4288e909a8 100644 --- a/lapack-netlib/SRC/csytrf_aa_2stage.c +++ b/lapack-netlib/SRC/csytrf_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrf_rk.c b/lapack-netlib/SRC/csytrf_rk.c index 44a7f2d3a0..5ff45a8037 100644 --- a/lapack-netlib/SRC/csytrf_rk.c +++ b/lapack-netlib/SRC/csytrf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrf_rook.c b/lapack-netlib/SRC/csytrf_rook.c index 97d75cc8c9..6fa148d390 100644 --- a/lapack-netlib/SRC/csytrf_rook.c +++ b/lapack-netlib/SRC/csytrf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytri.c b/lapack-netlib/SRC/csytri.c index 751c1f2b2f..36ef1d9f9a 100644 --- a/lapack-netlib/SRC/csytri.c +++ b/lapack-netlib/SRC/csytri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytri2.c b/lapack-netlib/SRC/csytri2.c index eaff83aa1f..2f4c6ab92c 100644 --- a/lapack-netlib/SRC/csytri2.c +++ b/lapack-netlib/SRC/csytri2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytri2x.c b/lapack-netlib/SRC/csytri2x.c index 1444c3e603..69829f375f 100644 --- a/lapack-netlib/SRC/csytri2x.c +++ b/lapack-netlib/SRC/csytri2x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytri_3.c b/lapack-netlib/SRC/csytri_3.c index db99057e30..1a8662c36d 100644 --- a/lapack-netlib/SRC/csytri_3.c +++ b/lapack-netlib/SRC/csytri_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytri_3x.c b/lapack-netlib/SRC/csytri_3x.c index 83a868acb1..d6699b8601 100644 --- a/lapack-netlib/SRC/csytri_3x.c +++ b/lapack-netlib/SRC/csytri_3x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytri_rook.c b/lapack-netlib/SRC/csytri_rook.c index 4759f866e8..c22e0fa698 100644 --- a/lapack-netlib/SRC/csytri_rook.c +++ b/lapack-netlib/SRC/csytri_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrs.c b/lapack-netlib/SRC/csytrs.c index e15ad31f69..2ee6dcce68 100644 --- a/lapack-netlib/SRC/csytrs.c +++ b/lapack-netlib/SRC/csytrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrs2.c b/lapack-netlib/SRC/csytrs2.c index 2c67ba4df7..a02715df29 100644 --- a/lapack-netlib/SRC/csytrs2.c +++ b/lapack-netlib/SRC/csytrs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrs_3.c b/lapack-netlib/SRC/csytrs_3.c index f5c096769b..59474513b1 100644 --- a/lapack-netlib/SRC/csytrs_3.c +++ b/lapack-netlib/SRC/csytrs_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrs_aa.c b/lapack-netlib/SRC/csytrs_aa.c index 8a7c4ec93d..9857f0bdaf 100644 --- a/lapack-netlib/SRC/csytrs_aa.c +++ b/lapack-netlib/SRC/csytrs_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrs_aa_2stage.c b/lapack-netlib/SRC/csytrs_aa_2stage.c index 6b0d725138..23f1a7efbb 100644 --- a/lapack-netlib/SRC/csytrs_aa_2stage.c +++ b/lapack-netlib/SRC/csytrs_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/csytrs_rook.c b/lapack-netlib/SRC/csytrs_rook.c index a0ed21b946..727bbea466 100644 --- a/lapack-netlib/SRC/csytrs_rook.c +++ b/lapack-netlib/SRC/csytrs_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctbcon.c b/lapack-netlib/SRC/ctbcon.c index f51938fe55..3ee8d3cb3c 100644 --- a/lapack-netlib/SRC/ctbcon.c +++ b/lapack-netlib/SRC/ctbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctbrfs.c b/lapack-netlib/SRC/ctbrfs.c index 47450cf9bd..f7c9966ac7 100644 --- a/lapack-netlib/SRC/ctbrfs.c +++ b/lapack-netlib/SRC/ctbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctbtrs.c b/lapack-netlib/SRC/ctbtrs.c index fa7dfa5442..7a4247d2ea 100644 --- a/lapack-netlib/SRC/ctbtrs.c +++ b/lapack-netlib/SRC/ctbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctfsm.c b/lapack-netlib/SRC/ctfsm.c index d939b67795..f7c1e072f5 100644 --- a/lapack-netlib/SRC/ctfsm.c +++ b/lapack-netlib/SRC/ctfsm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctftri.c b/lapack-netlib/SRC/ctftri.c index 92220ad6c1..1ab1abf90a 100644 --- a/lapack-netlib/SRC/ctftri.c +++ b/lapack-netlib/SRC/ctftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctfttp.c b/lapack-netlib/SRC/ctfttp.c index d1cfc54a97..4bcf057a73 100644 --- a/lapack-netlib/SRC/ctfttp.c +++ b/lapack-netlib/SRC/ctfttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctfttr.c b/lapack-netlib/SRC/ctfttr.c index 59452eccf6..62683e99b4 100644 --- a/lapack-netlib/SRC/ctfttr.c +++ b/lapack-netlib/SRC/ctfttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgevc.c b/lapack-netlib/SRC/ctgevc.c index 76676b03bd..5ea1220022 100644 --- a/lapack-netlib/SRC/ctgevc.c +++ b/lapack-netlib/SRC/ctgevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgex2.c b/lapack-netlib/SRC/ctgex2.c index fa60909b1b..b6a0042937 100644 --- a/lapack-netlib/SRC/ctgex2.c +++ b/lapack-netlib/SRC/ctgex2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgexc.c b/lapack-netlib/SRC/ctgexc.c index 025fbbb917..f58df70bf0 100644 --- a/lapack-netlib/SRC/ctgexc.c +++ b/lapack-netlib/SRC/ctgexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgsen.c b/lapack-netlib/SRC/ctgsen.c index c853bcbbd4..44b391f28d 100644 --- a/lapack-netlib/SRC/ctgsen.c +++ b/lapack-netlib/SRC/ctgsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgsja.c b/lapack-netlib/SRC/ctgsja.c index c5a56c48ed..3d951d9bdf 100644 --- a/lapack-netlib/SRC/ctgsja.c +++ b/lapack-netlib/SRC/ctgsja.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgsna.c b/lapack-netlib/SRC/ctgsna.c index 19a785228f..f96f629534 100644 --- a/lapack-netlib/SRC/ctgsna.c +++ b/lapack-netlib/SRC/ctgsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgsy2.c b/lapack-netlib/SRC/ctgsy2.c index 82d8cb5a1e..1df504b21a 100644 --- a/lapack-netlib/SRC/ctgsy2.c +++ b/lapack-netlib/SRC/ctgsy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctgsyl.c b/lapack-netlib/SRC/ctgsyl.c index 0db1578c99..fc465a36ca 100644 --- a/lapack-netlib/SRC/ctgsyl.c +++ b/lapack-netlib/SRC/ctgsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctpcon.c b/lapack-netlib/SRC/ctpcon.c index da0c664db7..f15e751ea6 100644 --- a/lapack-netlib/SRC/ctpcon.c +++ b/lapack-netlib/SRC/ctpcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctplqt.c b/lapack-netlib/SRC/ctplqt.c index dc9864bd0e..f8af7e8ce3 100644 --- a/lapack-netlib/SRC/ctplqt.c +++ b/lapack-netlib/SRC/ctplqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctplqt2.c b/lapack-netlib/SRC/ctplqt2.c index f9014f1808..bcd2f21518 100644 --- a/lapack-netlib/SRC/ctplqt2.c +++ b/lapack-netlib/SRC/ctplqt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctpmlqt.c b/lapack-netlib/SRC/ctpmlqt.c index 49f185bffe..45f3951fe0 100644 --- a/lapack-netlib/SRC/ctpmlqt.c +++ b/lapack-netlib/SRC/ctpmlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctpmqrt.c b/lapack-netlib/SRC/ctpmqrt.c index 7b7390d3ec..b7ae4e21bb 100644 --- a/lapack-netlib/SRC/ctpmqrt.c +++ b/lapack-netlib/SRC/ctpmqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctpqrt.c b/lapack-netlib/SRC/ctpqrt.c index 45ac1c72cd..508bb57ae6 100644 --- a/lapack-netlib/SRC/ctpqrt.c +++ b/lapack-netlib/SRC/ctpqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctpqrt2.c b/lapack-netlib/SRC/ctpqrt2.c index e11fb09333..9c6373423e 100644 --- a/lapack-netlib/SRC/ctpqrt2.c +++ b/lapack-netlib/SRC/ctpqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctprfb.c b/lapack-netlib/SRC/ctprfb.c index 2aa2c52e99..28edfd23cd 100644 --- a/lapack-netlib/SRC/ctprfb.c +++ b/lapack-netlib/SRC/ctprfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctprfs.c b/lapack-netlib/SRC/ctprfs.c index 5929dae3ed..c203d820f6 100644 --- a/lapack-netlib/SRC/ctprfs.c +++ b/lapack-netlib/SRC/ctprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctptri.c b/lapack-netlib/SRC/ctptri.c index 252f5aba7b..ae6aa7a49c 100644 --- a/lapack-netlib/SRC/ctptri.c +++ b/lapack-netlib/SRC/ctptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctptrs.c b/lapack-netlib/SRC/ctptrs.c index 5b01b69859..904c1e381e 100644 --- a/lapack-netlib/SRC/ctptrs.c +++ b/lapack-netlib/SRC/ctptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctpttf.c b/lapack-netlib/SRC/ctpttf.c index abf4d40289..8996b4b221 100644 --- a/lapack-netlib/SRC/ctpttf.c +++ b/lapack-netlib/SRC/ctpttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctpttr.c b/lapack-netlib/SRC/ctpttr.c index e35c380901..2efae68596 100644 --- a/lapack-netlib/SRC/ctpttr.c +++ b/lapack-netlib/SRC/ctpttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrcon.c b/lapack-netlib/SRC/ctrcon.c index bd49bcfe32..1b3e353102 100644 --- a/lapack-netlib/SRC/ctrcon.c +++ b/lapack-netlib/SRC/ctrcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrevc.c b/lapack-netlib/SRC/ctrevc.c index 44a8b707d4..98362fd5d4 100644 --- a/lapack-netlib/SRC/ctrevc.c +++ b/lapack-netlib/SRC/ctrevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrevc3.c b/lapack-netlib/SRC/ctrevc3.c index c83a285535..3da0fbdb99 100644 --- a/lapack-netlib/SRC/ctrevc3.c +++ b/lapack-netlib/SRC/ctrevc3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrexc.c b/lapack-netlib/SRC/ctrexc.c index 4effc2b9a6..b9d1e4cd7a 100644 --- a/lapack-netlib/SRC/ctrexc.c +++ b/lapack-netlib/SRC/ctrexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrrfs.c b/lapack-netlib/SRC/ctrrfs.c index ce157db1ed..9f5173eee4 100644 --- a/lapack-netlib/SRC/ctrrfs.c +++ b/lapack-netlib/SRC/ctrrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrsen.c b/lapack-netlib/SRC/ctrsen.c index 29509eb3db..315db0da00 100644 --- a/lapack-netlib/SRC/ctrsen.c +++ b/lapack-netlib/SRC/ctrsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrsna.c b/lapack-netlib/SRC/ctrsna.c index 415f81fd3a..3814e84ca2 100644 --- a/lapack-netlib/SRC/ctrsna.c +++ b/lapack-netlib/SRC/ctrsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrsyl.c b/lapack-netlib/SRC/ctrsyl.c index d472ac0fb2..2beff85a17 100644 --- a/lapack-netlib/SRC/ctrsyl.c +++ b/lapack-netlib/SRC/ctrsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrsyl3.c b/lapack-netlib/SRC/ctrsyl3.c index 3c119157cb..23b9811609 100644 --- a/lapack-netlib/SRC/ctrsyl3.c +++ b/lapack-netlib/SRC/ctrsyl3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -707,7 +707,7 @@ static real c_b106 = 1.f; extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; @@ -790,7 +790,7 @@ static real c_b106 = 1.f; } if (*info != 0) { i__1 = -(*info); - xerbla_("CTRSYL3", &i__1); + xerbla_("CTRSYL3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/ctrti2.c b/lapack-netlib/SRC/ctrti2.c index e15206f640..f3010a0bb4 100644 --- a/lapack-netlib/SRC/ctrti2.c +++ b/lapack-netlib/SRC/ctrti2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrtri.c b/lapack-netlib/SRC/ctrtri.c index f58ea37070..c520c7013d 100644 --- a/lapack-netlib/SRC/ctrtri.c +++ b/lapack-netlib/SRC/ctrtri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrtrs.c b/lapack-netlib/SRC/ctrtrs.c index cab63a1871..6d41cbb604 100644 --- a/lapack-netlib/SRC/ctrtrs.c +++ b/lapack-netlib/SRC/ctrtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrttf.c b/lapack-netlib/SRC/ctrttf.c index 7ca85eabc5..f951d006e0 100644 --- a/lapack-netlib/SRC/ctrttf.c +++ b/lapack-netlib/SRC/ctrttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctrttp.c b/lapack-netlib/SRC/ctrttp.c index ea2453593d..ba0a5de24c 100644 --- a/lapack-netlib/SRC/ctrttp.c +++ b/lapack-netlib/SRC/ctrttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ctzrzf.c b/lapack-netlib/SRC/ctzrzf.c index 4be059dc4f..bee205189b 100644 --- a/lapack-netlib/SRC/ctzrzf.c +++ b/lapack-netlib/SRC/ctzrzf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunbdb.c b/lapack-netlib/SRC/cunbdb.c index 853ffc0dab..8dac27b41d 100644 --- a/lapack-netlib/SRC/cunbdb.c +++ b/lapack-netlib/SRC/cunbdb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunbdb1.c b/lapack-netlib/SRC/cunbdb1.c index c294022f37..094e84bf4d 100644 --- a/lapack-netlib/SRC/cunbdb1.c +++ b/lapack-netlib/SRC/cunbdb1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunbdb2.c b/lapack-netlib/SRC/cunbdb2.c index 878b1a624b..61606ffebf 100644 --- a/lapack-netlib/SRC/cunbdb2.c +++ b/lapack-netlib/SRC/cunbdb2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunbdb3.c b/lapack-netlib/SRC/cunbdb3.c index 0718d7c0cd..80cb1069cc 100644 --- a/lapack-netlib/SRC/cunbdb3.c +++ b/lapack-netlib/SRC/cunbdb3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunbdb4.c b/lapack-netlib/SRC/cunbdb4.c index 045e3e6262..43329cb0f4 100644 --- a/lapack-netlib/SRC/cunbdb4.c +++ b/lapack-netlib/SRC/cunbdb4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunbdb5.c b/lapack-netlib/SRC/cunbdb5.c index a6cb9b4e02..8bc36ae6f9 100644 --- a/lapack-netlib/SRC/cunbdb5.c +++ b/lapack-netlib/SRC/cunbdb5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunbdb6.c b/lapack-netlib/SRC/cunbdb6.c index 06d76579d6..a3298fd527 100644 --- a/lapack-netlib/SRC/cunbdb6.c +++ b/lapack-netlib/SRC/cunbdb6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cuncsd.c b/lapack-netlib/SRC/cuncsd.c index d031815938..82b13f42e7 100644 --- a/lapack-netlib/SRC/cuncsd.c +++ b/lapack-netlib/SRC/cuncsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cuncsd2by1.c b/lapack-netlib/SRC/cuncsd2by1.c index a4dbb3cc11..5a15696577 100644 --- a/lapack-netlib/SRC/cuncsd2by1.c +++ b/lapack-netlib/SRC/cuncsd2by1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cung2l.c b/lapack-netlib/SRC/cung2l.c index 1e03d57859..98361af6c8 100644 --- a/lapack-netlib/SRC/cung2l.c +++ b/lapack-netlib/SRC/cung2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cung2r.c b/lapack-netlib/SRC/cung2r.c index 20dd519547..fb84368c6b 100644 --- a/lapack-netlib/SRC/cung2r.c +++ b/lapack-netlib/SRC/cung2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungbr.c b/lapack-netlib/SRC/cungbr.c index f0044e76c7..b141a28692 100644 --- a/lapack-netlib/SRC/cungbr.c +++ b/lapack-netlib/SRC/cungbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunghr.c b/lapack-netlib/SRC/cunghr.c index c99c4b0538..8dd6c65a77 100644 --- a/lapack-netlib/SRC/cunghr.c +++ b/lapack-netlib/SRC/cunghr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungl2.c b/lapack-netlib/SRC/cungl2.c index 1fb8e3164b..13c8aee322 100644 --- a/lapack-netlib/SRC/cungl2.c +++ b/lapack-netlib/SRC/cungl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunglq.c b/lapack-netlib/SRC/cunglq.c index 89f296c51d..ed5a3e2af4 100644 --- a/lapack-netlib/SRC/cunglq.c +++ b/lapack-netlib/SRC/cunglq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungql.c b/lapack-netlib/SRC/cungql.c index 335f3576eb..76f064f133 100644 --- a/lapack-netlib/SRC/cungql.c +++ b/lapack-netlib/SRC/cungql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungqr.c b/lapack-netlib/SRC/cungqr.c index 01205569e2..f9f2c8e866 100644 --- a/lapack-netlib/SRC/cungqr.c +++ b/lapack-netlib/SRC/cungqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungr2.c b/lapack-netlib/SRC/cungr2.c index 6cc3481286..636b5da479 100644 --- a/lapack-netlib/SRC/cungr2.c +++ b/lapack-netlib/SRC/cungr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungrq.c b/lapack-netlib/SRC/cungrq.c index 3c12b02eb8..652d64c429 100644 --- a/lapack-netlib/SRC/cungrq.c +++ b/lapack-netlib/SRC/cungrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungtr.c b/lapack-netlib/SRC/cungtr.c index a2d1c83a1a..a53de77a09 100644 --- a/lapack-netlib/SRC/cungtr.c +++ b/lapack-netlib/SRC/cungtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungtsqr.c b/lapack-netlib/SRC/cungtsqr.c index c26ac117a6..df1c0569f2 100644 --- a/lapack-netlib/SRC/cungtsqr.c +++ b/lapack-netlib/SRC/cungtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cungtsqr_row.c b/lapack-netlib/SRC/cungtsqr_row.c index 9c644a67f2..f5f0be6eb2 100644 --- a/lapack-netlib/SRC/cungtsqr_row.c +++ b/lapack-netlib/SRC/cungtsqr_row.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunhr_col.c b/lapack-netlib/SRC/cunhr_col.c index d0a54a33c7..db53231330 100644 --- a/lapack-netlib/SRC/cunhr_col.c +++ b/lapack-netlib/SRC/cunhr_col.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunm22.c b/lapack-netlib/SRC/cunm22.c index 79f509f703..08ff5e2152 100644 --- a/lapack-netlib/SRC/cunm22.c +++ b/lapack-netlib/SRC/cunm22.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunm2l.c b/lapack-netlib/SRC/cunm2l.c index efeb95ed98..9ea066db61 100644 --- a/lapack-netlib/SRC/cunm2l.c +++ b/lapack-netlib/SRC/cunm2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunm2r.c b/lapack-netlib/SRC/cunm2r.c index 8c7bcbe66c..77973dd32a 100644 --- a/lapack-netlib/SRC/cunm2r.c +++ b/lapack-netlib/SRC/cunm2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmbr.c b/lapack-netlib/SRC/cunmbr.c index 92179fe055..c55d583795 100644 --- a/lapack-netlib/SRC/cunmbr.c +++ b/lapack-netlib/SRC/cunmbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmhr.c b/lapack-netlib/SRC/cunmhr.c index 740e3e93e4..34c7cfe5d6 100644 --- a/lapack-netlib/SRC/cunmhr.c +++ b/lapack-netlib/SRC/cunmhr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunml2.c b/lapack-netlib/SRC/cunml2.c index 816b466b74..2d10372217 100644 --- a/lapack-netlib/SRC/cunml2.c +++ b/lapack-netlib/SRC/cunml2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmlq.c b/lapack-netlib/SRC/cunmlq.c index d67b20ea64..35a12d5cfb 100644 --- a/lapack-netlib/SRC/cunmlq.c +++ b/lapack-netlib/SRC/cunmlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmql.c b/lapack-netlib/SRC/cunmql.c index cb4df22254..9849bb3d50 100644 --- a/lapack-netlib/SRC/cunmql.c +++ b/lapack-netlib/SRC/cunmql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmqr.c b/lapack-netlib/SRC/cunmqr.c index 500ca0d7ae..03e10a9f9e 100644 --- a/lapack-netlib/SRC/cunmqr.c +++ b/lapack-netlib/SRC/cunmqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmr2.c b/lapack-netlib/SRC/cunmr2.c index 6e0f8e84a5..1b45b7fefa 100644 --- a/lapack-netlib/SRC/cunmr2.c +++ b/lapack-netlib/SRC/cunmr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmr3.c b/lapack-netlib/SRC/cunmr3.c index a0e38ad76f..35703344e5 100644 --- a/lapack-netlib/SRC/cunmr3.c +++ b/lapack-netlib/SRC/cunmr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmrq.c b/lapack-netlib/SRC/cunmrq.c index 40fa5baaf2..d405f3b1a1 100644 --- a/lapack-netlib/SRC/cunmrq.c +++ b/lapack-netlib/SRC/cunmrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmrz.c b/lapack-netlib/SRC/cunmrz.c index 2e8c13a984..36150c7dde 100644 --- a/lapack-netlib/SRC/cunmrz.c +++ b/lapack-netlib/SRC/cunmrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cunmtr.c b/lapack-netlib/SRC/cunmtr.c index 2fe181f6c9..dc351ad39e 100644 --- a/lapack-netlib/SRC/cunmtr.c +++ b/lapack-netlib/SRC/cunmtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cupgtr.c b/lapack-netlib/SRC/cupgtr.c index e61c2dec0f..bfe07a91ff 100644 --- a/lapack-netlib/SRC/cupgtr.c +++ b/lapack-netlib/SRC/cupgtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/cupmtr.c b/lapack-netlib/SRC/cupmtr.c index a66b4fff59..f40d83531d 100644 --- a/lapack-netlib/SRC/cupmtr.c +++ b/lapack-netlib/SRC/cupmtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dbbcsd.c b/lapack-netlib/SRC/dbbcsd.c index c9e56314eb..37916319e9 100644 --- a/lapack-netlib/SRC/dbbcsd.c +++ b/lapack-netlib/SRC/dbbcsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dbdsdc.c b/lapack-netlib/SRC/dbdsdc.c index ac79c8e656..e6f04b9541 100644 --- a/lapack-netlib/SRC/dbdsdc.c +++ b/lapack-netlib/SRC/dbdsdc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dbdsqr.c b/lapack-netlib/SRC/dbdsqr.c index 61b8200f68..4fb3d74493 100644 --- a/lapack-netlib/SRC/dbdsqr.c +++ b/lapack-netlib/SRC/dbdsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dbdsvdx.c b/lapack-netlib/SRC/dbdsvdx.c index d4c00d510e..7e77db8938 100644 --- a/lapack-netlib/SRC/dbdsvdx.c +++ b/lapack-netlib/SRC/dbdsvdx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dcombssq.c b/lapack-netlib/SRC/dcombssq.c index b07c400027..f5f72cde13 100644 --- a/lapack-netlib/SRC/dcombssq.c +++ b/lapack-netlib/SRC/dcombssq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ddisna.c b/lapack-netlib/SRC/ddisna.c index ce62c69cbd..9ac16399a8 100644 --- a/lapack-netlib/SRC/ddisna.c +++ b/lapack-netlib/SRC/ddisna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbbrd.c b/lapack-netlib/SRC/dgbbrd.c index 2f8268639f..db459b4166 100644 --- a/lapack-netlib/SRC/dgbbrd.c +++ b/lapack-netlib/SRC/dgbbrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbcon.c b/lapack-netlib/SRC/dgbcon.c index 7c86f1376b..a0c895a692 100644 --- a/lapack-netlib/SRC/dgbcon.c +++ b/lapack-netlib/SRC/dgbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbequ.c b/lapack-netlib/SRC/dgbequ.c index 4dc01b2715..33de2da051 100644 --- a/lapack-netlib/SRC/dgbequ.c +++ b/lapack-netlib/SRC/dgbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbequb.c b/lapack-netlib/SRC/dgbequb.c index 9273800988..996697865f 100644 --- a/lapack-netlib/SRC/dgbequb.c +++ b/lapack-netlib/SRC/dgbequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbrfs.c b/lapack-netlib/SRC/dgbrfs.c index 716991e4b9..b4b902a7c6 100644 --- a/lapack-netlib/SRC/dgbrfs.c +++ b/lapack-netlib/SRC/dgbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbrfsx.c b/lapack-netlib/SRC/dgbrfsx.c index f4aa619d45..ba28e84e13 100644 --- a/lapack-netlib/SRC/dgbrfsx.c +++ b/lapack-netlib/SRC/dgbrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbsv.c b/lapack-netlib/SRC/dgbsv.c index 3ee2d6d822..b21d5ca20d 100644 --- a/lapack-netlib/SRC/dgbsv.c +++ b/lapack-netlib/SRC/dgbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbsvx.c b/lapack-netlib/SRC/dgbsvx.c index a9e598ffd1..c768a687b9 100644 --- a/lapack-netlib/SRC/dgbsvx.c +++ b/lapack-netlib/SRC/dgbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbsvxx.c b/lapack-netlib/SRC/dgbsvxx.c index 2f1ae1505b..99026ce2e9 100644 --- a/lapack-netlib/SRC/dgbsvxx.c +++ b/lapack-netlib/SRC/dgbsvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbtf2.c b/lapack-netlib/SRC/dgbtf2.c index e779512324..be28605c55 100644 --- a/lapack-netlib/SRC/dgbtf2.c +++ b/lapack-netlib/SRC/dgbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbtrf.c b/lapack-netlib/SRC/dgbtrf.c index 600819436d..f15ed8242b 100644 --- a/lapack-netlib/SRC/dgbtrf.c +++ b/lapack-netlib/SRC/dgbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgbtrs.c b/lapack-netlib/SRC/dgbtrs.c index 305b19c0e9..cf468cc868 100644 --- a/lapack-netlib/SRC/dgbtrs.c +++ b/lapack-netlib/SRC/dgbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgebak.c b/lapack-netlib/SRC/dgebak.c index d5e07e2076..804243db51 100644 --- a/lapack-netlib/SRC/dgebak.c +++ b/lapack-netlib/SRC/dgebak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgebal.c b/lapack-netlib/SRC/dgebal.c index 370144c31d..22f64ea90e 100644 --- a/lapack-netlib/SRC/dgebal.c +++ b/lapack-netlib/SRC/dgebal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgebd2.c b/lapack-netlib/SRC/dgebd2.c index 88dfd9a2fa..c8e42bf496 100644 --- a/lapack-netlib/SRC/dgebd2.c +++ b/lapack-netlib/SRC/dgebd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgebrd.c b/lapack-netlib/SRC/dgebrd.c index 2ca2899598..c3b53784ae 100644 --- a/lapack-netlib/SRC/dgebrd.c +++ b/lapack-netlib/SRC/dgebrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgecon.c b/lapack-netlib/SRC/dgecon.c index 77a991a067..43182353eb 100644 --- a/lapack-netlib/SRC/dgecon.c +++ b/lapack-netlib/SRC/dgecon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeequ.c b/lapack-netlib/SRC/dgeequ.c index 0561cdab14..5d07d3c45b 100644 --- a/lapack-netlib/SRC/dgeequ.c +++ b/lapack-netlib/SRC/dgeequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeequb.c b/lapack-netlib/SRC/dgeequb.c index d76d611f20..0595666c36 100644 --- a/lapack-netlib/SRC/dgeequb.c +++ b/lapack-netlib/SRC/dgeequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgees.c b/lapack-netlib/SRC/dgees.c index 636b450a5e..a053d3e627 100644 --- a/lapack-netlib/SRC/dgees.c +++ b/lapack-netlib/SRC/dgees.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeesx.c b/lapack-netlib/SRC/dgeesx.c index 3c6b2792c3..6a96382e02 100644 --- a/lapack-netlib/SRC/dgeesx.c +++ b/lapack-netlib/SRC/dgeesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeev.c b/lapack-netlib/SRC/dgeev.c index 33f472a493..93aaf29300 100644 --- a/lapack-netlib/SRC/dgeev.c +++ b/lapack-netlib/SRC/dgeev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeevx.c b/lapack-netlib/SRC/dgeevx.c index 38408cd68f..fc604b4bec 100644 --- a/lapack-netlib/SRC/dgeevx.c +++ b/lapack-netlib/SRC/dgeevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgehd2.c b/lapack-netlib/SRC/dgehd2.c index 7e1f0cd1b2..699918e46e 100644 --- a/lapack-netlib/SRC/dgehd2.c +++ b/lapack-netlib/SRC/dgehd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgehrd.c b/lapack-netlib/SRC/dgehrd.c index 3408b20b44..15b18f4c4e 100644 --- a/lapack-netlib/SRC/dgehrd.c +++ b/lapack-netlib/SRC/dgehrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgejsv.c b/lapack-netlib/SRC/dgejsv.c index 4508d9003c..a69d20ab03 100644 --- a/lapack-netlib/SRC/dgejsv.c +++ b/lapack-netlib/SRC/dgejsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelq.c b/lapack-netlib/SRC/dgelq.c index c7b981ada8..dc7ddee4a9 100644 --- a/lapack-netlib/SRC/dgelq.c +++ b/lapack-netlib/SRC/dgelq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelq2.c b/lapack-netlib/SRC/dgelq2.c index c42cef2fb8..89ecece121 100644 --- a/lapack-netlib/SRC/dgelq2.c +++ b/lapack-netlib/SRC/dgelq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelqf.c b/lapack-netlib/SRC/dgelqf.c index a10cfadb70..839a17f338 100644 --- a/lapack-netlib/SRC/dgelqf.c +++ b/lapack-netlib/SRC/dgelqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelqt.c b/lapack-netlib/SRC/dgelqt.c index 7d387f6aaf..f4095e27d0 100644 --- a/lapack-netlib/SRC/dgelqt.c +++ b/lapack-netlib/SRC/dgelqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelqt3.c b/lapack-netlib/SRC/dgelqt3.c index ce8dec2c9f..ffeb3859a2 100644 --- a/lapack-netlib/SRC/dgelqt3.c +++ b/lapack-netlib/SRC/dgelqt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgels.c b/lapack-netlib/SRC/dgels.c index 09efbc4021..d9f5a5f5a6 100644 --- a/lapack-netlib/SRC/dgels.c +++ b/lapack-netlib/SRC/dgels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelsd.c b/lapack-netlib/SRC/dgelsd.c index d9a932f246..f6ef01a62a 100644 --- a/lapack-netlib/SRC/dgelsd.c +++ b/lapack-netlib/SRC/dgelsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelss.c b/lapack-netlib/SRC/dgelss.c index cfd7bf8abe..dbd0320bc5 100644 --- a/lapack-netlib/SRC/dgelss.c +++ b/lapack-netlib/SRC/dgelss.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgelst.c b/lapack-netlib/SRC/dgelst.c index 9327da4dd2..e879906fe2 100644 --- a/lapack-netlib/SRC/dgelst.c +++ b/lapack-netlib/SRC/dgelst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -735,7 +735,7 @@ f"> */ doublereal *, doublereal *, integer *, integer *, doublereal *, integer *, integer *), dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *); + xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; @@ -827,7 +827,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("DGELST ", &i__1); + xerbla_("DGELST", &i__1, (ftnlen)6); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/dgelsy.c b/lapack-netlib/SRC/dgelsy.c index 2bfc6d098b..92a8eb4b5b 100644 --- a/lapack-netlib/SRC/dgelsy.c +++ b/lapack-netlib/SRC/dgelsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgemlq.c b/lapack-netlib/SRC/dgemlq.c index bf62e3117a..56905002d0 100644 --- a/lapack-netlib/SRC/dgemlq.c +++ b/lapack-netlib/SRC/dgemlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgemlqt.c b/lapack-netlib/SRC/dgemlqt.c index 6f74701496..530ba0f191 100644 --- a/lapack-netlib/SRC/dgemlqt.c +++ b/lapack-netlib/SRC/dgemlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgemqr.c b/lapack-netlib/SRC/dgemqr.c index 84c478c033..a8684e5e51 100644 --- a/lapack-netlib/SRC/dgemqr.c +++ b/lapack-netlib/SRC/dgemqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgemqrt.c b/lapack-netlib/SRC/dgemqrt.c index 47af19b672..a80315a823 100644 --- a/lapack-netlib/SRC/dgemqrt.c +++ b/lapack-netlib/SRC/dgemqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeql2.c b/lapack-netlib/SRC/dgeql2.c index aa1747386c..e0030bdcf6 100644 --- a/lapack-netlib/SRC/dgeql2.c +++ b/lapack-netlib/SRC/dgeql2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqlf.c b/lapack-netlib/SRC/dgeqlf.c index b2a00a7521..777664c26b 100644 --- a/lapack-netlib/SRC/dgeqlf.c +++ b/lapack-netlib/SRC/dgeqlf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqp3.c b/lapack-netlib/SRC/dgeqp3.c index 37a6c00883..121ef54433 100644 --- a/lapack-netlib/SRC/dgeqp3.c +++ b/lapack-netlib/SRC/dgeqp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqr.c b/lapack-netlib/SRC/dgeqr.c index fe3e1f82f1..4849c74231 100644 --- a/lapack-netlib/SRC/dgeqr.c +++ b/lapack-netlib/SRC/dgeqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqr2.c b/lapack-netlib/SRC/dgeqr2.c index b19eb347ae..705683691e 100644 --- a/lapack-netlib/SRC/dgeqr2.c +++ b/lapack-netlib/SRC/dgeqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqr2p.c b/lapack-netlib/SRC/dgeqr2p.c index d97cc42dfc..4f8bde3ea0 100644 --- a/lapack-netlib/SRC/dgeqr2p.c +++ b/lapack-netlib/SRC/dgeqr2p.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqrf.c b/lapack-netlib/SRC/dgeqrf.c index ab922cf7fd..b8b2784cf1 100644 --- a/lapack-netlib/SRC/dgeqrf.c +++ b/lapack-netlib/SRC/dgeqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqrfp.c b/lapack-netlib/SRC/dgeqrfp.c index 6abbdeb173..ba64aff518 100644 --- a/lapack-netlib/SRC/dgeqrfp.c +++ b/lapack-netlib/SRC/dgeqrfp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqrt.c b/lapack-netlib/SRC/dgeqrt.c index 49b5b4e0d2..d6a836a795 100644 --- a/lapack-netlib/SRC/dgeqrt.c +++ b/lapack-netlib/SRC/dgeqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqrt2.c b/lapack-netlib/SRC/dgeqrt2.c index 1233bc9cb2..3fc2f24aca 100644 --- a/lapack-netlib/SRC/dgeqrt2.c +++ b/lapack-netlib/SRC/dgeqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgeqrt3.c b/lapack-netlib/SRC/dgeqrt3.c index 777fd08555..d9a2edb7f6 100644 --- a/lapack-netlib/SRC/dgeqrt3.c +++ b/lapack-netlib/SRC/dgeqrt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgerfs.c b/lapack-netlib/SRC/dgerfs.c index 159da155c6..15a68e3663 100644 --- a/lapack-netlib/SRC/dgerfs.c +++ b/lapack-netlib/SRC/dgerfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgerfsx.c b/lapack-netlib/SRC/dgerfsx.c index 5e7f697a46..bb937e13ea 100644 --- a/lapack-netlib/SRC/dgerfsx.c +++ b/lapack-netlib/SRC/dgerfsx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgerq2.c b/lapack-netlib/SRC/dgerq2.c index 2a1a70cefd..d2c85537d0 100644 --- a/lapack-netlib/SRC/dgerq2.c +++ b/lapack-netlib/SRC/dgerq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgerqf.c b/lapack-netlib/SRC/dgerqf.c index 8882ba184b..126da2a533 100644 --- a/lapack-netlib/SRC/dgerqf.c +++ b/lapack-netlib/SRC/dgerqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesc2.c b/lapack-netlib/SRC/dgesc2.c index e53e4f3773..5a7ea5b446 100644 --- a/lapack-netlib/SRC/dgesc2.c +++ b/lapack-netlib/SRC/dgesc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesdd.c b/lapack-netlib/SRC/dgesdd.c index 21c1338628..ca5eae6c12 100644 --- a/lapack-netlib/SRC/dgesdd.c +++ b/lapack-netlib/SRC/dgesdd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesv.c b/lapack-netlib/SRC/dgesv.c index 8af33e743a..6eeb7ab5a0 100644 --- a/lapack-netlib/SRC/dgesv.c +++ b/lapack-netlib/SRC/dgesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesvd.c b/lapack-netlib/SRC/dgesvd.c index 98b1e22799..e34b9aeeb6 100644 --- a/lapack-netlib/SRC/dgesvd.c +++ b/lapack-netlib/SRC/dgesvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesvdq.c b/lapack-netlib/SRC/dgesvdq.c index b69afddb4d..4e61eda5db 100644 --- a/lapack-netlib/SRC/dgesvdq.c +++ b/lapack-netlib/SRC/dgesvdq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesvdx.c b/lapack-netlib/SRC/dgesvdx.c index 5d0d79941d..1c36032cc8 100644 --- a/lapack-netlib/SRC/dgesvdx.c +++ b/lapack-netlib/SRC/dgesvdx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesvj.c b/lapack-netlib/SRC/dgesvj.c index 8582ded18b..504840072d 100644 --- a/lapack-netlib/SRC/dgesvj.c +++ b/lapack-netlib/SRC/dgesvj.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesvx.c b/lapack-netlib/SRC/dgesvx.c index 46e72aa7e5..cf751fea8a 100644 --- a/lapack-netlib/SRC/dgesvx.c +++ b/lapack-netlib/SRC/dgesvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgesvxx.c b/lapack-netlib/SRC/dgesvxx.c index eea6eab068..5274ead20a 100644 --- a/lapack-netlib/SRC/dgesvxx.c +++ b/lapack-netlib/SRC/dgesvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetc2.c b/lapack-netlib/SRC/dgetc2.c index 7d79601eb7..30ceef2cc0 100644 --- a/lapack-netlib/SRC/dgetc2.c +++ b/lapack-netlib/SRC/dgetc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetf2.c b/lapack-netlib/SRC/dgetf2.c index c3eef92661..be0d9a41e9 100644 --- a/lapack-netlib/SRC/dgetf2.c +++ b/lapack-netlib/SRC/dgetf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetrf.c b/lapack-netlib/SRC/dgetrf.c index 89472f0e1c..505a6ee98f 100644 --- a/lapack-netlib/SRC/dgetrf.c +++ b/lapack-netlib/SRC/dgetrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetrf2.c b/lapack-netlib/SRC/dgetrf2.c index 1aa89f1142..8b8d61161c 100644 --- a/lapack-netlib/SRC/dgetrf2.c +++ b/lapack-netlib/SRC/dgetrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetri.c b/lapack-netlib/SRC/dgetri.c index e1e0b74ce9..68b92c3294 100644 --- a/lapack-netlib/SRC/dgetri.c +++ b/lapack-netlib/SRC/dgetri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetrs.c b/lapack-netlib/SRC/dgetrs.c index e2d312fa15..35526c604d 100644 --- a/lapack-netlib/SRC/dgetrs.c +++ b/lapack-netlib/SRC/dgetrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetsls.c b/lapack-netlib/SRC/dgetsls.c index b2138e686c..b5c3f4f57f 100644 --- a/lapack-netlib/SRC/dgetsls.c +++ b/lapack-netlib/SRC/dgetsls.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgetsqrhrt.c b/lapack-netlib/SRC/dgetsqrhrt.c index 2194683813..9ce2dfc0a4 100644 --- a/lapack-netlib/SRC/dgetsqrhrt.c +++ b/lapack-netlib/SRC/dgetsqrhrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggbak.c b/lapack-netlib/SRC/dggbak.c index 2e5d8cebe1..638569d2c9 100644 --- a/lapack-netlib/SRC/dggbak.c +++ b/lapack-netlib/SRC/dggbak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggbal.c b/lapack-netlib/SRC/dggbal.c index 0eea86f182..749fa77b33 100644 --- a/lapack-netlib/SRC/dggbal.c +++ b/lapack-netlib/SRC/dggbal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgges.c b/lapack-netlib/SRC/dgges.c index 0bdd2dbb60..434b0e8dd9 100644 --- a/lapack-netlib/SRC/dgges.c +++ b/lapack-netlib/SRC/dgges.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgges3.c b/lapack-netlib/SRC/dgges3.c index 76ff7c6acc..a9f45f7b82 100644 --- a/lapack-netlib/SRC/dgges3.c +++ b/lapack-netlib/SRC/dgges3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggesx.c b/lapack-netlib/SRC/dggesx.c index 1a87a12c24..2430a90ffa 100644 --- a/lapack-netlib/SRC/dggesx.c +++ b/lapack-netlib/SRC/dggesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggev.c b/lapack-netlib/SRC/dggev.c index 792053cebe..00627e4cdf 100644 --- a/lapack-netlib/SRC/dggev.c +++ b/lapack-netlib/SRC/dggev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggev3.c b/lapack-netlib/SRC/dggev3.c index f4cf9f1924..81328da12a 100644 --- a/lapack-netlib/SRC/dggev3.c +++ b/lapack-netlib/SRC/dggev3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggevx.c b/lapack-netlib/SRC/dggevx.c index b3ef245e44..da5bb61ee1 100644 --- a/lapack-netlib/SRC/dggevx.c +++ b/lapack-netlib/SRC/dggevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggglm.c b/lapack-netlib/SRC/dggglm.c index e2de180371..7b3ff1ae85 100644 --- a/lapack-netlib/SRC/dggglm.c +++ b/lapack-netlib/SRC/dggglm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgghd3.c b/lapack-netlib/SRC/dgghd3.c index 3a14634589..e3ba1ad9fd 100644 --- a/lapack-netlib/SRC/dgghd3.c +++ b/lapack-netlib/SRC/dgghd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgghrd.c b/lapack-netlib/SRC/dgghrd.c index 91e3ebfd01..4a51eebcca 100644 --- a/lapack-netlib/SRC/dgghrd.c +++ b/lapack-netlib/SRC/dgghrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgglse.c b/lapack-netlib/SRC/dgglse.c index 15650c6902..05320b358d 100644 --- a/lapack-netlib/SRC/dgglse.c +++ b/lapack-netlib/SRC/dgglse.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggqrf.c b/lapack-netlib/SRC/dggqrf.c index 19222570c8..3c8f332bef 100644 --- a/lapack-netlib/SRC/dggqrf.c +++ b/lapack-netlib/SRC/dggqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggrqf.c b/lapack-netlib/SRC/dggrqf.c index 3e3961c598..c1bd478dfd 100644 --- a/lapack-netlib/SRC/dggrqf.c +++ b/lapack-netlib/SRC/dggrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -739,7 +739,7 @@ f"> */ extern /* Subroutine */ int dgeqrf_(integer *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *, integer *), dgerqf_(integer *, integer *, doublereal *, integer *, doublereal - *, doublereal *, integer *, integer *), xerbla_(char *, integer *); + *, doublereal *, integer *, integer *), xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer nb1, nb2, nb3; @@ -806,7 +806,7 @@ f"> */ } if (*info != 0) { i__1 = -(*info); - xerbla_("DGGRQF", &i__1); + xerbla_("DGGRQF", &i__1, (ftnlen)6); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/dggsvd3.c b/lapack-netlib/SRC/dggsvd3.c index 4e0572dcaa..b6dabeb63d 100644 --- a/lapack-netlib/SRC/dggsvd3.c +++ b/lapack-netlib/SRC/dggsvd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dggsvp3.c b/lapack-netlib/SRC/dggsvp3.c index 6127bb0e38..ab62ba920c 100644 --- a/lapack-netlib/SRC/dggsvp3.c +++ b/lapack-netlib/SRC/dggsvp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgsvj0.c b/lapack-netlib/SRC/dgsvj0.c index fe8dc93eb7..d3f4c9c4d8 100644 --- a/lapack-netlib/SRC/dgsvj0.c +++ b/lapack-netlib/SRC/dgsvj0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgsvj1.c b/lapack-netlib/SRC/dgsvj1.c index 1cfde9dfcf..6d5c0738d2 100644 --- a/lapack-netlib/SRC/dgsvj1.c +++ b/lapack-netlib/SRC/dgsvj1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgtcon.c b/lapack-netlib/SRC/dgtcon.c index 44f0c0e2c4..b2942ace5a 100644 --- a/lapack-netlib/SRC/dgtcon.c +++ b/lapack-netlib/SRC/dgtcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgtrfs.c b/lapack-netlib/SRC/dgtrfs.c index bf53d365d7..14b747bb9b 100644 --- a/lapack-netlib/SRC/dgtrfs.c +++ b/lapack-netlib/SRC/dgtrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgtsv.c b/lapack-netlib/SRC/dgtsv.c index b5d19ad6d7..09ab23dadd 100644 --- a/lapack-netlib/SRC/dgtsv.c +++ b/lapack-netlib/SRC/dgtsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgtsvx.c b/lapack-netlib/SRC/dgtsvx.c index 430bb1dc91..5e54ba73b5 100644 --- a/lapack-netlib/SRC/dgtsvx.c +++ b/lapack-netlib/SRC/dgtsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgttrf.c b/lapack-netlib/SRC/dgttrf.c index f496a1badc..5caaa1a30d 100644 --- a/lapack-netlib/SRC/dgttrf.c +++ b/lapack-netlib/SRC/dgttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgttrs.c b/lapack-netlib/SRC/dgttrs.c index 3150c6c661..b9a70f9a5b 100644 --- a/lapack-netlib/SRC/dgttrs.c +++ b/lapack-netlib/SRC/dgttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dgtts2.c b/lapack-netlib/SRC/dgtts2.c index d4cbc1a8e2..c18dcfbed9 100644 --- a/lapack-netlib/SRC/dgtts2.c +++ b/lapack-netlib/SRC/dgtts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dhgeqz.c b/lapack-netlib/SRC/dhgeqz.c index 5e3d04e45e..792cef412b 100644 --- a/lapack-netlib/SRC/dhgeqz.c +++ b/lapack-netlib/SRC/dhgeqz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dhsein.c b/lapack-netlib/SRC/dhsein.c index 18d0f02901..f14e6f27b3 100644 --- a/lapack-netlib/SRC/dhsein.c +++ b/lapack-netlib/SRC/dhsein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dhseqr.c b/lapack-netlib/SRC/dhseqr.c index b6d3237096..1bddda1877 100644 --- a/lapack-netlib/SRC/dhseqr.c +++ b/lapack-netlib/SRC/dhseqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/disnan.c b/lapack-netlib/SRC/disnan.c index 4342200908..59c8e59a93 100644 --- a/lapack-netlib/SRC/disnan.c +++ b/lapack-netlib/SRC/disnan.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_gbamv.c b/lapack-netlib/SRC/dla_gbamv.c index 762d9c0c7c..fc78965bf0 100644 --- a/lapack-netlib/SRC/dla_gbamv.c +++ b/lapack-netlib/SRC/dla_gbamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_gbrcond.c b/lapack-netlib/SRC/dla_gbrcond.c index 6541e99c44..6525bd2842 100644 --- a/lapack-netlib/SRC/dla_gbrcond.c +++ b/lapack-netlib/SRC/dla_gbrcond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_gbrfsx_extended.c b/lapack-netlib/SRC/dla_gbrfsx_extended.c index 50d6019148..5c5fda0301 100644 --- a/lapack-netlib/SRC/dla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/dla_gbrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_gbrpvgrw.c b/lapack-netlib/SRC/dla_gbrpvgrw.c index 460975e702..62829e754d 100644 --- a/lapack-netlib/SRC/dla_gbrpvgrw.c +++ b/lapack-netlib/SRC/dla_gbrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_geamv.c b/lapack-netlib/SRC/dla_geamv.c index 7e0c15dfda..4efea11b66 100644 --- a/lapack-netlib/SRC/dla_geamv.c +++ b/lapack-netlib/SRC/dla_geamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_gercond.c b/lapack-netlib/SRC/dla_gercond.c index 869a1e848f..4b885b2744 100644 --- a/lapack-netlib/SRC/dla_gercond.c +++ b/lapack-netlib/SRC/dla_gercond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_gerfsx_extended.c b/lapack-netlib/SRC/dla_gerfsx_extended.c index 700c2b0af2..a8c67fcd18 100644 --- a/lapack-netlib/SRC/dla_gerfsx_extended.c +++ b/lapack-netlib/SRC/dla_gerfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_gerpvgrw.c b/lapack-netlib/SRC/dla_gerpvgrw.c index de3601d769..ffda950726 100644 --- a/lapack-netlib/SRC/dla_gerpvgrw.c +++ b/lapack-netlib/SRC/dla_gerpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_lin_berr.c b/lapack-netlib/SRC/dla_lin_berr.c index 5ab4cceee3..de87a71fd2 100644 --- a/lapack-netlib/SRC/dla_lin_berr.c +++ b/lapack-netlib/SRC/dla_lin_berr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_porcond.c b/lapack-netlib/SRC/dla_porcond.c index 296cfb0991..ef772ab397 100644 --- a/lapack-netlib/SRC/dla_porcond.c +++ b/lapack-netlib/SRC/dla_porcond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_porfsx_extended.c b/lapack-netlib/SRC/dla_porfsx_extended.c index 5dc03574d0..d16798769d 100644 --- a/lapack-netlib/SRC/dla_porfsx_extended.c +++ b/lapack-netlib/SRC/dla_porfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_porpvgrw.c b/lapack-netlib/SRC/dla_porpvgrw.c index 2ab26d1d97..db168b85e9 100644 --- a/lapack-netlib/SRC/dla_porpvgrw.c +++ b/lapack-netlib/SRC/dla_porpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_syamv.c b/lapack-netlib/SRC/dla_syamv.c index 8b812d55c8..0b8c5ebfa2 100644 --- a/lapack-netlib/SRC/dla_syamv.c +++ b/lapack-netlib/SRC/dla_syamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_syrcond.c b/lapack-netlib/SRC/dla_syrcond.c index ff1a935cf2..d589b3308e 100644 --- a/lapack-netlib/SRC/dla_syrcond.c +++ b/lapack-netlib/SRC/dla_syrcond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_syrfsx_extended.c b/lapack-netlib/SRC/dla_syrfsx_extended.c index ef3aab107c..e19e9c1754 100644 --- a/lapack-netlib/SRC/dla_syrfsx_extended.c +++ b/lapack-netlib/SRC/dla_syrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_syrpvgrw.c b/lapack-netlib/SRC/dla_syrpvgrw.c index d27128b7e4..131a68ceb0 100644 --- a/lapack-netlib/SRC/dla_syrpvgrw.c +++ b/lapack-netlib/SRC/dla_syrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dla_wwaddw.c b/lapack-netlib/SRC/dla_wwaddw.c index a472871b31..d57d08a80c 100644 --- a/lapack-netlib/SRC/dla_wwaddw.c +++ b/lapack-netlib/SRC/dla_wwaddw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlabad.c b/lapack-netlib/SRC/dlabad.c index 7f8896e9c9..9a178b20b8 100644 --- a/lapack-netlib/SRC/dlabad.c +++ b/lapack-netlib/SRC/dlabad.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlabrd.c b/lapack-netlib/SRC/dlabrd.c index 0607853d04..1171574ccf 100644 --- a/lapack-netlib/SRC/dlabrd.c +++ b/lapack-netlib/SRC/dlabrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlacn2.c b/lapack-netlib/SRC/dlacn2.c index 58f8119b0a..a4e871acdc 100644 --- a/lapack-netlib/SRC/dlacn2.c +++ b/lapack-netlib/SRC/dlacn2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlacon.c b/lapack-netlib/SRC/dlacon.c index 765098a9f8..df43d2b286 100644 --- a/lapack-netlib/SRC/dlacon.c +++ b/lapack-netlib/SRC/dlacon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlacpy.c b/lapack-netlib/SRC/dlacpy.c index c3ee7c6ec9..59a102aa40 100644 --- a/lapack-netlib/SRC/dlacpy.c +++ b/lapack-netlib/SRC/dlacpy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dladiv.c b/lapack-netlib/SRC/dladiv.c index 7ae92a69a9..acf8774ab1 100644 --- a/lapack-netlib/SRC/dladiv.c +++ b/lapack-netlib/SRC/dladiv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlae2.c b/lapack-netlib/SRC/dlae2.c index d62de608a7..e1d676f333 100644 --- a/lapack-netlib/SRC/dlae2.c +++ b/lapack-netlib/SRC/dlae2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaebz.c b/lapack-netlib/SRC/dlaebz.c index c5efc98fee..343b664ba8 100644 --- a/lapack-netlib/SRC/dlaebz.c +++ b/lapack-netlib/SRC/dlaebz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed0.c b/lapack-netlib/SRC/dlaed0.c index 74e58dd2dc..f66e27fd68 100644 --- a/lapack-netlib/SRC/dlaed0.c +++ b/lapack-netlib/SRC/dlaed0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed1.c b/lapack-netlib/SRC/dlaed1.c index 70001b449e..6b2ef9e4ff 100644 --- a/lapack-netlib/SRC/dlaed1.c +++ b/lapack-netlib/SRC/dlaed1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed2.c b/lapack-netlib/SRC/dlaed2.c index 51ab633bd6..27d406d4ba 100644 --- a/lapack-netlib/SRC/dlaed2.c +++ b/lapack-netlib/SRC/dlaed2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed3.c b/lapack-netlib/SRC/dlaed3.c index c2fe61d9be..60398af114 100644 --- a/lapack-netlib/SRC/dlaed3.c +++ b/lapack-netlib/SRC/dlaed3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed4.c b/lapack-netlib/SRC/dlaed4.c index 3e0e3f8be2..37d7c740a8 100644 --- a/lapack-netlib/SRC/dlaed4.c +++ b/lapack-netlib/SRC/dlaed4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed5.c b/lapack-netlib/SRC/dlaed5.c index f714b4ffc9..be62c9f68f 100644 --- a/lapack-netlib/SRC/dlaed5.c +++ b/lapack-netlib/SRC/dlaed5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed6.c b/lapack-netlib/SRC/dlaed6.c index 09dc390006..413b129565 100644 --- a/lapack-netlib/SRC/dlaed6.c +++ b/lapack-netlib/SRC/dlaed6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed7.c b/lapack-netlib/SRC/dlaed7.c index d23a72be04..19face205c 100644 --- a/lapack-netlib/SRC/dlaed7.c +++ b/lapack-netlib/SRC/dlaed7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed8.c b/lapack-netlib/SRC/dlaed8.c index 5224a8ca21..806e98282d 100644 --- a/lapack-netlib/SRC/dlaed8.c +++ b/lapack-netlib/SRC/dlaed8.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaed9.c b/lapack-netlib/SRC/dlaed9.c index 9e2bbde183..153b0db0fe 100644 --- a/lapack-netlib/SRC/dlaed9.c +++ b/lapack-netlib/SRC/dlaed9.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaeda.c b/lapack-netlib/SRC/dlaeda.c index 202e1b6363..a96fb659d7 100644 --- a/lapack-netlib/SRC/dlaeda.c +++ b/lapack-netlib/SRC/dlaeda.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaein.c b/lapack-netlib/SRC/dlaein.c index 93134f4b7d..8953cb3b1c 100644 --- a/lapack-netlib/SRC/dlaein.c +++ b/lapack-netlib/SRC/dlaein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaev2.c b/lapack-netlib/SRC/dlaev2.c index 8140108f6e..1b918760d8 100644 --- a/lapack-netlib/SRC/dlaev2.c +++ b/lapack-netlib/SRC/dlaev2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaexc.c b/lapack-netlib/SRC/dlaexc.c index 38c73491a1..5ee633e6f2 100644 --- a/lapack-netlib/SRC/dlaexc.c +++ b/lapack-netlib/SRC/dlaexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlag2.c b/lapack-netlib/SRC/dlag2.c index e466fc876f..c93e7e5922 100644 --- a/lapack-netlib/SRC/dlag2.c +++ b/lapack-netlib/SRC/dlag2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlag2s.c b/lapack-netlib/SRC/dlag2s.c index 8cbfb62e9d..e8c312b17c 100644 --- a/lapack-netlib/SRC/dlag2s.c +++ b/lapack-netlib/SRC/dlag2s.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlags2.c b/lapack-netlib/SRC/dlags2.c index a4bd98b80b..984332fa0a 100644 --- a/lapack-netlib/SRC/dlags2.c +++ b/lapack-netlib/SRC/dlags2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlagtf.c b/lapack-netlib/SRC/dlagtf.c index 3d0e92bf54..9de8979180 100644 --- a/lapack-netlib/SRC/dlagtf.c +++ b/lapack-netlib/SRC/dlagtf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlagtm.c b/lapack-netlib/SRC/dlagtm.c index ce7364ab04..b067978c43 100644 --- a/lapack-netlib/SRC/dlagtm.c +++ b/lapack-netlib/SRC/dlagtm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlagts.c b/lapack-netlib/SRC/dlagts.c index 998b0cddef..791032108b 100644 --- a/lapack-netlib/SRC/dlagts.c +++ b/lapack-netlib/SRC/dlagts.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlagv2.c b/lapack-netlib/SRC/dlagv2.c index 19d838aed5..fbecfd81b6 100644 --- a/lapack-netlib/SRC/dlagv2.c +++ b/lapack-netlib/SRC/dlagv2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlahqr.c b/lapack-netlib/SRC/dlahqr.c index a27f823090..c7e5e623d0 100644 --- a/lapack-netlib/SRC/dlahqr.c +++ b/lapack-netlib/SRC/dlahqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlahr2.c b/lapack-netlib/SRC/dlahr2.c index 92fbb38b2f..d05e452748 100644 --- a/lapack-netlib/SRC/dlahr2.c +++ b/lapack-netlib/SRC/dlahr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaic1.c b/lapack-netlib/SRC/dlaic1.c index a18af5a1fa..a9381da9c3 100644 --- a/lapack-netlib/SRC/dlaic1.c +++ b/lapack-netlib/SRC/dlaic1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaisnan.c b/lapack-netlib/SRC/dlaisnan.c index 055034c5a5..25957e95ee 100644 --- a/lapack-netlib/SRC/dlaisnan.c +++ b/lapack-netlib/SRC/dlaisnan.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaln2.c b/lapack-netlib/SRC/dlaln2.c index 624ea2f98a..409b358456 100644 --- a/lapack-netlib/SRC/dlaln2.c +++ b/lapack-netlib/SRC/dlaln2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlals0.c b/lapack-netlib/SRC/dlals0.c index 7fa2ff247e..352ecb099d 100644 --- a/lapack-netlib/SRC/dlals0.c +++ b/lapack-netlib/SRC/dlals0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlalsa.c b/lapack-netlib/SRC/dlalsa.c index 4d5c347c33..a15bfaf6da 100644 --- a/lapack-netlib/SRC/dlalsa.c +++ b/lapack-netlib/SRC/dlalsa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlalsd.c b/lapack-netlib/SRC/dlalsd.c index 527810599f..449fa61532 100644 --- a/lapack-netlib/SRC/dlalsd.c +++ b/lapack-netlib/SRC/dlalsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlamrg.c b/lapack-netlib/SRC/dlamrg.c index 98a63c822e..8361086370 100644 --- a/lapack-netlib/SRC/dlamrg.c +++ b/lapack-netlib/SRC/dlamrg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlamswlq.c b/lapack-netlib/SRC/dlamswlq.c index 4db85c57c6..ae70f911db 100644 --- a/lapack-netlib/SRC/dlamswlq.c +++ b/lapack-netlib/SRC/dlamswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlamtsqr.c b/lapack-netlib/SRC/dlamtsqr.c index 99bb5748f5..1e88f31f83 100644 --- a/lapack-netlib/SRC/dlamtsqr.c +++ b/lapack-netlib/SRC/dlamtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaneg.c b/lapack-netlib/SRC/dlaneg.c index 7565a97362..f80d9d9bb6 100644 --- a/lapack-netlib/SRC/dlaneg.c +++ b/lapack-netlib/SRC/dlaneg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlangb.c b/lapack-netlib/SRC/dlangb.c index 82673d7402..52d1dfabbb 100644 --- a/lapack-netlib/SRC/dlangb.c +++ b/lapack-netlib/SRC/dlangb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlange.c b/lapack-netlib/SRC/dlange.c index 115817e08a..9c51013294 100644 --- a/lapack-netlib/SRC/dlange.c +++ b/lapack-netlib/SRC/dlange.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlangt.c b/lapack-netlib/SRC/dlangt.c index 95918e22ea..7295ea3877 100644 --- a/lapack-netlib/SRC/dlangt.c +++ b/lapack-netlib/SRC/dlangt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlanhs.c b/lapack-netlib/SRC/dlanhs.c index 39a67b1f76..634b25b678 100644 --- a/lapack-netlib/SRC/dlanhs.c +++ b/lapack-netlib/SRC/dlanhs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlansb.c b/lapack-netlib/SRC/dlansb.c index 3e02800242..336f49648f 100644 --- a/lapack-netlib/SRC/dlansb.c +++ b/lapack-netlib/SRC/dlansb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlansf.c b/lapack-netlib/SRC/dlansf.c index 6ddb002e18..19db04eabc 100644 --- a/lapack-netlib/SRC/dlansf.c +++ b/lapack-netlib/SRC/dlansf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlansp.c b/lapack-netlib/SRC/dlansp.c index 311166b64e..34cc4ce460 100644 --- a/lapack-netlib/SRC/dlansp.c +++ b/lapack-netlib/SRC/dlansp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlanst.c b/lapack-netlib/SRC/dlanst.c index 1d45e5e741..a8866c7ac7 100644 --- a/lapack-netlib/SRC/dlanst.c +++ b/lapack-netlib/SRC/dlanst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlansy.c b/lapack-netlib/SRC/dlansy.c index 42df671289..8a318f5549 100644 --- a/lapack-netlib/SRC/dlansy.c +++ b/lapack-netlib/SRC/dlansy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlantb.c b/lapack-netlib/SRC/dlantb.c index fddff35de1..f87ffb79d7 100644 --- a/lapack-netlib/SRC/dlantb.c +++ b/lapack-netlib/SRC/dlantb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlantp.c b/lapack-netlib/SRC/dlantp.c index d920196346..0949062a18 100644 --- a/lapack-netlib/SRC/dlantp.c +++ b/lapack-netlib/SRC/dlantp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlantr.c b/lapack-netlib/SRC/dlantr.c index 75e790cc55..8ec4c10f5e 100644 --- a/lapack-netlib/SRC/dlantr.c +++ b/lapack-netlib/SRC/dlantr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlanv2.c b/lapack-netlib/SRC/dlanv2.c index 8074d0b939..32039f9ea6 100644 --- a/lapack-netlib/SRC/dlanv2.c +++ b/lapack-netlib/SRC/dlanv2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp.c b/lapack-netlib/SRC/dlaorhr_col_getrfnp.c index efc394f2ab..de3603877f 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp.c +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c index bf0237f4dc..d70f927999 100644 --- a/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/dlaorhr_col_getrfnp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlapll.c b/lapack-netlib/SRC/dlapll.c index 1b8c46ab00..a23abdb49e 100644 --- a/lapack-netlib/SRC/dlapll.c +++ b/lapack-netlib/SRC/dlapll.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlapmr.c b/lapack-netlib/SRC/dlapmr.c index 04368041a2..97ce15a279 100644 --- a/lapack-netlib/SRC/dlapmr.c +++ b/lapack-netlib/SRC/dlapmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlapmt.c b/lapack-netlib/SRC/dlapmt.c index 0acbad2b32..7f9e89462e 100644 --- a/lapack-netlib/SRC/dlapmt.c +++ b/lapack-netlib/SRC/dlapmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlapy2.c b/lapack-netlib/SRC/dlapy2.c index 9ffc8a45cd..12e99462a9 100644 --- a/lapack-netlib/SRC/dlapy2.c +++ b/lapack-netlib/SRC/dlapy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlapy3.c b/lapack-netlib/SRC/dlapy3.c index fa8b218e83..6f564afd42 100644 --- a/lapack-netlib/SRC/dlapy3.c +++ b/lapack-netlib/SRC/dlapy3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqgb.c b/lapack-netlib/SRC/dlaqgb.c index 603a4414fc..1d9df91c9c 100644 --- a/lapack-netlib/SRC/dlaqgb.c +++ b/lapack-netlib/SRC/dlaqgb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqge.c b/lapack-netlib/SRC/dlaqge.c index ef6dd26b42..4a3d36216d 100644 --- a/lapack-netlib/SRC/dlaqge.c +++ b/lapack-netlib/SRC/dlaqge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqp2.c b/lapack-netlib/SRC/dlaqp2.c index a95bc84cb8..bbadc8ff9f 100644 --- a/lapack-netlib/SRC/dlaqp2.c +++ b/lapack-netlib/SRC/dlaqp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqps.c b/lapack-netlib/SRC/dlaqps.c index 729df0e289..1e0e744371 100644 --- a/lapack-netlib/SRC/dlaqps.c +++ b/lapack-netlib/SRC/dlaqps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqr0.c b/lapack-netlib/SRC/dlaqr0.c index abbf5410cd..fd0c46a2b3 100644 --- a/lapack-netlib/SRC/dlaqr0.c +++ b/lapack-netlib/SRC/dlaqr0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqr1.c b/lapack-netlib/SRC/dlaqr1.c index 9677836fb3..3ecb9e6a87 100644 --- a/lapack-netlib/SRC/dlaqr1.c +++ b/lapack-netlib/SRC/dlaqr1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqr2.c b/lapack-netlib/SRC/dlaqr2.c index 02aaf62e43..72c9272744 100644 --- a/lapack-netlib/SRC/dlaqr2.c +++ b/lapack-netlib/SRC/dlaqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqr3.c b/lapack-netlib/SRC/dlaqr3.c index e1504a6edd..8e8d6c3fa0 100644 --- a/lapack-netlib/SRC/dlaqr3.c +++ b/lapack-netlib/SRC/dlaqr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqr4.c b/lapack-netlib/SRC/dlaqr4.c index 4e167011d9..d9d2e8c348 100644 --- a/lapack-netlib/SRC/dlaqr4.c +++ b/lapack-netlib/SRC/dlaqr4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqr5.c b/lapack-netlib/SRC/dlaqr5.c index 5f84da4867..1167463ba7 100644 --- a/lapack-netlib/SRC/dlaqr5.c +++ b/lapack-netlib/SRC/dlaqr5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqsb.c b/lapack-netlib/SRC/dlaqsb.c index ee4c226866..e27673117b 100644 --- a/lapack-netlib/SRC/dlaqsb.c +++ b/lapack-netlib/SRC/dlaqsb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqsp.c b/lapack-netlib/SRC/dlaqsp.c index a810ac24f0..363bbca26e 100644 --- a/lapack-netlib/SRC/dlaqsp.c +++ b/lapack-netlib/SRC/dlaqsp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqsy.c b/lapack-netlib/SRC/dlaqsy.c index 5e11b257fc..ef4958e15b 100644 --- a/lapack-netlib/SRC/dlaqsy.c +++ b/lapack-netlib/SRC/dlaqsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqtr.c b/lapack-netlib/SRC/dlaqtr.c index debdd0af7e..6d6d18d990 100644 --- a/lapack-netlib/SRC/dlaqtr.c +++ b/lapack-netlib/SRC/dlaqtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqz0.c b/lapack-netlib/SRC/dlaqz0.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/dlaqz0.c +++ b/lapack-netlib/SRC/dlaqz0.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqz1.c b/lapack-netlib/SRC/dlaqz1.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/dlaqz1.c +++ b/lapack-netlib/SRC/dlaqz1.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqz2.c b/lapack-netlib/SRC/dlaqz2.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/dlaqz2.c +++ b/lapack-netlib/SRC/dlaqz2.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqz3.c b/lapack-netlib/SRC/dlaqz3.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/dlaqz3.c +++ b/lapack-netlib/SRC/dlaqz3.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaqz4.c b/lapack-netlib/SRC/dlaqz4.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/dlaqz4.c +++ b/lapack-netlib/SRC/dlaqz4.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlar1v.c b/lapack-netlib/SRC/dlar1v.c index be4d3d94aa..938582db1f 100644 --- a/lapack-netlib/SRC/dlar1v.c +++ b/lapack-netlib/SRC/dlar1v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlar2v.c b/lapack-netlib/SRC/dlar2v.c index bdb351890f..c4800454ec 100644 --- a/lapack-netlib/SRC/dlar2v.c +++ b/lapack-netlib/SRC/dlar2v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarf.c b/lapack-netlib/SRC/dlarf.c index fe30037af0..e372eb5bdb 100644 --- a/lapack-netlib/SRC/dlarf.c +++ b/lapack-netlib/SRC/dlarf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarfb.c b/lapack-netlib/SRC/dlarfb.c index f21289d621..3a0f465505 100644 --- a/lapack-netlib/SRC/dlarfb.c +++ b/lapack-netlib/SRC/dlarfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarfb_gett.c b/lapack-netlib/SRC/dlarfb_gett.c index 40f67601fa..8ab0925aeb 100644 --- a/lapack-netlib/SRC/dlarfb_gett.c +++ b/lapack-netlib/SRC/dlarfb_gett.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarfg.c b/lapack-netlib/SRC/dlarfg.c index de8c8ec016..53b132fe53 100644 --- a/lapack-netlib/SRC/dlarfg.c +++ b/lapack-netlib/SRC/dlarfg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarfgp.c b/lapack-netlib/SRC/dlarfgp.c index 32223c0e3a..a64bfc6c5f 100644 --- a/lapack-netlib/SRC/dlarfgp.c +++ b/lapack-netlib/SRC/dlarfgp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarft.c b/lapack-netlib/SRC/dlarft.c index fc6dc02eac..bd93ba513a 100644 --- a/lapack-netlib/SRC/dlarft.c +++ b/lapack-netlib/SRC/dlarft.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarfx.c b/lapack-netlib/SRC/dlarfx.c index b852ca535a..fc0b6a49e9 100644 --- a/lapack-netlib/SRC/dlarfx.c +++ b/lapack-netlib/SRC/dlarfx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarfy.c b/lapack-netlib/SRC/dlarfy.c index 409ce9a2db..a0b54d21af 100644 --- a/lapack-netlib/SRC/dlarfy.c +++ b/lapack-netlib/SRC/dlarfy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlargv.c b/lapack-netlib/SRC/dlargv.c index 70a41e2a71..1de31866cd 100644 --- a/lapack-netlib/SRC/dlargv.c +++ b/lapack-netlib/SRC/dlargv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarmm.c b/lapack-netlib/SRC/dlarmm.c index eec5d143a5..8ecd011908 100644 --- a/lapack-netlib/SRC/dlarmm.c +++ b/lapack-netlib/SRC/dlarmm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarnv.c b/lapack-netlib/SRC/dlarnv.c index 65f2cd0912..2f0be6a1b3 100644 --- a/lapack-netlib/SRC/dlarnv.c +++ b/lapack-netlib/SRC/dlarnv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarra.c b/lapack-netlib/SRC/dlarra.c index 771da614fd..5933b830e5 100644 --- a/lapack-netlib/SRC/dlarra.c +++ b/lapack-netlib/SRC/dlarra.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrb.c b/lapack-netlib/SRC/dlarrb.c index 8a046fdd86..989653daab 100644 --- a/lapack-netlib/SRC/dlarrb.c +++ b/lapack-netlib/SRC/dlarrb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrc.c b/lapack-netlib/SRC/dlarrc.c index 804f2d361a..616a56f9af 100644 --- a/lapack-netlib/SRC/dlarrc.c +++ b/lapack-netlib/SRC/dlarrc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrd.c b/lapack-netlib/SRC/dlarrd.c index aef42a9a00..5b96c01b5f 100644 --- a/lapack-netlib/SRC/dlarrd.c +++ b/lapack-netlib/SRC/dlarrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarre.c b/lapack-netlib/SRC/dlarre.c index 6256604565..bbf5ed9679 100644 --- a/lapack-netlib/SRC/dlarre.c +++ b/lapack-netlib/SRC/dlarre.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrf.c b/lapack-netlib/SRC/dlarrf.c index 11664d0855..b16baf5fc2 100644 --- a/lapack-netlib/SRC/dlarrf.c +++ b/lapack-netlib/SRC/dlarrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrj.c b/lapack-netlib/SRC/dlarrj.c index cc5ad7a052..f666583021 100644 --- a/lapack-netlib/SRC/dlarrj.c +++ b/lapack-netlib/SRC/dlarrj.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrk.c b/lapack-netlib/SRC/dlarrk.c index 8e0bec8871..072149ab8e 100644 --- a/lapack-netlib/SRC/dlarrk.c +++ b/lapack-netlib/SRC/dlarrk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrr.c b/lapack-netlib/SRC/dlarrr.c index 5b60310659..c38f14616b 100644 --- a/lapack-netlib/SRC/dlarrr.c +++ b/lapack-netlib/SRC/dlarrr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarrv.c b/lapack-netlib/SRC/dlarrv.c index 095642d499..38a44588cd 100644 --- a/lapack-netlib/SRC/dlarrv.c +++ b/lapack-netlib/SRC/dlarrv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarscl2.c b/lapack-netlib/SRC/dlarscl2.c index 06995b9240..91a2bb89bd 100644 --- a/lapack-netlib/SRC/dlarscl2.c +++ b/lapack-netlib/SRC/dlarscl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlartg.c b/lapack-netlib/SRC/dlartg.c index 7c71036858..bec3775fc4 100644 --- a/lapack-netlib/SRC/dlartg.c +++ b/lapack-netlib/SRC/dlartg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlartgp.c b/lapack-netlib/SRC/dlartgp.c index 903229a481..28821f0cd2 100644 --- a/lapack-netlib/SRC/dlartgp.c +++ b/lapack-netlib/SRC/dlartgp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlartgs.c b/lapack-netlib/SRC/dlartgs.c index 878ddee3a0..992f8a1495 100644 --- a/lapack-netlib/SRC/dlartgs.c +++ b/lapack-netlib/SRC/dlartgs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlartv.c b/lapack-netlib/SRC/dlartv.c index d72f5c6948..93d997402b 100644 --- a/lapack-netlib/SRC/dlartv.c +++ b/lapack-netlib/SRC/dlartv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaruv.c b/lapack-netlib/SRC/dlaruv.c index bfdb82b206..21511aa949 100644 --- a/lapack-netlib/SRC/dlaruv.c +++ b/lapack-netlib/SRC/dlaruv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarz.c b/lapack-netlib/SRC/dlarz.c index cfd7e1dab3..c05e070ccc 100644 --- a/lapack-netlib/SRC/dlarz.c +++ b/lapack-netlib/SRC/dlarz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarzb.c b/lapack-netlib/SRC/dlarzb.c index 7565e5d021..f167ddd861 100644 --- a/lapack-netlib/SRC/dlarzb.c +++ b/lapack-netlib/SRC/dlarzb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlarzt.c b/lapack-netlib/SRC/dlarzt.c index 166d7a3f32..f83ec588d0 100644 --- a/lapack-netlib/SRC/dlarzt.c +++ b/lapack-netlib/SRC/dlarzt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlas2.c b/lapack-netlib/SRC/dlas2.c index a4fe5ef120..f19d1631a8 100644 --- a/lapack-netlib/SRC/dlas2.c +++ b/lapack-netlib/SRC/dlas2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlascl.c b/lapack-netlib/SRC/dlascl.c index 42cab9b186..ecf8e63982 100644 --- a/lapack-netlib/SRC/dlascl.c +++ b/lapack-netlib/SRC/dlascl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlascl2.c b/lapack-netlib/SRC/dlascl2.c index 2a63e73211..52670938ed 100644 --- a/lapack-netlib/SRC/dlascl2.c +++ b/lapack-netlib/SRC/dlascl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd0.c b/lapack-netlib/SRC/dlasd0.c index 0f88527ef8..cab26b5e84 100644 --- a/lapack-netlib/SRC/dlasd0.c +++ b/lapack-netlib/SRC/dlasd0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd1.c b/lapack-netlib/SRC/dlasd1.c index 8b0d7031cf..dda085037f 100644 --- a/lapack-netlib/SRC/dlasd1.c +++ b/lapack-netlib/SRC/dlasd1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd2.c b/lapack-netlib/SRC/dlasd2.c index 8e915c9493..c8aad7c457 100644 --- a/lapack-netlib/SRC/dlasd2.c +++ b/lapack-netlib/SRC/dlasd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd3.c b/lapack-netlib/SRC/dlasd3.c index d648ecbeae..4eecf7f958 100644 --- a/lapack-netlib/SRC/dlasd3.c +++ b/lapack-netlib/SRC/dlasd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd4.c b/lapack-netlib/SRC/dlasd4.c index e0c3a23e18..38e68c0bd2 100644 --- a/lapack-netlib/SRC/dlasd4.c +++ b/lapack-netlib/SRC/dlasd4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd5.c b/lapack-netlib/SRC/dlasd5.c index efbb03073f..92fbae1b97 100644 --- a/lapack-netlib/SRC/dlasd5.c +++ b/lapack-netlib/SRC/dlasd5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd6.c b/lapack-netlib/SRC/dlasd6.c index ba2465acf6..54b366f769 100644 --- a/lapack-netlib/SRC/dlasd6.c +++ b/lapack-netlib/SRC/dlasd6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd7.c b/lapack-netlib/SRC/dlasd7.c index 799bcb003a..acf0fb427a 100644 --- a/lapack-netlib/SRC/dlasd7.c +++ b/lapack-netlib/SRC/dlasd7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasd8.c b/lapack-netlib/SRC/dlasd8.c index 415a93c4a0..3f4fbd8d5c 100644 --- a/lapack-netlib/SRC/dlasd8.c +++ b/lapack-netlib/SRC/dlasd8.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasda.c b/lapack-netlib/SRC/dlasda.c index a9190f8056..b88e87ae74 100644 --- a/lapack-netlib/SRC/dlasda.c +++ b/lapack-netlib/SRC/dlasda.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasdq.c b/lapack-netlib/SRC/dlasdq.c index cee659c399..ca8016cf15 100644 --- a/lapack-netlib/SRC/dlasdq.c +++ b/lapack-netlib/SRC/dlasdq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasdt.c b/lapack-netlib/SRC/dlasdt.c index 54259a2d6c..86779932d6 100644 --- a/lapack-netlib/SRC/dlasdt.c +++ b/lapack-netlib/SRC/dlasdt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaset.c b/lapack-netlib/SRC/dlaset.c index 060fefbee4..182c44381b 100644 --- a/lapack-netlib/SRC/dlaset.c +++ b/lapack-netlib/SRC/dlaset.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasq1.c b/lapack-netlib/SRC/dlasq1.c index aaafa28d94..08c5520b56 100644 --- a/lapack-netlib/SRC/dlasq1.c +++ b/lapack-netlib/SRC/dlasq1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasq2.c b/lapack-netlib/SRC/dlasq2.c index b349edd99a..7d652dbad9 100644 --- a/lapack-netlib/SRC/dlasq2.c +++ b/lapack-netlib/SRC/dlasq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasq3.c b/lapack-netlib/SRC/dlasq3.c index c30f1faedb..2c86f0753f 100644 --- a/lapack-netlib/SRC/dlasq3.c +++ b/lapack-netlib/SRC/dlasq3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasq4.c b/lapack-netlib/SRC/dlasq4.c index cab77310da..d67ecb3fb8 100644 --- a/lapack-netlib/SRC/dlasq4.c +++ b/lapack-netlib/SRC/dlasq4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasq5.c b/lapack-netlib/SRC/dlasq5.c index 38b713c90d..ed6dbd787a 100644 --- a/lapack-netlib/SRC/dlasq5.c +++ b/lapack-netlib/SRC/dlasq5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasq6.c b/lapack-netlib/SRC/dlasq6.c index 6f26df3dad..6a52857a1c 100644 --- a/lapack-netlib/SRC/dlasq6.c +++ b/lapack-netlib/SRC/dlasq6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasr.c b/lapack-netlib/SRC/dlasr.c index 2b24ecb32f..ae8c9df985 100644 --- a/lapack-netlib/SRC/dlasr.c +++ b/lapack-netlib/SRC/dlasr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasrt.c b/lapack-netlib/SRC/dlasrt.c index 784820de82..0ad2d9fb2a 100644 --- a/lapack-netlib/SRC/dlasrt.c +++ b/lapack-netlib/SRC/dlasrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlassq.c b/lapack-netlib/SRC/dlassq.c index a88d377cf1..89ecbc2050 100644 --- a/lapack-netlib/SRC/dlassq.c +++ b/lapack-netlib/SRC/dlassq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasv2.c b/lapack-netlib/SRC/dlasv2.c index 92fb8a02f7..8bdafbabb9 100644 --- a/lapack-netlib/SRC/dlasv2.c +++ b/lapack-netlib/SRC/dlasv2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlaswlq.c b/lapack-netlib/SRC/dlaswlq.c index a75055a008..150b8d18b7 100644 --- a/lapack-netlib/SRC/dlaswlq.c +++ b/lapack-netlib/SRC/dlaswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -719,12 +719,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *n < *m) { *info = -2; - } else if (*mb < 1 || *mb > *m && *m > 0) { + } else if (*mb < 1 || (*mb > *m && *m > 0)) { *info = -3; - } else if (*nb <= *m) { + } else if (*nb <= 0) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *mb) { *info = -8; } else if (*lwork < *m * *mb && ! lquery) { diff --git a/lapack-netlib/SRC/dlaswp.c b/lapack-netlib/SRC/dlaswp.c index ab2eb43ac9..bacdb3b3de 100644 --- a/lapack-netlib/SRC/dlaswp.c +++ b/lapack-netlib/SRC/dlaswp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasy2.c b/lapack-netlib/SRC/dlasy2.c index b3e9062ee8..12a4a7e78c 100644 --- a/lapack-netlib/SRC/dlasy2.c +++ b/lapack-netlib/SRC/dlasy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasyf.c b/lapack-netlib/SRC/dlasyf.c index 11c66c40d5..ea0373421b 100644 --- a/lapack-netlib/SRC/dlasyf.c +++ b/lapack-netlib/SRC/dlasyf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasyf_aa.c b/lapack-netlib/SRC/dlasyf_aa.c index 5d8aea1f0b..9c9bdc327e 100644 --- a/lapack-netlib/SRC/dlasyf_aa.c +++ b/lapack-netlib/SRC/dlasyf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasyf_rk.c b/lapack-netlib/SRC/dlasyf_rk.c index 8a8682f474..3a6cc19b9a 100644 --- a/lapack-netlib/SRC/dlasyf_rk.c +++ b/lapack-netlib/SRC/dlasyf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlasyf_rook.c b/lapack-netlib/SRC/dlasyf_rook.c index 65e77e3714..946fa4b81d 100644 --- a/lapack-netlib/SRC/dlasyf_rook.c +++ b/lapack-netlib/SRC/dlasyf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlat2s.c b/lapack-netlib/SRC/dlat2s.c index 6337247544..c57eb52936 100644 --- a/lapack-netlib/SRC/dlat2s.c +++ b/lapack-netlib/SRC/dlat2s.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlatbs.c b/lapack-netlib/SRC/dlatbs.c index a8ebed6dfe..eeea6dab8d 100644 --- a/lapack-netlib/SRC/dlatbs.c +++ b/lapack-netlib/SRC/dlatbs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlatdf.c b/lapack-netlib/SRC/dlatdf.c index f1c5901fd5..bec8c76ab5 100644 --- a/lapack-netlib/SRC/dlatdf.c +++ b/lapack-netlib/SRC/dlatdf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlatps.c b/lapack-netlib/SRC/dlatps.c index 34bf5e8234..b0a62612c4 100644 --- a/lapack-netlib/SRC/dlatps.c +++ b/lapack-netlib/SRC/dlatps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlatrd.c b/lapack-netlib/SRC/dlatrd.c index 9af43ac543..8a6abedabf 100644 --- a/lapack-netlib/SRC/dlatrd.c +++ b/lapack-netlib/SRC/dlatrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlatrs.c b/lapack-netlib/SRC/dlatrs.c index c5d0ea9fcc..c512972bb3 100644 --- a/lapack-netlib/SRC/dlatrs.c +++ b/lapack-netlib/SRC/dlatrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlatrs3.c b/lapack-netlib/SRC/dlatrs3.c index 46eca6379f..cb1d391d48 100644 --- a/lapack-netlib/SRC/dlatrs3.c +++ b/lapack-netlib/SRC/dlatrs3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -775,7 +775,7 @@ static doublereal c_b36 = 1.; integer lscale; doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; @@ -871,7 +871,7 @@ static doublereal c_b36 = 1.; } if (*info != 0) { i__1 = -(*info); - xerbla_("DLATRS3", &i__1); + xerbla_("DLATRS3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/dlatrz.c b/lapack-netlib/SRC/dlatrz.c index c9c9032455..cd2eb147b1 100644 --- a/lapack-netlib/SRC/dlatrz.c +++ b/lapack-netlib/SRC/dlatrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlatsqr.c b/lapack-netlib/SRC/dlatsqr.c index 158974214b..121a8e8610 100644 --- a/lapack-netlib/SRC/dlatsqr.c +++ b/lapack-netlib/SRC/dlatsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -721,12 +721,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *m < *n) { *info = -2; - } else if (*mb <= *n) { + } else if (*mb < 1) { *info = -3; - } else if (*nb < 1 || *nb > *n && *n > 0) { + } else if (*nb < 1 || (*nb > *n && *n > 0)) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *nb) { *info = -8; } else if (*lwork < *n * *nb && ! lquery) { diff --git a/lapack-netlib/SRC/dlauu2.c b/lapack-netlib/SRC/dlauu2.c index ff83d379aa..2d60d2db9c 100644 --- a/lapack-netlib/SRC/dlauu2.c +++ b/lapack-netlib/SRC/dlauu2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dlauum.c b/lapack-netlib/SRC/dlauum.c index cc1af80e1a..40d9121b7d 100644 --- a/lapack-netlib/SRC/dlauum.c +++ b/lapack-netlib/SRC/dlauum.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dopgtr.c b/lapack-netlib/SRC/dopgtr.c index c95dfcd99f..a6771a3312 100644 --- a/lapack-netlib/SRC/dopgtr.c +++ b/lapack-netlib/SRC/dopgtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dopmtr.c b/lapack-netlib/SRC/dopmtr.c index 65df69df01..2f25a3f56d 100644 --- a/lapack-netlib/SRC/dopmtr.c +++ b/lapack-netlib/SRC/dopmtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorbdb.c b/lapack-netlib/SRC/dorbdb.c index fc84ad7d5d..642e29c192 100644 --- a/lapack-netlib/SRC/dorbdb.c +++ b/lapack-netlib/SRC/dorbdb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorbdb1.c b/lapack-netlib/SRC/dorbdb1.c index 07b91220e4..5279403ead 100644 --- a/lapack-netlib/SRC/dorbdb1.c +++ b/lapack-netlib/SRC/dorbdb1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorbdb2.c b/lapack-netlib/SRC/dorbdb2.c index 6c1a7d0c0c..cd73936e5a 100644 --- a/lapack-netlib/SRC/dorbdb2.c +++ b/lapack-netlib/SRC/dorbdb2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorbdb3.c b/lapack-netlib/SRC/dorbdb3.c index 84629c6516..c4c03b0cfc 100644 --- a/lapack-netlib/SRC/dorbdb3.c +++ b/lapack-netlib/SRC/dorbdb3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorbdb4.c b/lapack-netlib/SRC/dorbdb4.c index 743a020bb2..0fed101f6e 100644 --- a/lapack-netlib/SRC/dorbdb4.c +++ b/lapack-netlib/SRC/dorbdb4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorbdb5.c b/lapack-netlib/SRC/dorbdb5.c index ae2b26bd8d..12cab2bf82 100644 --- a/lapack-netlib/SRC/dorbdb5.c +++ b/lapack-netlib/SRC/dorbdb5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorbdb6.c b/lapack-netlib/SRC/dorbdb6.c index a7ac674ba0..72db0ef0a4 100644 --- a/lapack-netlib/SRC/dorbdb6.c +++ b/lapack-netlib/SRC/dorbdb6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorcsd.c b/lapack-netlib/SRC/dorcsd.c index 49c1e96020..01c6a0acd6 100644 --- a/lapack-netlib/SRC/dorcsd.c +++ b/lapack-netlib/SRC/dorcsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorcsd2by1.c b/lapack-netlib/SRC/dorcsd2by1.c index eb3e3a9e4a..fc3b69d0e3 100644 --- a/lapack-netlib/SRC/dorcsd2by1.c +++ b/lapack-netlib/SRC/dorcsd2by1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorg2l.c b/lapack-netlib/SRC/dorg2l.c index 65699489c8..e3f2c9450b 100644 --- a/lapack-netlib/SRC/dorg2l.c +++ b/lapack-netlib/SRC/dorg2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorg2r.c b/lapack-netlib/SRC/dorg2r.c index 79ca4fb835..5c5be21947 100644 --- a/lapack-netlib/SRC/dorg2r.c +++ b/lapack-netlib/SRC/dorg2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgbr.c b/lapack-netlib/SRC/dorgbr.c index 54c3b2e9e4..233e3ff8e3 100644 --- a/lapack-netlib/SRC/dorgbr.c +++ b/lapack-netlib/SRC/dorgbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorghr.c b/lapack-netlib/SRC/dorghr.c index 93b4f9cecc..8fd89ea2f8 100644 --- a/lapack-netlib/SRC/dorghr.c +++ b/lapack-netlib/SRC/dorghr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgl2.c b/lapack-netlib/SRC/dorgl2.c index 377727c47e..87c3e7a58a 100644 --- a/lapack-netlib/SRC/dorgl2.c +++ b/lapack-netlib/SRC/dorgl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorglq.c b/lapack-netlib/SRC/dorglq.c index 8829a8e6c3..829f2f82d1 100644 --- a/lapack-netlib/SRC/dorglq.c +++ b/lapack-netlib/SRC/dorglq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgql.c b/lapack-netlib/SRC/dorgql.c index 435fe5da0e..762f6aaf65 100644 --- a/lapack-netlib/SRC/dorgql.c +++ b/lapack-netlib/SRC/dorgql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgqr.c b/lapack-netlib/SRC/dorgqr.c index 5f8d68b75d..595b3e4453 100644 --- a/lapack-netlib/SRC/dorgqr.c +++ b/lapack-netlib/SRC/dorgqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgr2.c b/lapack-netlib/SRC/dorgr2.c index ca626ff31b..91d4f6ae81 100644 --- a/lapack-netlib/SRC/dorgr2.c +++ b/lapack-netlib/SRC/dorgr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgrq.c b/lapack-netlib/SRC/dorgrq.c index 267f883aa5..c1581acaba 100644 --- a/lapack-netlib/SRC/dorgrq.c +++ b/lapack-netlib/SRC/dorgrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgtr.c b/lapack-netlib/SRC/dorgtr.c index 65035cafe6..74d49b8054 100644 --- a/lapack-netlib/SRC/dorgtr.c +++ b/lapack-netlib/SRC/dorgtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgtsqr.c b/lapack-netlib/SRC/dorgtsqr.c index ab35ac4a99..a788493841 100644 --- a/lapack-netlib/SRC/dorgtsqr.c +++ b/lapack-netlib/SRC/dorgtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorgtsqr_row.c b/lapack-netlib/SRC/dorgtsqr_row.c index dfaee56c79..2b69eabcb4 100644 --- a/lapack-netlib/SRC/dorgtsqr_row.c +++ b/lapack-netlib/SRC/dorgtsqr_row.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorhr_col.c b/lapack-netlib/SRC/dorhr_col.c index 67ab4d40e3..bfa2de225b 100644 --- a/lapack-netlib/SRC/dorhr_col.c +++ b/lapack-netlib/SRC/dorhr_col.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorm22.c b/lapack-netlib/SRC/dorm22.c index af913ce7f0..b47f26151e 100644 --- a/lapack-netlib/SRC/dorm22.c +++ b/lapack-netlib/SRC/dorm22.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorm2l.c b/lapack-netlib/SRC/dorm2l.c index 51df94f32e..bd836422bb 100644 --- a/lapack-netlib/SRC/dorm2l.c +++ b/lapack-netlib/SRC/dorm2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorm2r.c b/lapack-netlib/SRC/dorm2r.c index d3f67f1f8f..a689ffb598 100644 --- a/lapack-netlib/SRC/dorm2r.c +++ b/lapack-netlib/SRC/dorm2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormbr.c b/lapack-netlib/SRC/dormbr.c index 1dc15e573c..87e800beb7 100644 --- a/lapack-netlib/SRC/dormbr.c +++ b/lapack-netlib/SRC/dormbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormhr.c b/lapack-netlib/SRC/dormhr.c index 3ee75ebef3..84ffa24288 100644 --- a/lapack-netlib/SRC/dormhr.c +++ b/lapack-netlib/SRC/dormhr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dorml2.c b/lapack-netlib/SRC/dorml2.c index 7160eac6ab..4024e28398 100644 --- a/lapack-netlib/SRC/dorml2.c +++ b/lapack-netlib/SRC/dorml2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormlq.c b/lapack-netlib/SRC/dormlq.c index 175860e487..dbf005be2c 100644 --- a/lapack-netlib/SRC/dormlq.c +++ b/lapack-netlib/SRC/dormlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormql.c b/lapack-netlib/SRC/dormql.c index 3ccc9681a4..a70dc5831e 100644 --- a/lapack-netlib/SRC/dormql.c +++ b/lapack-netlib/SRC/dormql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormqr.c b/lapack-netlib/SRC/dormqr.c index 3278bd7578..0340b7f2c7 100644 --- a/lapack-netlib/SRC/dormqr.c +++ b/lapack-netlib/SRC/dormqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormr2.c b/lapack-netlib/SRC/dormr2.c index 65c1f5695d..2e6824a356 100644 --- a/lapack-netlib/SRC/dormr2.c +++ b/lapack-netlib/SRC/dormr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormr3.c b/lapack-netlib/SRC/dormr3.c index 5a581e06e0..08b110f265 100644 --- a/lapack-netlib/SRC/dormr3.c +++ b/lapack-netlib/SRC/dormr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormrq.c b/lapack-netlib/SRC/dormrq.c index b399d9ce90..ecf997cd30 100644 --- a/lapack-netlib/SRC/dormrq.c +++ b/lapack-netlib/SRC/dormrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormrz.c b/lapack-netlib/SRC/dormrz.c index ed38ebe7ec..e54dd1d652 100644 --- a/lapack-netlib/SRC/dormrz.c +++ b/lapack-netlib/SRC/dormrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dormtr.c b/lapack-netlib/SRC/dormtr.c index 29c830c51a..badef93a31 100644 --- a/lapack-netlib/SRC/dormtr.c +++ b/lapack-netlib/SRC/dormtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbcon.c b/lapack-netlib/SRC/dpbcon.c index 0272bf665d..5ff90e6882 100644 --- a/lapack-netlib/SRC/dpbcon.c +++ b/lapack-netlib/SRC/dpbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbequ.c b/lapack-netlib/SRC/dpbequ.c index 2b09d7254f..cc16e08a71 100644 --- a/lapack-netlib/SRC/dpbequ.c +++ b/lapack-netlib/SRC/dpbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbrfs.c b/lapack-netlib/SRC/dpbrfs.c index d5fa710e13..1f598d8d16 100644 --- a/lapack-netlib/SRC/dpbrfs.c +++ b/lapack-netlib/SRC/dpbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbstf.c b/lapack-netlib/SRC/dpbstf.c index cdbcc133ae..87432248b8 100644 --- a/lapack-netlib/SRC/dpbstf.c +++ b/lapack-netlib/SRC/dpbstf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbsv.c b/lapack-netlib/SRC/dpbsv.c index 0cac50884f..08374de9ec 100644 --- a/lapack-netlib/SRC/dpbsv.c +++ b/lapack-netlib/SRC/dpbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbsvx.c b/lapack-netlib/SRC/dpbsvx.c index 24d216ee1f..60c8cb2180 100644 --- a/lapack-netlib/SRC/dpbsvx.c +++ b/lapack-netlib/SRC/dpbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbtf2.c b/lapack-netlib/SRC/dpbtf2.c index d4f4a53adf..91c343ba41 100644 --- a/lapack-netlib/SRC/dpbtf2.c +++ b/lapack-netlib/SRC/dpbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbtrf.c b/lapack-netlib/SRC/dpbtrf.c index 6fca250113..e2a08ca43f 100644 --- a/lapack-netlib/SRC/dpbtrf.c +++ b/lapack-netlib/SRC/dpbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpbtrs.c b/lapack-netlib/SRC/dpbtrs.c index a5e47405c6..70ad90bd5a 100644 --- a/lapack-netlib/SRC/dpbtrs.c +++ b/lapack-netlib/SRC/dpbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpftrf.c b/lapack-netlib/SRC/dpftrf.c index fab9678a14..be7046db8d 100644 --- a/lapack-netlib/SRC/dpftrf.c +++ b/lapack-netlib/SRC/dpftrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpftri.c b/lapack-netlib/SRC/dpftri.c index 763a06450e..76b5fca68b 100644 --- a/lapack-netlib/SRC/dpftri.c +++ b/lapack-netlib/SRC/dpftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpftrs.c b/lapack-netlib/SRC/dpftrs.c index 82305f70f4..ba158c1632 100644 --- a/lapack-netlib/SRC/dpftrs.c +++ b/lapack-netlib/SRC/dpftrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpocon.c b/lapack-netlib/SRC/dpocon.c index a05dcdd132..8da616c76d 100644 --- a/lapack-netlib/SRC/dpocon.c +++ b/lapack-netlib/SRC/dpocon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpoequ.c b/lapack-netlib/SRC/dpoequ.c index 738587e88b..170ce3ace4 100644 --- a/lapack-netlib/SRC/dpoequ.c +++ b/lapack-netlib/SRC/dpoequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpoequb.c b/lapack-netlib/SRC/dpoequb.c index 2352f05f90..b130333a55 100644 --- a/lapack-netlib/SRC/dpoequb.c +++ b/lapack-netlib/SRC/dpoequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dporfs.c b/lapack-netlib/SRC/dporfs.c index 7a516ad095..a06e4239a0 100644 --- a/lapack-netlib/SRC/dporfs.c +++ b/lapack-netlib/SRC/dporfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dporfsx.c b/lapack-netlib/SRC/dporfsx.c index 6393f39693..c085f791d5 100644 --- a/lapack-netlib/SRC/dporfsx.c +++ b/lapack-netlib/SRC/dporfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dposv.c b/lapack-netlib/SRC/dposv.c index 876f37ecc7..770bc7a5e2 100644 --- a/lapack-netlib/SRC/dposv.c +++ b/lapack-netlib/SRC/dposv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dposvx.c b/lapack-netlib/SRC/dposvx.c index 1d9340d1b4..6d8428c1b0 100644 --- a/lapack-netlib/SRC/dposvx.c +++ b/lapack-netlib/SRC/dposvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dposvxx.c b/lapack-netlib/SRC/dposvxx.c index 7a7a7b8aa4..4cc445b740 100644 --- a/lapack-netlib/SRC/dposvxx.c +++ b/lapack-netlib/SRC/dposvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpotf2.c b/lapack-netlib/SRC/dpotf2.c index a560a72111..fd2e36b221 100644 --- a/lapack-netlib/SRC/dpotf2.c +++ b/lapack-netlib/SRC/dpotf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpotrf.c b/lapack-netlib/SRC/dpotrf.c index dc4a608a08..39094db6d6 100644 --- a/lapack-netlib/SRC/dpotrf.c +++ b/lapack-netlib/SRC/dpotrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpotrf2.c b/lapack-netlib/SRC/dpotrf2.c index 08922f1390..94ff2dfc74 100644 --- a/lapack-netlib/SRC/dpotrf2.c +++ b/lapack-netlib/SRC/dpotrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpotri.c b/lapack-netlib/SRC/dpotri.c index 285575f3fd..566d431d3f 100644 --- a/lapack-netlib/SRC/dpotri.c +++ b/lapack-netlib/SRC/dpotri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpotrs.c b/lapack-netlib/SRC/dpotrs.c index fcfc993d28..ae070b2d32 100644 --- a/lapack-netlib/SRC/dpotrs.c +++ b/lapack-netlib/SRC/dpotrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dppcon.c b/lapack-netlib/SRC/dppcon.c index 1a09f5445f..9131cdfc95 100644 --- a/lapack-netlib/SRC/dppcon.c +++ b/lapack-netlib/SRC/dppcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dppequ.c b/lapack-netlib/SRC/dppequ.c index 380949cf32..d4937ec5bf 100644 --- a/lapack-netlib/SRC/dppequ.c +++ b/lapack-netlib/SRC/dppequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpprfs.c b/lapack-netlib/SRC/dpprfs.c index 9eee3ee5bc..aa85f93a9e 100644 --- a/lapack-netlib/SRC/dpprfs.c +++ b/lapack-netlib/SRC/dpprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dppsv.c b/lapack-netlib/SRC/dppsv.c index 956e7ac8f1..868129c6b9 100644 --- a/lapack-netlib/SRC/dppsv.c +++ b/lapack-netlib/SRC/dppsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dppsvx.c b/lapack-netlib/SRC/dppsvx.c index ccae54feb9..003d045501 100644 --- a/lapack-netlib/SRC/dppsvx.c +++ b/lapack-netlib/SRC/dppsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpptrf.c b/lapack-netlib/SRC/dpptrf.c index bd13ca2537..1831ac5500 100644 --- a/lapack-netlib/SRC/dpptrf.c +++ b/lapack-netlib/SRC/dpptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpptri.c b/lapack-netlib/SRC/dpptri.c index 4ec7a01848..bfa985e9ca 100644 --- a/lapack-netlib/SRC/dpptri.c +++ b/lapack-netlib/SRC/dpptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpptrs.c b/lapack-netlib/SRC/dpptrs.c index 8ae33bf90b..bd30486d14 100644 --- a/lapack-netlib/SRC/dpptrs.c +++ b/lapack-netlib/SRC/dpptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpstf2.c b/lapack-netlib/SRC/dpstf2.c index c08e9bc0a4..cdb99b60d1 100644 --- a/lapack-netlib/SRC/dpstf2.c +++ b/lapack-netlib/SRC/dpstf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpstrf.c b/lapack-netlib/SRC/dpstrf.c index f9449e3aa0..9ded4de619 100644 --- a/lapack-netlib/SRC/dpstrf.c +++ b/lapack-netlib/SRC/dpstrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dptcon.c b/lapack-netlib/SRC/dptcon.c index 256d8cb935..44d1df583f 100644 --- a/lapack-netlib/SRC/dptcon.c +++ b/lapack-netlib/SRC/dptcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpteqr.c b/lapack-netlib/SRC/dpteqr.c index eab9d1709a..f0523c71a4 100644 --- a/lapack-netlib/SRC/dpteqr.c +++ b/lapack-netlib/SRC/dpteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dptrfs.c b/lapack-netlib/SRC/dptrfs.c index 7dc933efc0..b0dd8aa147 100644 --- a/lapack-netlib/SRC/dptrfs.c +++ b/lapack-netlib/SRC/dptrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dptsv.c b/lapack-netlib/SRC/dptsv.c index eecf96359c..8ad9789796 100644 --- a/lapack-netlib/SRC/dptsv.c +++ b/lapack-netlib/SRC/dptsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dptsvx.c b/lapack-netlib/SRC/dptsvx.c index 48f980c3f1..c8b5fd7be4 100644 --- a/lapack-netlib/SRC/dptsvx.c +++ b/lapack-netlib/SRC/dptsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpttrf.c b/lapack-netlib/SRC/dpttrf.c index 609d614a51..aeb5d49efe 100644 --- a/lapack-netlib/SRC/dpttrf.c +++ b/lapack-netlib/SRC/dpttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dpttrs.c b/lapack-netlib/SRC/dpttrs.c index 42ac11416a..bd4639247b 100644 --- a/lapack-netlib/SRC/dpttrs.c +++ b/lapack-netlib/SRC/dpttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dptts2.c b/lapack-netlib/SRC/dptts2.c index d8bddfa2b3..fa3e42f0c3 100644 --- a/lapack-netlib/SRC/dptts2.c +++ b/lapack-netlib/SRC/dptts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/drscl.c b/lapack-netlib/SRC/drscl.c index 1dadc5ba32..95e57a5e82 100644 --- a/lapack-netlib/SRC/drscl.c +++ b/lapack-netlib/SRC/drscl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsb2st_kernels.c b/lapack-netlib/SRC/dsb2st_kernels.c index 061b6c43ed..73771968bf 100644 --- a/lapack-netlib/SRC/dsb2st_kernels.c +++ b/lapack-netlib/SRC/dsb2st_kernels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbev.c b/lapack-netlib/SRC/dsbev.c index 05399e6790..f4f049e89d 100644 --- a/lapack-netlib/SRC/dsbev.c +++ b/lapack-netlib/SRC/dsbev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbev_2stage.c b/lapack-netlib/SRC/dsbev_2stage.c index 494db1a2e0..da2db6c0d7 100644 --- a/lapack-netlib/SRC/dsbev_2stage.c +++ b/lapack-netlib/SRC/dsbev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbevd.c b/lapack-netlib/SRC/dsbevd.c index f36eedeced..fc5100bb5f 100644 --- a/lapack-netlib/SRC/dsbevd.c +++ b/lapack-netlib/SRC/dsbevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbevd_2stage.c b/lapack-netlib/SRC/dsbevd_2stage.c index c0df116060..d07532e683 100644 --- a/lapack-netlib/SRC/dsbevd_2stage.c +++ b/lapack-netlib/SRC/dsbevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbevx.c b/lapack-netlib/SRC/dsbevx.c index 8b77ce15ae..ba30f019d9 100644 --- a/lapack-netlib/SRC/dsbevx.c +++ b/lapack-netlib/SRC/dsbevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbevx_2stage.c b/lapack-netlib/SRC/dsbevx_2stage.c index f2b17b9082..2e0eeddfb2 100644 --- a/lapack-netlib/SRC/dsbevx_2stage.c +++ b/lapack-netlib/SRC/dsbevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbgst.c b/lapack-netlib/SRC/dsbgst.c index 3ab4e97056..52fb1e59b7 100644 --- a/lapack-netlib/SRC/dsbgst.c +++ b/lapack-netlib/SRC/dsbgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbgv.c b/lapack-netlib/SRC/dsbgv.c index 9a6abb11b9..b5402ff17f 100644 --- a/lapack-netlib/SRC/dsbgv.c +++ b/lapack-netlib/SRC/dsbgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbgvd.c b/lapack-netlib/SRC/dsbgvd.c index ebfe897129..ffd353f678 100644 --- a/lapack-netlib/SRC/dsbgvd.c +++ b/lapack-netlib/SRC/dsbgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbgvx.c b/lapack-netlib/SRC/dsbgvx.c index 7b55235dcc..840f924814 100644 --- a/lapack-netlib/SRC/dsbgvx.c +++ b/lapack-netlib/SRC/dsbgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsbtrd.c b/lapack-netlib/SRC/dsbtrd.c index 89101e3eba..64240aee1a 100644 --- a/lapack-netlib/SRC/dsbtrd.c +++ b/lapack-netlib/SRC/dsbtrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsfrk.c b/lapack-netlib/SRC/dsfrk.c index d9c21b64d7..95968300ee 100644 --- a/lapack-netlib/SRC/dsfrk.c +++ b/lapack-netlib/SRC/dsfrk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsgesv.c b/lapack-netlib/SRC/dsgesv.c index c170f3d072..845b1146e3 100644 --- a/lapack-netlib/SRC/dsgesv.c +++ b/lapack-netlib/SRC/dsgesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspcon.c b/lapack-netlib/SRC/dspcon.c index 9a0588c800..bbb759b34c 100644 --- a/lapack-netlib/SRC/dspcon.c +++ b/lapack-netlib/SRC/dspcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspev.c b/lapack-netlib/SRC/dspev.c index 7d65a7af42..cd1c60dcd7 100644 --- a/lapack-netlib/SRC/dspev.c +++ b/lapack-netlib/SRC/dspev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspevd.c b/lapack-netlib/SRC/dspevd.c index ebc45ce5f6..13657349a0 100644 --- a/lapack-netlib/SRC/dspevd.c +++ b/lapack-netlib/SRC/dspevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspevx.c b/lapack-netlib/SRC/dspevx.c index 536e5ac92d..239063cc17 100644 --- a/lapack-netlib/SRC/dspevx.c +++ b/lapack-netlib/SRC/dspevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspgst.c b/lapack-netlib/SRC/dspgst.c index 74f3e57748..02f69e6335 100644 --- a/lapack-netlib/SRC/dspgst.c +++ b/lapack-netlib/SRC/dspgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspgv.c b/lapack-netlib/SRC/dspgv.c index 1f9e29d3fc..97a57fd7c6 100644 --- a/lapack-netlib/SRC/dspgv.c +++ b/lapack-netlib/SRC/dspgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspgvd.c b/lapack-netlib/SRC/dspgvd.c index b80830a7b4..bfa2857731 100644 --- a/lapack-netlib/SRC/dspgvd.c +++ b/lapack-netlib/SRC/dspgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspgvx.c b/lapack-netlib/SRC/dspgvx.c index 4d978aca40..5a05958e51 100644 --- a/lapack-netlib/SRC/dspgvx.c +++ b/lapack-netlib/SRC/dspgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsposv.c b/lapack-netlib/SRC/dsposv.c index 5ce5794dea..5aea81ad32 100644 --- a/lapack-netlib/SRC/dsposv.c +++ b/lapack-netlib/SRC/dsposv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsprfs.c b/lapack-netlib/SRC/dsprfs.c index bd16e71f38..f27ec1e6b2 100644 --- a/lapack-netlib/SRC/dsprfs.c +++ b/lapack-netlib/SRC/dsprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspsv.c b/lapack-netlib/SRC/dspsv.c index f15ef292f3..9cc6aef5bb 100644 --- a/lapack-netlib/SRC/dspsv.c +++ b/lapack-netlib/SRC/dspsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dspsvx.c b/lapack-netlib/SRC/dspsvx.c index 7ef98db65f..eea5ba5610 100644 --- a/lapack-netlib/SRC/dspsvx.c +++ b/lapack-netlib/SRC/dspsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsptrd.c b/lapack-netlib/SRC/dsptrd.c index 9e0821bbe0..c24916bbbe 100644 --- a/lapack-netlib/SRC/dsptrd.c +++ b/lapack-netlib/SRC/dsptrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsptrf.c b/lapack-netlib/SRC/dsptrf.c index 61b6c7491f..bd168e4a17 100644 --- a/lapack-netlib/SRC/dsptrf.c +++ b/lapack-netlib/SRC/dsptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsptri.c b/lapack-netlib/SRC/dsptri.c index eef8a578ce..6aad739f95 100644 --- a/lapack-netlib/SRC/dsptri.c +++ b/lapack-netlib/SRC/dsptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsptrs.c b/lapack-netlib/SRC/dsptrs.c index 759e14f705..8f89aca31e 100644 --- a/lapack-netlib/SRC/dsptrs.c +++ b/lapack-netlib/SRC/dsptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstebz.c b/lapack-netlib/SRC/dstebz.c index 973b1faf60..4d0e44724b 100644 --- a/lapack-netlib/SRC/dstebz.c +++ b/lapack-netlib/SRC/dstebz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstedc.c b/lapack-netlib/SRC/dstedc.c index 56511d6cf3..9f0e67c375 100644 --- a/lapack-netlib/SRC/dstedc.c +++ b/lapack-netlib/SRC/dstedc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstegr.c b/lapack-netlib/SRC/dstegr.c index 592c8b5971..d4b6998b27 100644 --- a/lapack-netlib/SRC/dstegr.c +++ b/lapack-netlib/SRC/dstegr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstein.c b/lapack-netlib/SRC/dstein.c index 22798e355a..1bc47ce87d 100644 --- a/lapack-netlib/SRC/dstein.c +++ b/lapack-netlib/SRC/dstein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstemr.c b/lapack-netlib/SRC/dstemr.c index fdafc23fe9..7d8bf30471 100644 --- a/lapack-netlib/SRC/dstemr.c +++ b/lapack-netlib/SRC/dstemr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsteqr.c b/lapack-netlib/SRC/dsteqr.c index 95c0524cc1..8557d26ef9 100644 --- a/lapack-netlib/SRC/dsteqr.c +++ b/lapack-netlib/SRC/dsteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsterf.c b/lapack-netlib/SRC/dsterf.c index 168d3c940d..05ded8ff86 100644 --- a/lapack-netlib/SRC/dsterf.c +++ b/lapack-netlib/SRC/dsterf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstev.c b/lapack-netlib/SRC/dstev.c index e1dfae0268..6f4eaf790a 100644 --- a/lapack-netlib/SRC/dstev.c +++ b/lapack-netlib/SRC/dstev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstevd.c b/lapack-netlib/SRC/dstevd.c index efd4540a49..9955e43d7d 100644 --- a/lapack-netlib/SRC/dstevd.c +++ b/lapack-netlib/SRC/dstevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstevr.c b/lapack-netlib/SRC/dstevr.c index 5e1eacdd26..c74733993c 100644 --- a/lapack-netlib/SRC/dstevr.c +++ b/lapack-netlib/SRC/dstevr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dstevx.c b/lapack-netlib/SRC/dstevx.c index 413be6220c..0462f2ae82 100644 --- a/lapack-netlib/SRC/dstevx.c +++ b/lapack-netlib/SRC/dstevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsycon.c b/lapack-netlib/SRC/dsycon.c index c9554631e1..c4928bff0d 100644 --- a/lapack-netlib/SRC/dsycon.c +++ b/lapack-netlib/SRC/dsycon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsycon_3.c b/lapack-netlib/SRC/dsycon_3.c index 4aff37b54a..76e5e49889 100644 --- a/lapack-netlib/SRC/dsycon_3.c +++ b/lapack-netlib/SRC/dsycon_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsycon_rook.c b/lapack-netlib/SRC/dsycon_rook.c index 5d7da8bdc7..6ff58c3838 100644 --- a/lapack-netlib/SRC/dsycon_rook.c +++ b/lapack-netlib/SRC/dsycon_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyconv.c b/lapack-netlib/SRC/dsyconv.c index 38a830639d..02d481e059 100644 --- a/lapack-netlib/SRC/dsyconv.c +++ b/lapack-netlib/SRC/dsyconv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyconvf.c b/lapack-netlib/SRC/dsyconvf.c index d3a5898708..16980b286d 100644 --- a/lapack-netlib/SRC/dsyconvf.c +++ b/lapack-netlib/SRC/dsyconvf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyconvf_rook.c b/lapack-netlib/SRC/dsyconvf_rook.c index 5c546aeb3d..3fa1fb25e4 100644 --- a/lapack-netlib/SRC/dsyconvf_rook.c +++ b/lapack-netlib/SRC/dsyconvf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyequb.c b/lapack-netlib/SRC/dsyequb.c index a9d8d00cc2..8f93141b9c 100644 --- a/lapack-netlib/SRC/dsyequb.c +++ b/lapack-netlib/SRC/dsyequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyev.c b/lapack-netlib/SRC/dsyev.c index 3c0a8c2423..6b4094b92e 100644 --- a/lapack-netlib/SRC/dsyev.c +++ b/lapack-netlib/SRC/dsyev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyev_2stage.c b/lapack-netlib/SRC/dsyev_2stage.c index a9fc841c9d..6bc87723fe 100644 --- a/lapack-netlib/SRC/dsyev_2stage.c +++ b/lapack-netlib/SRC/dsyev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyevd.c b/lapack-netlib/SRC/dsyevd.c index 7e1810f1d9..36fc714049 100644 --- a/lapack-netlib/SRC/dsyevd.c +++ b/lapack-netlib/SRC/dsyevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyevd_2stage.c b/lapack-netlib/SRC/dsyevd_2stage.c index ba5cdb7fc9..7becc853c3 100644 --- a/lapack-netlib/SRC/dsyevd_2stage.c +++ b/lapack-netlib/SRC/dsyevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyevr.c b/lapack-netlib/SRC/dsyevr.c index a15b9d195e..0ee2aa1488 100644 --- a/lapack-netlib/SRC/dsyevr.c +++ b/lapack-netlib/SRC/dsyevr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyevr_2stage.c b/lapack-netlib/SRC/dsyevr_2stage.c index 51e0ad3c77..c899d6a83d 100644 --- a/lapack-netlib/SRC/dsyevr_2stage.c +++ b/lapack-netlib/SRC/dsyevr_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyevx.c b/lapack-netlib/SRC/dsyevx.c index 0ef0796464..1095316ce8 100644 --- a/lapack-netlib/SRC/dsyevx.c +++ b/lapack-netlib/SRC/dsyevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyevx_2stage.c b/lapack-netlib/SRC/dsyevx_2stage.c index bf58bc6ca5..a852a0edd6 100644 --- a/lapack-netlib/SRC/dsyevx_2stage.c +++ b/lapack-netlib/SRC/dsyevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsygs2.c b/lapack-netlib/SRC/dsygs2.c index 4d7c07bc89..58e8f70862 100644 --- a/lapack-netlib/SRC/dsygs2.c +++ b/lapack-netlib/SRC/dsygs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsygst.c b/lapack-netlib/SRC/dsygst.c index 49bb202cf4..93bbbd977a 100644 --- a/lapack-netlib/SRC/dsygst.c +++ b/lapack-netlib/SRC/dsygst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsygv.c b/lapack-netlib/SRC/dsygv.c index 22de5e4757..bee2de5f91 100644 --- a/lapack-netlib/SRC/dsygv.c +++ b/lapack-netlib/SRC/dsygv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsygv_2stage.c b/lapack-netlib/SRC/dsygv_2stage.c index 341534833f..f2b988725c 100644 --- a/lapack-netlib/SRC/dsygv_2stage.c +++ b/lapack-netlib/SRC/dsygv_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsygvd.c b/lapack-netlib/SRC/dsygvd.c index d839ccb683..fad8b50a1a 100644 --- a/lapack-netlib/SRC/dsygvd.c +++ b/lapack-netlib/SRC/dsygvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsygvx.c b/lapack-netlib/SRC/dsygvx.c index fdb5ee8a54..5ab261e284 100644 --- a/lapack-netlib/SRC/dsygvx.c +++ b/lapack-netlib/SRC/dsygvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyrfs.c b/lapack-netlib/SRC/dsyrfs.c index af90ab7226..7d409c5118 100644 --- a/lapack-netlib/SRC/dsyrfs.c +++ b/lapack-netlib/SRC/dsyrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyrfsx.c b/lapack-netlib/SRC/dsyrfsx.c index d24dfc537d..f52b207420 100644 --- a/lapack-netlib/SRC/dsyrfsx.c +++ b/lapack-netlib/SRC/dsyrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsysv.c b/lapack-netlib/SRC/dsysv.c index aea218b670..d0d891e379 100644 --- a/lapack-netlib/SRC/dsysv.c +++ b/lapack-netlib/SRC/dsysv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsysv_aa.c b/lapack-netlib/SRC/dsysv_aa.c index 64e89c82bf..b32d774cec 100644 --- a/lapack-netlib/SRC/dsysv_aa.c +++ b/lapack-netlib/SRC/dsysv_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsysv_aa_2stage.c b/lapack-netlib/SRC/dsysv_aa_2stage.c index 2b5177832d..0085e82eb8 100644 --- a/lapack-netlib/SRC/dsysv_aa_2stage.c +++ b/lapack-netlib/SRC/dsysv_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsysv_rk.c b/lapack-netlib/SRC/dsysv_rk.c index ff765dafcb..b3be3b0b62 100644 --- a/lapack-netlib/SRC/dsysv_rk.c +++ b/lapack-netlib/SRC/dsysv_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsysv_rook.c b/lapack-netlib/SRC/dsysv_rook.c index c63bc088b3..1e97205a35 100644 --- a/lapack-netlib/SRC/dsysv_rook.c +++ b/lapack-netlib/SRC/dsysv_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsysvx.c b/lapack-netlib/SRC/dsysvx.c index 0f91ca5885..ad3cd9b182 100644 --- a/lapack-netlib/SRC/dsysvx.c +++ b/lapack-netlib/SRC/dsysvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsysvxx.c b/lapack-netlib/SRC/dsysvxx.c index 01fc0e7d4d..bc0736749e 100644 --- a/lapack-netlib/SRC/dsysvxx.c +++ b/lapack-netlib/SRC/dsysvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsyswapr.c b/lapack-netlib/SRC/dsyswapr.c index 55c158c977..d3c95f31e3 100644 --- a/lapack-netlib/SRC/dsyswapr.c +++ b/lapack-netlib/SRC/dsyswapr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytd2.c b/lapack-netlib/SRC/dsytd2.c index a717bfd7e3..fd20732e9b 100644 --- a/lapack-netlib/SRC/dsytd2.c +++ b/lapack-netlib/SRC/dsytd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytf2.c b/lapack-netlib/SRC/dsytf2.c index e30a6d498e..46f3ae3fab 100644 --- a/lapack-netlib/SRC/dsytf2.c +++ b/lapack-netlib/SRC/dsytf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytf2_rk.c b/lapack-netlib/SRC/dsytf2_rk.c index adfbdca98d..b958848d25 100644 --- a/lapack-netlib/SRC/dsytf2_rk.c +++ b/lapack-netlib/SRC/dsytf2_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytf2_rook.c b/lapack-netlib/SRC/dsytf2_rook.c index a549180ef1..6ac9ac2992 100644 --- a/lapack-netlib/SRC/dsytf2_rook.c +++ b/lapack-netlib/SRC/dsytf2_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrd.c b/lapack-netlib/SRC/dsytrd.c index a4eca3bbb9..03113cae5e 100644 --- a/lapack-netlib/SRC/dsytrd.c +++ b/lapack-netlib/SRC/dsytrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrd_2stage.c b/lapack-netlib/SRC/dsytrd_2stage.c index eaa12cf6ae..62c4f9eca3 100644 --- a/lapack-netlib/SRC/dsytrd_2stage.c +++ b/lapack-netlib/SRC/dsytrd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrd_sb2st.c b/lapack-netlib/SRC/dsytrd_sb2st.c index 37f1bb4f97..b4fff0629f 100644 --- a/lapack-netlib/SRC/dsytrd_sb2st.c +++ b/lapack-netlib/SRC/dsytrd_sb2st.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrd_sy2sb.c b/lapack-netlib/SRC/dsytrd_sy2sb.c index f272d47528..559436d639 100644 --- a/lapack-netlib/SRC/dsytrd_sy2sb.c +++ b/lapack-netlib/SRC/dsytrd_sy2sb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrf.c b/lapack-netlib/SRC/dsytrf.c index 250095d91d..31c8ed4301 100644 --- a/lapack-netlib/SRC/dsytrf.c +++ b/lapack-netlib/SRC/dsytrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrf_aa.c b/lapack-netlib/SRC/dsytrf_aa.c index eafab6749b..5a36bf2ee1 100644 --- a/lapack-netlib/SRC/dsytrf_aa.c +++ b/lapack-netlib/SRC/dsytrf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrf_aa_2stage.c b/lapack-netlib/SRC/dsytrf_aa_2stage.c index e66d6b2f3b..ddbb8e18f6 100644 --- a/lapack-netlib/SRC/dsytrf_aa_2stage.c +++ b/lapack-netlib/SRC/dsytrf_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrf_rk.c b/lapack-netlib/SRC/dsytrf_rk.c index ac483dd72a..ee2413f487 100644 --- a/lapack-netlib/SRC/dsytrf_rk.c +++ b/lapack-netlib/SRC/dsytrf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrf_rook.c b/lapack-netlib/SRC/dsytrf_rook.c index ab01cd076b..95e9a8a813 100644 --- a/lapack-netlib/SRC/dsytrf_rook.c +++ b/lapack-netlib/SRC/dsytrf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytri.c b/lapack-netlib/SRC/dsytri.c index e5c6a1c004..f9c93fd841 100644 --- a/lapack-netlib/SRC/dsytri.c +++ b/lapack-netlib/SRC/dsytri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytri2.c b/lapack-netlib/SRC/dsytri2.c index 2a05e8ea2a..25c3eb23d2 100644 --- a/lapack-netlib/SRC/dsytri2.c +++ b/lapack-netlib/SRC/dsytri2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytri2x.c b/lapack-netlib/SRC/dsytri2x.c index 11e3ffc475..08cbb325ba 100644 --- a/lapack-netlib/SRC/dsytri2x.c +++ b/lapack-netlib/SRC/dsytri2x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytri_3.c b/lapack-netlib/SRC/dsytri_3.c index 716a91169e..4086d34f17 100644 --- a/lapack-netlib/SRC/dsytri_3.c +++ b/lapack-netlib/SRC/dsytri_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytri_3x.c b/lapack-netlib/SRC/dsytri_3x.c index 669af1c68f..419a0f11e8 100644 --- a/lapack-netlib/SRC/dsytri_3x.c +++ b/lapack-netlib/SRC/dsytri_3x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytri_rook.c b/lapack-netlib/SRC/dsytri_rook.c index df6cce4151..d515757cbe 100644 --- a/lapack-netlib/SRC/dsytri_rook.c +++ b/lapack-netlib/SRC/dsytri_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrs.c b/lapack-netlib/SRC/dsytrs.c index 922f4c593e..c75903e1d9 100644 --- a/lapack-netlib/SRC/dsytrs.c +++ b/lapack-netlib/SRC/dsytrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrs2.c b/lapack-netlib/SRC/dsytrs2.c index a9c03d96dc..36e5f82f45 100644 --- a/lapack-netlib/SRC/dsytrs2.c +++ b/lapack-netlib/SRC/dsytrs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrs_3.c b/lapack-netlib/SRC/dsytrs_3.c index dd8198422f..350c0bae62 100644 --- a/lapack-netlib/SRC/dsytrs_3.c +++ b/lapack-netlib/SRC/dsytrs_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrs_aa.c b/lapack-netlib/SRC/dsytrs_aa.c index ece9814336..a0a96ecb00 100644 --- a/lapack-netlib/SRC/dsytrs_aa.c +++ b/lapack-netlib/SRC/dsytrs_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrs_aa_2stage.c b/lapack-netlib/SRC/dsytrs_aa_2stage.c index 5a98a3c60d..0e680dd1be 100644 --- a/lapack-netlib/SRC/dsytrs_aa_2stage.c +++ b/lapack-netlib/SRC/dsytrs_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dsytrs_rook.c b/lapack-netlib/SRC/dsytrs_rook.c index 87eae958f6..75776ed441 100644 --- a/lapack-netlib/SRC/dsytrs_rook.c +++ b/lapack-netlib/SRC/dsytrs_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtbcon.c b/lapack-netlib/SRC/dtbcon.c index 279e546ed8..01b99060d4 100644 --- a/lapack-netlib/SRC/dtbcon.c +++ b/lapack-netlib/SRC/dtbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtbrfs.c b/lapack-netlib/SRC/dtbrfs.c index 3817e092d4..cb8d2542c3 100644 --- a/lapack-netlib/SRC/dtbrfs.c +++ b/lapack-netlib/SRC/dtbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtbtrs.c b/lapack-netlib/SRC/dtbtrs.c index 9a36a3b57a..e6b372a5cf 100644 --- a/lapack-netlib/SRC/dtbtrs.c +++ b/lapack-netlib/SRC/dtbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtfsm.c b/lapack-netlib/SRC/dtfsm.c index 068c9afcab..f5d78574ef 100644 --- a/lapack-netlib/SRC/dtfsm.c +++ b/lapack-netlib/SRC/dtfsm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtftri.c b/lapack-netlib/SRC/dtftri.c index 64f4989785..300978d89c 100644 --- a/lapack-netlib/SRC/dtftri.c +++ b/lapack-netlib/SRC/dtftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtfttp.c b/lapack-netlib/SRC/dtfttp.c index 68f32ab0b6..73bd62cf90 100644 --- a/lapack-netlib/SRC/dtfttp.c +++ b/lapack-netlib/SRC/dtfttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtfttr.c b/lapack-netlib/SRC/dtfttr.c index 6d169bb234..84436e22db 100644 --- a/lapack-netlib/SRC/dtfttr.c +++ b/lapack-netlib/SRC/dtfttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgevc.c b/lapack-netlib/SRC/dtgevc.c index 3f093a4e6c..429777a11f 100644 --- a/lapack-netlib/SRC/dtgevc.c +++ b/lapack-netlib/SRC/dtgevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgex2.c b/lapack-netlib/SRC/dtgex2.c index c8b1361031..357cbac266 100644 --- a/lapack-netlib/SRC/dtgex2.c +++ b/lapack-netlib/SRC/dtgex2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgexc.c b/lapack-netlib/SRC/dtgexc.c index caa0acfc5c..0bd40b3b22 100644 --- a/lapack-netlib/SRC/dtgexc.c +++ b/lapack-netlib/SRC/dtgexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgsen.c b/lapack-netlib/SRC/dtgsen.c index b65a290f69..c38eed939d 100644 --- a/lapack-netlib/SRC/dtgsen.c +++ b/lapack-netlib/SRC/dtgsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgsja.c b/lapack-netlib/SRC/dtgsja.c index 4902e29f88..56870ca72f 100644 --- a/lapack-netlib/SRC/dtgsja.c +++ b/lapack-netlib/SRC/dtgsja.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgsna.c b/lapack-netlib/SRC/dtgsna.c index 1470f1f666..8352894ace 100644 --- a/lapack-netlib/SRC/dtgsna.c +++ b/lapack-netlib/SRC/dtgsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgsy2.c b/lapack-netlib/SRC/dtgsy2.c index 040e9d1bb5..334f712e2d 100644 --- a/lapack-netlib/SRC/dtgsy2.c +++ b/lapack-netlib/SRC/dtgsy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtgsyl.c b/lapack-netlib/SRC/dtgsyl.c index 0b5ce9f765..531a217ed2 100644 --- a/lapack-netlib/SRC/dtgsyl.c +++ b/lapack-netlib/SRC/dtgsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtpcon.c b/lapack-netlib/SRC/dtpcon.c index 3032ece514..c5db2dc1a2 100644 --- a/lapack-netlib/SRC/dtpcon.c +++ b/lapack-netlib/SRC/dtpcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtplqt.c b/lapack-netlib/SRC/dtplqt.c index 5b5e0de6aa..fe665cfc13 100644 --- a/lapack-netlib/SRC/dtplqt.c +++ b/lapack-netlib/SRC/dtplqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtplqt2.c b/lapack-netlib/SRC/dtplqt2.c index 52b7bc45fc..f4e7a0434f 100644 --- a/lapack-netlib/SRC/dtplqt2.c +++ b/lapack-netlib/SRC/dtplqt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtpmlqt.c b/lapack-netlib/SRC/dtpmlqt.c index dfa0dad79a..98f94a2fcd 100644 --- a/lapack-netlib/SRC/dtpmlqt.c +++ b/lapack-netlib/SRC/dtpmlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtpmqrt.c b/lapack-netlib/SRC/dtpmqrt.c index 1f3a511ae6..951ccb219f 100644 --- a/lapack-netlib/SRC/dtpmqrt.c +++ b/lapack-netlib/SRC/dtpmqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtpqrt.c b/lapack-netlib/SRC/dtpqrt.c index ab4ea2367e..16a2c89185 100644 --- a/lapack-netlib/SRC/dtpqrt.c +++ b/lapack-netlib/SRC/dtpqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtpqrt2.c b/lapack-netlib/SRC/dtpqrt2.c index dbe0488d4e..e5aa2f3eaf 100644 --- a/lapack-netlib/SRC/dtpqrt2.c +++ b/lapack-netlib/SRC/dtpqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtprfb.c b/lapack-netlib/SRC/dtprfb.c index e28313a273..28989da758 100644 --- a/lapack-netlib/SRC/dtprfb.c +++ b/lapack-netlib/SRC/dtprfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtprfs.c b/lapack-netlib/SRC/dtprfs.c index 1cf9487295..a5333235dd 100644 --- a/lapack-netlib/SRC/dtprfs.c +++ b/lapack-netlib/SRC/dtprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtptri.c b/lapack-netlib/SRC/dtptri.c index 272a3addde..bb4432f637 100644 --- a/lapack-netlib/SRC/dtptri.c +++ b/lapack-netlib/SRC/dtptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtptrs.c b/lapack-netlib/SRC/dtptrs.c index 06c0eee9dd..134be8c62f 100644 --- a/lapack-netlib/SRC/dtptrs.c +++ b/lapack-netlib/SRC/dtptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtpttf.c b/lapack-netlib/SRC/dtpttf.c index d7d46c4040..d7e15ceefd 100644 --- a/lapack-netlib/SRC/dtpttf.c +++ b/lapack-netlib/SRC/dtpttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtpttr.c b/lapack-netlib/SRC/dtpttr.c index 5c9abeee27..2b6a26d03d 100644 --- a/lapack-netlib/SRC/dtpttr.c +++ b/lapack-netlib/SRC/dtpttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrcon.c b/lapack-netlib/SRC/dtrcon.c index 95742345a6..31512ae280 100644 --- a/lapack-netlib/SRC/dtrcon.c +++ b/lapack-netlib/SRC/dtrcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrevc.c b/lapack-netlib/SRC/dtrevc.c index 7a99853931..efe76e45c6 100644 --- a/lapack-netlib/SRC/dtrevc.c +++ b/lapack-netlib/SRC/dtrevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrevc3.c b/lapack-netlib/SRC/dtrevc3.c index 8b29732e95..1624615904 100644 --- a/lapack-netlib/SRC/dtrevc3.c +++ b/lapack-netlib/SRC/dtrevc3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrexc.c b/lapack-netlib/SRC/dtrexc.c index 8077d94688..0b55fdf577 100644 --- a/lapack-netlib/SRC/dtrexc.c +++ b/lapack-netlib/SRC/dtrexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrrfs.c b/lapack-netlib/SRC/dtrrfs.c index 92d693e920..9a0562fd02 100644 --- a/lapack-netlib/SRC/dtrrfs.c +++ b/lapack-netlib/SRC/dtrrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrsen.c b/lapack-netlib/SRC/dtrsen.c index 41bf17be48..cc96b09204 100644 --- a/lapack-netlib/SRC/dtrsen.c +++ b/lapack-netlib/SRC/dtrsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrsna.c b/lapack-netlib/SRC/dtrsna.c index 6be0eb8e45..dc27cfef48 100644 --- a/lapack-netlib/SRC/dtrsna.c +++ b/lapack-netlib/SRC/dtrsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrsyl.c b/lapack-netlib/SRC/dtrsyl.c index d8a4b98760..399636871c 100644 --- a/lapack-netlib/SRC/dtrsyl.c +++ b/lapack-netlib/SRC/dtrsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrsyl3.c b/lapack-netlib/SRC/dtrsyl3.c index 9cfbe3dabe..0d5905ae1e 100644 --- a/lapack-netlib/SRC/dtrsyl3.c +++ b/lapack-netlib/SRC/dtrsyl3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -729,7 +729,7 @@ static doublereal c_b32 = 1.; integer *, integer *); doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); doublereal bignum; @@ -814,7 +814,7 @@ static doublereal c_b32 = 1.; } if (*info != 0) { i__1 = -(*info); - xerbla_("DTRSYL3", &i__1); + xerbla_("DTRSYL3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/dtrti2.c b/lapack-netlib/SRC/dtrti2.c index 0f756a6220..ad50191a5a 100644 --- a/lapack-netlib/SRC/dtrti2.c +++ b/lapack-netlib/SRC/dtrti2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrtri.c b/lapack-netlib/SRC/dtrtri.c index e7b353fde2..ee27d45ed3 100644 --- a/lapack-netlib/SRC/dtrtri.c +++ b/lapack-netlib/SRC/dtrtri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrtrs.c b/lapack-netlib/SRC/dtrtrs.c index 41e67499bb..8ceebe41b5 100644 --- a/lapack-netlib/SRC/dtrtrs.c +++ b/lapack-netlib/SRC/dtrtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrttf.c b/lapack-netlib/SRC/dtrttf.c index 79348e9b78..9e3b6232f9 100644 --- a/lapack-netlib/SRC/dtrttf.c +++ b/lapack-netlib/SRC/dtrttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtrttp.c b/lapack-netlib/SRC/dtrttp.c index 6f88cb4f81..4271b3ad7f 100644 --- a/lapack-netlib/SRC/dtrttp.c +++ b/lapack-netlib/SRC/dtrttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dtzrzf.c b/lapack-netlib/SRC/dtzrzf.c index c6f5e625c7..6276ccd5bd 100644 --- a/lapack-netlib/SRC/dtzrzf.c +++ b/lapack-netlib/SRC/dtzrzf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/dzsum1.c b/lapack-netlib/SRC/dzsum1.c index e3c0e9893d..d7177ffe31 100644 --- a/lapack-netlib/SRC/dzsum1.c +++ b/lapack-netlib/SRC/dzsum1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/icmax1.c b/lapack-netlib/SRC/icmax1.c index 3a2510453e..83c13ef095 100644 --- a/lapack-netlib/SRC/icmax1.c +++ b/lapack-netlib/SRC/icmax1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ieeeck.c b/lapack-netlib/SRC/ieeeck.c index 0516fc3775..606d73bbf5 100644 --- a/lapack-netlib/SRC/ieeeck.c +++ b/lapack-netlib/SRC/ieeeck.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilaclc.c b/lapack-netlib/SRC/ilaclc.c index 616c3d1e4d..2a9b798350 100644 --- a/lapack-netlib/SRC/ilaclc.c +++ b/lapack-netlib/SRC/ilaclc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilaclr.c b/lapack-netlib/SRC/ilaclr.c index 7cddc2b86d..3cd754ef42 100644 --- a/lapack-netlib/SRC/ilaclr.c +++ b/lapack-netlib/SRC/ilaclr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/iladiag.c b/lapack-netlib/SRC/iladiag.c index fa99e64238..86d63738c4 100644 --- a/lapack-netlib/SRC/iladiag.c +++ b/lapack-netlib/SRC/iladiag.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/iladlc.c b/lapack-netlib/SRC/iladlc.c index d2c5451a0f..286599a3b3 100644 --- a/lapack-netlib/SRC/iladlc.c +++ b/lapack-netlib/SRC/iladlc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/iladlr.c b/lapack-netlib/SRC/iladlr.c index ff871596cb..b11f0cd122 100644 --- a/lapack-netlib/SRC/iladlr.c +++ b/lapack-netlib/SRC/iladlr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilaenv.c b/lapack-netlib/SRC/ilaenv.c index c47224a0ce..bc7a23b6fd 100644 --- a/lapack-netlib/SRC/ilaenv.c +++ b/lapack-netlib/SRC/ilaenv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilaenv2stage.c b/lapack-netlib/SRC/ilaenv2stage.c index 9730bdc482..c85612c810 100644 --- a/lapack-netlib/SRC/ilaenv2stage.c +++ b/lapack-netlib/SRC/ilaenv2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilaprec.c b/lapack-netlib/SRC/ilaprec.c index 07a1b58731..ba03c31900 100644 --- a/lapack-netlib/SRC/ilaprec.c +++ b/lapack-netlib/SRC/ilaprec.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilaslc.c b/lapack-netlib/SRC/ilaslc.c index cdce95c3af..b30413f45f 100644 --- a/lapack-netlib/SRC/ilaslc.c +++ b/lapack-netlib/SRC/ilaslc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilaslr.c b/lapack-netlib/SRC/ilaslr.c index 285d971a5f..6685b0dc3f 100644 --- a/lapack-netlib/SRC/ilaslr.c +++ b/lapack-netlib/SRC/ilaslr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilatrans.c b/lapack-netlib/SRC/ilatrans.c index c75bb7c488..959e7d6031 100644 --- a/lapack-netlib/SRC/ilatrans.c +++ b/lapack-netlib/SRC/ilatrans.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilauplo.c b/lapack-netlib/SRC/ilauplo.c index 71d1c5cbaf..7e9083e0ee 100644 --- a/lapack-netlib/SRC/ilauplo.c +++ b/lapack-netlib/SRC/ilauplo.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilazlc.c b/lapack-netlib/SRC/ilazlc.c index 4af641d40c..1a3304cf12 100644 --- a/lapack-netlib/SRC/ilazlc.c +++ b/lapack-netlib/SRC/ilazlc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ilazlr.c b/lapack-netlib/SRC/ilazlr.c index 93b80c7c3b..298d659297 100644 --- a/lapack-netlib/SRC/ilazlr.c +++ b/lapack-netlib/SRC/ilazlr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/iparam2stage.c b/lapack-netlib/SRC/iparam2stage.c index 7ba938dcd7..6d8bc72171 100644 --- a/lapack-netlib/SRC/iparam2stage.c +++ b/lapack-netlib/SRC/iparam2stage.c @@ -53,7 +53,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/iparmq.c b/lapack-netlib/SRC/iparmq.c index eb9d12112c..8938274150 100644 --- a/lapack-netlib/SRC/iparmq.c +++ b/lapack-netlib/SRC/iparmq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/izmax1.c b/lapack-netlib/SRC/izmax1.c index 1176d0208e..7165f6efe2 100644 --- a/lapack-netlib/SRC/izmax1.c +++ b/lapack-netlib/SRC/izmax1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/la_constants.c b/lapack-netlib/SRC/la_constants.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/la_constants.c +++ b/lapack-netlib/SRC/la_constants.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/la_xisnan.c b/lapack-netlib/SRC/la_xisnan.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/la_xisnan.c +++ b/lapack-netlib/SRC/la_xisnan.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/lsamen.c b/lapack-netlib/SRC/lsamen.c index 18bad69cf8..eda29a7427 100644 --- a/lapack-netlib/SRC/lsamen.c +++ b/lapack-netlib/SRC/lsamen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -605,8 +605,12 @@ logical lsamen_(integer *n, char *ca, char *cb) /* ===================================================================== */ ret_val = FALSE_; - if (i_len(ca, ca_len) < *n || i_len(cb, cb_len) < *n) { - goto L20; + + ca_len = (integer)strlen(ca); + cb_len = (integer)strlen(cb); + + if (ca_len < *n || cb_len < *n) { + goto L20; } /* Do for each character in the two strings. */ diff --git a/lapack-netlib/SRC/sbbcsd.c b/lapack-netlib/SRC/sbbcsd.c index 017bcb0db4..4abcf13138 100644 --- a/lapack-netlib/SRC/sbbcsd.c +++ b/lapack-netlib/SRC/sbbcsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sbdsdc.c b/lapack-netlib/SRC/sbdsdc.c index 833bfb321f..65e3ee656d 100644 --- a/lapack-netlib/SRC/sbdsdc.c +++ b/lapack-netlib/SRC/sbdsdc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sbdsqr.c b/lapack-netlib/SRC/sbdsqr.c index 495b33a4d1..9a7c343dfc 100644 --- a/lapack-netlib/SRC/sbdsqr.c +++ b/lapack-netlib/SRC/sbdsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sbdsvdx.c b/lapack-netlib/SRC/sbdsvdx.c index 8c1e07a329..3476a0393a 100644 --- a/lapack-netlib/SRC/sbdsvdx.c +++ b/lapack-netlib/SRC/sbdsvdx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/scombssq.c b/lapack-netlib/SRC/scombssq.c index 964dbe88ef..91aecc2084 100644 --- a/lapack-netlib/SRC/scombssq.c +++ b/lapack-netlib/SRC/scombssq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/scsum1.c b/lapack-netlib/SRC/scsum1.c index a12e8cc8a2..1ee2e62709 100644 --- a/lapack-netlib/SRC/scsum1.c +++ b/lapack-netlib/SRC/scsum1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sdisna.c b/lapack-netlib/SRC/sdisna.c index 2bcd47cc11..29e2849f14 100644 --- a/lapack-netlib/SRC/sdisna.c +++ b/lapack-netlib/SRC/sdisna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbbrd.c b/lapack-netlib/SRC/sgbbrd.c index aed2baa41e..988659f2c8 100644 --- a/lapack-netlib/SRC/sgbbrd.c +++ b/lapack-netlib/SRC/sgbbrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbcon.c b/lapack-netlib/SRC/sgbcon.c index bb0a508db2..d3528ff5ee 100644 --- a/lapack-netlib/SRC/sgbcon.c +++ b/lapack-netlib/SRC/sgbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbequ.c b/lapack-netlib/SRC/sgbequ.c index 183ad6ceb0..e0c421bfef 100644 --- a/lapack-netlib/SRC/sgbequ.c +++ b/lapack-netlib/SRC/sgbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbequb.c b/lapack-netlib/SRC/sgbequb.c index f3b59ead74..70ec69ffeb 100644 --- a/lapack-netlib/SRC/sgbequb.c +++ b/lapack-netlib/SRC/sgbequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbrfs.c b/lapack-netlib/SRC/sgbrfs.c index a9f5a7fe04..102704f3ca 100644 --- a/lapack-netlib/SRC/sgbrfs.c +++ b/lapack-netlib/SRC/sgbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbrfsx.c b/lapack-netlib/SRC/sgbrfsx.c index e3df146f1b..983200f65d 100644 --- a/lapack-netlib/SRC/sgbrfsx.c +++ b/lapack-netlib/SRC/sgbrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbsv.c b/lapack-netlib/SRC/sgbsv.c index 4aaac8022b..a5b57a83d4 100644 --- a/lapack-netlib/SRC/sgbsv.c +++ b/lapack-netlib/SRC/sgbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbsvx.c b/lapack-netlib/SRC/sgbsvx.c index 44e6a8f3e1..8e47b28f96 100644 --- a/lapack-netlib/SRC/sgbsvx.c +++ b/lapack-netlib/SRC/sgbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbsvxx.c b/lapack-netlib/SRC/sgbsvxx.c index 3c373c4316..72410cf93b 100644 --- a/lapack-netlib/SRC/sgbsvxx.c +++ b/lapack-netlib/SRC/sgbsvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbtf2.c b/lapack-netlib/SRC/sgbtf2.c index 61b95d383a..17f6d2bee4 100644 --- a/lapack-netlib/SRC/sgbtf2.c +++ b/lapack-netlib/SRC/sgbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbtrf.c b/lapack-netlib/SRC/sgbtrf.c index 03256e0fb5..27742c5659 100644 --- a/lapack-netlib/SRC/sgbtrf.c +++ b/lapack-netlib/SRC/sgbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgbtrs.c b/lapack-netlib/SRC/sgbtrs.c index 729e8a1c00..3cf8f80703 100644 --- a/lapack-netlib/SRC/sgbtrs.c +++ b/lapack-netlib/SRC/sgbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgebak.c b/lapack-netlib/SRC/sgebak.c index d6e30870ff..07c7a0bf8d 100644 --- a/lapack-netlib/SRC/sgebak.c +++ b/lapack-netlib/SRC/sgebak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgebal.c b/lapack-netlib/SRC/sgebal.c index c2bc727fbe..40bc07877b 100644 --- a/lapack-netlib/SRC/sgebal.c +++ b/lapack-netlib/SRC/sgebal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgebd2.c b/lapack-netlib/SRC/sgebd2.c index f491189ba9..092ecbd84d 100644 --- a/lapack-netlib/SRC/sgebd2.c +++ b/lapack-netlib/SRC/sgebd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgebrd.c b/lapack-netlib/SRC/sgebrd.c index f85f3148d1..c9ff838edc 100644 --- a/lapack-netlib/SRC/sgebrd.c +++ b/lapack-netlib/SRC/sgebrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgecon.c b/lapack-netlib/SRC/sgecon.c index ce2e078232..0592c71930 100644 --- a/lapack-netlib/SRC/sgecon.c +++ b/lapack-netlib/SRC/sgecon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeequ.c b/lapack-netlib/SRC/sgeequ.c index 040949a7c1..d6935bde3b 100644 --- a/lapack-netlib/SRC/sgeequ.c +++ b/lapack-netlib/SRC/sgeequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeequb.c b/lapack-netlib/SRC/sgeequb.c index a90ad2f1ff..375e2c701d 100644 --- a/lapack-netlib/SRC/sgeequb.c +++ b/lapack-netlib/SRC/sgeequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgees.c b/lapack-netlib/SRC/sgees.c index 54ede98d60..a085468646 100644 --- a/lapack-netlib/SRC/sgees.c +++ b/lapack-netlib/SRC/sgees.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeesx.c b/lapack-netlib/SRC/sgeesx.c index 0c9f1832ad..8e91dba54f 100644 --- a/lapack-netlib/SRC/sgeesx.c +++ b/lapack-netlib/SRC/sgeesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeev.c b/lapack-netlib/SRC/sgeev.c index 608f274cf5..b2db89ac0d 100644 --- a/lapack-netlib/SRC/sgeev.c +++ b/lapack-netlib/SRC/sgeev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeevx.c b/lapack-netlib/SRC/sgeevx.c index 8965356a51..976c5d55b7 100644 --- a/lapack-netlib/SRC/sgeevx.c +++ b/lapack-netlib/SRC/sgeevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgehd2.c b/lapack-netlib/SRC/sgehd2.c index 465e06ac6c..2d694c0a33 100644 --- a/lapack-netlib/SRC/sgehd2.c +++ b/lapack-netlib/SRC/sgehd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgehrd.c b/lapack-netlib/SRC/sgehrd.c index 2c990165f6..0d4adda96b 100644 --- a/lapack-netlib/SRC/sgehrd.c +++ b/lapack-netlib/SRC/sgehrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgejsv.c b/lapack-netlib/SRC/sgejsv.c index c985f160bb..725ca4f807 100644 --- a/lapack-netlib/SRC/sgejsv.c +++ b/lapack-netlib/SRC/sgejsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelq.c b/lapack-netlib/SRC/sgelq.c index 282695fd2b..5299222c5f 100644 --- a/lapack-netlib/SRC/sgelq.c +++ b/lapack-netlib/SRC/sgelq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelq2.c b/lapack-netlib/SRC/sgelq2.c index 3a65795fbc..c13ac0ab68 100644 --- a/lapack-netlib/SRC/sgelq2.c +++ b/lapack-netlib/SRC/sgelq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelqf.c b/lapack-netlib/SRC/sgelqf.c index c5dfa93261..640a8b464c 100644 --- a/lapack-netlib/SRC/sgelqf.c +++ b/lapack-netlib/SRC/sgelqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelqt.c b/lapack-netlib/SRC/sgelqt.c index d28d4d2a21..f177a91463 100644 --- a/lapack-netlib/SRC/sgelqt.c +++ b/lapack-netlib/SRC/sgelqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelqt3.c b/lapack-netlib/SRC/sgelqt3.c index 3ea1f3b9a2..d38fc8b983 100644 --- a/lapack-netlib/SRC/sgelqt3.c +++ b/lapack-netlib/SRC/sgelqt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgels.c b/lapack-netlib/SRC/sgels.c index a6cdf047a0..c9cdd490b2 100644 --- a/lapack-netlib/SRC/sgels.c +++ b/lapack-netlib/SRC/sgels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelsd.c b/lapack-netlib/SRC/sgelsd.c index 7a195bec7c..37658b0b45 100644 --- a/lapack-netlib/SRC/sgelsd.c +++ b/lapack-netlib/SRC/sgelsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelss.c b/lapack-netlib/SRC/sgelss.c index 9e6bec2d19..2dbdc48271 100644 --- a/lapack-netlib/SRC/sgelss.c +++ b/lapack-netlib/SRC/sgelss.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgelst.c b/lapack-netlib/SRC/sgelst.c index e0cd84cd9b..959a6d44de 100644 --- a/lapack-netlib/SRC/sgelst.c +++ b/lapack-netlib/SRC/sgelst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -730,7 +730,7 @@ f"> */ integer mn; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; @@ -822,7 +822,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("SGELST ", &i__1); + xerbla_("SGELST", &i__1, (ftnlen)6); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/sgelsy.c b/lapack-netlib/SRC/sgelsy.c index 81f76c6600..c2147f50ff 100644 --- a/lapack-netlib/SRC/sgelsy.c +++ b/lapack-netlib/SRC/sgelsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgemlq.c b/lapack-netlib/SRC/sgemlq.c index eabe265348..cf0710e954 100644 --- a/lapack-netlib/SRC/sgemlq.c +++ b/lapack-netlib/SRC/sgemlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgemlqt.c b/lapack-netlib/SRC/sgemlqt.c index aee0ead05c..c853f55264 100644 --- a/lapack-netlib/SRC/sgemlqt.c +++ b/lapack-netlib/SRC/sgemlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgemqr.c b/lapack-netlib/SRC/sgemqr.c index 8cb3e28420..8c6516bb3c 100644 --- a/lapack-netlib/SRC/sgemqr.c +++ b/lapack-netlib/SRC/sgemqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgemqrt.c b/lapack-netlib/SRC/sgemqrt.c index f7adc3fd8d..c5f81f5ac3 100644 --- a/lapack-netlib/SRC/sgemqrt.c +++ b/lapack-netlib/SRC/sgemqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeql2.c b/lapack-netlib/SRC/sgeql2.c index c094058a83..17faa7b9b2 100644 --- a/lapack-netlib/SRC/sgeql2.c +++ b/lapack-netlib/SRC/sgeql2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqlf.c b/lapack-netlib/SRC/sgeqlf.c index eccd5a7e0c..f23aeba2b5 100644 --- a/lapack-netlib/SRC/sgeqlf.c +++ b/lapack-netlib/SRC/sgeqlf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqp3.c b/lapack-netlib/SRC/sgeqp3.c index 0c1af70343..3009c2ccb5 100644 --- a/lapack-netlib/SRC/sgeqp3.c +++ b/lapack-netlib/SRC/sgeqp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqr.c b/lapack-netlib/SRC/sgeqr.c index 14b4641354..ef47f3dddb 100644 --- a/lapack-netlib/SRC/sgeqr.c +++ b/lapack-netlib/SRC/sgeqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqr2.c b/lapack-netlib/SRC/sgeqr2.c index 43408f514a..a7eaa199ec 100644 --- a/lapack-netlib/SRC/sgeqr2.c +++ b/lapack-netlib/SRC/sgeqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqr2p.c b/lapack-netlib/SRC/sgeqr2p.c index 58accdd845..990959dc9c 100644 --- a/lapack-netlib/SRC/sgeqr2p.c +++ b/lapack-netlib/SRC/sgeqr2p.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqrf.c b/lapack-netlib/SRC/sgeqrf.c index 5de1edaed9..515f270ce9 100644 --- a/lapack-netlib/SRC/sgeqrf.c +++ b/lapack-netlib/SRC/sgeqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqrfp.c b/lapack-netlib/SRC/sgeqrfp.c index 48f352e4e1..82d450db0e 100644 --- a/lapack-netlib/SRC/sgeqrfp.c +++ b/lapack-netlib/SRC/sgeqrfp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqrt.c b/lapack-netlib/SRC/sgeqrt.c index ba72c05589..893eee7c48 100644 --- a/lapack-netlib/SRC/sgeqrt.c +++ b/lapack-netlib/SRC/sgeqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqrt2.c b/lapack-netlib/SRC/sgeqrt2.c index c229ac8d58..2b5fc9c0c7 100644 --- a/lapack-netlib/SRC/sgeqrt2.c +++ b/lapack-netlib/SRC/sgeqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgeqrt3.c b/lapack-netlib/SRC/sgeqrt3.c index 0dbbe4337f..de0a7e2ff1 100644 --- a/lapack-netlib/SRC/sgeqrt3.c +++ b/lapack-netlib/SRC/sgeqrt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgerfs.c b/lapack-netlib/SRC/sgerfs.c index 7ae85ba960..74ba8e017e 100644 --- a/lapack-netlib/SRC/sgerfs.c +++ b/lapack-netlib/SRC/sgerfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgerfsx.c b/lapack-netlib/SRC/sgerfsx.c index 6474ba2631..ddb37b4ffe 100644 --- a/lapack-netlib/SRC/sgerfsx.c +++ b/lapack-netlib/SRC/sgerfsx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgerq2.c b/lapack-netlib/SRC/sgerq2.c index e19297748b..62c460c7c5 100644 --- a/lapack-netlib/SRC/sgerq2.c +++ b/lapack-netlib/SRC/sgerq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgerqf.c b/lapack-netlib/SRC/sgerqf.c index fbc5b12cef..0bfc6d568e 100644 --- a/lapack-netlib/SRC/sgerqf.c +++ b/lapack-netlib/SRC/sgerqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesc2.c b/lapack-netlib/SRC/sgesc2.c index 3d5327986d..322502f465 100644 --- a/lapack-netlib/SRC/sgesc2.c +++ b/lapack-netlib/SRC/sgesc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesdd.c b/lapack-netlib/SRC/sgesdd.c index c92d177c5c..0289cab439 100644 --- a/lapack-netlib/SRC/sgesdd.c +++ b/lapack-netlib/SRC/sgesdd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesv.c b/lapack-netlib/SRC/sgesv.c index dcb46aa2aa..3ce60cf4a3 100644 --- a/lapack-netlib/SRC/sgesv.c +++ b/lapack-netlib/SRC/sgesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesvd.c b/lapack-netlib/SRC/sgesvd.c index b4c5a0adba..f1e5b5c922 100644 --- a/lapack-netlib/SRC/sgesvd.c +++ b/lapack-netlib/SRC/sgesvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesvdq.c b/lapack-netlib/SRC/sgesvdq.c index d97ad108e2..a81c244c2e 100644 --- a/lapack-netlib/SRC/sgesvdq.c +++ b/lapack-netlib/SRC/sgesvdq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesvdx.c b/lapack-netlib/SRC/sgesvdx.c index a90e8ba076..d2b1842bda 100644 --- a/lapack-netlib/SRC/sgesvdx.c +++ b/lapack-netlib/SRC/sgesvdx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesvj.c b/lapack-netlib/SRC/sgesvj.c index 38a14baf30..2017cea50f 100644 --- a/lapack-netlib/SRC/sgesvj.c +++ b/lapack-netlib/SRC/sgesvj.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesvx.c b/lapack-netlib/SRC/sgesvx.c index dbeaffe7c2..9f7e8c059d 100644 --- a/lapack-netlib/SRC/sgesvx.c +++ b/lapack-netlib/SRC/sgesvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgesvxx.c b/lapack-netlib/SRC/sgesvxx.c index 2a1b6f21ad..20a358eb04 100644 --- a/lapack-netlib/SRC/sgesvxx.c +++ b/lapack-netlib/SRC/sgesvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetc2.c b/lapack-netlib/SRC/sgetc2.c index d0db97c114..fc75c60350 100644 --- a/lapack-netlib/SRC/sgetc2.c +++ b/lapack-netlib/SRC/sgetc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetf2.c b/lapack-netlib/SRC/sgetf2.c index 556792a775..bd54084c8e 100644 --- a/lapack-netlib/SRC/sgetf2.c +++ b/lapack-netlib/SRC/sgetf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetrf.c b/lapack-netlib/SRC/sgetrf.c index be631190de..2b3f3c7af5 100644 --- a/lapack-netlib/SRC/sgetrf.c +++ b/lapack-netlib/SRC/sgetrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetrf2.c b/lapack-netlib/SRC/sgetrf2.c index a5bddfcfb3..dc8d51e66d 100644 --- a/lapack-netlib/SRC/sgetrf2.c +++ b/lapack-netlib/SRC/sgetrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetri.c b/lapack-netlib/SRC/sgetri.c index 51b62f6bd5..68c6d27829 100644 --- a/lapack-netlib/SRC/sgetri.c +++ b/lapack-netlib/SRC/sgetri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetrs.c b/lapack-netlib/SRC/sgetrs.c index 8df46a39c6..9cbe0597f7 100644 --- a/lapack-netlib/SRC/sgetrs.c +++ b/lapack-netlib/SRC/sgetrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetsls.c b/lapack-netlib/SRC/sgetsls.c index a1a2fb344c..6c71ab215b 100644 --- a/lapack-netlib/SRC/sgetsls.c +++ b/lapack-netlib/SRC/sgetsls.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgetsqrhrt.c b/lapack-netlib/SRC/sgetsqrhrt.c index dee18c1344..be9f1b9a2e 100644 --- a/lapack-netlib/SRC/sgetsqrhrt.c +++ b/lapack-netlib/SRC/sgetsqrhrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggbak.c b/lapack-netlib/SRC/sggbak.c index 508f5d912b..da5643dc15 100644 --- a/lapack-netlib/SRC/sggbak.c +++ b/lapack-netlib/SRC/sggbak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggbal.c b/lapack-netlib/SRC/sggbal.c index fff51160e2..1eac4a2b71 100644 --- a/lapack-netlib/SRC/sggbal.c +++ b/lapack-netlib/SRC/sggbal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgges.c b/lapack-netlib/SRC/sgges.c index 616716a7ac..1408a1afad 100644 --- a/lapack-netlib/SRC/sgges.c +++ b/lapack-netlib/SRC/sgges.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgges3.c b/lapack-netlib/SRC/sgges3.c index 5d5a5128c0..c7e7e974ad 100644 --- a/lapack-netlib/SRC/sgges3.c +++ b/lapack-netlib/SRC/sgges3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggesx.c b/lapack-netlib/SRC/sggesx.c index c8f85759d6..813b8e0760 100644 --- a/lapack-netlib/SRC/sggesx.c +++ b/lapack-netlib/SRC/sggesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggev.c b/lapack-netlib/SRC/sggev.c index 2303f127ba..9d4039facf 100644 --- a/lapack-netlib/SRC/sggev.c +++ b/lapack-netlib/SRC/sggev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggev3.c b/lapack-netlib/SRC/sggev3.c index f27742f335..05bdd49caf 100644 --- a/lapack-netlib/SRC/sggev3.c +++ b/lapack-netlib/SRC/sggev3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggevx.c b/lapack-netlib/SRC/sggevx.c index 21ebc26bac..a7821c3438 100644 --- a/lapack-netlib/SRC/sggevx.c +++ b/lapack-netlib/SRC/sggevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggglm.c b/lapack-netlib/SRC/sggglm.c index 3b42e777dd..1e23092d53 100644 --- a/lapack-netlib/SRC/sggglm.c +++ b/lapack-netlib/SRC/sggglm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgghd3.c b/lapack-netlib/SRC/sgghd3.c index 412c8c6eae..7f2892585f 100644 --- a/lapack-netlib/SRC/sgghd3.c +++ b/lapack-netlib/SRC/sgghd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgghrd.c b/lapack-netlib/SRC/sgghrd.c index bc8721c4c9..e2c761de6f 100644 --- a/lapack-netlib/SRC/sgghrd.c +++ b/lapack-netlib/SRC/sgghrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgglse.c b/lapack-netlib/SRC/sgglse.c index 1602836a38..5fe3cf12fa 100644 --- a/lapack-netlib/SRC/sgglse.c +++ b/lapack-netlib/SRC/sgglse.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggqrf.c b/lapack-netlib/SRC/sggqrf.c index 2c683ad0f1..e648db357c 100644 --- a/lapack-netlib/SRC/sggqrf.c +++ b/lapack-netlib/SRC/sggqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggrqf.c b/lapack-netlib/SRC/sggrqf.c index b4a32dda23..1baa02e153 100644 --- a/lapack-netlib/SRC/sggrqf.c +++ b/lapack-netlib/SRC/sggrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggsvd3.c b/lapack-netlib/SRC/sggsvd3.c index a8c458ef30..dfc45d3969 100644 --- a/lapack-netlib/SRC/sggsvd3.c +++ b/lapack-netlib/SRC/sggsvd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sggsvp3.c b/lapack-netlib/SRC/sggsvp3.c index c18609af1f..4baa9f6771 100644 --- a/lapack-netlib/SRC/sggsvp3.c +++ b/lapack-netlib/SRC/sggsvp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgsvj0.c b/lapack-netlib/SRC/sgsvj0.c index feae7303f3..5393a8f1c7 100644 --- a/lapack-netlib/SRC/sgsvj0.c +++ b/lapack-netlib/SRC/sgsvj0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgsvj1.c b/lapack-netlib/SRC/sgsvj1.c index 10bc943248..bb3b27b46f 100644 --- a/lapack-netlib/SRC/sgsvj1.c +++ b/lapack-netlib/SRC/sgsvj1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgtcon.c b/lapack-netlib/SRC/sgtcon.c index 9f4e5cbdff..0483232856 100644 --- a/lapack-netlib/SRC/sgtcon.c +++ b/lapack-netlib/SRC/sgtcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgtrfs.c b/lapack-netlib/SRC/sgtrfs.c index 277b3f826e..e220208fdd 100644 --- a/lapack-netlib/SRC/sgtrfs.c +++ b/lapack-netlib/SRC/sgtrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgtsv.c b/lapack-netlib/SRC/sgtsv.c index 7e2f4487eb..77d57bd787 100644 --- a/lapack-netlib/SRC/sgtsv.c +++ b/lapack-netlib/SRC/sgtsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgtsvx.c b/lapack-netlib/SRC/sgtsvx.c index cea42826b0..7b2e507cfe 100644 --- a/lapack-netlib/SRC/sgtsvx.c +++ b/lapack-netlib/SRC/sgtsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgttrf.c b/lapack-netlib/SRC/sgttrf.c index b8580a6460..fe3d9201a1 100644 --- a/lapack-netlib/SRC/sgttrf.c +++ b/lapack-netlib/SRC/sgttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgttrs.c b/lapack-netlib/SRC/sgttrs.c index b8ca4cc57e..77cca1c09a 100644 --- a/lapack-netlib/SRC/sgttrs.c +++ b/lapack-netlib/SRC/sgttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sgtts2.c b/lapack-netlib/SRC/sgtts2.c index d0c675d294..99c07ee363 100644 --- a/lapack-netlib/SRC/sgtts2.c +++ b/lapack-netlib/SRC/sgtts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/shgeqz.c b/lapack-netlib/SRC/shgeqz.c index e1ff562547..7b8c04e28e 100644 --- a/lapack-netlib/SRC/shgeqz.c +++ b/lapack-netlib/SRC/shgeqz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/shsein.c b/lapack-netlib/SRC/shsein.c index 2d1dd81eee..335e0a81ec 100644 --- a/lapack-netlib/SRC/shsein.c +++ b/lapack-netlib/SRC/shsein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/shseqr.c b/lapack-netlib/SRC/shseqr.c index c970be98b2..5caa4bb43d 100644 --- a/lapack-netlib/SRC/shseqr.c +++ b/lapack-netlib/SRC/shseqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sisnan.c b/lapack-netlib/SRC/sisnan.c index d53a8748cc..57423107b0 100644 --- a/lapack-netlib/SRC/sisnan.c +++ b/lapack-netlib/SRC/sisnan.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_gbamv.c b/lapack-netlib/SRC/sla_gbamv.c index 97c990aebe..eb58fabe8d 100644 --- a/lapack-netlib/SRC/sla_gbamv.c +++ b/lapack-netlib/SRC/sla_gbamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_gbrcond.c b/lapack-netlib/SRC/sla_gbrcond.c index fd94ad4096..2211f43711 100644 --- a/lapack-netlib/SRC/sla_gbrcond.c +++ b/lapack-netlib/SRC/sla_gbrcond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_gbrfsx_extended.c b/lapack-netlib/SRC/sla_gbrfsx_extended.c index e001795c27..fa1b669e76 100644 --- a/lapack-netlib/SRC/sla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/sla_gbrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_gbrpvgrw.c b/lapack-netlib/SRC/sla_gbrpvgrw.c index 673cac0698..ded7a9827f 100644 --- a/lapack-netlib/SRC/sla_gbrpvgrw.c +++ b/lapack-netlib/SRC/sla_gbrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_geamv.c b/lapack-netlib/SRC/sla_geamv.c index a30abd28a0..36de09682d 100644 --- a/lapack-netlib/SRC/sla_geamv.c +++ b/lapack-netlib/SRC/sla_geamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_gercond.c b/lapack-netlib/SRC/sla_gercond.c index 448604d24d..420493c28d 100644 --- a/lapack-netlib/SRC/sla_gercond.c +++ b/lapack-netlib/SRC/sla_gercond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_gerfsx_extended.c b/lapack-netlib/SRC/sla_gerfsx_extended.c index 13cba47c01..9933346c7d 100644 --- a/lapack-netlib/SRC/sla_gerfsx_extended.c +++ b/lapack-netlib/SRC/sla_gerfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_gerpvgrw.c b/lapack-netlib/SRC/sla_gerpvgrw.c index 638d91bb53..67abcc30dd 100644 --- a/lapack-netlib/SRC/sla_gerpvgrw.c +++ b/lapack-netlib/SRC/sla_gerpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_lin_berr.c b/lapack-netlib/SRC/sla_lin_berr.c index 0fdda2d8e9..d370a22dcc 100644 --- a/lapack-netlib/SRC/sla_lin_berr.c +++ b/lapack-netlib/SRC/sla_lin_berr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_porcond.c b/lapack-netlib/SRC/sla_porcond.c index 7fe74c57e4..1a94c2904e 100644 --- a/lapack-netlib/SRC/sla_porcond.c +++ b/lapack-netlib/SRC/sla_porcond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_porfsx_extended.c b/lapack-netlib/SRC/sla_porfsx_extended.c index 04eae3caa1..661db4cb6a 100644 --- a/lapack-netlib/SRC/sla_porfsx_extended.c +++ b/lapack-netlib/SRC/sla_porfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_porpvgrw.c b/lapack-netlib/SRC/sla_porpvgrw.c index a2b10c4599..8254820617 100644 --- a/lapack-netlib/SRC/sla_porpvgrw.c +++ b/lapack-netlib/SRC/sla_porpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_syamv.c b/lapack-netlib/SRC/sla_syamv.c index d90b83cdd1..b8746bb2db 100644 --- a/lapack-netlib/SRC/sla_syamv.c +++ b/lapack-netlib/SRC/sla_syamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_syrcond.c b/lapack-netlib/SRC/sla_syrcond.c index 4a4efba4fb..8dca8c1250 100644 --- a/lapack-netlib/SRC/sla_syrcond.c +++ b/lapack-netlib/SRC/sla_syrcond.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_syrfsx_extended.c b/lapack-netlib/SRC/sla_syrfsx_extended.c index 898575d244..d9a739873e 100644 --- a/lapack-netlib/SRC/sla_syrfsx_extended.c +++ b/lapack-netlib/SRC/sla_syrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_syrpvgrw.c b/lapack-netlib/SRC/sla_syrpvgrw.c index 63b63c0e56..cb99de4d46 100644 --- a/lapack-netlib/SRC/sla_syrpvgrw.c +++ b/lapack-netlib/SRC/sla_syrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sla_wwaddw.c b/lapack-netlib/SRC/sla_wwaddw.c index 4b9b3d5cd1..4c04134c21 100644 --- a/lapack-netlib/SRC/sla_wwaddw.c +++ b/lapack-netlib/SRC/sla_wwaddw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slabad.c b/lapack-netlib/SRC/slabad.c index 3cdfd0bd99..de0e9b1de0 100644 --- a/lapack-netlib/SRC/slabad.c +++ b/lapack-netlib/SRC/slabad.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slabrd.c b/lapack-netlib/SRC/slabrd.c index 38a1af1965..af0a9b38a1 100644 --- a/lapack-netlib/SRC/slabrd.c +++ b/lapack-netlib/SRC/slabrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slacn2.c b/lapack-netlib/SRC/slacn2.c index a6f3aed6ae..2df7963b56 100644 --- a/lapack-netlib/SRC/slacn2.c +++ b/lapack-netlib/SRC/slacn2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slacon.c b/lapack-netlib/SRC/slacon.c index b0a20acccd..8a55c251ab 100644 --- a/lapack-netlib/SRC/slacon.c +++ b/lapack-netlib/SRC/slacon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slacpy.c b/lapack-netlib/SRC/slacpy.c index 61cf0f7b9c..83ca3c3c53 100644 --- a/lapack-netlib/SRC/slacpy.c +++ b/lapack-netlib/SRC/slacpy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sladiv.c b/lapack-netlib/SRC/sladiv.c index 0703a90d31..e01408ccd4 100644 --- a/lapack-netlib/SRC/sladiv.c +++ b/lapack-netlib/SRC/sladiv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slae2.c b/lapack-netlib/SRC/slae2.c index 6e4fdb6fa9..81372bb6a7 100644 --- a/lapack-netlib/SRC/slae2.c +++ b/lapack-netlib/SRC/slae2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaebz.c b/lapack-netlib/SRC/slaebz.c index 386a185a6f..cc1ac80f97 100644 --- a/lapack-netlib/SRC/slaebz.c +++ b/lapack-netlib/SRC/slaebz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed0.c b/lapack-netlib/SRC/slaed0.c index 4c52309076..e8f37a3a25 100644 --- a/lapack-netlib/SRC/slaed0.c +++ b/lapack-netlib/SRC/slaed0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed1.c b/lapack-netlib/SRC/slaed1.c index 693e82ec80..d6747bce2e 100644 --- a/lapack-netlib/SRC/slaed1.c +++ b/lapack-netlib/SRC/slaed1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed2.c b/lapack-netlib/SRC/slaed2.c index f4b9f61d04..be46604f9a 100644 --- a/lapack-netlib/SRC/slaed2.c +++ b/lapack-netlib/SRC/slaed2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed3.c b/lapack-netlib/SRC/slaed3.c index 2acd3ba194..578bad23f7 100644 --- a/lapack-netlib/SRC/slaed3.c +++ b/lapack-netlib/SRC/slaed3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed4.c b/lapack-netlib/SRC/slaed4.c index c6179d513a..ba48b4df90 100644 --- a/lapack-netlib/SRC/slaed4.c +++ b/lapack-netlib/SRC/slaed4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed5.c b/lapack-netlib/SRC/slaed5.c index cf6b0b1e14..3ad41991dc 100644 --- a/lapack-netlib/SRC/slaed5.c +++ b/lapack-netlib/SRC/slaed5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed6.c b/lapack-netlib/SRC/slaed6.c index 96ede1af0e..77cdb23d74 100644 --- a/lapack-netlib/SRC/slaed6.c +++ b/lapack-netlib/SRC/slaed6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed7.c b/lapack-netlib/SRC/slaed7.c index 22fcaf76d2..65c3a19497 100644 --- a/lapack-netlib/SRC/slaed7.c +++ b/lapack-netlib/SRC/slaed7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed8.c b/lapack-netlib/SRC/slaed8.c index 9b23e69932..19ed4553f3 100644 --- a/lapack-netlib/SRC/slaed8.c +++ b/lapack-netlib/SRC/slaed8.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaed9.c b/lapack-netlib/SRC/slaed9.c index c6c6d89c41..92cec445e9 100644 --- a/lapack-netlib/SRC/slaed9.c +++ b/lapack-netlib/SRC/slaed9.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaeda.c b/lapack-netlib/SRC/slaeda.c index 3806427c2e..d984a26446 100644 --- a/lapack-netlib/SRC/slaeda.c +++ b/lapack-netlib/SRC/slaeda.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaein.c b/lapack-netlib/SRC/slaein.c index 86fc52736b..f3f328edc8 100644 --- a/lapack-netlib/SRC/slaein.c +++ b/lapack-netlib/SRC/slaein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaev2.c b/lapack-netlib/SRC/slaev2.c index 26155dd874..17d224111c 100644 --- a/lapack-netlib/SRC/slaev2.c +++ b/lapack-netlib/SRC/slaev2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaexc.c b/lapack-netlib/SRC/slaexc.c index 21402599f9..646eb6c28a 100644 --- a/lapack-netlib/SRC/slaexc.c +++ b/lapack-netlib/SRC/slaexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slag2.c b/lapack-netlib/SRC/slag2.c index c052cf7601..7c3f98d62b 100644 --- a/lapack-netlib/SRC/slag2.c +++ b/lapack-netlib/SRC/slag2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slag2d.c b/lapack-netlib/SRC/slag2d.c index 4976f5b6d1..91d565937b 100644 --- a/lapack-netlib/SRC/slag2d.c +++ b/lapack-netlib/SRC/slag2d.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slags2.c b/lapack-netlib/SRC/slags2.c index 785ba50fef..4050965392 100644 --- a/lapack-netlib/SRC/slags2.c +++ b/lapack-netlib/SRC/slags2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slagtf.c b/lapack-netlib/SRC/slagtf.c index a162e7251e..af4e385cbf 100644 --- a/lapack-netlib/SRC/slagtf.c +++ b/lapack-netlib/SRC/slagtf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slagtm.c b/lapack-netlib/SRC/slagtm.c index 45d6371132..c6677a5d59 100644 --- a/lapack-netlib/SRC/slagtm.c +++ b/lapack-netlib/SRC/slagtm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slagts.c b/lapack-netlib/SRC/slagts.c index 1fe08865d1..c4babe5c6e 100644 --- a/lapack-netlib/SRC/slagts.c +++ b/lapack-netlib/SRC/slagts.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slagv2.c b/lapack-netlib/SRC/slagv2.c index 3ebcdd4766..1b5725c643 100644 --- a/lapack-netlib/SRC/slagv2.c +++ b/lapack-netlib/SRC/slagv2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slahqr.c b/lapack-netlib/SRC/slahqr.c index a2aa97858f..95d588b642 100644 --- a/lapack-netlib/SRC/slahqr.c +++ b/lapack-netlib/SRC/slahqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slahr2.c b/lapack-netlib/SRC/slahr2.c index 90247fbe45..061708fd76 100644 --- a/lapack-netlib/SRC/slahr2.c +++ b/lapack-netlib/SRC/slahr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaic1.c b/lapack-netlib/SRC/slaic1.c index c6534c0b72..25c9ce3d05 100644 --- a/lapack-netlib/SRC/slaic1.c +++ b/lapack-netlib/SRC/slaic1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaisnan.c b/lapack-netlib/SRC/slaisnan.c index fe10657467..c1dcaa4761 100644 --- a/lapack-netlib/SRC/slaisnan.c +++ b/lapack-netlib/SRC/slaisnan.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaln2.c b/lapack-netlib/SRC/slaln2.c index a4e9db6fe7..43b45064a5 100644 --- a/lapack-netlib/SRC/slaln2.c +++ b/lapack-netlib/SRC/slaln2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slals0.c b/lapack-netlib/SRC/slals0.c index 068681c28c..06f6d56445 100644 --- a/lapack-netlib/SRC/slals0.c +++ b/lapack-netlib/SRC/slals0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slalsa.c b/lapack-netlib/SRC/slalsa.c index 77a79b80cf..8518620da1 100644 --- a/lapack-netlib/SRC/slalsa.c +++ b/lapack-netlib/SRC/slalsa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slalsd.c b/lapack-netlib/SRC/slalsd.c index da25bf51c7..a9462a80a7 100644 --- a/lapack-netlib/SRC/slalsd.c +++ b/lapack-netlib/SRC/slalsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slamrg.c b/lapack-netlib/SRC/slamrg.c index fd2d04ae92..3ac47dffb8 100644 --- a/lapack-netlib/SRC/slamrg.c +++ b/lapack-netlib/SRC/slamrg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slamswlq.c b/lapack-netlib/SRC/slamswlq.c index d03ca872b1..bae5923b63 100644 --- a/lapack-netlib/SRC/slamswlq.c +++ b/lapack-netlib/SRC/slamswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slamtsqr.c b/lapack-netlib/SRC/slamtsqr.c index 319d00ff76..988abe892a 100644 --- a/lapack-netlib/SRC/slamtsqr.c +++ b/lapack-netlib/SRC/slamtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaneg.c b/lapack-netlib/SRC/slaneg.c index 8e1c3a48dd..ff91686898 100644 --- a/lapack-netlib/SRC/slaneg.c +++ b/lapack-netlib/SRC/slaneg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slangb.c b/lapack-netlib/SRC/slangb.c index 25629c9d57..5dbed20545 100644 --- a/lapack-netlib/SRC/slangb.c +++ b/lapack-netlib/SRC/slangb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slange.c b/lapack-netlib/SRC/slange.c index 077683ec63..bc7f3a18ba 100644 --- a/lapack-netlib/SRC/slange.c +++ b/lapack-netlib/SRC/slange.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slangt.c b/lapack-netlib/SRC/slangt.c index 67bc4d2210..aab60b9af4 100644 --- a/lapack-netlib/SRC/slangt.c +++ b/lapack-netlib/SRC/slangt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slanhs.c b/lapack-netlib/SRC/slanhs.c index 57296075bf..d67241c831 100644 --- a/lapack-netlib/SRC/slanhs.c +++ b/lapack-netlib/SRC/slanhs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slansb.c b/lapack-netlib/SRC/slansb.c index 6546b3651d..518a763457 100644 --- a/lapack-netlib/SRC/slansb.c +++ b/lapack-netlib/SRC/slansb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slansf.c b/lapack-netlib/SRC/slansf.c index 9176b704d6..aa736ea01c 100644 --- a/lapack-netlib/SRC/slansf.c +++ b/lapack-netlib/SRC/slansf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slansp.c b/lapack-netlib/SRC/slansp.c index a7397ac0e7..606d09e1c3 100644 --- a/lapack-netlib/SRC/slansp.c +++ b/lapack-netlib/SRC/slansp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slanst.c b/lapack-netlib/SRC/slanst.c index d5126ce4d9..9c65ed1083 100644 --- a/lapack-netlib/SRC/slanst.c +++ b/lapack-netlib/SRC/slanst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slansy.c b/lapack-netlib/SRC/slansy.c index 7f57d0fc92..57c696d828 100644 --- a/lapack-netlib/SRC/slansy.c +++ b/lapack-netlib/SRC/slansy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slantb.c b/lapack-netlib/SRC/slantb.c index d4034a8ba2..43ef33f025 100644 --- a/lapack-netlib/SRC/slantb.c +++ b/lapack-netlib/SRC/slantb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slantp.c b/lapack-netlib/SRC/slantp.c index f1290db1a0..93cfd47142 100644 --- a/lapack-netlib/SRC/slantp.c +++ b/lapack-netlib/SRC/slantp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slantr.c b/lapack-netlib/SRC/slantr.c index 734c447636..1eb5909078 100644 --- a/lapack-netlib/SRC/slantr.c +++ b/lapack-netlib/SRC/slantr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slanv2.c b/lapack-netlib/SRC/slanv2.c index 60578fa2c3..b1bdb23051 100644 --- a/lapack-netlib/SRC/slanv2.c +++ b/lapack-netlib/SRC/slanv2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp.c b/lapack-netlib/SRC/slaorhr_col_getrfnp.c index 32f434a4fe..530d65446f 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp.c +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaorhr_col_getrfnp2.c b/lapack-netlib/SRC/slaorhr_col_getrfnp2.c index 8b8dd73925..15635a5215 100644 --- a/lapack-netlib/SRC/slaorhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/slaorhr_col_getrfnp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slapll.c b/lapack-netlib/SRC/slapll.c index 8a3386f468..b434cbd0e2 100644 --- a/lapack-netlib/SRC/slapll.c +++ b/lapack-netlib/SRC/slapll.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slapmr.c b/lapack-netlib/SRC/slapmr.c index a26bde8ff4..424a910705 100644 --- a/lapack-netlib/SRC/slapmr.c +++ b/lapack-netlib/SRC/slapmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slapmt.c b/lapack-netlib/SRC/slapmt.c index c1fe84d6db..43ebda1b87 100644 --- a/lapack-netlib/SRC/slapmt.c +++ b/lapack-netlib/SRC/slapmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slapy2.c b/lapack-netlib/SRC/slapy2.c index f81fda3480..a43d7960b7 100644 --- a/lapack-netlib/SRC/slapy2.c +++ b/lapack-netlib/SRC/slapy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slapy3.c b/lapack-netlib/SRC/slapy3.c index 15669b8002..948fe41d4b 100644 --- a/lapack-netlib/SRC/slapy3.c +++ b/lapack-netlib/SRC/slapy3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqgb.c b/lapack-netlib/SRC/slaqgb.c index e8ae4a8c26..ec5d2a5296 100644 --- a/lapack-netlib/SRC/slaqgb.c +++ b/lapack-netlib/SRC/slaqgb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqge.c b/lapack-netlib/SRC/slaqge.c index ed6807ae18..c9b29f3bea 100644 --- a/lapack-netlib/SRC/slaqge.c +++ b/lapack-netlib/SRC/slaqge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqp2.c b/lapack-netlib/SRC/slaqp2.c index c51a6863fa..9ec7b26b8c 100644 --- a/lapack-netlib/SRC/slaqp2.c +++ b/lapack-netlib/SRC/slaqp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqps.c b/lapack-netlib/SRC/slaqps.c index 3fdc4929d6..0a6ff80b06 100644 --- a/lapack-netlib/SRC/slaqps.c +++ b/lapack-netlib/SRC/slaqps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqr0.c b/lapack-netlib/SRC/slaqr0.c index 98f000c77d..05562192a1 100644 --- a/lapack-netlib/SRC/slaqr0.c +++ b/lapack-netlib/SRC/slaqr0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqr1.c b/lapack-netlib/SRC/slaqr1.c index ee8a9ca0a0..095589aacf 100644 --- a/lapack-netlib/SRC/slaqr1.c +++ b/lapack-netlib/SRC/slaqr1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqr2.c b/lapack-netlib/SRC/slaqr2.c index 55731cbd74..cd82275cde 100644 --- a/lapack-netlib/SRC/slaqr2.c +++ b/lapack-netlib/SRC/slaqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqr3.c b/lapack-netlib/SRC/slaqr3.c index ca495c9c6a..ee99f42070 100644 --- a/lapack-netlib/SRC/slaqr3.c +++ b/lapack-netlib/SRC/slaqr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqr4.c b/lapack-netlib/SRC/slaqr4.c index 3a08431856..dcd66e6361 100644 --- a/lapack-netlib/SRC/slaqr4.c +++ b/lapack-netlib/SRC/slaqr4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqr5.c b/lapack-netlib/SRC/slaqr5.c index bba9f571ce..9c1f485eb2 100644 --- a/lapack-netlib/SRC/slaqr5.c +++ b/lapack-netlib/SRC/slaqr5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqsb.c b/lapack-netlib/SRC/slaqsb.c index 3943f0894a..e67b12a507 100644 --- a/lapack-netlib/SRC/slaqsb.c +++ b/lapack-netlib/SRC/slaqsb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqsp.c b/lapack-netlib/SRC/slaqsp.c index db1b815990..30b0ffb570 100644 --- a/lapack-netlib/SRC/slaqsp.c +++ b/lapack-netlib/SRC/slaqsp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqsy.c b/lapack-netlib/SRC/slaqsy.c index 5028c317bb..2a9ee04cf2 100644 --- a/lapack-netlib/SRC/slaqsy.c +++ b/lapack-netlib/SRC/slaqsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqtr.c b/lapack-netlib/SRC/slaqtr.c index 4030ba4a53..4618884028 100644 --- a/lapack-netlib/SRC/slaqtr.c +++ b/lapack-netlib/SRC/slaqtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqz0.c b/lapack-netlib/SRC/slaqz0.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/slaqz0.c +++ b/lapack-netlib/SRC/slaqz0.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqz1.c b/lapack-netlib/SRC/slaqz1.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/slaqz1.c +++ b/lapack-netlib/SRC/slaqz1.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqz2.c b/lapack-netlib/SRC/slaqz2.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/slaqz2.c +++ b/lapack-netlib/SRC/slaqz2.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqz3.c b/lapack-netlib/SRC/slaqz3.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/slaqz3.c +++ b/lapack-netlib/SRC/slaqz3.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaqz4.c b/lapack-netlib/SRC/slaqz4.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/slaqz4.c +++ b/lapack-netlib/SRC/slaqz4.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slar1v.c b/lapack-netlib/SRC/slar1v.c index e88999ee79..2fa786652a 100644 --- a/lapack-netlib/SRC/slar1v.c +++ b/lapack-netlib/SRC/slar1v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slar2v.c b/lapack-netlib/SRC/slar2v.c index 6fea0cfebe..c76c2adb6a 100644 --- a/lapack-netlib/SRC/slar2v.c +++ b/lapack-netlib/SRC/slar2v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarf.c b/lapack-netlib/SRC/slarf.c index 3eaab3c524..3f90b5d715 100644 --- a/lapack-netlib/SRC/slarf.c +++ b/lapack-netlib/SRC/slarf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarfb.c b/lapack-netlib/SRC/slarfb.c index dd528878b5..3d30bd23df 100644 --- a/lapack-netlib/SRC/slarfb.c +++ b/lapack-netlib/SRC/slarfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarfb_gett.c b/lapack-netlib/SRC/slarfb_gett.c index 2a245a32a3..61a90788a4 100644 --- a/lapack-netlib/SRC/slarfb_gett.c +++ b/lapack-netlib/SRC/slarfb_gett.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarfg.c b/lapack-netlib/SRC/slarfg.c index e7784fe8a7..74e0376eca 100644 --- a/lapack-netlib/SRC/slarfg.c +++ b/lapack-netlib/SRC/slarfg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarfgp.c b/lapack-netlib/SRC/slarfgp.c index 08ea906cc7..f4614c9611 100644 --- a/lapack-netlib/SRC/slarfgp.c +++ b/lapack-netlib/SRC/slarfgp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarft.c b/lapack-netlib/SRC/slarft.c index 4985943406..c0ca2ac181 100644 --- a/lapack-netlib/SRC/slarft.c +++ b/lapack-netlib/SRC/slarft.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarfx.c b/lapack-netlib/SRC/slarfx.c index 785f3951ab..26dd9a597d 100644 --- a/lapack-netlib/SRC/slarfx.c +++ b/lapack-netlib/SRC/slarfx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarfy.c b/lapack-netlib/SRC/slarfy.c index cc5da7a249..c2b44d0284 100644 --- a/lapack-netlib/SRC/slarfy.c +++ b/lapack-netlib/SRC/slarfy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slargv.c b/lapack-netlib/SRC/slargv.c index 07a203af25..73d3338969 100644 --- a/lapack-netlib/SRC/slargv.c +++ b/lapack-netlib/SRC/slargv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarmm.c b/lapack-netlib/SRC/slarmm.c index 95114e2f15..3e025549ee 100644 --- a/lapack-netlib/SRC/slarmm.c +++ b/lapack-netlib/SRC/slarmm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarnv.c b/lapack-netlib/SRC/slarnv.c index cb29a357ab..1f331dd322 100644 --- a/lapack-netlib/SRC/slarnv.c +++ b/lapack-netlib/SRC/slarnv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarra.c b/lapack-netlib/SRC/slarra.c index f1e4fb0513..aeb4d95c17 100644 --- a/lapack-netlib/SRC/slarra.c +++ b/lapack-netlib/SRC/slarra.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrb.c b/lapack-netlib/SRC/slarrb.c index b8139fda6f..0a4d998f0b 100644 --- a/lapack-netlib/SRC/slarrb.c +++ b/lapack-netlib/SRC/slarrb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrc.c b/lapack-netlib/SRC/slarrc.c index f774dc4310..682671b5c1 100644 --- a/lapack-netlib/SRC/slarrc.c +++ b/lapack-netlib/SRC/slarrc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrd.c b/lapack-netlib/SRC/slarrd.c index 672091d4d3..f51d374d3f 100644 --- a/lapack-netlib/SRC/slarrd.c +++ b/lapack-netlib/SRC/slarrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarre.c b/lapack-netlib/SRC/slarre.c index 57a91249d3..ca54d39d6b 100644 --- a/lapack-netlib/SRC/slarre.c +++ b/lapack-netlib/SRC/slarre.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrf.c b/lapack-netlib/SRC/slarrf.c index 12411b9200..b2c7c803b2 100644 --- a/lapack-netlib/SRC/slarrf.c +++ b/lapack-netlib/SRC/slarrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrj.c b/lapack-netlib/SRC/slarrj.c index ad2896a105..4056cd52c1 100644 --- a/lapack-netlib/SRC/slarrj.c +++ b/lapack-netlib/SRC/slarrj.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrk.c b/lapack-netlib/SRC/slarrk.c index 67794ca2f7..6c794dbe5d 100644 --- a/lapack-netlib/SRC/slarrk.c +++ b/lapack-netlib/SRC/slarrk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrr.c b/lapack-netlib/SRC/slarrr.c index 1bd03571c0..5a8058a93b 100644 --- a/lapack-netlib/SRC/slarrr.c +++ b/lapack-netlib/SRC/slarrr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarrv.c b/lapack-netlib/SRC/slarrv.c index 9f4cecb1fc..b537f923f8 100644 --- a/lapack-netlib/SRC/slarrv.c +++ b/lapack-netlib/SRC/slarrv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarscl2.c b/lapack-netlib/SRC/slarscl2.c index 0d61685a6f..f5ad0b11dc 100644 --- a/lapack-netlib/SRC/slarscl2.c +++ b/lapack-netlib/SRC/slarscl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slartg.c b/lapack-netlib/SRC/slartg.c index 94d9b506b0..568821accf 100644 --- a/lapack-netlib/SRC/slartg.c +++ b/lapack-netlib/SRC/slartg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slartgp.c b/lapack-netlib/SRC/slartgp.c index e0753cfc34..6794cb8e36 100644 --- a/lapack-netlib/SRC/slartgp.c +++ b/lapack-netlib/SRC/slartgp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slartgs.c b/lapack-netlib/SRC/slartgs.c index 482b2ccd17..dc67fddf40 100644 --- a/lapack-netlib/SRC/slartgs.c +++ b/lapack-netlib/SRC/slartgs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slartv.c b/lapack-netlib/SRC/slartv.c index f5c707c1f3..f7c63f7abb 100644 --- a/lapack-netlib/SRC/slartv.c +++ b/lapack-netlib/SRC/slartv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaruv.c b/lapack-netlib/SRC/slaruv.c index 80b1d85569..379a783083 100644 --- a/lapack-netlib/SRC/slaruv.c +++ b/lapack-netlib/SRC/slaruv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarz.c b/lapack-netlib/SRC/slarz.c index 4ea8f907c7..110f2fd0b0 100644 --- a/lapack-netlib/SRC/slarz.c +++ b/lapack-netlib/SRC/slarz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarzb.c b/lapack-netlib/SRC/slarzb.c index 02ff0bbe5e..3b251264f2 100644 --- a/lapack-netlib/SRC/slarzb.c +++ b/lapack-netlib/SRC/slarzb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slarzt.c b/lapack-netlib/SRC/slarzt.c index 5459dc8a2c..8bfd307865 100644 --- a/lapack-netlib/SRC/slarzt.c +++ b/lapack-netlib/SRC/slarzt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slas2.c b/lapack-netlib/SRC/slas2.c index 1d750d26b3..cc0d663727 100644 --- a/lapack-netlib/SRC/slas2.c +++ b/lapack-netlib/SRC/slas2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slascl.c b/lapack-netlib/SRC/slascl.c index aecbca67f7..796d613bc7 100644 --- a/lapack-netlib/SRC/slascl.c +++ b/lapack-netlib/SRC/slascl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slascl2.c b/lapack-netlib/SRC/slascl2.c index 98f34e13cf..e88d524e54 100644 --- a/lapack-netlib/SRC/slascl2.c +++ b/lapack-netlib/SRC/slascl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd0.c b/lapack-netlib/SRC/slasd0.c index be1a74191f..50fe0ad9b8 100644 --- a/lapack-netlib/SRC/slasd0.c +++ b/lapack-netlib/SRC/slasd0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd1.c b/lapack-netlib/SRC/slasd1.c index 4ff9516bee..92edb8c23d 100644 --- a/lapack-netlib/SRC/slasd1.c +++ b/lapack-netlib/SRC/slasd1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd2.c b/lapack-netlib/SRC/slasd2.c index 0a5ee19d93..2d188c7690 100644 --- a/lapack-netlib/SRC/slasd2.c +++ b/lapack-netlib/SRC/slasd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd3.c b/lapack-netlib/SRC/slasd3.c index a465e2cf66..747f0a5d10 100644 --- a/lapack-netlib/SRC/slasd3.c +++ b/lapack-netlib/SRC/slasd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd4.c b/lapack-netlib/SRC/slasd4.c index 3c4df7de5a..ad889b926b 100644 --- a/lapack-netlib/SRC/slasd4.c +++ b/lapack-netlib/SRC/slasd4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd5.c b/lapack-netlib/SRC/slasd5.c index 39bc44eb57..492a4ea6bd 100644 --- a/lapack-netlib/SRC/slasd5.c +++ b/lapack-netlib/SRC/slasd5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd6.c b/lapack-netlib/SRC/slasd6.c index cdbdda3147..64366a5ac6 100644 --- a/lapack-netlib/SRC/slasd6.c +++ b/lapack-netlib/SRC/slasd6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd7.c b/lapack-netlib/SRC/slasd7.c index 243f989255..d93791e7ad 100644 --- a/lapack-netlib/SRC/slasd7.c +++ b/lapack-netlib/SRC/slasd7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasd8.c b/lapack-netlib/SRC/slasd8.c index 4f556a8f94..28346e39ce 100644 --- a/lapack-netlib/SRC/slasd8.c +++ b/lapack-netlib/SRC/slasd8.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasda.c b/lapack-netlib/SRC/slasda.c index 1d336d1ce4..7538fcc021 100644 --- a/lapack-netlib/SRC/slasda.c +++ b/lapack-netlib/SRC/slasda.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasdq.c b/lapack-netlib/SRC/slasdq.c index bbc278fdd3..59a3a82a3b 100644 --- a/lapack-netlib/SRC/slasdq.c +++ b/lapack-netlib/SRC/slasdq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasdt.c b/lapack-netlib/SRC/slasdt.c index 6f3ba7e87d..23b18b08af 100644 --- a/lapack-netlib/SRC/slasdt.c +++ b/lapack-netlib/SRC/slasdt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaset.c b/lapack-netlib/SRC/slaset.c index 573fa85f88..8254fdc033 100644 --- a/lapack-netlib/SRC/slaset.c +++ b/lapack-netlib/SRC/slaset.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasq1.c b/lapack-netlib/SRC/slasq1.c index 66ca78f8bb..69b7e199b2 100644 --- a/lapack-netlib/SRC/slasq1.c +++ b/lapack-netlib/SRC/slasq1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasq2.c b/lapack-netlib/SRC/slasq2.c index d3949a694e..efa1aaeab0 100644 --- a/lapack-netlib/SRC/slasq2.c +++ b/lapack-netlib/SRC/slasq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasq3.c b/lapack-netlib/SRC/slasq3.c index 38f186f3d1..b1188ff280 100644 --- a/lapack-netlib/SRC/slasq3.c +++ b/lapack-netlib/SRC/slasq3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasq4.c b/lapack-netlib/SRC/slasq4.c index 8c3722fc25..818d755acb 100644 --- a/lapack-netlib/SRC/slasq4.c +++ b/lapack-netlib/SRC/slasq4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasq5.c b/lapack-netlib/SRC/slasq5.c index cd9645ac5a..74a14ada3e 100644 --- a/lapack-netlib/SRC/slasq5.c +++ b/lapack-netlib/SRC/slasq5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasq6.c b/lapack-netlib/SRC/slasq6.c index d6dd702dd7..35ec595005 100644 --- a/lapack-netlib/SRC/slasq6.c +++ b/lapack-netlib/SRC/slasq6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasr.c b/lapack-netlib/SRC/slasr.c index 0c6b871dd5..611c7dce33 100644 --- a/lapack-netlib/SRC/slasr.c +++ b/lapack-netlib/SRC/slasr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasrt.c b/lapack-netlib/SRC/slasrt.c index 881f140b02..154650a8ae 100644 --- a/lapack-netlib/SRC/slasrt.c +++ b/lapack-netlib/SRC/slasrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slassq.c b/lapack-netlib/SRC/slassq.c index d6e5ee7a55..4e72038f33 100644 --- a/lapack-netlib/SRC/slassq.c +++ b/lapack-netlib/SRC/slassq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasv2.c b/lapack-netlib/SRC/slasv2.c index 5b6addbe5c..990a1d2ad2 100644 --- a/lapack-netlib/SRC/slasv2.c +++ b/lapack-netlib/SRC/slasv2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slaswlq.c b/lapack-netlib/SRC/slaswlq.c index ee6bad4017..b596a31119 100644 --- a/lapack-netlib/SRC/slaswlq.c +++ b/lapack-netlib/SRC/slaswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -719,12 +719,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *n < *m) { *info = -2; - } else if (*mb < 1 || *mb > *m && *m > 0) { + } else if (*mb < 1 || (*mb > *m && *m > 0)) { *info = -3; - } else if (*nb <= *m) { + } else if (*nb <= 0) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *mb) { *info = -8; } else if (*lwork < *m * *mb && ! lquery) { diff --git a/lapack-netlib/SRC/slaswp.c b/lapack-netlib/SRC/slaswp.c index 67180608a1..ee33f59880 100644 --- a/lapack-netlib/SRC/slaswp.c +++ b/lapack-netlib/SRC/slaswp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasy2.c b/lapack-netlib/SRC/slasy2.c index 72ce3954d7..ebce642c88 100644 --- a/lapack-netlib/SRC/slasy2.c +++ b/lapack-netlib/SRC/slasy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasyf.c b/lapack-netlib/SRC/slasyf.c index c687a3fc7f..f631f172a4 100644 --- a/lapack-netlib/SRC/slasyf.c +++ b/lapack-netlib/SRC/slasyf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasyf_aa.c b/lapack-netlib/SRC/slasyf_aa.c index 317e549b33..81bf3ce324 100644 --- a/lapack-netlib/SRC/slasyf_aa.c +++ b/lapack-netlib/SRC/slasyf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasyf_rk.c b/lapack-netlib/SRC/slasyf_rk.c index 11a7799058..8a3c9bdd01 100644 --- a/lapack-netlib/SRC/slasyf_rk.c +++ b/lapack-netlib/SRC/slasyf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slasyf_rook.c b/lapack-netlib/SRC/slasyf_rook.c index a5562f2f4a..161f0f11aa 100644 --- a/lapack-netlib/SRC/slasyf_rook.c +++ b/lapack-netlib/SRC/slasyf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slatbs.c b/lapack-netlib/SRC/slatbs.c index c19f2c9b5d..0105aae1d5 100644 --- a/lapack-netlib/SRC/slatbs.c +++ b/lapack-netlib/SRC/slatbs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slatdf.c b/lapack-netlib/SRC/slatdf.c index 40efd802b1..e7f236f703 100644 --- a/lapack-netlib/SRC/slatdf.c +++ b/lapack-netlib/SRC/slatdf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slatps.c b/lapack-netlib/SRC/slatps.c index 5756a46268..bf19cd82a1 100644 --- a/lapack-netlib/SRC/slatps.c +++ b/lapack-netlib/SRC/slatps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slatrd.c b/lapack-netlib/SRC/slatrd.c index d6f13fe50f..9504838386 100644 --- a/lapack-netlib/SRC/slatrd.c +++ b/lapack-netlib/SRC/slatrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slatrs.c b/lapack-netlib/SRC/slatrs.c index 44d469bf44..f873d10ecb 100644 --- a/lapack-netlib/SRC/slatrs.c +++ b/lapack-netlib/SRC/slatrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slatrs3.c b/lapack-netlib/SRC/slatrs3.c index e5c48a55b6..f0cda35c54 100644 --- a/lapack-netlib/SRC/slatrs3.c +++ b/lapack-netlib/SRC/slatrs3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -772,7 +772,7 @@ static real c_b36 = 1.f; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; @@ -868,7 +868,7 @@ static real c_b36 = 1.f; } if (*info != 0) { i__1 = -(*info); - xerbla_("SLATRS3", &i__1); + xerbla_("SLATRS3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/slatrz.c b/lapack-netlib/SRC/slatrz.c index a36c9d56d1..086eeada20 100644 --- a/lapack-netlib/SRC/slatrz.c +++ b/lapack-netlib/SRC/slatrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slatsqr.c b/lapack-netlib/SRC/slatsqr.c index 34b0d43309..68bffd877a 100644 --- a/lapack-netlib/SRC/slatsqr.c +++ b/lapack-netlib/SRC/slatsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -721,12 +721,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *m < *n) { *info = -2; - } else if (*mb <= *n) { + } else if (*mb < 1) { *info = -3; - } else if (*nb < 1 || *nb > *n && *n > 0) { + } else if (*nb < 1 || (*nb > *n && *n > 0)) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *nb) { *info = -8; } else if (*lwork < *n * *nb && ! lquery) { diff --git a/lapack-netlib/SRC/slauu2.c b/lapack-netlib/SRC/slauu2.c index 35fd950698..d445aceeb1 100644 --- a/lapack-netlib/SRC/slauu2.c +++ b/lapack-netlib/SRC/slauu2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/slauum.c b/lapack-netlib/SRC/slauum.c index da7d7eefec..be1b9590db 100644 --- a/lapack-netlib/SRC/slauum.c +++ b/lapack-netlib/SRC/slauum.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sopgtr.c b/lapack-netlib/SRC/sopgtr.c index 970f0910f9..dba14c291a 100644 --- a/lapack-netlib/SRC/sopgtr.c +++ b/lapack-netlib/SRC/sopgtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sopmtr.c b/lapack-netlib/SRC/sopmtr.c index 8d95afe727..f918837d3a 100644 --- a/lapack-netlib/SRC/sopmtr.c +++ b/lapack-netlib/SRC/sopmtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorbdb.c b/lapack-netlib/SRC/sorbdb.c index 53a5fb1ea9..4d25aa6179 100644 --- a/lapack-netlib/SRC/sorbdb.c +++ b/lapack-netlib/SRC/sorbdb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorbdb1.c b/lapack-netlib/SRC/sorbdb1.c index 0151bcae7f..70dfd5e3f8 100644 --- a/lapack-netlib/SRC/sorbdb1.c +++ b/lapack-netlib/SRC/sorbdb1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorbdb2.c b/lapack-netlib/SRC/sorbdb2.c index 50e9feedc2..311f8a695c 100644 --- a/lapack-netlib/SRC/sorbdb2.c +++ b/lapack-netlib/SRC/sorbdb2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorbdb3.c b/lapack-netlib/SRC/sorbdb3.c index a3acf4e8a9..90cad11c42 100644 --- a/lapack-netlib/SRC/sorbdb3.c +++ b/lapack-netlib/SRC/sorbdb3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorbdb4.c b/lapack-netlib/SRC/sorbdb4.c index dee93d5325..39589f329d 100644 --- a/lapack-netlib/SRC/sorbdb4.c +++ b/lapack-netlib/SRC/sorbdb4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorbdb5.c b/lapack-netlib/SRC/sorbdb5.c index 71a684469a..4af92e9dcc 100644 --- a/lapack-netlib/SRC/sorbdb5.c +++ b/lapack-netlib/SRC/sorbdb5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorbdb6.c b/lapack-netlib/SRC/sorbdb6.c index c22606bd3f..89603c3bfa 100644 --- a/lapack-netlib/SRC/sorbdb6.c +++ b/lapack-netlib/SRC/sorbdb6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorcsd.c b/lapack-netlib/SRC/sorcsd.c index 609fa835bc..69f719b118 100644 --- a/lapack-netlib/SRC/sorcsd.c +++ b/lapack-netlib/SRC/sorcsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorcsd2by1.c b/lapack-netlib/SRC/sorcsd2by1.c index 7e0186a3d3..6235a4ed53 100644 --- a/lapack-netlib/SRC/sorcsd2by1.c +++ b/lapack-netlib/SRC/sorcsd2by1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorg2l.c b/lapack-netlib/SRC/sorg2l.c index a62c42deb4..b09bc974c7 100644 --- a/lapack-netlib/SRC/sorg2l.c +++ b/lapack-netlib/SRC/sorg2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorg2r.c b/lapack-netlib/SRC/sorg2r.c index 144d89e1e0..efe338a037 100644 --- a/lapack-netlib/SRC/sorg2r.c +++ b/lapack-netlib/SRC/sorg2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgbr.c b/lapack-netlib/SRC/sorgbr.c index a10e71b2e7..ae2bc030b6 100644 --- a/lapack-netlib/SRC/sorgbr.c +++ b/lapack-netlib/SRC/sorgbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorghr.c b/lapack-netlib/SRC/sorghr.c index c4fbb26caa..81ac69b546 100644 --- a/lapack-netlib/SRC/sorghr.c +++ b/lapack-netlib/SRC/sorghr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgl2.c b/lapack-netlib/SRC/sorgl2.c index d5dfcc95e7..1ff306c7d2 100644 --- a/lapack-netlib/SRC/sorgl2.c +++ b/lapack-netlib/SRC/sorgl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorglq.c b/lapack-netlib/SRC/sorglq.c index 7897879d34..fb7bc80a3c 100644 --- a/lapack-netlib/SRC/sorglq.c +++ b/lapack-netlib/SRC/sorglq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgql.c b/lapack-netlib/SRC/sorgql.c index 31b454e21a..637c2065af 100644 --- a/lapack-netlib/SRC/sorgql.c +++ b/lapack-netlib/SRC/sorgql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgqr.c b/lapack-netlib/SRC/sorgqr.c index c7ced9482c..d09dcba931 100644 --- a/lapack-netlib/SRC/sorgqr.c +++ b/lapack-netlib/SRC/sorgqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgr2.c b/lapack-netlib/SRC/sorgr2.c index fd44b2bcba..7aaaa202d8 100644 --- a/lapack-netlib/SRC/sorgr2.c +++ b/lapack-netlib/SRC/sorgr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgrq.c b/lapack-netlib/SRC/sorgrq.c index 66d2433914..be2b220527 100644 --- a/lapack-netlib/SRC/sorgrq.c +++ b/lapack-netlib/SRC/sorgrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgtr.c b/lapack-netlib/SRC/sorgtr.c index e7ff6daaa8..8f6e16c184 100644 --- a/lapack-netlib/SRC/sorgtr.c +++ b/lapack-netlib/SRC/sorgtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgtsqr.c b/lapack-netlib/SRC/sorgtsqr.c index 5b63e99d7c..769162d96c 100644 --- a/lapack-netlib/SRC/sorgtsqr.c +++ b/lapack-netlib/SRC/sorgtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorgtsqr_row.c b/lapack-netlib/SRC/sorgtsqr_row.c index 3875372e21..a48fe5a351 100644 --- a/lapack-netlib/SRC/sorgtsqr_row.c +++ b/lapack-netlib/SRC/sorgtsqr_row.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorhr_col.c b/lapack-netlib/SRC/sorhr_col.c index 706200dd08..4a47818399 100644 --- a/lapack-netlib/SRC/sorhr_col.c +++ b/lapack-netlib/SRC/sorhr_col.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorm22.c b/lapack-netlib/SRC/sorm22.c index 2cbc237afb..00a18de2b1 100644 --- a/lapack-netlib/SRC/sorm22.c +++ b/lapack-netlib/SRC/sorm22.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorm2l.c b/lapack-netlib/SRC/sorm2l.c index b0ded3367b..193752a4ce 100644 --- a/lapack-netlib/SRC/sorm2l.c +++ b/lapack-netlib/SRC/sorm2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorm2r.c b/lapack-netlib/SRC/sorm2r.c index 98136ee80f..dad735a626 100644 --- a/lapack-netlib/SRC/sorm2r.c +++ b/lapack-netlib/SRC/sorm2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormbr.c b/lapack-netlib/SRC/sormbr.c index fc324c883c..9120b6ce2e 100644 --- a/lapack-netlib/SRC/sormbr.c +++ b/lapack-netlib/SRC/sormbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormhr.c b/lapack-netlib/SRC/sormhr.c index 6893d310be..83b1e8476b 100644 --- a/lapack-netlib/SRC/sormhr.c +++ b/lapack-netlib/SRC/sormhr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sorml2.c b/lapack-netlib/SRC/sorml2.c index 47b6ce8402..dd8ef07241 100644 --- a/lapack-netlib/SRC/sorml2.c +++ b/lapack-netlib/SRC/sorml2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormlq.c b/lapack-netlib/SRC/sormlq.c index ea469602a3..c9d5c99d27 100644 --- a/lapack-netlib/SRC/sormlq.c +++ b/lapack-netlib/SRC/sormlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormql.c b/lapack-netlib/SRC/sormql.c index 3932e56c93..266f1c8b6a 100644 --- a/lapack-netlib/SRC/sormql.c +++ b/lapack-netlib/SRC/sormql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormqr.c b/lapack-netlib/SRC/sormqr.c index 1531b31864..676ee862e1 100644 --- a/lapack-netlib/SRC/sormqr.c +++ b/lapack-netlib/SRC/sormqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormr2.c b/lapack-netlib/SRC/sormr2.c index 7cd260bd62..50fe6fbc59 100644 --- a/lapack-netlib/SRC/sormr2.c +++ b/lapack-netlib/SRC/sormr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormr3.c b/lapack-netlib/SRC/sormr3.c index 93b6b758ff..6da55b4302 100644 --- a/lapack-netlib/SRC/sormr3.c +++ b/lapack-netlib/SRC/sormr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormrq.c b/lapack-netlib/SRC/sormrq.c index 2c2d7084e8..1534bc9b27 100644 --- a/lapack-netlib/SRC/sormrq.c +++ b/lapack-netlib/SRC/sormrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormrz.c b/lapack-netlib/SRC/sormrz.c index af254f9af1..3ed32744de 100644 --- a/lapack-netlib/SRC/sormrz.c +++ b/lapack-netlib/SRC/sormrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sormtr.c b/lapack-netlib/SRC/sormtr.c index 1ae186e518..209adc889a 100644 --- a/lapack-netlib/SRC/sormtr.c +++ b/lapack-netlib/SRC/sormtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbcon.c b/lapack-netlib/SRC/spbcon.c index df9f526931..1df222ee6d 100644 --- a/lapack-netlib/SRC/spbcon.c +++ b/lapack-netlib/SRC/spbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbequ.c b/lapack-netlib/SRC/spbequ.c index 9bd16a4848..f559670fc3 100644 --- a/lapack-netlib/SRC/spbequ.c +++ b/lapack-netlib/SRC/spbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbrfs.c b/lapack-netlib/SRC/spbrfs.c index b878f2fa61..b715149feb 100644 --- a/lapack-netlib/SRC/spbrfs.c +++ b/lapack-netlib/SRC/spbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbstf.c b/lapack-netlib/SRC/spbstf.c index 089c688140..fb8dc94ed5 100644 --- a/lapack-netlib/SRC/spbstf.c +++ b/lapack-netlib/SRC/spbstf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbsv.c b/lapack-netlib/SRC/spbsv.c index 88dba3b752..e9197f23ae 100644 --- a/lapack-netlib/SRC/spbsv.c +++ b/lapack-netlib/SRC/spbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbsvx.c b/lapack-netlib/SRC/spbsvx.c index 179565cac1..a7f57de199 100644 --- a/lapack-netlib/SRC/spbsvx.c +++ b/lapack-netlib/SRC/spbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbtf2.c b/lapack-netlib/SRC/spbtf2.c index 778eec4d21..d4b8a9d469 100644 --- a/lapack-netlib/SRC/spbtf2.c +++ b/lapack-netlib/SRC/spbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbtrf.c b/lapack-netlib/SRC/spbtrf.c index b6ee3b3459..eeacd69e60 100644 --- a/lapack-netlib/SRC/spbtrf.c +++ b/lapack-netlib/SRC/spbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spbtrs.c b/lapack-netlib/SRC/spbtrs.c index dc6e51f990..a7741a1aec 100644 --- a/lapack-netlib/SRC/spbtrs.c +++ b/lapack-netlib/SRC/spbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spftrf.c b/lapack-netlib/SRC/spftrf.c index c82254f073..0dccd02119 100644 --- a/lapack-netlib/SRC/spftrf.c +++ b/lapack-netlib/SRC/spftrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spftri.c b/lapack-netlib/SRC/spftri.c index daf9f28349..24aa0e309e 100644 --- a/lapack-netlib/SRC/spftri.c +++ b/lapack-netlib/SRC/spftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spftrs.c b/lapack-netlib/SRC/spftrs.c index 47b690b056..deab78004c 100644 --- a/lapack-netlib/SRC/spftrs.c +++ b/lapack-netlib/SRC/spftrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spocon.c b/lapack-netlib/SRC/spocon.c index aa58125817..fb2432f18a 100644 --- a/lapack-netlib/SRC/spocon.c +++ b/lapack-netlib/SRC/spocon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spoequ.c b/lapack-netlib/SRC/spoequ.c index 7c93dacf03..f43fac2e89 100644 --- a/lapack-netlib/SRC/spoequ.c +++ b/lapack-netlib/SRC/spoequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spoequb.c b/lapack-netlib/SRC/spoequb.c index aabb0e938e..99a07f5d29 100644 --- a/lapack-netlib/SRC/spoequb.c +++ b/lapack-netlib/SRC/spoequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sporfs.c b/lapack-netlib/SRC/sporfs.c index 76b7697dc8..6f96cc8a9f 100644 --- a/lapack-netlib/SRC/sporfs.c +++ b/lapack-netlib/SRC/sporfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sporfsx.c b/lapack-netlib/SRC/sporfsx.c index 95dc57e845..1a39a0a7b1 100644 --- a/lapack-netlib/SRC/sporfsx.c +++ b/lapack-netlib/SRC/sporfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sposv.c b/lapack-netlib/SRC/sposv.c index b5f80d5a9c..50bcbdec99 100644 --- a/lapack-netlib/SRC/sposv.c +++ b/lapack-netlib/SRC/sposv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sposvx.c b/lapack-netlib/SRC/sposvx.c index 18ce544de5..076330c038 100644 --- a/lapack-netlib/SRC/sposvx.c +++ b/lapack-netlib/SRC/sposvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sposvxx.c b/lapack-netlib/SRC/sposvxx.c index 4955b41ade..aa2f829249 100644 --- a/lapack-netlib/SRC/sposvxx.c +++ b/lapack-netlib/SRC/sposvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spotf2.c b/lapack-netlib/SRC/spotf2.c index 420af52aac..4b97af228e 100644 --- a/lapack-netlib/SRC/spotf2.c +++ b/lapack-netlib/SRC/spotf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spotrf.c b/lapack-netlib/SRC/spotrf.c index 6253877e15..6904a373dc 100644 --- a/lapack-netlib/SRC/spotrf.c +++ b/lapack-netlib/SRC/spotrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spotrf2.c b/lapack-netlib/SRC/spotrf2.c index c32dcd7bee..eefc676702 100644 --- a/lapack-netlib/SRC/spotrf2.c +++ b/lapack-netlib/SRC/spotrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spotri.c b/lapack-netlib/SRC/spotri.c index 7011b0683d..0306ed8a46 100644 --- a/lapack-netlib/SRC/spotri.c +++ b/lapack-netlib/SRC/spotri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spotrs.c b/lapack-netlib/SRC/spotrs.c index 6b5f349b17..0c19700ae4 100644 --- a/lapack-netlib/SRC/spotrs.c +++ b/lapack-netlib/SRC/spotrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sppcon.c b/lapack-netlib/SRC/sppcon.c index c48fc9d4d6..cf0245f42f 100644 --- a/lapack-netlib/SRC/sppcon.c +++ b/lapack-netlib/SRC/sppcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sppequ.c b/lapack-netlib/SRC/sppequ.c index 0523dadc16..8ea34ef769 100644 --- a/lapack-netlib/SRC/sppequ.c +++ b/lapack-netlib/SRC/sppequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spprfs.c b/lapack-netlib/SRC/spprfs.c index 39f408fb4c..f7446e44e6 100644 --- a/lapack-netlib/SRC/spprfs.c +++ b/lapack-netlib/SRC/spprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sppsv.c b/lapack-netlib/SRC/sppsv.c index 5ab64f20c9..9d9ee1442d 100644 --- a/lapack-netlib/SRC/sppsv.c +++ b/lapack-netlib/SRC/sppsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sppsvx.c b/lapack-netlib/SRC/sppsvx.c index 2aacbd3f96..dcecbdd920 100644 --- a/lapack-netlib/SRC/sppsvx.c +++ b/lapack-netlib/SRC/sppsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spptrf.c b/lapack-netlib/SRC/spptrf.c index 9f5013ec06..2e84802cbe 100644 --- a/lapack-netlib/SRC/spptrf.c +++ b/lapack-netlib/SRC/spptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spptri.c b/lapack-netlib/SRC/spptri.c index 36e80f105d..84a15aa440 100644 --- a/lapack-netlib/SRC/spptri.c +++ b/lapack-netlib/SRC/spptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spptrs.c b/lapack-netlib/SRC/spptrs.c index 19acfa4d5a..2041a55179 100644 --- a/lapack-netlib/SRC/spptrs.c +++ b/lapack-netlib/SRC/spptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spstf2.c b/lapack-netlib/SRC/spstf2.c index c6ad41eb62..db4cfcb007 100644 --- a/lapack-netlib/SRC/spstf2.c +++ b/lapack-netlib/SRC/spstf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spstrf.c b/lapack-netlib/SRC/spstrf.c index 13d2c041fa..ce4b61e5b1 100644 --- a/lapack-netlib/SRC/spstrf.c +++ b/lapack-netlib/SRC/spstrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sptcon.c b/lapack-netlib/SRC/sptcon.c index 3bc0862961..816ef3ad64 100644 --- a/lapack-netlib/SRC/sptcon.c +++ b/lapack-netlib/SRC/sptcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spteqr.c b/lapack-netlib/SRC/spteqr.c index 5453f9d684..1c511af8eb 100644 --- a/lapack-netlib/SRC/spteqr.c +++ b/lapack-netlib/SRC/spteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sptrfs.c b/lapack-netlib/SRC/sptrfs.c index 434c240ce5..105e9c8b70 100644 --- a/lapack-netlib/SRC/sptrfs.c +++ b/lapack-netlib/SRC/sptrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sptsv.c b/lapack-netlib/SRC/sptsv.c index 8a5b346a57..d5a45d31c8 100644 --- a/lapack-netlib/SRC/sptsv.c +++ b/lapack-netlib/SRC/sptsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sptsvx.c b/lapack-netlib/SRC/sptsvx.c index 5e32eb0adc..b46142ce9e 100644 --- a/lapack-netlib/SRC/sptsvx.c +++ b/lapack-netlib/SRC/sptsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spttrf.c b/lapack-netlib/SRC/spttrf.c index b657aafd62..01dca993f8 100644 --- a/lapack-netlib/SRC/spttrf.c +++ b/lapack-netlib/SRC/spttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/spttrs.c b/lapack-netlib/SRC/spttrs.c index 9c703e1ab9..1dd3d390f9 100644 --- a/lapack-netlib/SRC/spttrs.c +++ b/lapack-netlib/SRC/spttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sptts2.c b/lapack-netlib/SRC/sptts2.c index 38e2dde20e..97dfe7842e 100644 --- a/lapack-netlib/SRC/sptts2.c +++ b/lapack-netlib/SRC/sptts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/srscl.c b/lapack-netlib/SRC/srscl.c index e91a646f7f..bf89939a00 100644 --- a/lapack-netlib/SRC/srscl.c +++ b/lapack-netlib/SRC/srscl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssb2st_kernels.c b/lapack-netlib/SRC/ssb2st_kernels.c index 96333110f5..c398fe2cfe 100644 --- a/lapack-netlib/SRC/ssb2st_kernels.c +++ b/lapack-netlib/SRC/ssb2st_kernels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbev.c b/lapack-netlib/SRC/ssbev.c index dd3b39f5e2..ae1f698f28 100644 --- a/lapack-netlib/SRC/ssbev.c +++ b/lapack-netlib/SRC/ssbev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbev_2stage.c b/lapack-netlib/SRC/ssbev_2stage.c index c8cf4a0e27..192257a909 100644 --- a/lapack-netlib/SRC/ssbev_2stage.c +++ b/lapack-netlib/SRC/ssbev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbevd.c b/lapack-netlib/SRC/ssbevd.c index 2ef771e343..480edab6ac 100644 --- a/lapack-netlib/SRC/ssbevd.c +++ b/lapack-netlib/SRC/ssbevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbevd_2stage.c b/lapack-netlib/SRC/ssbevd_2stage.c index 2dc23d188f..cc31a526d0 100644 --- a/lapack-netlib/SRC/ssbevd_2stage.c +++ b/lapack-netlib/SRC/ssbevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbevx.c b/lapack-netlib/SRC/ssbevx.c index 057da2e2c4..5d377f0c48 100644 --- a/lapack-netlib/SRC/ssbevx.c +++ b/lapack-netlib/SRC/ssbevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbevx_2stage.c b/lapack-netlib/SRC/ssbevx_2stage.c index 0fafba3a73..f17c7710b7 100644 --- a/lapack-netlib/SRC/ssbevx_2stage.c +++ b/lapack-netlib/SRC/ssbevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbgst.c b/lapack-netlib/SRC/ssbgst.c index da4529a116..edd2f64eef 100644 --- a/lapack-netlib/SRC/ssbgst.c +++ b/lapack-netlib/SRC/ssbgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbgv.c b/lapack-netlib/SRC/ssbgv.c index eb9c965f91..f3abfb5e61 100644 --- a/lapack-netlib/SRC/ssbgv.c +++ b/lapack-netlib/SRC/ssbgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbgvd.c b/lapack-netlib/SRC/ssbgvd.c index 0c3ea7b459..ac30f47706 100644 --- a/lapack-netlib/SRC/ssbgvd.c +++ b/lapack-netlib/SRC/ssbgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbgvx.c b/lapack-netlib/SRC/ssbgvx.c index 6d33191944..84b58f6ea3 100644 --- a/lapack-netlib/SRC/ssbgvx.c +++ b/lapack-netlib/SRC/ssbgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssbtrd.c b/lapack-netlib/SRC/ssbtrd.c index 5a9c788fcb..7af84a9c0d 100644 --- a/lapack-netlib/SRC/ssbtrd.c +++ b/lapack-netlib/SRC/ssbtrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssfrk.c b/lapack-netlib/SRC/ssfrk.c index 9f340381c5..faae167e95 100644 --- a/lapack-netlib/SRC/ssfrk.c +++ b/lapack-netlib/SRC/ssfrk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspcon.c b/lapack-netlib/SRC/sspcon.c index 7172bf6d16..a3b7091cf9 100644 --- a/lapack-netlib/SRC/sspcon.c +++ b/lapack-netlib/SRC/sspcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspev.c b/lapack-netlib/SRC/sspev.c index 4afd4d2143..7b74eb9526 100644 --- a/lapack-netlib/SRC/sspev.c +++ b/lapack-netlib/SRC/sspev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspevd.c b/lapack-netlib/SRC/sspevd.c index 2fb736bdc3..ec5af47fd3 100644 --- a/lapack-netlib/SRC/sspevd.c +++ b/lapack-netlib/SRC/sspevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspevx.c b/lapack-netlib/SRC/sspevx.c index 13c3230347..af1d02eeed 100644 --- a/lapack-netlib/SRC/sspevx.c +++ b/lapack-netlib/SRC/sspevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspgst.c b/lapack-netlib/SRC/sspgst.c index cc70b24371..1e95b6b8f5 100644 --- a/lapack-netlib/SRC/sspgst.c +++ b/lapack-netlib/SRC/sspgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspgv.c b/lapack-netlib/SRC/sspgv.c index 6ca0b3a4b6..30502cf467 100644 --- a/lapack-netlib/SRC/sspgv.c +++ b/lapack-netlib/SRC/sspgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspgvd.c b/lapack-netlib/SRC/sspgvd.c index b2e0c7e8c1..0c79ac144e 100644 --- a/lapack-netlib/SRC/sspgvd.c +++ b/lapack-netlib/SRC/sspgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspgvx.c b/lapack-netlib/SRC/sspgvx.c index 241c34e371..b32b1904b4 100644 --- a/lapack-netlib/SRC/sspgvx.c +++ b/lapack-netlib/SRC/sspgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssprfs.c b/lapack-netlib/SRC/ssprfs.c index a1a16fb764..56396c609f 100644 --- a/lapack-netlib/SRC/ssprfs.c +++ b/lapack-netlib/SRC/ssprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspsv.c b/lapack-netlib/SRC/sspsv.c index 8d592942be..1669ce30a0 100644 --- a/lapack-netlib/SRC/sspsv.c +++ b/lapack-netlib/SRC/sspsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sspsvx.c b/lapack-netlib/SRC/sspsvx.c index c831a6a9f3..7c6548312b 100644 --- a/lapack-netlib/SRC/sspsvx.c +++ b/lapack-netlib/SRC/sspsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssptrd.c b/lapack-netlib/SRC/ssptrd.c index f8976db3af..49a24874d0 100644 --- a/lapack-netlib/SRC/ssptrd.c +++ b/lapack-netlib/SRC/ssptrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssptrf.c b/lapack-netlib/SRC/ssptrf.c index fad8532f7b..89a63f5239 100644 --- a/lapack-netlib/SRC/ssptrf.c +++ b/lapack-netlib/SRC/ssptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssptri.c b/lapack-netlib/SRC/ssptri.c index 79e24f37bf..a49252859e 100644 --- a/lapack-netlib/SRC/ssptri.c +++ b/lapack-netlib/SRC/ssptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssptrs.c b/lapack-netlib/SRC/ssptrs.c index c7b5c05ee9..61c27bbaf8 100644 --- a/lapack-netlib/SRC/ssptrs.c +++ b/lapack-netlib/SRC/ssptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstebz.c b/lapack-netlib/SRC/sstebz.c index e73f9ce9c7..80b69b30ca 100644 --- a/lapack-netlib/SRC/sstebz.c +++ b/lapack-netlib/SRC/sstebz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstedc.c b/lapack-netlib/SRC/sstedc.c index 61ad3dd37c..0c0adfa45e 100644 --- a/lapack-netlib/SRC/sstedc.c +++ b/lapack-netlib/SRC/sstedc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstegr.c b/lapack-netlib/SRC/sstegr.c index 28c581d075..6993bcb6c7 100644 --- a/lapack-netlib/SRC/sstegr.c +++ b/lapack-netlib/SRC/sstegr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstein.c b/lapack-netlib/SRC/sstein.c index 4eeb3d19b8..7227449681 100644 --- a/lapack-netlib/SRC/sstein.c +++ b/lapack-netlib/SRC/sstein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstemr.c b/lapack-netlib/SRC/sstemr.c index b531916892..976afebda3 100644 --- a/lapack-netlib/SRC/sstemr.c +++ b/lapack-netlib/SRC/sstemr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssteqr.c b/lapack-netlib/SRC/ssteqr.c index 02ca293c7f..59f85e3421 100644 --- a/lapack-netlib/SRC/ssteqr.c +++ b/lapack-netlib/SRC/ssteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssterf.c b/lapack-netlib/SRC/ssterf.c index 4581f3cfe0..5f1a844502 100644 --- a/lapack-netlib/SRC/ssterf.c +++ b/lapack-netlib/SRC/ssterf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstev.c b/lapack-netlib/SRC/sstev.c index 0a38320b39..de60230889 100644 --- a/lapack-netlib/SRC/sstev.c +++ b/lapack-netlib/SRC/sstev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstevd.c b/lapack-netlib/SRC/sstevd.c index fc6d24f4eb..29bd746bc8 100644 --- a/lapack-netlib/SRC/sstevd.c +++ b/lapack-netlib/SRC/sstevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstevr.c b/lapack-netlib/SRC/sstevr.c index 3733acf249..30dbbb4ba2 100644 --- a/lapack-netlib/SRC/sstevr.c +++ b/lapack-netlib/SRC/sstevr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/sstevx.c b/lapack-netlib/SRC/sstevx.c index 2d8c50481c..4c67a3cb2d 100644 --- a/lapack-netlib/SRC/sstevx.c +++ b/lapack-netlib/SRC/sstevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssycon.c b/lapack-netlib/SRC/ssycon.c index 6d15c1e5a3..e7af5da42d 100644 --- a/lapack-netlib/SRC/ssycon.c +++ b/lapack-netlib/SRC/ssycon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssycon_3.c b/lapack-netlib/SRC/ssycon_3.c index 4d399327d6..1f40868341 100644 --- a/lapack-netlib/SRC/ssycon_3.c +++ b/lapack-netlib/SRC/ssycon_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssycon_rook.c b/lapack-netlib/SRC/ssycon_rook.c index 7bdd83ff2a..d1947573ab 100644 --- a/lapack-netlib/SRC/ssycon_rook.c +++ b/lapack-netlib/SRC/ssycon_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyconv.c b/lapack-netlib/SRC/ssyconv.c index d17701c6cc..97bc3223c0 100644 --- a/lapack-netlib/SRC/ssyconv.c +++ b/lapack-netlib/SRC/ssyconv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyconvf.c b/lapack-netlib/SRC/ssyconvf.c index 69034dc925..a7629415e6 100644 --- a/lapack-netlib/SRC/ssyconvf.c +++ b/lapack-netlib/SRC/ssyconvf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyconvf_rook.c b/lapack-netlib/SRC/ssyconvf_rook.c index 7aa85940cc..e170ee9495 100644 --- a/lapack-netlib/SRC/ssyconvf_rook.c +++ b/lapack-netlib/SRC/ssyconvf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyequb.c b/lapack-netlib/SRC/ssyequb.c index 31e4564076..8814e20c65 100644 --- a/lapack-netlib/SRC/ssyequb.c +++ b/lapack-netlib/SRC/ssyequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyev.c b/lapack-netlib/SRC/ssyev.c index 27fc4c3182..c50c897a7c 100644 --- a/lapack-netlib/SRC/ssyev.c +++ b/lapack-netlib/SRC/ssyev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyev_2stage.c b/lapack-netlib/SRC/ssyev_2stage.c index a2790dd149..0876f65075 100644 --- a/lapack-netlib/SRC/ssyev_2stage.c +++ b/lapack-netlib/SRC/ssyev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyevd.c b/lapack-netlib/SRC/ssyevd.c index 6ec3bf7a40..fa4785ce15 100644 --- a/lapack-netlib/SRC/ssyevd.c +++ b/lapack-netlib/SRC/ssyevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyevd_2stage.c b/lapack-netlib/SRC/ssyevd_2stage.c index a4146655d1..d908b6f0c2 100644 --- a/lapack-netlib/SRC/ssyevd_2stage.c +++ b/lapack-netlib/SRC/ssyevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyevr.c b/lapack-netlib/SRC/ssyevr.c index 680a1a58be..26db90126f 100644 --- a/lapack-netlib/SRC/ssyevr.c +++ b/lapack-netlib/SRC/ssyevr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyevr_2stage.c b/lapack-netlib/SRC/ssyevr_2stage.c index 0e21f214cb..f8ec5d8c67 100644 --- a/lapack-netlib/SRC/ssyevr_2stage.c +++ b/lapack-netlib/SRC/ssyevr_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyevx.c b/lapack-netlib/SRC/ssyevx.c index d463ad5885..816f05eeb3 100644 --- a/lapack-netlib/SRC/ssyevx.c +++ b/lapack-netlib/SRC/ssyevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyevx_2stage.c b/lapack-netlib/SRC/ssyevx_2stage.c index 6e461b4183..eb37a4da3c 100644 --- a/lapack-netlib/SRC/ssyevx_2stage.c +++ b/lapack-netlib/SRC/ssyevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssygs2.c b/lapack-netlib/SRC/ssygs2.c index fe4a01d8b8..8b5b44d4d2 100644 --- a/lapack-netlib/SRC/ssygs2.c +++ b/lapack-netlib/SRC/ssygs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssygst.c b/lapack-netlib/SRC/ssygst.c index 7458a322f2..34acd39a9b 100644 --- a/lapack-netlib/SRC/ssygst.c +++ b/lapack-netlib/SRC/ssygst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssygv.c b/lapack-netlib/SRC/ssygv.c index 5fd2085d89..ff07bb935c 100644 --- a/lapack-netlib/SRC/ssygv.c +++ b/lapack-netlib/SRC/ssygv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssygv_2stage.c b/lapack-netlib/SRC/ssygv_2stage.c index 251b60be9c..630f556af4 100644 --- a/lapack-netlib/SRC/ssygv_2stage.c +++ b/lapack-netlib/SRC/ssygv_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssygvd.c b/lapack-netlib/SRC/ssygvd.c index b5ec9ac84a..1fcd7574ec 100644 --- a/lapack-netlib/SRC/ssygvd.c +++ b/lapack-netlib/SRC/ssygvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssygvx.c b/lapack-netlib/SRC/ssygvx.c index 355846f31a..c7b1caca86 100644 --- a/lapack-netlib/SRC/ssygvx.c +++ b/lapack-netlib/SRC/ssygvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyrfs.c b/lapack-netlib/SRC/ssyrfs.c index 1fe40a1b30..da6ebfb550 100644 --- a/lapack-netlib/SRC/ssyrfs.c +++ b/lapack-netlib/SRC/ssyrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyrfsx.c b/lapack-netlib/SRC/ssyrfsx.c index e410b1b661..bf0b129237 100644 --- a/lapack-netlib/SRC/ssyrfsx.c +++ b/lapack-netlib/SRC/ssyrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssysv.c b/lapack-netlib/SRC/ssysv.c index 3e70534315..06c7c4a46c 100644 --- a/lapack-netlib/SRC/ssysv.c +++ b/lapack-netlib/SRC/ssysv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssysv_aa.c b/lapack-netlib/SRC/ssysv_aa.c index 4e30204d81..ee17e7e435 100644 --- a/lapack-netlib/SRC/ssysv_aa.c +++ b/lapack-netlib/SRC/ssysv_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssysv_aa_2stage.c b/lapack-netlib/SRC/ssysv_aa_2stage.c index 5113d02113..5c059a9d12 100644 --- a/lapack-netlib/SRC/ssysv_aa_2stage.c +++ b/lapack-netlib/SRC/ssysv_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssysv_rk.c b/lapack-netlib/SRC/ssysv_rk.c index 25a2871836..e5d0d49488 100644 --- a/lapack-netlib/SRC/ssysv_rk.c +++ b/lapack-netlib/SRC/ssysv_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssysv_rook.c b/lapack-netlib/SRC/ssysv_rook.c index 08132197b7..ecac95a398 100644 --- a/lapack-netlib/SRC/ssysv_rook.c +++ b/lapack-netlib/SRC/ssysv_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssysvx.c b/lapack-netlib/SRC/ssysvx.c index 3bbbfcb83a..c050c0a790 100644 --- a/lapack-netlib/SRC/ssysvx.c +++ b/lapack-netlib/SRC/ssysvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssysvxx.c b/lapack-netlib/SRC/ssysvxx.c index 1a95aafd4d..fff3b7cd32 100644 --- a/lapack-netlib/SRC/ssysvxx.c +++ b/lapack-netlib/SRC/ssysvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssyswapr.c b/lapack-netlib/SRC/ssyswapr.c index d613916a4c..67695e54bf 100644 --- a/lapack-netlib/SRC/ssyswapr.c +++ b/lapack-netlib/SRC/ssyswapr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytd2.c b/lapack-netlib/SRC/ssytd2.c index 3926db4a85..1f99b44330 100644 --- a/lapack-netlib/SRC/ssytd2.c +++ b/lapack-netlib/SRC/ssytd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytf2.c b/lapack-netlib/SRC/ssytf2.c index 1026e58d91..ad45a990ac 100644 --- a/lapack-netlib/SRC/ssytf2.c +++ b/lapack-netlib/SRC/ssytf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytf2_rk.c b/lapack-netlib/SRC/ssytf2_rk.c index 4ce53fd50e..cb8b765e19 100644 --- a/lapack-netlib/SRC/ssytf2_rk.c +++ b/lapack-netlib/SRC/ssytf2_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytf2_rook.c b/lapack-netlib/SRC/ssytf2_rook.c index eb6ab57d67..762369cb9e 100644 --- a/lapack-netlib/SRC/ssytf2_rook.c +++ b/lapack-netlib/SRC/ssytf2_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrd.c b/lapack-netlib/SRC/ssytrd.c index d491e6cc14..9252bfec12 100644 --- a/lapack-netlib/SRC/ssytrd.c +++ b/lapack-netlib/SRC/ssytrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrd_2stage.c b/lapack-netlib/SRC/ssytrd_2stage.c index 35bbb6c7c6..7b6a4872c9 100644 --- a/lapack-netlib/SRC/ssytrd_2stage.c +++ b/lapack-netlib/SRC/ssytrd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrd_sb2st.c b/lapack-netlib/SRC/ssytrd_sb2st.c index 83dfe6954b..7021aa4a31 100644 --- a/lapack-netlib/SRC/ssytrd_sb2st.c +++ b/lapack-netlib/SRC/ssytrd_sb2st.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrd_sy2sb.c b/lapack-netlib/SRC/ssytrd_sy2sb.c index 2fcd3c688e..20f349ca38 100644 --- a/lapack-netlib/SRC/ssytrd_sy2sb.c +++ b/lapack-netlib/SRC/ssytrd_sy2sb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrf.c b/lapack-netlib/SRC/ssytrf.c index 0b59841455..9cd5081ba9 100644 --- a/lapack-netlib/SRC/ssytrf.c +++ b/lapack-netlib/SRC/ssytrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrf_aa.c b/lapack-netlib/SRC/ssytrf_aa.c index f331fb373e..a537e7327d 100644 --- a/lapack-netlib/SRC/ssytrf_aa.c +++ b/lapack-netlib/SRC/ssytrf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrf_aa_2stage.c b/lapack-netlib/SRC/ssytrf_aa_2stage.c index 4f25c02bb1..fe939eecd9 100644 --- a/lapack-netlib/SRC/ssytrf_aa_2stage.c +++ b/lapack-netlib/SRC/ssytrf_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrf_rk.c b/lapack-netlib/SRC/ssytrf_rk.c index 93db39123e..47bf269b80 100644 --- a/lapack-netlib/SRC/ssytrf_rk.c +++ b/lapack-netlib/SRC/ssytrf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrf_rook.c b/lapack-netlib/SRC/ssytrf_rook.c index e0818bb808..17383c1b33 100644 --- a/lapack-netlib/SRC/ssytrf_rook.c +++ b/lapack-netlib/SRC/ssytrf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytri.c b/lapack-netlib/SRC/ssytri.c index fc59afecf7..a87ee24c49 100644 --- a/lapack-netlib/SRC/ssytri.c +++ b/lapack-netlib/SRC/ssytri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytri2.c b/lapack-netlib/SRC/ssytri2.c index 1c0ce40327..b25fb35f41 100644 --- a/lapack-netlib/SRC/ssytri2.c +++ b/lapack-netlib/SRC/ssytri2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytri2x.c b/lapack-netlib/SRC/ssytri2x.c index 31d25c85ff..9ab080b2a2 100644 --- a/lapack-netlib/SRC/ssytri2x.c +++ b/lapack-netlib/SRC/ssytri2x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytri_3.c b/lapack-netlib/SRC/ssytri_3.c index e1a0a39e85..05e3d9887b 100644 --- a/lapack-netlib/SRC/ssytri_3.c +++ b/lapack-netlib/SRC/ssytri_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytri_3x.c b/lapack-netlib/SRC/ssytri_3x.c index 99378323cb..d60cadbc38 100644 --- a/lapack-netlib/SRC/ssytri_3x.c +++ b/lapack-netlib/SRC/ssytri_3x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytri_rook.c b/lapack-netlib/SRC/ssytri_rook.c index 36b8a5501f..ae27f5bc3c 100644 --- a/lapack-netlib/SRC/ssytri_rook.c +++ b/lapack-netlib/SRC/ssytri_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrs.c b/lapack-netlib/SRC/ssytrs.c index 13c79835b3..c281285069 100644 --- a/lapack-netlib/SRC/ssytrs.c +++ b/lapack-netlib/SRC/ssytrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrs2.c b/lapack-netlib/SRC/ssytrs2.c index dddf9841e2..99553a1119 100644 --- a/lapack-netlib/SRC/ssytrs2.c +++ b/lapack-netlib/SRC/ssytrs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrs_3.c b/lapack-netlib/SRC/ssytrs_3.c index f93908c363..a6cac20c4c 100644 --- a/lapack-netlib/SRC/ssytrs_3.c +++ b/lapack-netlib/SRC/ssytrs_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrs_aa.c b/lapack-netlib/SRC/ssytrs_aa.c index 52494a0771..966a686922 100644 --- a/lapack-netlib/SRC/ssytrs_aa.c +++ b/lapack-netlib/SRC/ssytrs_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrs_aa_2stage.c b/lapack-netlib/SRC/ssytrs_aa_2stage.c index 3e08626e7d..870cb85d94 100644 --- a/lapack-netlib/SRC/ssytrs_aa_2stage.c +++ b/lapack-netlib/SRC/ssytrs_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ssytrs_rook.c b/lapack-netlib/SRC/ssytrs_rook.c index 5c1e201f37..01fd486ff7 100644 --- a/lapack-netlib/SRC/ssytrs_rook.c +++ b/lapack-netlib/SRC/ssytrs_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stbcon.c b/lapack-netlib/SRC/stbcon.c index ab2f283c9f..5a4f063611 100644 --- a/lapack-netlib/SRC/stbcon.c +++ b/lapack-netlib/SRC/stbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stbrfs.c b/lapack-netlib/SRC/stbrfs.c index 5834f65c1b..305d7ae355 100644 --- a/lapack-netlib/SRC/stbrfs.c +++ b/lapack-netlib/SRC/stbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stbtrs.c b/lapack-netlib/SRC/stbtrs.c index 2f9ad2ba47..c74b15bfde 100644 --- a/lapack-netlib/SRC/stbtrs.c +++ b/lapack-netlib/SRC/stbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stfsm.c b/lapack-netlib/SRC/stfsm.c index 97d548d650..405b3caec6 100644 --- a/lapack-netlib/SRC/stfsm.c +++ b/lapack-netlib/SRC/stfsm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stftri.c b/lapack-netlib/SRC/stftri.c index 511ef565c9..b5beff108c 100644 --- a/lapack-netlib/SRC/stftri.c +++ b/lapack-netlib/SRC/stftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stfttp.c b/lapack-netlib/SRC/stfttp.c index 4a06bc8bc9..85fa1dc793 100644 --- a/lapack-netlib/SRC/stfttp.c +++ b/lapack-netlib/SRC/stfttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stfttr.c b/lapack-netlib/SRC/stfttr.c index c8dc6896f4..65d1a6fb46 100644 --- a/lapack-netlib/SRC/stfttr.c +++ b/lapack-netlib/SRC/stfttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgevc.c b/lapack-netlib/SRC/stgevc.c index 05d12b69a2..9f775040de 100644 --- a/lapack-netlib/SRC/stgevc.c +++ b/lapack-netlib/SRC/stgevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgex2.c b/lapack-netlib/SRC/stgex2.c index 9e974032b7..e054206c58 100644 --- a/lapack-netlib/SRC/stgex2.c +++ b/lapack-netlib/SRC/stgex2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgexc.c b/lapack-netlib/SRC/stgexc.c index 710bf15bf9..063987109a 100644 --- a/lapack-netlib/SRC/stgexc.c +++ b/lapack-netlib/SRC/stgexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgsen.c b/lapack-netlib/SRC/stgsen.c index ae5c3ac286..b03128c440 100644 --- a/lapack-netlib/SRC/stgsen.c +++ b/lapack-netlib/SRC/stgsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgsja.c b/lapack-netlib/SRC/stgsja.c index aa7fcfe84f..6811733383 100644 --- a/lapack-netlib/SRC/stgsja.c +++ b/lapack-netlib/SRC/stgsja.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgsna.c b/lapack-netlib/SRC/stgsna.c index c23ac4fada..73988cd040 100644 --- a/lapack-netlib/SRC/stgsna.c +++ b/lapack-netlib/SRC/stgsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgsy2.c b/lapack-netlib/SRC/stgsy2.c index f37fdb95b3..e161565ba2 100644 --- a/lapack-netlib/SRC/stgsy2.c +++ b/lapack-netlib/SRC/stgsy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stgsyl.c b/lapack-netlib/SRC/stgsyl.c index 703a20065f..ad0a844736 100644 --- a/lapack-netlib/SRC/stgsyl.c +++ b/lapack-netlib/SRC/stgsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stpcon.c b/lapack-netlib/SRC/stpcon.c index 99b3a63531..692f385287 100644 --- a/lapack-netlib/SRC/stpcon.c +++ b/lapack-netlib/SRC/stpcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stplqt.c b/lapack-netlib/SRC/stplqt.c index 325cb625c1..493b0fac8e 100644 --- a/lapack-netlib/SRC/stplqt.c +++ b/lapack-netlib/SRC/stplqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stplqt2.c b/lapack-netlib/SRC/stplqt2.c index 9dc09583dc..4636257708 100644 --- a/lapack-netlib/SRC/stplqt2.c +++ b/lapack-netlib/SRC/stplqt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stpmlqt.c b/lapack-netlib/SRC/stpmlqt.c index 4018fd540f..4ef369c145 100644 --- a/lapack-netlib/SRC/stpmlqt.c +++ b/lapack-netlib/SRC/stpmlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stpmqrt.c b/lapack-netlib/SRC/stpmqrt.c index 5dbe80df19..c98f2dda08 100644 --- a/lapack-netlib/SRC/stpmqrt.c +++ b/lapack-netlib/SRC/stpmqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stpqrt.c b/lapack-netlib/SRC/stpqrt.c index eb84444063..70af996076 100644 --- a/lapack-netlib/SRC/stpqrt.c +++ b/lapack-netlib/SRC/stpqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stpqrt2.c b/lapack-netlib/SRC/stpqrt2.c index 7b67256047..49db92861b 100644 --- a/lapack-netlib/SRC/stpqrt2.c +++ b/lapack-netlib/SRC/stpqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stprfb.c b/lapack-netlib/SRC/stprfb.c index 231d592237..22f010981b 100644 --- a/lapack-netlib/SRC/stprfb.c +++ b/lapack-netlib/SRC/stprfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stprfs.c b/lapack-netlib/SRC/stprfs.c index 774f006e28..095f4f011b 100644 --- a/lapack-netlib/SRC/stprfs.c +++ b/lapack-netlib/SRC/stprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stptri.c b/lapack-netlib/SRC/stptri.c index 1d53469cb9..261acd337f 100644 --- a/lapack-netlib/SRC/stptri.c +++ b/lapack-netlib/SRC/stptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stptrs.c b/lapack-netlib/SRC/stptrs.c index 8143010805..58436576de 100644 --- a/lapack-netlib/SRC/stptrs.c +++ b/lapack-netlib/SRC/stptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stpttf.c b/lapack-netlib/SRC/stpttf.c index c7c32fd688..66922e90d8 100644 --- a/lapack-netlib/SRC/stpttf.c +++ b/lapack-netlib/SRC/stpttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stpttr.c b/lapack-netlib/SRC/stpttr.c index b07698b10e..8f6fab9c8d 100644 --- a/lapack-netlib/SRC/stpttr.c +++ b/lapack-netlib/SRC/stpttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strcon.c b/lapack-netlib/SRC/strcon.c index 880a51be5c..0c34f236d0 100644 --- a/lapack-netlib/SRC/strcon.c +++ b/lapack-netlib/SRC/strcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strevc.c b/lapack-netlib/SRC/strevc.c index cf1afd1142..d584441dd1 100644 --- a/lapack-netlib/SRC/strevc.c +++ b/lapack-netlib/SRC/strevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strevc3.c b/lapack-netlib/SRC/strevc3.c index f623b84f51..b5891efbe9 100644 --- a/lapack-netlib/SRC/strevc3.c +++ b/lapack-netlib/SRC/strevc3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strexc.c b/lapack-netlib/SRC/strexc.c index 45f376b6b1..574cb28f46 100644 --- a/lapack-netlib/SRC/strexc.c +++ b/lapack-netlib/SRC/strexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strrfs.c b/lapack-netlib/SRC/strrfs.c index 32a61be0cd..58be8bfb62 100644 --- a/lapack-netlib/SRC/strrfs.c +++ b/lapack-netlib/SRC/strrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strsen.c b/lapack-netlib/SRC/strsen.c index 2b3a43d2ba..a8c9fa6f5c 100644 --- a/lapack-netlib/SRC/strsen.c +++ b/lapack-netlib/SRC/strsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strsna.c b/lapack-netlib/SRC/strsna.c index 61edf044c2..42552bbfcc 100644 --- a/lapack-netlib/SRC/strsna.c +++ b/lapack-netlib/SRC/strsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strsyl.c b/lapack-netlib/SRC/strsyl.c index 1ca4bda1ed..3212049f49 100644 --- a/lapack-netlib/SRC/strsyl.c +++ b/lapack-netlib/SRC/strsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strsyl3.c b/lapack-netlib/SRC/strsyl3.c index 8ce30ed565..a1420cde11 100644 --- a/lapack-netlib/SRC/strsyl3.c +++ b/lapack-netlib/SRC/strsyl3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -726,7 +726,7 @@ static real c_b32 = 1.f; extern real slamch_(char *), slange_(char *, integer *, integer *, real *, integer *, real *); real scamin; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); real bignum; @@ -817,7 +817,7 @@ static real c_b32 = 1.f; } if (*info != 0) { i__1 = -(*info); - xerbla_("STRSYL3", &i__1); + xerbla_("STRSYL3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/strti2.c b/lapack-netlib/SRC/strti2.c index f83993539c..0392c9596b 100644 --- a/lapack-netlib/SRC/strti2.c +++ b/lapack-netlib/SRC/strti2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strtri.c b/lapack-netlib/SRC/strtri.c index 2e8b34dd37..6b4c9adf58 100644 --- a/lapack-netlib/SRC/strtri.c +++ b/lapack-netlib/SRC/strtri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strtrs.c b/lapack-netlib/SRC/strtrs.c index 5e82ac8254..62e21898d0 100644 --- a/lapack-netlib/SRC/strtrs.c +++ b/lapack-netlib/SRC/strtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strttf.c b/lapack-netlib/SRC/strttf.c index e76a825848..1aac087557 100644 --- a/lapack-netlib/SRC/strttf.c +++ b/lapack-netlib/SRC/strttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/strttp.c b/lapack-netlib/SRC/strttp.c index c82c13c32f..077ed6eaf1 100644 --- a/lapack-netlib/SRC/strttp.c +++ b/lapack-netlib/SRC/strttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/stzrzf.c b/lapack-netlib/SRC/stzrzf.c index ed87874b31..7185be2cd9 100644 --- a/lapack-netlib/SRC/stzrzf.c +++ b/lapack-netlib/SRC/stzrzf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/xerbla.c b/lapack-netlib/SRC/xerbla.c index f571aeea02..a217783592 100644 --- a/lapack-netlib/SRC/xerbla.c +++ b/lapack-netlib/SRC/xerbla.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/xerbla_array.c b/lapack-netlib/SRC/xerbla_array.c index 4ced919302..1ca3f60e09 100644 --- a/lapack-netlib/SRC/xerbla_array.c +++ b/lapack-netlib/SRC/xerbla_array.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -626,7 +626,7 @@ array.f"> */ /* Function Body */ s_copy(srname, "", (ftnlen)32, (ftnlen)0); /* Computing MIN */ - i__2 = *srname_len__, i__3 = i_len(srname, (ftnlen)32); + i__2 = *srname_len__, i__3 = (integer)strlen(srname); i__1 = f2cmin(i__2,i__3); for (i__ = 1; i__ <= i__1; ++i__) { *(unsigned char *)&srname[i__ - 1] = *(unsigned char *)& diff --git a/lapack-netlib/SRC/zbbcsd.c b/lapack-netlib/SRC/zbbcsd.c index 6941e3c0b4..cb9d69a6b9 100644 --- a/lapack-netlib/SRC/zbbcsd.c +++ b/lapack-netlib/SRC/zbbcsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zbdsqr.c b/lapack-netlib/SRC/zbdsqr.c index 59cd6788bd..3bf7e6eec0 100644 --- a/lapack-netlib/SRC/zbdsqr.c +++ b/lapack-netlib/SRC/zbdsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zcgesv.c b/lapack-netlib/SRC/zcgesv.c index 0822c10696..7d79b5474c 100644 --- a/lapack-netlib/SRC/zcgesv.c +++ b/lapack-netlib/SRC/zcgesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zcposv.c b/lapack-netlib/SRC/zcposv.c index f08d08f5a9..30df786178 100644 --- a/lapack-netlib/SRC/zcposv.c +++ b/lapack-netlib/SRC/zcposv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zdrscl.c b/lapack-netlib/SRC/zdrscl.c index 8fdcd33c47..00a9b9c5f4 100644 --- a/lapack-netlib/SRC/zdrscl.c +++ b/lapack-netlib/SRC/zdrscl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbbrd.c b/lapack-netlib/SRC/zgbbrd.c index c86383c206..050672eec8 100644 --- a/lapack-netlib/SRC/zgbbrd.c +++ b/lapack-netlib/SRC/zgbbrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbcon.c b/lapack-netlib/SRC/zgbcon.c index 4f1b1b3e87..5c32e9de69 100644 --- a/lapack-netlib/SRC/zgbcon.c +++ b/lapack-netlib/SRC/zgbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbequ.c b/lapack-netlib/SRC/zgbequ.c index d3dfbfa8ac..d9c75f5062 100644 --- a/lapack-netlib/SRC/zgbequ.c +++ b/lapack-netlib/SRC/zgbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbequb.c b/lapack-netlib/SRC/zgbequb.c index a442073ae0..7267197132 100644 --- a/lapack-netlib/SRC/zgbequb.c +++ b/lapack-netlib/SRC/zgbequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbrfs.c b/lapack-netlib/SRC/zgbrfs.c index 165f7f549c..8ecfecd470 100644 --- a/lapack-netlib/SRC/zgbrfs.c +++ b/lapack-netlib/SRC/zgbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbrfsx.c b/lapack-netlib/SRC/zgbrfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/zgbrfsx.c +++ b/lapack-netlib/SRC/zgbrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbsv.c b/lapack-netlib/SRC/zgbsv.c index f7356516db..61ce218e0a 100644 --- a/lapack-netlib/SRC/zgbsv.c +++ b/lapack-netlib/SRC/zgbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbsvx.c b/lapack-netlib/SRC/zgbsvx.c index 40cbfd0dd3..f2f7246aa0 100644 --- a/lapack-netlib/SRC/zgbsvx.c +++ b/lapack-netlib/SRC/zgbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbsvxx.c b/lapack-netlib/SRC/zgbsvxx.c index 30f3fc2310..b505b60023 100644 --- a/lapack-netlib/SRC/zgbsvxx.c +++ b/lapack-netlib/SRC/zgbsvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbtf2.c b/lapack-netlib/SRC/zgbtf2.c index 4711b23b2f..fb55ea0815 100644 --- a/lapack-netlib/SRC/zgbtf2.c +++ b/lapack-netlib/SRC/zgbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbtrf.c b/lapack-netlib/SRC/zgbtrf.c index a9df0d4ae4..62ef959953 100644 --- a/lapack-netlib/SRC/zgbtrf.c +++ b/lapack-netlib/SRC/zgbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgbtrs.c b/lapack-netlib/SRC/zgbtrs.c index f425a9514f..e8de0d96aa 100644 --- a/lapack-netlib/SRC/zgbtrs.c +++ b/lapack-netlib/SRC/zgbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgebak.c b/lapack-netlib/SRC/zgebak.c index 1aacc55bd6..4e5a524163 100644 --- a/lapack-netlib/SRC/zgebak.c +++ b/lapack-netlib/SRC/zgebak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgebal.c b/lapack-netlib/SRC/zgebal.c index 719cdf5868..32bd70ec97 100644 --- a/lapack-netlib/SRC/zgebal.c +++ b/lapack-netlib/SRC/zgebal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgebd2.c b/lapack-netlib/SRC/zgebd2.c index 556839b3b2..22ea320c30 100644 --- a/lapack-netlib/SRC/zgebd2.c +++ b/lapack-netlib/SRC/zgebd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgebrd.c b/lapack-netlib/SRC/zgebrd.c index 7561c8a929..3e2e53527f 100644 --- a/lapack-netlib/SRC/zgebrd.c +++ b/lapack-netlib/SRC/zgebrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgecon.c b/lapack-netlib/SRC/zgecon.c index 27e4f784d8..944e963567 100644 --- a/lapack-netlib/SRC/zgecon.c +++ b/lapack-netlib/SRC/zgecon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeequ.c b/lapack-netlib/SRC/zgeequ.c index 06805f478c..b2509e40d3 100644 --- a/lapack-netlib/SRC/zgeequ.c +++ b/lapack-netlib/SRC/zgeequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeequb.c b/lapack-netlib/SRC/zgeequb.c index d5f1df3cbf..02b599ab66 100644 --- a/lapack-netlib/SRC/zgeequb.c +++ b/lapack-netlib/SRC/zgeequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgees.c b/lapack-netlib/SRC/zgees.c index 8476e3e3fb..32028748ab 100644 --- a/lapack-netlib/SRC/zgees.c +++ b/lapack-netlib/SRC/zgees.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeesx.c b/lapack-netlib/SRC/zgeesx.c index 72a245610f..1f10891140 100644 --- a/lapack-netlib/SRC/zgeesx.c +++ b/lapack-netlib/SRC/zgeesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeev.c b/lapack-netlib/SRC/zgeev.c index df74979fcb..d6a81ab04e 100644 --- a/lapack-netlib/SRC/zgeev.c +++ b/lapack-netlib/SRC/zgeev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeevx.c b/lapack-netlib/SRC/zgeevx.c index d63ca45870..1c8f73ba5f 100644 --- a/lapack-netlib/SRC/zgeevx.c +++ b/lapack-netlib/SRC/zgeevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgehd2.c b/lapack-netlib/SRC/zgehd2.c index 52005e008a..d926dc8b2e 100644 --- a/lapack-netlib/SRC/zgehd2.c +++ b/lapack-netlib/SRC/zgehd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgehrd.c b/lapack-netlib/SRC/zgehrd.c index 751f5597f9..e761c7ff45 100644 --- a/lapack-netlib/SRC/zgehrd.c +++ b/lapack-netlib/SRC/zgehrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgejsv.c b/lapack-netlib/SRC/zgejsv.c index 21549d4005..3a8d1654c6 100644 --- a/lapack-netlib/SRC/zgejsv.c +++ b/lapack-netlib/SRC/zgejsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelq.c b/lapack-netlib/SRC/zgelq.c index 6bab268694..3ca29dd0ff 100644 --- a/lapack-netlib/SRC/zgelq.c +++ b/lapack-netlib/SRC/zgelq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelq2.c b/lapack-netlib/SRC/zgelq2.c index ec413aaed5..eeb2f0fdd0 100644 --- a/lapack-netlib/SRC/zgelq2.c +++ b/lapack-netlib/SRC/zgelq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelqf.c b/lapack-netlib/SRC/zgelqf.c index a850007d6e..57063ce42c 100644 --- a/lapack-netlib/SRC/zgelqf.c +++ b/lapack-netlib/SRC/zgelqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelqt.c b/lapack-netlib/SRC/zgelqt.c index 8af0c94f6b..fe22cc745d 100644 --- a/lapack-netlib/SRC/zgelqt.c +++ b/lapack-netlib/SRC/zgelqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelqt3.c b/lapack-netlib/SRC/zgelqt3.c index 6b5b95ee3c..d828a1c0a4 100644 --- a/lapack-netlib/SRC/zgelqt3.c +++ b/lapack-netlib/SRC/zgelqt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgels.c b/lapack-netlib/SRC/zgels.c index c8723aefab..55f03ae58f 100644 --- a/lapack-netlib/SRC/zgels.c +++ b/lapack-netlib/SRC/zgels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelsd.c b/lapack-netlib/SRC/zgelsd.c index cefb148109..42d54b3578 100644 --- a/lapack-netlib/SRC/zgelsd.c +++ b/lapack-netlib/SRC/zgelsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelss.c b/lapack-netlib/SRC/zgelss.c index c13d2a0e55..55c9e0816f 100644 --- a/lapack-netlib/SRC/zgelss.c +++ b/lapack-netlib/SRC/zgelss.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgelst.c b/lapack-netlib/SRC/zgelst.c index 447cd30bb8..9578621e64 100644 --- a/lapack-netlib/SRC/zgelst.c +++ b/lapack-netlib/SRC/zgelst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -731,7 +731,7 @@ f"> */ integer nb; extern doublereal dlamch_(char *); integer mn; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); integer scllen; @@ -833,7 +833,7 @@ f"> */ if (*info != 0) { i__1 = -(*info); - xerbla_("ZGELST ", &i__1); + xerbla_("ZGELST", &i__1, (ftnlen)6); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/zgelsy.c b/lapack-netlib/SRC/zgelsy.c index ef3242ab11..deed0f119c 100644 --- a/lapack-netlib/SRC/zgelsy.c +++ b/lapack-netlib/SRC/zgelsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgemlq.c b/lapack-netlib/SRC/zgemlq.c index 6ecb8e0a06..fd772914ef 100644 --- a/lapack-netlib/SRC/zgemlq.c +++ b/lapack-netlib/SRC/zgemlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgemlqt.c b/lapack-netlib/SRC/zgemlqt.c index ed9d9db352..1cfce91870 100644 --- a/lapack-netlib/SRC/zgemlqt.c +++ b/lapack-netlib/SRC/zgemlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgemqr.c b/lapack-netlib/SRC/zgemqr.c index 24744b593f..82d5bd7c9b 100644 --- a/lapack-netlib/SRC/zgemqr.c +++ b/lapack-netlib/SRC/zgemqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgemqrt.c b/lapack-netlib/SRC/zgemqrt.c index 7b1f9fd70c..3122686f27 100644 --- a/lapack-netlib/SRC/zgemqrt.c +++ b/lapack-netlib/SRC/zgemqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeql2.c b/lapack-netlib/SRC/zgeql2.c index 5040dc9a56..09eb16fc49 100644 --- a/lapack-netlib/SRC/zgeql2.c +++ b/lapack-netlib/SRC/zgeql2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqlf.c b/lapack-netlib/SRC/zgeqlf.c index 9ad9262d58..c0f3c9fc46 100644 --- a/lapack-netlib/SRC/zgeqlf.c +++ b/lapack-netlib/SRC/zgeqlf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqp3.c b/lapack-netlib/SRC/zgeqp3.c index 36a1460bed..1a358e3275 100644 --- a/lapack-netlib/SRC/zgeqp3.c +++ b/lapack-netlib/SRC/zgeqp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqr.c b/lapack-netlib/SRC/zgeqr.c index 11577befbe..42f47b5286 100644 --- a/lapack-netlib/SRC/zgeqr.c +++ b/lapack-netlib/SRC/zgeqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqr2.c b/lapack-netlib/SRC/zgeqr2.c index ae4783eaee..855b687fc6 100644 --- a/lapack-netlib/SRC/zgeqr2.c +++ b/lapack-netlib/SRC/zgeqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqr2p.c b/lapack-netlib/SRC/zgeqr2p.c index 38901a4f97..a738dcad60 100644 --- a/lapack-netlib/SRC/zgeqr2p.c +++ b/lapack-netlib/SRC/zgeqr2p.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqrf.c b/lapack-netlib/SRC/zgeqrf.c index 9bfe34428d..7a49409b95 100644 --- a/lapack-netlib/SRC/zgeqrf.c +++ b/lapack-netlib/SRC/zgeqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqrfp.c b/lapack-netlib/SRC/zgeqrfp.c index 0f2a955439..e1566a7d78 100644 --- a/lapack-netlib/SRC/zgeqrfp.c +++ b/lapack-netlib/SRC/zgeqrfp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqrt.c b/lapack-netlib/SRC/zgeqrt.c index 005d01be11..fa4e4d61d3 100644 --- a/lapack-netlib/SRC/zgeqrt.c +++ b/lapack-netlib/SRC/zgeqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqrt2.c b/lapack-netlib/SRC/zgeqrt2.c index b394114786..1ed578eaf0 100644 --- a/lapack-netlib/SRC/zgeqrt2.c +++ b/lapack-netlib/SRC/zgeqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgeqrt3.c b/lapack-netlib/SRC/zgeqrt3.c index d9e957d6cf..eb83022656 100644 --- a/lapack-netlib/SRC/zgeqrt3.c +++ b/lapack-netlib/SRC/zgeqrt3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgerfs.c b/lapack-netlib/SRC/zgerfs.c index b2d308e583..c7543fc71a 100644 --- a/lapack-netlib/SRC/zgerfs.c +++ b/lapack-netlib/SRC/zgerfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgerfsx.c b/lapack-netlib/SRC/zgerfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/zgerfsx.c +++ b/lapack-netlib/SRC/zgerfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgerq2.c b/lapack-netlib/SRC/zgerq2.c index 97805c94f8..15e670aa26 100644 --- a/lapack-netlib/SRC/zgerq2.c +++ b/lapack-netlib/SRC/zgerq2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgerqf.c b/lapack-netlib/SRC/zgerqf.c index 8caf1ceadf..75529c9eca 100644 --- a/lapack-netlib/SRC/zgerqf.c +++ b/lapack-netlib/SRC/zgerqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesc2.c b/lapack-netlib/SRC/zgesc2.c index e880737661..4034102609 100644 --- a/lapack-netlib/SRC/zgesc2.c +++ b/lapack-netlib/SRC/zgesc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesdd.c b/lapack-netlib/SRC/zgesdd.c index b081ed4824..bc550d2eed 100644 --- a/lapack-netlib/SRC/zgesdd.c +++ b/lapack-netlib/SRC/zgesdd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesv.c b/lapack-netlib/SRC/zgesv.c index ead824bc1c..4080d272ec 100644 --- a/lapack-netlib/SRC/zgesv.c +++ b/lapack-netlib/SRC/zgesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesvd.c b/lapack-netlib/SRC/zgesvd.c index 45769457f1..0ec458d9dd 100644 --- a/lapack-netlib/SRC/zgesvd.c +++ b/lapack-netlib/SRC/zgesvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesvdq.c b/lapack-netlib/SRC/zgesvdq.c index 21855194a7..b45f514346 100644 --- a/lapack-netlib/SRC/zgesvdq.c +++ b/lapack-netlib/SRC/zgesvdq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesvdx.c b/lapack-netlib/SRC/zgesvdx.c index c53117a69d..c2a98de195 100644 --- a/lapack-netlib/SRC/zgesvdx.c +++ b/lapack-netlib/SRC/zgesvdx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesvj.c b/lapack-netlib/SRC/zgesvj.c index b352266631..d0649a02ee 100644 --- a/lapack-netlib/SRC/zgesvj.c +++ b/lapack-netlib/SRC/zgesvj.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesvx.c b/lapack-netlib/SRC/zgesvx.c index 58ff9f6c1c..c1949f6704 100644 --- a/lapack-netlib/SRC/zgesvx.c +++ b/lapack-netlib/SRC/zgesvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgesvxx.c b/lapack-netlib/SRC/zgesvxx.c index 9a9e875b4f..45242179ff 100644 --- a/lapack-netlib/SRC/zgesvxx.c +++ b/lapack-netlib/SRC/zgesvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetc2.c b/lapack-netlib/SRC/zgetc2.c index 0d024477a4..0491d68e79 100644 --- a/lapack-netlib/SRC/zgetc2.c +++ b/lapack-netlib/SRC/zgetc2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetf2.c b/lapack-netlib/SRC/zgetf2.c index 1609b5d025..7daf791443 100644 --- a/lapack-netlib/SRC/zgetf2.c +++ b/lapack-netlib/SRC/zgetf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetrf.c b/lapack-netlib/SRC/zgetrf.c index 42dcee4304..de14ec2e76 100644 --- a/lapack-netlib/SRC/zgetrf.c +++ b/lapack-netlib/SRC/zgetrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetrf2.c b/lapack-netlib/SRC/zgetrf2.c index 44e1df00b7..273c31bf23 100644 --- a/lapack-netlib/SRC/zgetrf2.c +++ b/lapack-netlib/SRC/zgetrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetri.c b/lapack-netlib/SRC/zgetri.c index fb0a721bd3..a5554c2fdd 100644 --- a/lapack-netlib/SRC/zgetri.c +++ b/lapack-netlib/SRC/zgetri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetrs.c b/lapack-netlib/SRC/zgetrs.c index d81cf4dc2e..37f9bfbf2e 100644 --- a/lapack-netlib/SRC/zgetrs.c +++ b/lapack-netlib/SRC/zgetrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetsls.c b/lapack-netlib/SRC/zgetsls.c index 9d2e9e6d53..1ddaced668 100644 --- a/lapack-netlib/SRC/zgetsls.c +++ b/lapack-netlib/SRC/zgetsls.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgetsqrhrt.c b/lapack-netlib/SRC/zgetsqrhrt.c index 093ee20ec2..e68729b3b3 100644 --- a/lapack-netlib/SRC/zgetsqrhrt.c +++ b/lapack-netlib/SRC/zgetsqrhrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggbak.c b/lapack-netlib/SRC/zggbak.c index 091fa1d008..b7104e8faa 100644 --- a/lapack-netlib/SRC/zggbak.c +++ b/lapack-netlib/SRC/zggbak.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggbal.c b/lapack-netlib/SRC/zggbal.c index 4d18110855..8f3975a6f2 100644 --- a/lapack-netlib/SRC/zggbal.c +++ b/lapack-netlib/SRC/zggbal.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgges.c b/lapack-netlib/SRC/zgges.c index 2ac9479a1e..8359aa3a7d 100644 --- a/lapack-netlib/SRC/zgges.c +++ b/lapack-netlib/SRC/zgges.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgges3.c b/lapack-netlib/SRC/zgges3.c index 3c1103761e..4beb5ea0b0 100644 --- a/lapack-netlib/SRC/zgges3.c +++ b/lapack-netlib/SRC/zgges3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggesx.c b/lapack-netlib/SRC/zggesx.c index a735cf09ee..ba5587961d 100644 --- a/lapack-netlib/SRC/zggesx.c +++ b/lapack-netlib/SRC/zggesx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggev.c b/lapack-netlib/SRC/zggev.c index 56c6679466..0c3e34dd59 100644 --- a/lapack-netlib/SRC/zggev.c +++ b/lapack-netlib/SRC/zggev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggev3.c b/lapack-netlib/SRC/zggev3.c index 6df791b846..55920b4925 100644 --- a/lapack-netlib/SRC/zggev3.c +++ b/lapack-netlib/SRC/zggev3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggevx.c b/lapack-netlib/SRC/zggevx.c index 7c66fb7dbd..7df2a6b5a4 100644 --- a/lapack-netlib/SRC/zggevx.c +++ b/lapack-netlib/SRC/zggevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggglm.c b/lapack-netlib/SRC/zggglm.c index 87e2a9af4e..77e28357f7 100644 --- a/lapack-netlib/SRC/zggglm.c +++ b/lapack-netlib/SRC/zggglm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgghd3.c b/lapack-netlib/SRC/zgghd3.c index 0347a460f5..9233b292bb 100644 --- a/lapack-netlib/SRC/zgghd3.c +++ b/lapack-netlib/SRC/zgghd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgghrd.c b/lapack-netlib/SRC/zgghrd.c index 4321aaf2ff..163146261e 100644 --- a/lapack-netlib/SRC/zgghrd.c +++ b/lapack-netlib/SRC/zgghrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgglse.c b/lapack-netlib/SRC/zgglse.c index e0c3e3b5e3..ebc7c00d47 100644 --- a/lapack-netlib/SRC/zgglse.c +++ b/lapack-netlib/SRC/zgglse.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggqrf.c b/lapack-netlib/SRC/zggqrf.c index 7962a60eae..b97c1791e7 100644 --- a/lapack-netlib/SRC/zggqrf.c +++ b/lapack-netlib/SRC/zggqrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggrqf.c b/lapack-netlib/SRC/zggrqf.c index 7c12e53871..b995a82b0a 100644 --- a/lapack-netlib/SRC/zggrqf.c +++ b/lapack-netlib/SRC/zggrqf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggsvd3.c b/lapack-netlib/SRC/zggsvd3.c index bae5f7532c..cdf6dffcb5 100644 --- a/lapack-netlib/SRC/zggsvd3.c +++ b/lapack-netlib/SRC/zggsvd3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zggsvp3.c b/lapack-netlib/SRC/zggsvp3.c index b639c03cc4..f185322319 100644 --- a/lapack-netlib/SRC/zggsvp3.c +++ b/lapack-netlib/SRC/zggsvp3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgsvj0.c b/lapack-netlib/SRC/zgsvj0.c index bbe87c27b2..78b6144212 100644 --- a/lapack-netlib/SRC/zgsvj0.c +++ b/lapack-netlib/SRC/zgsvj0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgsvj1.c b/lapack-netlib/SRC/zgsvj1.c index ec930a9627..2aff99dd34 100644 --- a/lapack-netlib/SRC/zgsvj1.c +++ b/lapack-netlib/SRC/zgsvj1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgtcon.c b/lapack-netlib/SRC/zgtcon.c index 5a81f69bac..e3ccc96abb 100644 --- a/lapack-netlib/SRC/zgtcon.c +++ b/lapack-netlib/SRC/zgtcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgtrfs.c b/lapack-netlib/SRC/zgtrfs.c index e47e86005e..3cc5f3bde8 100644 --- a/lapack-netlib/SRC/zgtrfs.c +++ b/lapack-netlib/SRC/zgtrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgtsv.c b/lapack-netlib/SRC/zgtsv.c index d99f679489..ad326d12ea 100644 --- a/lapack-netlib/SRC/zgtsv.c +++ b/lapack-netlib/SRC/zgtsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgtsvx.c b/lapack-netlib/SRC/zgtsvx.c index 6978634e51..4de556f7f9 100644 --- a/lapack-netlib/SRC/zgtsvx.c +++ b/lapack-netlib/SRC/zgtsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgttrf.c b/lapack-netlib/SRC/zgttrf.c index 323424af10..daeb5cbd89 100644 --- a/lapack-netlib/SRC/zgttrf.c +++ b/lapack-netlib/SRC/zgttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgttrs.c b/lapack-netlib/SRC/zgttrs.c index e550c7e1e2..831f023376 100644 --- a/lapack-netlib/SRC/zgttrs.c +++ b/lapack-netlib/SRC/zgttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zgtts2.c b/lapack-netlib/SRC/zgtts2.c index c1df66d969..4001648476 100644 --- a/lapack-netlib/SRC/zgtts2.c +++ b/lapack-netlib/SRC/zgtts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhb2st_kernels.c b/lapack-netlib/SRC/zhb2st_kernels.c index d465485d6d..524492622f 100644 --- a/lapack-netlib/SRC/zhb2st_kernels.c +++ b/lapack-netlib/SRC/zhb2st_kernels.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbev.c b/lapack-netlib/SRC/zhbev.c index ea576ff114..e091427e17 100644 --- a/lapack-netlib/SRC/zhbev.c +++ b/lapack-netlib/SRC/zhbev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbev_2stage.c b/lapack-netlib/SRC/zhbev_2stage.c index 9f25278605..a382749bc2 100644 --- a/lapack-netlib/SRC/zhbev_2stage.c +++ b/lapack-netlib/SRC/zhbev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbevd.c b/lapack-netlib/SRC/zhbevd.c index 93a2ea78f6..62b539c2c2 100644 --- a/lapack-netlib/SRC/zhbevd.c +++ b/lapack-netlib/SRC/zhbevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbevd_2stage.c b/lapack-netlib/SRC/zhbevd_2stage.c index 5f0deecd7b..b816bc2cf2 100644 --- a/lapack-netlib/SRC/zhbevd_2stage.c +++ b/lapack-netlib/SRC/zhbevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbevx.c b/lapack-netlib/SRC/zhbevx.c index 2de6c2290c..276e0e6883 100644 --- a/lapack-netlib/SRC/zhbevx.c +++ b/lapack-netlib/SRC/zhbevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbevx_2stage.c b/lapack-netlib/SRC/zhbevx_2stage.c index 6e16b15ebd..d6109c06f6 100644 --- a/lapack-netlib/SRC/zhbevx_2stage.c +++ b/lapack-netlib/SRC/zhbevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbgst.c b/lapack-netlib/SRC/zhbgst.c index 58ff95ab0d..25a097af1f 100644 --- a/lapack-netlib/SRC/zhbgst.c +++ b/lapack-netlib/SRC/zhbgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbgv.c b/lapack-netlib/SRC/zhbgv.c index b3d0a2ae46..214b2f24be 100644 --- a/lapack-netlib/SRC/zhbgv.c +++ b/lapack-netlib/SRC/zhbgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbgvd.c b/lapack-netlib/SRC/zhbgvd.c index 685c5ef0eb..a30b10a252 100644 --- a/lapack-netlib/SRC/zhbgvd.c +++ b/lapack-netlib/SRC/zhbgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbgvx.c b/lapack-netlib/SRC/zhbgvx.c index 0e2f75f943..98142642ae 100644 --- a/lapack-netlib/SRC/zhbgvx.c +++ b/lapack-netlib/SRC/zhbgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhbtrd.c b/lapack-netlib/SRC/zhbtrd.c index 5e0b17ee20..baf0b4cdf4 100644 --- a/lapack-netlib/SRC/zhbtrd.c +++ b/lapack-netlib/SRC/zhbtrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhecon.c b/lapack-netlib/SRC/zhecon.c index 9989d91ac5..8f66445870 100644 --- a/lapack-netlib/SRC/zhecon.c +++ b/lapack-netlib/SRC/zhecon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhecon_3.c b/lapack-netlib/SRC/zhecon_3.c index 2e18f8a604..261a5387b0 100644 --- a/lapack-netlib/SRC/zhecon_3.c +++ b/lapack-netlib/SRC/zhecon_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhecon_rook.c b/lapack-netlib/SRC/zhecon_rook.c index debdac09be..f648b0e13d 100644 --- a/lapack-netlib/SRC/zhecon_rook.c +++ b/lapack-netlib/SRC/zhecon_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheequb.c b/lapack-netlib/SRC/zheequb.c index 7f6659ad5e..9cd971c2d6 100644 --- a/lapack-netlib/SRC/zheequb.c +++ b/lapack-netlib/SRC/zheequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheev.c b/lapack-netlib/SRC/zheev.c index 2b979e6849..abee52c21e 100644 --- a/lapack-netlib/SRC/zheev.c +++ b/lapack-netlib/SRC/zheev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheev_2stage.c b/lapack-netlib/SRC/zheev_2stage.c index e9719f9764..377161aadb 100644 --- a/lapack-netlib/SRC/zheev_2stage.c +++ b/lapack-netlib/SRC/zheev_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheevd.c b/lapack-netlib/SRC/zheevd.c index 7150e7838d..ed0384d889 100644 --- a/lapack-netlib/SRC/zheevd.c +++ b/lapack-netlib/SRC/zheevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheevd_2stage.c b/lapack-netlib/SRC/zheevd_2stage.c index 6943c1d68a..f7ba6467cc 100644 --- a/lapack-netlib/SRC/zheevd_2stage.c +++ b/lapack-netlib/SRC/zheevd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheevr.c b/lapack-netlib/SRC/zheevr.c index f5dfaf9a22..7a1423ebe7 100644 --- a/lapack-netlib/SRC/zheevr.c +++ b/lapack-netlib/SRC/zheevr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheevr_2stage.c b/lapack-netlib/SRC/zheevr_2stage.c index 7042343cf1..66bc1b9dd8 100644 --- a/lapack-netlib/SRC/zheevr_2stage.c +++ b/lapack-netlib/SRC/zheevr_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheevx.c b/lapack-netlib/SRC/zheevx.c index 9648c2d092..fdd9588796 100644 --- a/lapack-netlib/SRC/zheevx.c +++ b/lapack-netlib/SRC/zheevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheevx_2stage.c b/lapack-netlib/SRC/zheevx_2stage.c index 851b4adf33..5ceb31424a 100644 --- a/lapack-netlib/SRC/zheevx_2stage.c +++ b/lapack-netlib/SRC/zheevx_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhegs2.c b/lapack-netlib/SRC/zhegs2.c index ee1d674b31..7ffbe49b5c 100644 --- a/lapack-netlib/SRC/zhegs2.c +++ b/lapack-netlib/SRC/zhegs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhegst.c b/lapack-netlib/SRC/zhegst.c index 5d70105677..0d6a7a956d 100644 --- a/lapack-netlib/SRC/zhegst.c +++ b/lapack-netlib/SRC/zhegst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhegv.c b/lapack-netlib/SRC/zhegv.c index 5e5c46ba5a..2b225a818e 100644 --- a/lapack-netlib/SRC/zhegv.c +++ b/lapack-netlib/SRC/zhegv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhegv_2stage.c b/lapack-netlib/SRC/zhegv_2stage.c index 80606d6347..2df2b0f69d 100644 --- a/lapack-netlib/SRC/zhegv_2stage.c +++ b/lapack-netlib/SRC/zhegv_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhegvd.c b/lapack-netlib/SRC/zhegvd.c index 6c0ca98910..24bfe856f9 100644 --- a/lapack-netlib/SRC/zhegvd.c +++ b/lapack-netlib/SRC/zhegvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhegvx.c b/lapack-netlib/SRC/zhegvx.c index 28f628af06..0f73fd403d 100644 --- a/lapack-netlib/SRC/zhegvx.c +++ b/lapack-netlib/SRC/zhegvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zherfs.c b/lapack-netlib/SRC/zherfs.c index 9dbcd7c6f2..c96a4ecc97 100644 --- a/lapack-netlib/SRC/zherfs.c +++ b/lapack-netlib/SRC/zherfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zherfsx.c b/lapack-netlib/SRC/zherfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/zherfsx.c +++ b/lapack-netlib/SRC/zherfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhesv.c b/lapack-netlib/SRC/zhesv.c index d7bc12465a..f1a7bf0686 100644 --- a/lapack-netlib/SRC/zhesv.c +++ b/lapack-netlib/SRC/zhesv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhesv_aa.c b/lapack-netlib/SRC/zhesv_aa.c index 1384fdee24..2fb8a30e57 100644 --- a/lapack-netlib/SRC/zhesv_aa.c +++ b/lapack-netlib/SRC/zhesv_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhesv_aa_2stage.c b/lapack-netlib/SRC/zhesv_aa_2stage.c index f435609782..b7f428dc2c 100644 --- a/lapack-netlib/SRC/zhesv_aa_2stage.c +++ b/lapack-netlib/SRC/zhesv_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhesv_rk.c b/lapack-netlib/SRC/zhesv_rk.c index b95143bcb3..d115032a9c 100644 --- a/lapack-netlib/SRC/zhesv_rk.c +++ b/lapack-netlib/SRC/zhesv_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhesv_rook.c b/lapack-netlib/SRC/zhesv_rook.c index 05541e18f1..e52b21c954 100644 --- a/lapack-netlib/SRC/zhesv_rook.c +++ b/lapack-netlib/SRC/zhesv_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhesvx.c b/lapack-netlib/SRC/zhesvx.c index 4de9033d05..b5824d21a1 100644 --- a/lapack-netlib/SRC/zhesvx.c +++ b/lapack-netlib/SRC/zhesvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhesvxx.c b/lapack-netlib/SRC/zhesvxx.c index 696c9f306b..4fdbb81de8 100644 --- a/lapack-netlib/SRC/zhesvxx.c +++ b/lapack-netlib/SRC/zhesvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zheswapr.c b/lapack-netlib/SRC/zheswapr.c index d8ec5b1b06..86c6762ec6 100644 --- a/lapack-netlib/SRC/zheswapr.c +++ b/lapack-netlib/SRC/zheswapr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetd2.c b/lapack-netlib/SRC/zhetd2.c index 6e6caad797..ba703c73c3 100644 --- a/lapack-netlib/SRC/zhetd2.c +++ b/lapack-netlib/SRC/zhetd2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetf2.c b/lapack-netlib/SRC/zhetf2.c index 6afddd6126..e6f5d53930 100644 --- a/lapack-netlib/SRC/zhetf2.c +++ b/lapack-netlib/SRC/zhetf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetf2_rk.c b/lapack-netlib/SRC/zhetf2_rk.c index df630973f6..51d2db00a0 100644 --- a/lapack-netlib/SRC/zhetf2_rk.c +++ b/lapack-netlib/SRC/zhetf2_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetf2_rook.c b/lapack-netlib/SRC/zhetf2_rook.c index 2b5e16ee64..796c371485 100644 --- a/lapack-netlib/SRC/zhetf2_rook.c +++ b/lapack-netlib/SRC/zhetf2_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrd.c b/lapack-netlib/SRC/zhetrd.c index 6cf300d02c..db65fd0992 100644 --- a/lapack-netlib/SRC/zhetrd.c +++ b/lapack-netlib/SRC/zhetrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrd_2stage.c b/lapack-netlib/SRC/zhetrd_2stage.c index a8946c38e8..6444826163 100644 --- a/lapack-netlib/SRC/zhetrd_2stage.c +++ b/lapack-netlib/SRC/zhetrd_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrd_hb2st.c b/lapack-netlib/SRC/zhetrd_hb2st.c index 07bd66764c..e649117cd2 100644 --- a/lapack-netlib/SRC/zhetrd_hb2st.c +++ b/lapack-netlib/SRC/zhetrd_hb2st.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrd_he2hb.c b/lapack-netlib/SRC/zhetrd_he2hb.c index 235c493f82..32d482f7ed 100644 --- a/lapack-netlib/SRC/zhetrd_he2hb.c +++ b/lapack-netlib/SRC/zhetrd_he2hb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrf.c b/lapack-netlib/SRC/zhetrf.c index acd6c9f4b7..8dbee1c89b 100644 --- a/lapack-netlib/SRC/zhetrf.c +++ b/lapack-netlib/SRC/zhetrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrf_aa.c b/lapack-netlib/SRC/zhetrf_aa.c index 0bfbfd017b..e9e8e08663 100644 --- a/lapack-netlib/SRC/zhetrf_aa.c +++ b/lapack-netlib/SRC/zhetrf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrf_aa_2stage.c b/lapack-netlib/SRC/zhetrf_aa_2stage.c index b88596a5df..8205444a8e 100644 --- a/lapack-netlib/SRC/zhetrf_aa_2stage.c +++ b/lapack-netlib/SRC/zhetrf_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrf_rk.c b/lapack-netlib/SRC/zhetrf_rk.c index 5e2148a7da..92433684fb 100644 --- a/lapack-netlib/SRC/zhetrf_rk.c +++ b/lapack-netlib/SRC/zhetrf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrf_rook.c b/lapack-netlib/SRC/zhetrf_rook.c index 9c2593c5c1..e63c460fed 100644 --- a/lapack-netlib/SRC/zhetrf_rook.c +++ b/lapack-netlib/SRC/zhetrf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetri.c b/lapack-netlib/SRC/zhetri.c index 264bccfdd2..32291648d6 100644 --- a/lapack-netlib/SRC/zhetri.c +++ b/lapack-netlib/SRC/zhetri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetri2.c b/lapack-netlib/SRC/zhetri2.c index 0ccaf9fcf7..14fd1aa87b 100644 --- a/lapack-netlib/SRC/zhetri2.c +++ b/lapack-netlib/SRC/zhetri2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetri2x.c b/lapack-netlib/SRC/zhetri2x.c index 2fcf271734..f9964e6ee5 100644 --- a/lapack-netlib/SRC/zhetri2x.c +++ b/lapack-netlib/SRC/zhetri2x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetri_3.c b/lapack-netlib/SRC/zhetri_3.c index 64d52d94cf..ce6a331793 100644 --- a/lapack-netlib/SRC/zhetri_3.c +++ b/lapack-netlib/SRC/zhetri_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetri_3x.c b/lapack-netlib/SRC/zhetri_3x.c index 74e143e198..0e685c5996 100644 --- a/lapack-netlib/SRC/zhetri_3x.c +++ b/lapack-netlib/SRC/zhetri_3x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetri_rook.c b/lapack-netlib/SRC/zhetri_rook.c index 8ebcb1ba1f..e6d304efde 100644 --- a/lapack-netlib/SRC/zhetri_rook.c +++ b/lapack-netlib/SRC/zhetri_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrs.c b/lapack-netlib/SRC/zhetrs.c index 0340dd1496..a45200a057 100644 --- a/lapack-netlib/SRC/zhetrs.c +++ b/lapack-netlib/SRC/zhetrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrs2.c b/lapack-netlib/SRC/zhetrs2.c index e196ba95ab..c12b812882 100644 --- a/lapack-netlib/SRC/zhetrs2.c +++ b/lapack-netlib/SRC/zhetrs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrs_3.c b/lapack-netlib/SRC/zhetrs_3.c index 4db247a9c4..934f016b8a 100644 --- a/lapack-netlib/SRC/zhetrs_3.c +++ b/lapack-netlib/SRC/zhetrs_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrs_aa.c b/lapack-netlib/SRC/zhetrs_aa.c index 63b4e07b9d..523deb231b 100644 --- a/lapack-netlib/SRC/zhetrs_aa.c +++ b/lapack-netlib/SRC/zhetrs_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrs_aa_2stage.c b/lapack-netlib/SRC/zhetrs_aa_2stage.c index 75879e0ccf..0067558bd0 100644 --- a/lapack-netlib/SRC/zhetrs_aa_2stage.c +++ b/lapack-netlib/SRC/zhetrs_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhetrs_rook.c b/lapack-netlib/SRC/zhetrs_rook.c index 9ecb2b6644..50799dcefa 100644 --- a/lapack-netlib/SRC/zhetrs_rook.c +++ b/lapack-netlib/SRC/zhetrs_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhfrk.c b/lapack-netlib/SRC/zhfrk.c index 2decb3c4bb..335b48ea93 100644 --- a/lapack-netlib/SRC/zhfrk.c +++ b/lapack-netlib/SRC/zhfrk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhgeqz.c b/lapack-netlib/SRC/zhgeqz.c index 4cb70385ba..2fc7ceda9a 100644 --- a/lapack-netlib/SRC/zhgeqz.c +++ b/lapack-netlib/SRC/zhgeqz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpcon.c b/lapack-netlib/SRC/zhpcon.c index 80ed469afa..fb2777a7d0 100644 --- a/lapack-netlib/SRC/zhpcon.c +++ b/lapack-netlib/SRC/zhpcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpev.c b/lapack-netlib/SRC/zhpev.c index a228657ac9..6562c28c2b 100644 --- a/lapack-netlib/SRC/zhpev.c +++ b/lapack-netlib/SRC/zhpev.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpevd.c b/lapack-netlib/SRC/zhpevd.c index bfcf5a8a08..e8e5ea374b 100644 --- a/lapack-netlib/SRC/zhpevd.c +++ b/lapack-netlib/SRC/zhpevd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpevx.c b/lapack-netlib/SRC/zhpevx.c index f2ac4d49fe..d59f68d2fe 100644 --- a/lapack-netlib/SRC/zhpevx.c +++ b/lapack-netlib/SRC/zhpevx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpgst.c b/lapack-netlib/SRC/zhpgst.c index 83ccf19041..2086cbd275 100644 --- a/lapack-netlib/SRC/zhpgst.c +++ b/lapack-netlib/SRC/zhpgst.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpgv.c b/lapack-netlib/SRC/zhpgv.c index 84b3c86a74..e33c5e0ab5 100644 --- a/lapack-netlib/SRC/zhpgv.c +++ b/lapack-netlib/SRC/zhpgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpgvd.c b/lapack-netlib/SRC/zhpgvd.c index fe28d388c6..8bb62f83e8 100644 --- a/lapack-netlib/SRC/zhpgvd.c +++ b/lapack-netlib/SRC/zhpgvd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpgvx.c b/lapack-netlib/SRC/zhpgvx.c index bb344085ed..53ed7f2aaa 100644 --- a/lapack-netlib/SRC/zhpgvx.c +++ b/lapack-netlib/SRC/zhpgvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhprfs.c b/lapack-netlib/SRC/zhprfs.c index 86cb5472c6..5f2d694931 100644 --- a/lapack-netlib/SRC/zhprfs.c +++ b/lapack-netlib/SRC/zhprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpsv.c b/lapack-netlib/SRC/zhpsv.c index f59b08e9b5..6e91a2cdb6 100644 --- a/lapack-netlib/SRC/zhpsv.c +++ b/lapack-netlib/SRC/zhpsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhpsvx.c b/lapack-netlib/SRC/zhpsvx.c index f845948e44..07976f1831 100644 --- a/lapack-netlib/SRC/zhpsvx.c +++ b/lapack-netlib/SRC/zhpsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhptrd.c b/lapack-netlib/SRC/zhptrd.c index 3aabfb3486..41c7734720 100644 --- a/lapack-netlib/SRC/zhptrd.c +++ b/lapack-netlib/SRC/zhptrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhptrf.c b/lapack-netlib/SRC/zhptrf.c index 7b259c2a98..00c8b59a1d 100644 --- a/lapack-netlib/SRC/zhptrf.c +++ b/lapack-netlib/SRC/zhptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhptri.c b/lapack-netlib/SRC/zhptri.c index 8cfb00456d..2576661c04 100644 --- a/lapack-netlib/SRC/zhptri.c +++ b/lapack-netlib/SRC/zhptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhptrs.c b/lapack-netlib/SRC/zhptrs.c index 4c3da08813..b08fdca772 100644 --- a/lapack-netlib/SRC/zhptrs.c +++ b/lapack-netlib/SRC/zhptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhsein.c b/lapack-netlib/SRC/zhsein.c index 16bd334061..3d381b95f0 100644 --- a/lapack-netlib/SRC/zhsein.c +++ b/lapack-netlib/SRC/zhsein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zhseqr.c b/lapack-netlib/SRC/zhseqr.c index 29ff10ba47..48d6f8a96f 100644 --- a/lapack-netlib/SRC/zhseqr.c +++ b/lapack-netlib/SRC/zhseqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gbamv.c b/lapack-netlib/SRC/zla_gbamv.c index 772ed37dcb..e57fe19e8d 100644 --- a/lapack-netlib/SRC/zla_gbamv.c +++ b/lapack-netlib/SRC/zla_gbamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gbrcond_c.c b/lapack-netlib/SRC/zla_gbrcond_c.c index 9d4ec9afa2..02fc6be2c1 100644 --- a/lapack-netlib/SRC/zla_gbrcond_c.c +++ b/lapack-netlib/SRC/zla_gbrcond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gbrcond_x.c b/lapack-netlib/SRC/zla_gbrcond_x.c index 5aeed95f29..172e3b62d1 100644 --- a/lapack-netlib/SRC/zla_gbrcond_x.c +++ b/lapack-netlib/SRC/zla_gbrcond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gbrfsx_extended.c b/lapack-netlib/SRC/zla_gbrfsx_extended.c index 5853ee7fb5..beaabdd1c0 100644 --- a/lapack-netlib/SRC/zla_gbrfsx_extended.c +++ b/lapack-netlib/SRC/zla_gbrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gbrpvgrw.c b/lapack-netlib/SRC/zla_gbrpvgrw.c index 5208601693..15a351bf59 100644 --- a/lapack-netlib/SRC/zla_gbrpvgrw.c +++ b/lapack-netlib/SRC/zla_gbrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_geamv.c b/lapack-netlib/SRC/zla_geamv.c index bc89727122..300234a8a0 100644 --- a/lapack-netlib/SRC/zla_geamv.c +++ b/lapack-netlib/SRC/zla_geamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gercond_c.c b/lapack-netlib/SRC/zla_gercond_c.c index cf253da970..2157d71442 100644 --- a/lapack-netlib/SRC/zla_gercond_c.c +++ b/lapack-netlib/SRC/zla_gercond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gercond_x.c b/lapack-netlib/SRC/zla_gercond_x.c index a468677066..4883804d77 100644 --- a/lapack-netlib/SRC/zla_gercond_x.c +++ b/lapack-netlib/SRC/zla_gercond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gerfsx_extended.c b/lapack-netlib/SRC/zla_gerfsx_extended.c index 879f79f1cc..6b8d766314 100644 --- a/lapack-netlib/SRC/zla_gerfsx_extended.c +++ b/lapack-netlib/SRC/zla_gerfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_gerpvgrw.c b/lapack-netlib/SRC/zla_gerpvgrw.c index 5feae54aa9..248e0823c9 100644 --- a/lapack-netlib/SRC/zla_gerpvgrw.c +++ b/lapack-netlib/SRC/zla_gerpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_heamv.c b/lapack-netlib/SRC/zla_heamv.c index d68cf5b1c7..8c8e2e546c 100644 --- a/lapack-netlib/SRC/zla_heamv.c +++ b/lapack-netlib/SRC/zla_heamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_hercond_c.c b/lapack-netlib/SRC/zla_hercond_c.c index a986dd2626..d0e82d3921 100644 --- a/lapack-netlib/SRC/zla_hercond_c.c +++ b/lapack-netlib/SRC/zla_hercond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_hercond_x.c b/lapack-netlib/SRC/zla_hercond_x.c index 35396ef964..f01151d588 100644 --- a/lapack-netlib/SRC/zla_hercond_x.c +++ b/lapack-netlib/SRC/zla_hercond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_herfsx_extended.c b/lapack-netlib/SRC/zla_herfsx_extended.c index c425141909..6068d01596 100644 --- a/lapack-netlib/SRC/zla_herfsx_extended.c +++ b/lapack-netlib/SRC/zla_herfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_herpvgrw.c b/lapack-netlib/SRC/zla_herpvgrw.c index 85715d493d..992d97ac25 100644 --- a/lapack-netlib/SRC/zla_herpvgrw.c +++ b/lapack-netlib/SRC/zla_herpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_lin_berr.c b/lapack-netlib/SRC/zla_lin_berr.c index c44ab42edb..e32c678843 100644 --- a/lapack-netlib/SRC/zla_lin_berr.c +++ b/lapack-netlib/SRC/zla_lin_berr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_porcond_c.c b/lapack-netlib/SRC/zla_porcond_c.c index 3b64bbf0ea..07f90b242e 100644 --- a/lapack-netlib/SRC/zla_porcond_c.c +++ b/lapack-netlib/SRC/zla_porcond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_porcond_x.c b/lapack-netlib/SRC/zla_porcond_x.c index 98f95157f0..bd5184d3e3 100644 --- a/lapack-netlib/SRC/zla_porcond_x.c +++ b/lapack-netlib/SRC/zla_porcond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_porfsx_extended.c b/lapack-netlib/SRC/zla_porfsx_extended.c index 2aed207268..7d8b83557e 100644 --- a/lapack-netlib/SRC/zla_porfsx_extended.c +++ b/lapack-netlib/SRC/zla_porfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_porpvgrw.c b/lapack-netlib/SRC/zla_porpvgrw.c index ee1de1b3fb..c563eb9bf3 100644 --- a/lapack-netlib/SRC/zla_porpvgrw.c +++ b/lapack-netlib/SRC/zla_porpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_syamv.c b/lapack-netlib/SRC/zla_syamv.c index 17ca5cfd3d..1abc1a5635 100644 --- a/lapack-netlib/SRC/zla_syamv.c +++ b/lapack-netlib/SRC/zla_syamv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_syrcond_c.c b/lapack-netlib/SRC/zla_syrcond_c.c index d3beb3a4b4..15f70ae8f2 100644 --- a/lapack-netlib/SRC/zla_syrcond_c.c +++ b/lapack-netlib/SRC/zla_syrcond_c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_syrcond_x.c b/lapack-netlib/SRC/zla_syrcond_x.c index b4c25c2adf..7ae70b97b0 100644 --- a/lapack-netlib/SRC/zla_syrcond_x.c +++ b/lapack-netlib/SRC/zla_syrcond_x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_syrfsx_extended.c b/lapack-netlib/SRC/zla_syrfsx_extended.c index fc1dc54917..ca5203ab63 100644 --- a/lapack-netlib/SRC/zla_syrfsx_extended.c +++ b/lapack-netlib/SRC/zla_syrfsx_extended.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_syrpvgrw.c b/lapack-netlib/SRC/zla_syrpvgrw.c index 3a9af3b3e2..a8c55d5984 100644 --- a/lapack-netlib/SRC/zla_syrpvgrw.c +++ b/lapack-netlib/SRC/zla_syrpvgrw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zla_wwaddw.c b/lapack-netlib/SRC/zla_wwaddw.c index 9247e16cc7..9f71fa92d8 100644 --- a/lapack-netlib/SRC/zla_wwaddw.c +++ b/lapack-netlib/SRC/zla_wwaddw.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlabrd.c b/lapack-netlib/SRC/zlabrd.c index 4655c0e767..f9c387c683 100644 --- a/lapack-netlib/SRC/zlabrd.c +++ b/lapack-netlib/SRC/zlabrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlacgv.c b/lapack-netlib/SRC/zlacgv.c index 0ea47da7de..a3344c1a78 100644 --- a/lapack-netlib/SRC/zlacgv.c +++ b/lapack-netlib/SRC/zlacgv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlacn2.c b/lapack-netlib/SRC/zlacn2.c index 0bbd32c897..fc80179c1f 100644 --- a/lapack-netlib/SRC/zlacn2.c +++ b/lapack-netlib/SRC/zlacn2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlacon.c b/lapack-netlib/SRC/zlacon.c index ac0e9e151f..043df75f55 100644 --- a/lapack-netlib/SRC/zlacon.c +++ b/lapack-netlib/SRC/zlacon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlacp2.c b/lapack-netlib/SRC/zlacp2.c index 5dfbf34583..a623d41b78 100644 --- a/lapack-netlib/SRC/zlacp2.c +++ b/lapack-netlib/SRC/zlacp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlacpy.c b/lapack-netlib/SRC/zlacpy.c index ed67080162..0b961be984 100644 --- a/lapack-netlib/SRC/zlacpy.c +++ b/lapack-netlib/SRC/zlacpy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlacrm.c b/lapack-netlib/SRC/zlacrm.c index 4fa719d6db..892cdb9567 100644 --- a/lapack-netlib/SRC/zlacrm.c +++ b/lapack-netlib/SRC/zlacrm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlacrt.c b/lapack-netlib/SRC/zlacrt.c index 5389b45699..e196b08c2d 100644 --- a/lapack-netlib/SRC/zlacrt.c +++ b/lapack-netlib/SRC/zlacrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zladiv.c b/lapack-netlib/SRC/zladiv.c index 3780f24fda..c6ed05f439 100644 --- a/lapack-netlib/SRC/zladiv.c +++ b/lapack-netlib/SRC/zladiv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaed0.c b/lapack-netlib/SRC/zlaed0.c index 2b25f6e4ec..924b100736 100644 --- a/lapack-netlib/SRC/zlaed0.c +++ b/lapack-netlib/SRC/zlaed0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaed7.c b/lapack-netlib/SRC/zlaed7.c index 8665ee12cd..1f77308cbc 100644 --- a/lapack-netlib/SRC/zlaed7.c +++ b/lapack-netlib/SRC/zlaed7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaed8.c b/lapack-netlib/SRC/zlaed8.c index 1838507f32..65a728d4dd 100644 --- a/lapack-netlib/SRC/zlaed8.c +++ b/lapack-netlib/SRC/zlaed8.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaein.c b/lapack-netlib/SRC/zlaein.c index 49e970e43e..629255eeb4 100644 --- a/lapack-netlib/SRC/zlaein.c +++ b/lapack-netlib/SRC/zlaein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaesy.c b/lapack-netlib/SRC/zlaesy.c index 85151d9165..0ab5a52f4f 100644 --- a/lapack-netlib/SRC/zlaesy.c +++ b/lapack-netlib/SRC/zlaesy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaev2.c b/lapack-netlib/SRC/zlaev2.c index 0bcd2fb900..bac86a9cb3 100644 --- a/lapack-netlib/SRC/zlaev2.c +++ b/lapack-netlib/SRC/zlaev2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlag2c.c b/lapack-netlib/SRC/zlag2c.c index 82a463d396..7372ea9823 100644 --- a/lapack-netlib/SRC/zlag2c.c +++ b/lapack-netlib/SRC/zlag2c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlags2.c b/lapack-netlib/SRC/zlags2.c index c8bc8e9013..910953c739 100644 --- a/lapack-netlib/SRC/zlags2.c +++ b/lapack-netlib/SRC/zlags2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlagtm.c b/lapack-netlib/SRC/zlagtm.c index 5607cacb49..c938417a2b 100644 --- a/lapack-netlib/SRC/zlagtm.c +++ b/lapack-netlib/SRC/zlagtm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlahef.c b/lapack-netlib/SRC/zlahef.c index 19ba4caa54..98538ec361 100644 --- a/lapack-netlib/SRC/zlahef.c +++ b/lapack-netlib/SRC/zlahef.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlahef_aa.c b/lapack-netlib/SRC/zlahef_aa.c index cf2cd3bc44..96092cfa6f 100644 --- a/lapack-netlib/SRC/zlahef_aa.c +++ b/lapack-netlib/SRC/zlahef_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlahef_rk.c b/lapack-netlib/SRC/zlahef_rk.c index b1dc03b333..7ef58507ef 100644 --- a/lapack-netlib/SRC/zlahef_rk.c +++ b/lapack-netlib/SRC/zlahef_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlahef_rook.c b/lapack-netlib/SRC/zlahef_rook.c index 608b1d6626..d34b62da2d 100644 --- a/lapack-netlib/SRC/zlahef_rook.c +++ b/lapack-netlib/SRC/zlahef_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlahqr.c b/lapack-netlib/SRC/zlahqr.c index 22089322f9..c05954875a 100644 --- a/lapack-netlib/SRC/zlahqr.c +++ b/lapack-netlib/SRC/zlahqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlahr2.c b/lapack-netlib/SRC/zlahr2.c index a52036244b..574ed388d7 100644 --- a/lapack-netlib/SRC/zlahr2.c +++ b/lapack-netlib/SRC/zlahr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaic1.c b/lapack-netlib/SRC/zlaic1.c index 9a09702c71..0f56f2ad29 100644 --- a/lapack-netlib/SRC/zlaic1.c +++ b/lapack-netlib/SRC/zlaic1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlals0.c b/lapack-netlib/SRC/zlals0.c index 598cc23a42..4ae04b54a4 100644 --- a/lapack-netlib/SRC/zlals0.c +++ b/lapack-netlib/SRC/zlals0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlalsa.c b/lapack-netlib/SRC/zlalsa.c index cd0819c3db..ec27f47edf 100644 --- a/lapack-netlib/SRC/zlalsa.c +++ b/lapack-netlib/SRC/zlalsa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlalsd.c b/lapack-netlib/SRC/zlalsd.c index df0842062b..7504e38401 100644 --- a/lapack-netlib/SRC/zlalsd.c +++ b/lapack-netlib/SRC/zlalsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlamswlq.c b/lapack-netlib/SRC/zlamswlq.c index 2394ebbdde..07fc995452 100644 --- a/lapack-netlib/SRC/zlamswlq.c +++ b/lapack-netlib/SRC/zlamswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlamtsqr.c b/lapack-netlib/SRC/zlamtsqr.c index 5c16c87854..96cc050996 100644 --- a/lapack-netlib/SRC/zlamtsqr.c +++ b/lapack-netlib/SRC/zlamtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlangb.c b/lapack-netlib/SRC/zlangb.c index db5a323dc6..a0199816db 100644 --- a/lapack-netlib/SRC/zlangb.c +++ b/lapack-netlib/SRC/zlangb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlange.c b/lapack-netlib/SRC/zlange.c index 8166ec0aa1..28f069a3af 100644 --- a/lapack-netlib/SRC/zlange.c +++ b/lapack-netlib/SRC/zlange.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlangt.c b/lapack-netlib/SRC/zlangt.c index 98c9a41728..fb89d13f28 100644 --- a/lapack-netlib/SRC/zlangt.c +++ b/lapack-netlib/SRC/zlangt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlanhb.c b/lapack-netlib/SRC/zlanhb.c index a9ad39a759..d20e3ea274 100644 --- a/lapack-netlib/SRC/zlanhb.c +++ b/lapack-netlib/SRC/zlanhb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlanhe.c b/lapack-netlib/SRC/zlanhe.c index ed494b948b..07ebe44da6 100644 --- a/lapack-netlib/SRC/zlanhe.c +++ b/lapack-netlib/SRC/zlanhe.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlanhf.c b/lapack-netlib/SRC/zlanhf.c index dd23ad40ea..45377bfb12 100644 --- a/lapack-netlib/SRC/zlanhf.c +++ b/lapack-netlib/SRC/zlanhf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlanhp.c b/lapack-netlib/SRC/zlanhp.c index 52239c1e00..c2e7701d6b 100644 --- a/lapack-netlib/SRC/zlanhp.c +++ b/lapack-netlib/SRC/zlanhp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlanhs.c b/lapack-netlib/SRC/zlanhs.c index d5de0e08cb..a073e4aeda 100644 --- a/lapack-netlib/SRC/zlanhs.c +++ b/lapack-netlib/SRC/zlanhs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlanht.c b/lapack-netlib/SRC/zlanht.c index c7b2552ead..f12047c06f 100644 --- a/lapack-netlib/SRC/zlanht.c +++ b/lapack-netlib/SRC/zlanht.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlansb.c b/lapack-netlib/SRC/zlansb.c index a012be6a8a..7c583466c7 100644 --- a/lapack-netlib/SRC/zlansb.c +++ b/lapack-netlib/SRC/zlansb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlansp.c b/lapack-netlib/SRC/zlansp.c index 3356a767b3..6de613c7d4 100644 --- a/lapack-netlib/SRC/zlansp.c +++ b/lapack-netlib/SRC/zlansp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlansy.c b/lapack-netlib/SRC/zlansy.c index b5d8084376..71270732c1 100644 --- a/lapack-netlib/SRC/zlansy.c +++ b/lapack-netlib/SRC/zlansy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlantb.c b/lapack-netlib/SRC/zlantb.c index 957a993304..907c44b894 100644 --- a/lapack-netlib/SRC/zlantb.c +++ b/lapack-netlib/SRC/zlantb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlantp.c b/lapack-netlib/SRC/zlantp.c index c7f8eaafbe..bde166ccfa 100644 --- a/lapack-netlib/SRC/zlantp.c +++ b/lapack-netlib/SRC/zlantp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlantr.c b/lapack-netlib/SRC/zlantr.c index bfd89e6574..f31f06e25d 100644 --- a/lapack-netlib/SRC/zlantr.c +++ b/lapack-netlib/SRC/zlantr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlapll.c b/lapack-netlib/SRC/zlapll.c index 9033034185..482b8360c5 100644 --- a/lapack-netlib/SRC/zlapll.c +++ b/lapack-netlib/SRC/zlapll.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlapmr.c b/lapack-netlib/SRC/zlapmr.c index 794de8c4a8..6c7128e609 100644 --- a/lapack-netlib/SRC/zlapmr.c +++ b/lapack-netlib/SRC/zlapmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlapmt.c b/lapack-netlib/SRC/zlapmt.c index d3359be4c7..e3f1ded3ae 100644 --- a/lapack-netlib/SRC/zlapmt.c +++ b/lapack-netlib/SRC/zlapmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqgb.c b/lapack-netlib/SRC/zlaqgb.c index 0ca7d57ecd..5ef1eea730 100644 --- a/lapack-netlib/SRC/zlaqgb.c +++ b/lapack-netlib/SRC/zlaqgb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqge.c b/lapack-netlib/SRC/zlaqge.c index f5a8368a9d..062b6c3163 100644 --- a/lapack-netlib/SRC/zlaqge.c +++ b/lapack-netlib/SRC/zlaqge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqhb.c b/lapack-netlib/SRC/zlaqhb.c index 36b4a9f22f..315b9b25f5 100644 --- a/lapack-netlib/SRC/zlaqhb.c +++ b/lapack-netlib/SRC/zlaqhb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqhe.c b/lapack-netlib/SRC/zlaqhe.c index 90deb53d31..2f73f793d8 100644 --- a/lapack-netlib/SRC/zlaqhe.c +++ b/lapack-netlib/SRC/zlaqhe.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqhp.c b/lapack-netlib/SRC/zlaqhp.c index 3d5ff62787..d19bdbe0c8 100644 --- a/lapack-netlib/SRC/zlaqhp.c +++ b/lapack-netlib/SRC/zlaqhp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqp2.c b/lapack-netlib/SRC/zlaqp2.c index 5519f75206..8997f48e8d 100644 --- a/lapack-netlib/SRC/zlaqp2.c +++ b/lapack-netlib/SRC/zlaqp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqps.c b/lapack-netlib/SRC/zlaqps.c index e1f3beaa0e..0ca2555232 100644 --- a/lapack-netlib/SRC/zlaqps.c +++ b/lapack-netlib/SRC/zlaqps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqr0.c b/lapack-netlib/SRC/zlaqr0.c index 06b58fd1f9..7d09fe4e46 100644 --- a/lapack-netlib/SRC/zlaqr0.c +++ b/lapack-netlib/SRC/zlaqr0.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqr1.c b/lapack-netlib/SRC/zlaqr1.c index 2232d286b9..2cc6bdc046 100644 --- a/lapack-netlib/SRC/zlaqr1.c +++ b/lapack-netlib/SRC/zlaqr1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqr2.c b/lapack-netlib/SRC/zlaqr2.c index e7c352293a..319953a9fd 100644 --- a/lapack-netlib/SRC/zlaqr2.c +++ b/lapack-netlib/SRC/zlaqr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqr3.c b/lapack-netlib/SRC/zlaqr3.c index 8ac0b9a29a..7d6238f6fd 100644 --- a/lapack-netlib/SRC/zlaqr3.c +++ b/lapack-netlib/SRC/zlaqr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqr4.c b/lapack-netlib/SRC/zlaqr4.c index 999bdc91e8..a23f03f455 100644 --- a/lapack-netlib/SRC/zlaqr4.c +++ b/lapack-netlib/SRC/zlaqr4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqr5.c b/lapack-netlib/SRC/zlaqr5.c index 4086989686..bd385452f3 100644 --- a/lapack-netlib/SRC/zlaqr5.c +++ b/lapack-netlib/SRC/zlaqr5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqsb.c b/lapack-netlib/SRC/zlaqsb.c index 42622920ff..97ba415791 100644 --- a/lapack-netlib/SRC/zlaqsb.c +++ b/lapack-netlib/SRC/zlaqsb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqsp.c b/lapack-netlib/SRC/zlaqsp.c index 7db6a0d61f..31adc7171e 100644 --- a/lapack-netlib/SRC/zlaqsp.c +++ b/lapack-netlib/SRC/zlaqsp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqsy.c b/lapack-netlib/SRC/zlaqsy.c index 6ac767d913..b7be7b3106 100644 --- a/lapack-netlib/SRC/zlaqsy.c +++ b/lapack-netlib/SRC/zlaqsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqz0.c b/lapack-netlib/SRC/zlaqz0.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/zlaqz0.c +++ b/lapack-netlib/SRC/zlaqz0.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqz1.c b/lapack-netlib/SRC/zlaqz1.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/zlaqz1.c +++ b/lapack-netlib/SRC/zlaqz1.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqz2.c b/lapack-netlib/SRC/zlaqz2.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/zlaqz2.c +++ b/lapack-netlib/SRC/zlaqz2.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaqz3.c b/lapack-netlib/SRC/zlaqz3.c index d05923a46d..237308c463 100644 --- a/lapack-netlib/SRC/zlaqz3.c +++ b/lapack-netlib/SRC/zlaqz3.c @@ -33,7 +33,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlar1v.c b/lapack-netlib/SRC/zlar1v.c index 0d13d45b12..acc7376436 100644 --- a/lapack-netlib/SRC/zlar1v.c +++ b/lapack-netlib/SRC/zlar1v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlar2v.c b/lapack-netlib/SRC/zlar2v.c index 0b03b91d1b..f52777e0a6 100644 --- a/lapack-netlib/SRC/zlar2v.c +++ b/lapack-netlib/SRC/zlar2v.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarcm.c b/lapack-netlib/SRC/zlarcm.c index c2f784dd81..52e1640872 100644 --- a/lapack-netlib/SRC/zlarcm.c +++ b/lapack-netlib/SRC/zlarcm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarf.c b/lapack-netlib/SRC/zlarf.c index 8269b34991..cbc1352ef7 100644 --- a/lapack-netlib/SRC/zlarf.c +++ b/lapack-netlib/SRC/zlarf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarfb.c b/lapack-netlib/SRC/zlarfb.c index bb1bfea3b5..49d7b2b784 100644 --- a/lapack-netlib/SRC/zlarfb.c +++ b/lapack-netlib/SRC/zlarfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarfb_gett.c b/lapack-netlib/SRC/zlarfb_gett.c index 14f4bd66dc..39674686d7 100644 --- a/lapack-netlib/SRC/zlarfb_gett.c +++ b/lapack-netlib/SRC/zlarfb_gett.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarfg.c b/lapack-netlib/SRC/zlarfg.c index 3e1171350c..bbb4ad66bc 100644 --- a/lapack-netlib/SRC/zlarfg.c +++ b/lapack-netlib/SRC/zlarfg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarfgp.c b/lapack-netlib/SRC/zlarfgp.c index e8ae915923..8bab2fb56e 100644 --- a/lapack-netlib/SRC/zlarfgp.c +++ b/lapack-netlib/SRC/zlarfgp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarft.c b/lapack-netlib/SRC/zlarft.c index e6a90565a4..d1f622cfa7 100644 --- a/lapack-netlib/SRC/zlarft.c +++ b/lapack-netlib/SRC/zlarft.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarfx.c b/lapack-netlib/SRC/zlarfx.c index 84944c44f9..aa66d2ae94 100644 --- a/lapack-netlib/SRC/zlarfx.c +++ b/lapack-netlib/SRC/zlarfx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarfy.c b/lapack-netlib/SRC/zlarfy.c index 14675aa2ec..a731b7812d 100644 --- a/lapack-netlib/SRC/zlarfy.c +++ b/lapack-netlib/SRC/zlarfy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlargv.c b/lapack-netlib/SRC/zlargv.c index ac437252da..e5e4585e3e 100644 --- a/lapack-netlib/SRC/zlargv.c +++ b/lapack-netlib/SRC/zlargv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarnv.c b/lapack-netlib/SRC/zlarnv.c index 3da6ebf742..3d99533f67 100644 --- a/lapack-netlib/SRC/zlarnv.c +++ b/lapack-netlib/SRC/zlarnv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarrv.c b/lapack-netlib/SRC/zlarrv.c index 7960a3bbdb..8cfe051d41 100644 --- a/lapack-netlib/SRC/zlarrv.c +++ b/lapack-netlib/SRC/zlarrv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarscl2.c b/lapack-netlib/SRC/zlarscl2.c index 1f7be77b28..079b594d09 100644 --- a/lapack-netlib/SRC/zlarscl2.c +++ b/lapack-netlib/SRC/zlarscl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlartg.c b/lapack-netlib/SRC/zlartg.c index b0b5621d19..e955aa76fd 100644 --- a/lapack-netlib/SRC/zlartg.c +++ b/lapack-netlib/SRC/zlartg.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlartv.c b/lapack-netlib/SRC/zlartv.c index 850e0934fe..c6f63456ed 100644 --- a/lapack-netlib/SRC/zlartv.c +++ b/lapack-netlib/SRC/zlartv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarz.c b/lapack-netlib/SRC/zlarz.c index 8057204459..8ac04271e1 100644 --- a/lapack-netlib/SRC/zlarz.c +++ b/lapack-netlib/SRC/zlarz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarzb.c b/lapack-netlib/SRC/zlarzb.c index fbfaad6d39..545b9f3ebc 100644 --- a/lapack-netlib/SRC/zlarzb.c +++ b/lapack-netlib/SRC/zlarzb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlarzt.c b/lapack-netlib/SRC/zlarzt.c index 80533ff39d..dde376bfa5 100644 --- a/lapack-netlib/SRC/zlarzt.c +++ b/lapack-netlib/SRC/zlarzt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlascl.c b/lapack-netlib/SRC/zlascl.c index 4845cdb955..e7264b6414 100644 --- a/lapack-netlib/SRC/zlascl.c +++ b/lapack-netlib/SRC/zlascl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlascl2.c b/lapack-netlib/SRC/zlascl2.c index 8c095dca00..8660fabd22 100644 --- a/lapack-netlib/SRC/zlascl2.c +++ b/lapack-netlib/SRC/zlascl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaset.c b/lapack-netlib/SRC/zlaset.c index eabfe2a796..7aca8b1d2d 100644 --- a/lapack-netlib/SRC/zlaset.c +++ b/lapack-netlib/SRC/zlaset.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlasr.c b/lapack-netlib/SRC/zlasr.c index c1d8fc5b43..4a257f0328 100644 --- a/lapack-netlib/SRC/zlasr.c +++ b/lapack-netlib/SRC/zlasr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlassq.c b/lapack-netlib/SRC/zlassq.c index 480673c162..7c1a483a57 100644 --- a/lapack-netlib/SRC/zlassq.c +++ b/lapack-netlib/SRC/zlassq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaswlq.c b/lapack-netlib/SRC/zlaswlq.c index 14cebe5bfc..fa32f4b2fc 100644 --- a/lapack-netlib/SRC/zlaswlq.c +++ b/lapack-netlib/SRC/zlaswlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -719,12 +719,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *n < *m) { *info = -2; - } else if (*mb < 1 || *mb > *m && *m > 0) { + } else if (*mb < 1 || (*mb > *m && *m > 0)) { *info = -3; - } else if (*nb <= *m) { + } else if (*nb <= 0) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *mb) { *info = -8; } else if (*lwork < *m * *mb && ! lquery) { diff --git a/lapack-netlib/SRC/zlaswp.c b/lapack-netlib/SRC/zlaswp.c index cc1aab79a6..4b51210c1d 100644 --- a/lapack-netlib/SRC/zlaswp.c +++ b/lapack-netlib/SRC/zlaswp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlasyf.c b/lapack-netlib/SRC/zlasyf.c index e414864be0..028627d68e 100644 --- a/lapack-netlib/SRC/zlasyf.c +++ b/lapack-netlib/SRC/zlasyf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlasyf_aa.c b/lapack-netlib/SRC/zlasyf_aa.c index d9b7b267a0..93b76288dd 100644 --- a/lapack-netlib/SRC/zlasyf_aa.c +++ b/lapack-netlib/SRC/zlasyf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlasyf_rk.c b/lapack-netlib/SRC/zlasyf_rk.c index f12fa9c9a0..4f4782a473 100644 --- a/lapack-netlib/SRC/zlasyf_rk.c +++ b/lapack-netlib/SRC/zlasyf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlasyf_rook.c b/lapack-netlib/SRC/zlasyf_rook.c index 9abebc804a..8a837de6fa 100644 --- a/lapack-netlib/SRC/zlasyf_rook.c +++ b/lapack-netlib/SRC/zlasyf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlat2c.c b/lapack-netlib/SRC/zlat2c.c index dd70c7e6fd..6daed741a8 100644 --- a/lapack-netlib/SRC/zlat2c.c +++ b/lapack-netlib/SRC/zlat2c.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlatbs.c b/lapack-netlib/SRC/zlatbs.c index 04925e90c1..7effdc31cd 100644 --- a/lapack-netlib/SRC/zlatbs.c +++ b/lapack-netlib/SRC/zlatbs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlatdf.c b/lapack-netlib/SRC/zlatdf.c index 7debf0ecce..ca45795bc4 100644 --- a/lapack-netlib/SRC/zlatdf.c +++ b/lapack-netlib/SRC/zlatdf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlatps.c b/lapack-netlib/SRC/zlatps.c index 0319be7db5..ea7aad5197 100644 --- a/lapack-netlib/SRC/zlatps.c +++ b/lapack-netlib/SRC/zlatps.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlatrd.c b/lapack-netlib/SRC/zlatrd.c index 581211ac02..1cdb0e127e 100644 --- a/lapack-netlib/SRC/zlatrd.c +++ b/lapack-netlib/SRC/zlatrd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlatrs.c b/lapack-netlib/SRC/zlatrs.c index eec839a778..933b77f6b5 100644 --- a/lapack-netlib/SRC/zlatrs.c +++ b/lapack-netlib/SRC/zlatrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlatrs3.c b/lapack-netlib/SRC/zlatrs3.c index 0cb1cda543..8be5065498 100644 --- a/lapack-netlib/SRC/zlatrs3.c +++ b/lapack-netlib/SRC/zlatrs3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -774,7 +774,7 @@ static integer c_n1 = -1; integer lscale; doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, @@ -875,7 +875,7 @@ static integer c_n1 = -1; } if (*info != 0) { i__1 = -(*info); - xerbla_("ZLATRS3", &i__1); + xerbla_("ZLATRS3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/zlatrz.c b/lapack-netlib/SRC/zlatrz.c index 870dae0ed5..3a3d9f2561 100644 --- a/lapack-netlib/SRC/zlatrz.c +++ b/lapack-netlib/SRC/zlatrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlatsqr.c b/lapack-netlib/SRC/zlatsqr.c index 4c95d337df..7bf991db41 100644 --- a/lapack-netlib/SRC/zlatsqr.c +++ b/lapack-netlib/SRC/zlatsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -721,12 +721,12 @@ static integer c__0 = 0; *info = -1; } else if (*n < 0 || *m < *n) { *info = -2; - } else if (*mb <= *n) { + } else if (*mb < 1) { *info = -3; - } else if (*nb < 1 || *nb > *n && *n > 0) { + } else if (*nb < 1 || (*nb > *n && *n > 0)) { *info = -4; } else if (*lda < f2cmax(1,*m)) { - *info = -5; + *info = -6; } else if (*ldt < *nb) { *info = -8; } else if (*lwork < *n * *nb && ! lquery) { diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp.c index e052235961..42dc30cb0b 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp.c +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c index b2c9989c98..a0b2f23ebb 100644 --- a/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c +++ b/lapack-netlib/SRC/zlaunhr_col_getrfnp2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlauu2.c b/lapack-netlib/SRC/zlauu2.c index 434b278b5e..ad95fb42c2 100644 --- a/lapack-netlib/SRC/zlauu2.c +++ b/lapack-netlib/SRC/zlauu2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zlauum.c b/lapack-netlib/SRC/zlauum.c index 71d003eb40..f23dad494a 100644 --- a/lapack-netlib/SRC/zlauum.c +++ b/lapack-netlib/SRC/zlauum.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbcon.c b/lapack-netlib/SRC/zpbcon.c index 228ab1cbef..c823de96af 100644 --- a/lapack-netlib/SRC/zpbcon.c +++ b/lapack-netlib/SRC/zpbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbequ.c b/lapack-netlib/SRC/zpbequ.c index 386cf5543f..e52c8e303a 100644 --- a/lapack-netlib/SRC/zpbequ.c +++ b/lapack-netlib/SRC/zpbequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbrfs.c b/lapack-netlib/SRC/zpbrfs.c index acd0e1f80e..96ff928526 100644 --- a/lapack-netlib/SRC/zpbrfs.c +++ b/lapack-netlib/SRC/zpbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbstf.c b/lapack-netlib/SRC/zpbstf.c index e4002b19f1..63fe643e3c 100644 --- a/lapack-netlib/SRC/zpbstf.c +++ b/lapack-netlib/SRC/zpbstf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbsv.c b/lapack-netlib/SRC/zpbsv.c index 5dae2eda22..baba613fb4 100644 --- a/lapack-netlib/SRC/zpbsv.c +++ b/lapack-netlib/SRC/zpbsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbsvx.c b/lapack-netlib/SRC/zpbsvx.c index 8d61aca138..d5a836d997 100644 --- a/lapack-netlib/SRC/zpbsvx.c +++ b/lapack-netlib/SRC/zpbsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbtf2.c b/lapack-netlib/SRC/zpbtf2.c index 3b5c345457..644c830e92 100644 --- a/lapack-netlib/SRC/zpbtf2.c +++ b/lapack-netlib/SRC/zpbtf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbtrf.c b/lapack-netlib/SRC/zpbtrf.c index 04fa2320cc..362e9c735b 100644 --- a/lapack-netlib/SRC/zpbtrf.c +++ b/lapack-netlib/SRC/zpbtrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpbtrs.c b/lapack-netlib/SRC/zpbtrs.c index 9bbda7bb58..d47a760f31 100644 --- a/lapack-netlib/SRC/zpbtrs.c +++ b/lapack-netlib/SRC/zpbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpftrf.c b/lapack-netlib/SRC/zpftrf.c index a5a3348895..d68bfdfa65 100644 --- a/lapack-netlib/SRC/zpftrf.c +++ b/lapack-netlib/SRC/zpftrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpftri.c b/lapack-netlib/SRC/zpftri.c index dc931ef70a..b5ca08ea39 100644 --- a/lapack-netlib/SRC/zpftri.c +++ b/lapack-netlib/SRC/zpftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpftrs.c b/lapack-netlib/SRC/zpftrs.c index 8e7cc1fc08..b0b2014965 100644 --- a/lapack-netlib/SRC/zpftrs.c +++ b/lapack-netlib/SRC/zpftrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpocon.c b/lapack-netlib/SRC/zpocon.c index a54c42c8a9..a5e5429330 100644 --- a/lapack-netlib/SRC/zpocon.c +++ b/lapack-netlib/SRC/zpocon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpoequ.c b/lapack-netlib/SRC/zpoequ.c index f8a6c8dcbb..e54e058fbb 100644 --- a/lapack-netlib/SRC/zpoequ.c +++ b/lapack-netlib/SRC/zpoequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpoequb.c b/lapack-netlib/SRC/zpoequb.c index 0ea3bb04c0..7fcafa9627 100644 --- a/lapack-netlib/SRC/zpoequb.c +++ b/lapack-netlib/SRC/zpoequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zporfs.c b/lapack-netlib/SRC/zporfs.c index 4685fe16e0..d8d192d2e6 100644 --- a/lapack-netlib/SRC/zporfs.c +++ b/lapack-netlib/SRC/zporfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zporfsx.c b/lapack-netlib/SRC/zporfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/zporfsx.c +++ b/lapack-netlib/SRC/zporfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zposv.c b/lapack-netlib/SRC/zposv.c index cdd420cbc5..cc28afb4b1 100644 --- a/lapack-netlib/SRC/zposv.c +++ b/lapack-netlib/SRC/zposv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zposvx.c b/lapack-netlib/SRC/zposvx.c index a2adfa4c82..aaa8d8537e 100644 --- a/lapack-netlib/SRC/zposvx.c +++ b/lapack-netlib/SRC/zposvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zposvxx.c b/lapack-netlib/SRC/zposvxx.c index c27adcb1b8..c7dd28603e 100644 --- a/lapack-netlib/SRC/zposvxx.c +++ b/lapack-netlib/SRC/zposvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpotf2.c b/lapack-netlib/SRC/zpotf2.c index 1d84397cc1..76a3990410 100644 --- a/lapack-netlib/SRC/zpotf2.c +++ b/lapack-netlib/SRC/zpotf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpotrf.c b/lapack-netlib/SRC/zpotrf.c index 91590a111d..2a8434aac4 100644 --- a/lapack-netlib/SRC/zpotrf.c +++ b/lapack-netlib/SRC/zpotrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpotrf2.c b/lapack-netlib/SRC/zpotrf2.c index e0529676c9..a35549c7fe 100644 --- a/lapack-netlib/SRC/zpotrf2.c +++ b/lapack-netlib/SRC/zpotrf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpotri.c b/lapack-netlib/SRC/zpotri.c index fdafb8368f..2a608712df 100644 --- a/lapack-netlib/SRC/zpotri.c +++ b/lapack-netlib/SRC/zpotri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpotrs.c b/lapack-netlib/SRC/zpotrs.c index 8a6f598b4f..a23d193f8a 100644 --- a/lapack-netlib/SRC/zpotrs.c +++ b/lapack-netlib/SRC/zpotrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zppcon.c b/lapack-netlib/SRC/zppcon.c index cc1931f5ee..321d79bdac 100644 --- a/lapack-netlib/SRC/zppcon.c +++ b/lapack-netlib/SRC/zppcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zppequ.c b/lapack-netlib/SRC/zppequ.c index 57b6e3189f..68ccb021fc 100644 --- a/lapack-netlib/SRC/zppequ.c +++ b/lapack-netlib/SRC/zppequ.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpprfs.c b/lapack-netlib/SRC/zpprfs.c index b079c22092..2ed900f0ef 100644 --- a/lapack-netlib/SRC/zpprfs.c +++ b/lapack-netlib/SRC/zpprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zppsv.c b/lapack-netlib/SRC/zppsv.c index 4fe6b86553..da40e30d8c 100644 --- a/lapack-netlib/SRC/zppsv.c +++ b/lapack-netlib/SRC/zppsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zppsvx.c b/lapack-netlib/SRC/zppsvx.c index 448854e55f..4465d856d0 100644 --- a/lapack-netlib/SRC/zppsvx.c +++ b/lapack-netlib/SRC/zppsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpptrf.c b/lapack-netlib/SRC/zpptrf.c index 885e0c2b18..3d3a412e4d 100644 --- a/lapack-netlib/SRC/zpptrf.c +++ b/lapack-netlib/SRC/zpptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpptri.c b/lapack-netlib/SRC/zpptri.c index b9095bc1cd..5339644a9b 100644 --- a/lapack-netlib/SRC/zpptri.c +++ b/lapack-netlib/SRC/zpptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpptrs.c b/lapack-netlib/SRC/zpptrs.c index 2f1f091674..67deb5f9a6 100644 --- a/lapack-netlib/SRC/zpptrs.c +++ b/lapack-netlib/SRC/zpptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpstf2.c b/lapack-netlib/SRC/zpstf2.c index ad3f89b2dd..dc700248af 100644 --- a/lapack-netlib/SRC/zpstf2.c +++ b/lapack-netlib/SRC/zpstf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpstrf.c b/lapack-netlib/SRC/zpstrf.c index d84e7566b6..2034ff26ed 100644 --- a/lapack-netlib/SRC/zpstrf.c +++ b/lapack-netlib/SRC/zpstrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zptcon.c b/lapack-netlib/SRC/zptcon.c index d764fcf2f3..85bbaf91fe 100644 --- a/lapack-netlib/SRC/zptcon.c +++ b/lapack-netlib/SRC/zptcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpteqr.c b/lapack-netlib/SRC/zpteqr.c index 9c88679bab..3e799937d7 100644 --- a/lapack-netlib/SRC/zpteqr.c +++ b/lapack-netlib/SRC/zpteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zptrfs.c b/lapack-netlib/SRC/zptrfs.c index 6f1c83b174..c0edf94fcd 100644 --- a/lapack-netlib/SRC/zptrfs.c +++ b/lapack-netlib/SRC/zptrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zptsv.c b/lapack-netlib/SRC/zptsv.c index 96447a5547..1a15424709 100644 --- a/lapack-netlib/SRC/zptsv.c +++ b/lapack-netlib/SRC/zptsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zptsvx.c b/lapack-netlib/SRC/zptsvx.c index 713766cceb..43a0d6c0e0 100644 --- a/lapack-netlib/SRC/zptsvx.c +++ b/lapack-netlib/SRC/zptsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpttrf.c b/lapack-netlib/SRC/zpttrf.c index b9d1c48aff..ea65f9d5eb 100644 --- a/lapack-netlib/SRC/zpttrf.c +++ b/lapack-netlib/SRC/zpttrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zpttrs.c b/lapack-netlib/SRC/zpttrs.c index 7933361c5e..0730f1030a 100644 --- a/lapack-netlib/SRC/zpttrs.c +++ b/lapack-netlib/SRC/zpttrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zptts2.c b/lapack-netlib/SRC/zptts2.c index f69b0ad2ad..be348de6d8 100644 --- a/lapack-netlib/SRC/zptts2.c +++ b/lapack-netlib/SRC/zptts2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zrot.c b/lapack-netlib/SRC/zrot.c index 04cefe53db..5aa355441b 100644 --- a/lapack-netlib/SRC/zrot.c +++ b/lapack-netlib/SRC/zrot.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zspcon.c b/lapack-netlib/SRC/zspcon.c index a2cb64d810..bf2da184b9 100644 --- a/lapack-netlib/SRC/zspcon.c +++ b/lapack-netlib/SRC/zspcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zspmv.c b/lapack-netlib/SRC/zspmv.c index 3fe5eb7510..78ab7f7a0e 100644 --- a/lapack-netlib/SRC/zspmv.c +++ b/lapack-netlib/SRC/zspmv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zspr.c b/lapack-netlib/SRC/zspr.c index 2e7b5e871f..01f07f06f3 100644 --- a/lapack-netlib/SRC/zspr.c +++ b/lapack-netlib/SRC/zspr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsprfs.c b/lapack-netlib/SRC/zsprfs.c index d3372722f5..ec7a35f2a6 100644 --- a/lapack-netlib/SRC/zsprfs.c +++ b/lapack-netlib/SRC/zsprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zspsv.c b/lapack-netlib/SRC/zspsv.c index 4798081b28..730cf52c38 100644 --- a/lapack-netlib/SRC/zspsv.c +++ b/lapack-netlib/SRC/zspsv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zspsvx.c b/lapack-netlib/SRC/zspsvx.c index ceb5b014d7..e69a16e9e5 100644 --- a/lapack-netlib/SRC/zspsvx.c +++ b/lapack-netlib/SRC/zspsvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsptrf.c b/lapack-netlib/SRC/zsptrf.c index d3623c7fd8..6ca03cdf86 100644 --- a/lapack-netlib/SRC/zsptrf.c +++ b/lapack-netlib/SRC/zsptrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsptri.c b/lapack-netlib/SRC/zsptri.c index 1c537f14bc..cbe6212159 100644 --- a/lapack-netlib/SRC/zsptri.c +++ b/lapack-netlib/SRC/zsptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsptrs.c b/lapack-netlib/SRC/zsptrs.c index e6e76a7936..e39ff62c48 100644 --- a/lapack-netlib/SRC/zsptrs.c +++ b/lapack-netlib/SRC/zsptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zstedc.c b/lapack-netlib/SRC/zstedc.c index 55baba2d73..edcba3e962 100644 --- a/lapack-netlib/SRC/zstedc.c +++ b/lapack-netlib/SRC/zstedc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zstegr.c b/lapack-netlib/SRC/zstegr.c index 6d5961e613..9868039f58 100644 --- a/lapack-netlib/SRC/zstegr.c +++ b/lapack-netlib/SRC/zstegr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zstein.c b/lapack-netlib/SRC/zstein.c index 4f47b75d8d..0c2c6432a0 100644 --- a/lapack-netlib/SRC/zstein.c +++ b/lapack-netlib/SRC/zstein.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zstemr.c b/lapack-netlib/SRC/zstemr.c index dc594da6d1..4795560efc 100644 --- a/lapack-netlib/SRC/zstemr.c +++ b/lapack-netlib/SRC/zstemr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsteqr.c b/lapack-netlib/SRC/zsteqr.c index 486596f914..7f623a8362 100644 --- a/lapack-netlib/SRC/zsteqr.c +++ b/lapack-netlib/SRC/zsteqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsycon.c b/lapack-netlib/SRC/zsycon.c index 0fa46d844b..e59095f289 100644 --- a/lapack-netlib/SRC/zsycon.c +++ b/lapack-netlib/SRC/zsycon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsycon_3.c b/lapack-netlib/SRC/zsycon_3.c index 41454b37bf..4c77470085 100644 --- a/lapack-netlib/SRC/zsycon_3.c +++ b/lapack-netlib/SRC/zsycon_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsycon_rook.c b/lapack-netlib/SRC/zsycon_rook.c index 2c2b6aea91..f64c0102ea 100644 --- a/lapack-netlib/SRC/zsycon_rook.c +++ b/lapack-netlib/SRC/zsycon_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyconv.c b/lapack-netlib/SRC/zsyconv.c index c8afcec2d8..68279b1455 100644 --- a/lapack-netlib/SRC/zsyconv.c +++ b/lapack-netlib/SRC/zsyconv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyconvf.c b/lapack-netlib/SRC/zsyconvf.c index 927199525a..94ef829a44 100644 --- a/lapack-netlib/SRC/zsyconvf.c +++ b/lapack-netlib/SRC/zsyconvf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyconvf_rook.c b/lapack-netlib/SRC/zsyconvf_rook.c index 3362b91e0b..95b6f2146b 100644 --- a/lapack-netlib/SRC/zsyconvf_rook.c +++ b/lapack-netlib/SRC/zsyconvf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyequb.c b/lapack-netlib/SRC/zsyequb.c index c047b320e9..a72a6417f5 100644 --- a/lapack-netlib/SRC/zsyequb.c +++ b/lapack-netlib/SRC/zsyequb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsymv.c b/lapack-netlib/SRC/zsymv.c index a14c33cd25..d7ef4d6bcd 100644 --- a/lapack-netlib/SRC/zsymv.c +++ b/lapack-netlib/SRC/zsymv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyr.c b/lapack-netlib/SRC/zsyr.c index 6a2d5f8ba5..378d1dee2a 100644 --- a/lapack-netlib/SRC/zsyr.c +++ b/lapack-netlib/SRC/zsyr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyrfs.c b/lapack-netlib/SRC/zsyrfs.c index c445301ac3..87db1a08f6 100644 --- a/lapack-netlib/SRC/zsyrfs.c +++ b/lapack-netlib/SRC/zsyrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyrfsx.c b/lapack-netlib/SRC/zsyrfsx.c index aa3ac4f728..aa826149b5 100644 --- a/lapack-netlib/SRC/zsyrfsx.c +++ b/lapack-netlib/SRC/zsyrfsx.c @@ -54,7 +54,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsysv.c b/lapack-netlib/SRC/zsysv.c index b42cb23c5f..72dff45abf 100644 --- a/lapack-netlib/SRC/zsysv.c +++ b/lapack-netlib/SRC/zsysv.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsysv_aa.c b/lapack-netlib/SRC/zsysv_aa.c index 2b07605705..3930c7376c 100644 --- a/lapack-netlib/SRC/zsysv_aa.c +++ b/lapack-netlib/SRC/zsysv_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsysv_aa_2stage.c b/lapack-netlib/SRC/zsysv_aa_2stage.c index 542cd702c5..c8f870be48 100644 --- a/lapack-netlib/SRC/zsysv_aa_2stage.c +++ b/lapack-netlib/SRC/zsysv_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsysv_rk.c b/lapack-netlib/SRC/zsysv_rk.c index 82eef5a43c..d99624bfd5 100644 --- a/lapack-netlib/SRC/zsysv_rk.c +++ b/lapack-netlib/SRC/zsysv_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsysv_rook.c b/lapack-netlib/SRC/zsysv_rook.c index 8ddf820e4a..9db0cc7e55 100644 --- a/lapack-netlib/SRC/zsysv_rook.c +++ b/lapack-netlib/SRC/zsysv_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsysvx.c b/lapack-netlib/SRC/zsysvx.c index 2d0b3ec97f..5c08af3f1d 100644 --- a/lapack-netlib/SRC/zsysvx.c +++ b/lapack-netlib/SRC/zsysvx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsysvxx.c b/lapack-netlib/SRC/zsysvxx.c index 2968791eeb..d5ab5579c8 100644 --- a/lapack-netlib/SRC/zsysvxx.c +++ b/lapack-netlib/SRC/zsysvxx.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsyswapr.c b/lapack-netlib/SRC/zsyswapr.c index bc80be4eef..358b516bc7 100644 --- a/lapack-netlib/SRC/zsyswapr.c +++ b/lapack-netlib/SRC/zsyswapr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytf2.c b/lapack-netlib/SRC/zsytf2.c index ffc53186c8..94e8e75750 100644 --- a/lapack-netlib/SRC/zsytf2.c +++ b/lapack-netlib/SRC/zsytf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytf2_rk.c b/lapack-netlib/SRC/zsytf2_rk.c index 7be53b3c51..5740638cfd 100644 --- a/lapack-netlib/SRC/zsytf2_rk.c +++ b/lapack-netlib/SRC/zsytf2_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytf2_rook.c b/lapack-netlib/SRC/zsytf2_rook.c index 0087987e83..035a9f83a3 100644 --- a/lapack-netlib/SRC/zsytf2_rook.c +++ b/lapack-netlib/SRC/zsytf2_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrf.c b/lapack-netlib/SRC/zsytrf.c index 465eff88b8..e6a004fc60 100644 --- a/lapack-netlib/SRC/zsytrf.c +++ b/lapack-netlib/SRC/zsytrf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrf_aa.c b/lapack-netlib/SRC/zsytrf_aa.c index 7a506a940f..ba8fea54f5 100644 --- a/lapack-netlib/SRC/zsytrf_aa.c +++ b/lapack-netlib/SRC/zsytrf_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrf_aa_2stage.c b/lapack-netlib/SRC/zsytrf_aa_2stage.c index 328fdb5eb1..8c15c9acb2 100644 --- a/lapack-netlib/SRC/zsytrf_aa_2stage.c +++ b/lapack-netlib/SRC/zsytrf_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrf_rk.c b/lapack-netlib/SRC/zsytrf_rk.c index 232cab0bb3..12ad9a4559 100644 --- a/lapack-netlib/SRC/zsytrf_rk.c +++ b/lapack-netlib/SRC/zsytrf_rk.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrf_rook.c b/lapack-netlib/SRC/zsytrf_rook.c index 28a5cb7e33..5b0551d117 100644 --- a/lapack-netlib/SRC/zsytrf_rook.c +++ b/lapack-netlib/SRC/zsytrf_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytri.c b/lapack-netlib/SRC/zsytri.c index 78df5e9a17..88b66dfb01 100644 --- a/lapack-netlib/SRC/zsytri.c +++ b/lapack-netlib/SRC/zsytri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytri2.c b/lapack-netlib/SRC/zsytri2.c index d0cdd02b10..bc54f1e382 100644 --- a/lapack-netlib/SRC/zsytri2.c +++ b/lapack-netlib/SRC/zsytri2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytri2x.c b/lapack-netlib/SRC/zsytri2x.c index f4a1d3b58c..404fefc3df 100644 --- a/lapack-netlib/SRC/zsytri2x.c +++ b/lapack-netlib/SRC/zsytri2x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytri_3.c b/lapack-netlib/SRC/zsytri_3.c index 655a2ae73b..dfc4ab0b2c 100644 --- a/lapack-netlib/SRC/zsytri_3.c +++ b/lapack-netlib/SRC/zsytri_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytri_3x.c b/lapack-netlib/SRC/zsytri_3x.c index f5647906fd..6a89ebcf4d 100644 --- a/lapack-netlib/SRC/zsytri_3x.c +++ b/lapack-netlib/SRC/zsytri_3x.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytri_rook.c b/lapack-netlib/SRC/zsytri_rook.c index b4e38bfb89..661091a02b 100644 --- a/lapack-netlib/SRC/zsytri_rook.c +++ b/lapack-netlib/SRC/zsytri_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrs.c b/lapack-netlib/SRC/zsytrs.c index 2c65b83f7f..2d0ff3e280 100644 --- a/lapack-netlib/SRC/zsytrs.c +++ b/lapack-netlib/SRC/zsytrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrs2.c b/lapack-netlib/SRC/zsytrs2.c index 6a458f3d61..bd309fb4d9 100644 --- a/lapack-netlib/SRC/zsytrs2.c +++ b/lapack-netlib/SRC/zsytrs2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrs_3.c b/lapack-netlib/SRC/zsytrs_3.c index 388a28c8cb..ff82e50e94 100644 --- a/lapack-netlib/SRC/zsytrs_3.c +++ b/lapack-netlib/SRC/zsytrs_3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrs_aa.c b/lapack-netlib/SRC/zsytrs_aa.c index 66aca9b2d3..f14a080ed4 100644 --- a/lapack-netlib/SRC/zsytrs_aa.c +++ b/lapack-netlib/SRC/zsytrs_aa.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrs_aa_2stage.c b/lapack-netlib/SRC/zsytrs_aa_2stage.c index 025cdacc69..4311ff22c5 100644 --- a/lapack-netlib/SRC/zsytrs_aa_2stage.c +++ b/lapack-netlib/SRC/zsytrs_aa_2stage.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zsytrs_rook.c b/lapack-netlib/SRC/zsytrs_rook.c index 2e2f44b6d1..c799c149f8 100644 --- a/lapack-netlib/SRC/zsytrs_rook.c +++ b/lapack-netlib/SRC/zsytrs_rook.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztbcon.c b/lapack-netlib/SRC/ztbcon.c index 556fa23a5d..492d94ee84 100644 --- a/lapack-netlib/SRC/ztbcon.c +++ b/lapack-netlib/SRC/ztbcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztbrfs.c b/lapack-netlib/SRC/ztbrfs.c index 80b96ad0cc..a38d52e645 100644 --- a/lapack-netlib/SRC/ztbrfs.c +++ b/lapack-netlib/SRC/ztbrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztbtrs.c b/lapack-netlib/SRC/ztbtrs.c index 17de520b12..a90d22bf15 100644 --- a/lapack-netlib/SRC/ztbtrs.c +++ b/lapack-netlib/SRC/ztbtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztfsm.c b/lapack-netlib/SRC/ztfsm.c index 542c4df87a..0af673dc05 100644 --- a/lapack-netlib/SRC/ztfsm.c +++ b/lapack-netlib/SRC/ztfsm.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztftri.c b/lapack-netlib/SRC/ztftri.c index ccea628e42..31a16f1db0 100644 --- a/lapack-netlib/SRC/ztftri.c +++ b/lapack-netlib/SRC/ztftri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztfttp.c b/lapack-netlib/SRC/ztfttp.c index 98d2566af0..ca6f29a939 100644 --- a/lapack-netlib/SRC/ztfttp.c +++ b/lapack-netlib/SRC/ztfttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztfttr.c b/lapack-netlib/SRC/ztfttr.c index bc2b168b1a..bc70be8ab1 100644 --- a/lapack-netlib/SRC/ztfttr.c +++ b/lapack-netlib/SRC/ztfttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgevc.c b/lapack-netlib/SRC/ztgevc.c index 9f2c3af387..004e4ac4cd 100644 --- a/lapack-netlib/SRC/ztgevc.c +++ b/lapack-netlib/SRC/ztgevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgex2.c b/lapack-netlib/SRC/ztgex2.c index 8e8f1ea747..ab2d89a82f 100644 --- a/lapack-netlib/SRC/ztgex2.c +++ b/lapack-netlib/SRC/ztgex2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgexc.c b/lapack-netlib/SRC/ztgexc.c index dadf100577..43dca48159 100644 --- a/lapack-netlib/SRC/ztgexc.c +++ b/lapack-netlib/SRC/ztgexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgsen.c b/lapack-netlib/SRC/ztgsen.c index 9123421291..324dcbf5c4 100644 --- a/lapack-netlib/SRC/ztgsen.c +++ b/lapack-netlib/SRC/ztgsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgsja.c b/lapack-netlib/SRC/ztgsja.c index a3f02bfa80..41e8187d45 100644 --- a/lapack-netlib/SRC/ztgsja.c +++ b/lapack-netlib/SRC/ztgsja.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgsna.c b/lapack-netlib/SRC/ztgsna.c index 56755d2098..fc546fa48b 100644 --- a/lapack-netlib/SRC/ztgsna.c +++ b/lapack-netlib/SRC/ztgsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgsy2.c b/lapack-netlib/SRC/ztgsy2.c index 459bbdbac8..8c28f74eda 100644 --- a/lapack-netlib/SRC/ztgsy2.c +++ b/lapack-netlib/SRC/ztgsy2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztgsyl.c b/lapack-netlib/SRC/ztgsyl.c index d7d6d2484e..ddb1e890fa 100644 --- a/lapack-netlib/SRC/ztgsyl.c +++ b/lapack-netlib/SRC/ztgsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztpcon.c b/lapack-netlib/SRC/ztpcon.c index bc5753f4c6..435865d573 100644 --- a/lapack-netlib/SRC/ztpcon.c +++ b/lapack-netlib/SRC/ztpcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztplqt.c b/lapack-netlib/SRC/ztplqt.c index dbcada52a4..ae06703800 100644 --- a/lapack-netlib/SRC/ztplqt.c +++ b/lapack-netlib/SRC/ztplqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztplqt2.c b/lapack-netlib/SRC/ztplqt2.c index 9190db5f78..24418c4019 100644 --- a/lapack-netlib/SRC/ztplqt2.c +++ b/lapack-netlib/SRC/ztplqt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztpmlqt.c b/lapack-netlib/SRC/ztpmlqt.c index 5f8dd74a4c..8c930b1c11 100644 --- a/lapack-netlib/SRC/ztpmlqt.c +++ b/lapack-netlib/SRC/ztpmlqt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztpmqrt.c b/lapack-netlib/SRC/ztpmqrt.c index 777fccae44..00892a20aa 100644 --- a/lapack-netlib/SRC/ztpmqrt.c +++ b/lapack-netlib/SRC/ztpmqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztpqrt.c b/lapack-netlib/SRC/ztpqrt.c index f53e081af0..4fc182c0e7 100644 --- a/lapack-netlib/SRC/ztpqrt.c +++ b/lapack-netlib/SRC/ztpqrt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztpqrt2.c b/lapack-netlib/SRC/ztpqrt2.c index 36e082d585..abc78a837f 100644 --- a/lapack-netlib/SRC/ztpqrt2.c +++ b/lapack-netlib/SRC/ztpqrt2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztprfb.c b/lapack-netlib/SRC/ztprfb.c index eebe038baf..bbd83ba823 100644 --- a/lapack-netlib/SRC/ztprfb.c +++ b/lapack-netlib/SRC/ztprfb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztprfs.c b/lapack-netlib/SRC/ztprfs.c index 884935f8d7..696de2f7aa 100644 --- a/lapack-netlib/SRC/ztprfs.c +++ b/lapack-netlib/SRC/ztprfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztptri.c b/lapack-netlib/SRC/ztptri.c index 950162caf2..6991355436 100644 --- a/lapack-netlib/SRC/ztptri.c +++ b/lapack-netlib/SRC/ztptri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztptrs.c b/lapack-netlib/SRC/ztptrs.c index 0bda751312..df723aa343 100644 --- a/lapack-netlib/SRC/ztptrs.c +++ b/lapack-netlib/SRC/ztptrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztpttf.c b/lapack-netlib/SRC/ztpttf.c index d7da0a712d..43142ef4b0 100644 --- a/lapack-netlib/SRC/ztpttf.c +++ b/lapack-netlib/SRC/ztpttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztpttr.c b/lapack-netlib/SRC/ztpttr.c index 62c5dbbe98..bd6320d395 100644 --- a/lapack-netlib/SRC/ztpttr.c +++ b/lapack-netlib/SRC/ztpttr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrcon.c b/lapack-netlib/SRC/ztrcon.c index 8824cbf5b4..2d953ac5c1 100644 --- a/lapack-netlib/SRC/ztrcon.c +++ b/lapack-netlib/SRC/ztrcon.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrevc.c b/lapack-netlib/SRC/ztrevc.c index b530b6adc2..330af41288 100644 --- a/lapack-netlib/SRC/ztrevc.c +++ b/lapack-netlib/SRC/ztrevc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrevc3.c b/lapack-netlib/SRC/ztrevc3.c index 8a1906f2b0..16e7ea120c 100644 --- a/lapack-netlib/SRC/ztrevc3.c +++ b/lapack-netlib/SRC/ztrevc3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrexc.c b/lapack-netlib/SRC/ztrexc.c index ed8fd1dd23..ff01f2e016 100644 --- a/lapack-netlib/SRC/ztrexc.c +++ b/lapack-netlib/SRC/ztrexc.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrrfs.c b/lapack-netlib/SRC/ztrrfs.c index 21a5a23d86..7cd345a01d 100644 --- a/lapack-netlib/SRC/ztrrfs.c +++ b/lapack-netlib/SRC/ztrrfs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrsen.c b/lapack-netlib/SRC/ztrsen.c index 0881026ae7..0882e807d8 100644 --- a/lapack-netlib/SRC/ztrsen.c +++ b/lapack-netlib/SRC/ztrsen.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrsna.c b/lapack-netlib/SRC/ztrsna.c index 92e6c39164..ac4caeba3a 100644 --- a/lapack-netlib/SRC/ztrsna.c +++ b/lapack-netlib/SRC/ztrsna.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrsyl.c b/lapack-netlib/SRC/ztrsyl.c index eff366e3b9..628f927bb9 100644 --- a/lapack-netlib/SRC/ztrsyl.c +++ b/lapack-netlib/SRC/ztrsyl.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrsyl3.c b/lapack-netlib/SRC/ztrsyl3.c index 314b0f98d6..5ac53c5c37 100644 --- a/lapack-netlib/SRC/ztrsyl3.c +++ b/lapack-netlib/SRC/ztrsyl3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -708,7 +708,7 @@ static doublereal c_b106 = 1.; extern doublereal dlamch_(char *); doublereal scaloc, scamin; extern doublereal dlarmm_(doublereal *, doublereal *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern integer ilaenv_(integer *, char *, char *, integer *, integer *, integer *, integer *, ftnlen, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, @@ -796,7 +796,7 @@ static doublereal c_b106 = 1.; } if (*info != 0) { i__1 = -(*info); - xerbla_("ZTRSYL3", &i__1); + xerbla_("ZTRSYL3", &i__1, (ftnlen)7); return 0; } else if (lquery) { return 0; diff --git a/lapack-netlib/SRC/ztrti2.c b/lapack-netlib/SRC/ztrti2.c index a710e1d7be..48a06e06a9 100644 --- a/lapack-netlib/SRC/ztrti2.c +++ b/lapack-netlib/SRC/ztrti2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrtri.c b/lapack-netlib/SRC/ztrtri.c index 2c93106348..2270ee1837 100644 --- a/lapack-netlib/SRC/ztrtri.c +++ b/lapack-netlib/SRC/ztrtri.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrtrs.c b/lapack-netlib/SRC/ztrtrs.c index 19058a3ea8..aa181e9c52 100644 --- a/lapack-netlib/SRC/ztrtrs.c +++ b/lapack-netlib/SRC/ztrtrs.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrttf.c b/lapack-netlib/SRC/ztrttf.c index 453fe099dc..9412bd41e8 100644 --- a/lapack-netlib/SRC/ztrttf.c +++ b/lapack-netlib/SRC/ztrttf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztrttp.c b/lapack-netlib/SRC/ztrttp.c index 8416e609e9..4cb5dc8ac0 100644 --- a/lapack-netlib/SRC/ztrttp.c +++ b/lapack-netlib/SRC/ztrttp.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/ztzrzf.c b/lapack-netlib/SRC/ztzrzf.c index 453c18ea16..c20762b1e0 100644 --- a/lapack-netlib/SRC/ztzrzf.c +++ b/lapack-netlib/SRC/ztzrzf.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunbdb.c b/lapack-netlib/SRC/zunbdb.c index 3ccb43733a..69b5762464 100644 --- a/lapack-netlib/SRC/zunbdb.c +++ b/lapack-netlib/SRC/zunbdb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunbdb1.c b/lapack-netlib/SRC/zunbdb1.c index 73378a73a4..bba83e288f 100644 --- a/lapack-netlib/SRC/zunbdb1.c +++ b/lapack-netlib/SRC/zunbdb1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunbdb2.c b/lapack-netlib/SRC/zunbdb2.c index 0277fe21b4..d5b6fc290e 100644 --- a/lapack-netlib/SRC/zunbdb2.c +++ b/lapack-netlib/SRC/zunbdb2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunbdb3.c b/lapack-netlib/SRC/zunbdb3.c index 2dab207a51..1a906b6e62 100644 --- a/lapack-netlib/SRC/zunbdb3.c +++ b/lapack-netlib/SRC/zunbdb3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunbdb4.c b/lapack-netlib/SRC/zunbdb4.c index cdb8d7c0ca..8824d36cb2 100644 --- a/lapack-netlib/SRC/zunbdb4.c +++ b/lapack-netlib/SRC/zunbdb4.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunbdb5.c b/lapack-netlib/SRC/zunbdb5.c index f0fd4fbdf0..430ae9a3cc 100644 --- a/lapack-netlib/SRC/zunbdb5.c +++ b/lapack-netlib/SRC/zunbdb5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunbdb6.c b/lapack-netlib/SRC/zunbdb6.c index a41ccd3412..d0c002adc6 100644 --- a/lapack-netlib/SRC/zunbdb6.c +++ b/lapack-netlib/SRC/zunbdb6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zuncsd.c b/lapack-netlib/SRC/zuncsd.c index b487a0f8ba..68baadd5ee 100644 --- a/lapack-netlib/SRC/zuncsd.c +++ b/lapack-netlib/SRC/zuncsd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zuncsd2by1.c b/lapack-netlib/SRC/zuncsd2by1.c index 82e996435d..58f19522f2 100644 --- a/lapack-netlib/SRC/zuncsd2by1.c +++ b/lapack-netlib/SRC/zuncsd2by1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zung2l.c b/lapack-netlib/SRC/zung2l.c index a0ecf4be4d..67043a1ac9 100644 --- a/lapack-netlib/SRC/zung2l.c +++ b/lapack-netlib/SRC/zung2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zung2r.c b/lapack-netlib/SRC/zung2r.c index ea2914908e..53806686a3 100644 --- a/lapack-netlib/SRC/zung2r.c +++ b/lapack-netlib/SRC/zung2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungbr.c b/lapack-netlib/SRC/zungbr.c index 61b335d636..1c32f93373 100644 --- a/lapack-netlib/SRC/zungbr.c +++ b/lapack-netlib/SRC/zungbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunghr.c b/lapack-netlib/SRC/zunghr.c index 817acaa715..003a96eafd 100644 --- a/lapack-netlib/SRC/zunghr.c +++ b/lapack-netlib/SRC/zunghr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungl2.c b/lapack-netlib/SRC/zungl2.c index d870af12cd..deb59235e3 100644 --- a/lapack-netlib/SRC/zungl2.c +++ b/lapack-netlib/SRC/zungl2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunglq.c b/lapack-netlib/SRC/zunglq.c index 67e5f46493..55886d6af2 100644 --- a/lapack-netlib/SRC/zunglq.c +++ b/lapack-netlib/SRC/zunglq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungql.c b/lapack-netlib/SRC/zungql.c index 39d990d4e5..da370d3ebc 100644 --- a/lapack-netlib/SRC/zungql.c +++ b/lapack-netlib/SRC/zungql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungqr.c b/lapack-netlib/SRC/zungqr.c index 35f8d06c56..75c5c0d7f5 100644 --- a/lapack-netlib/SRC/zungqr.c +++ b/lapack-netlib/SRC/zungqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungr2.c b/lapack-netlib/SRC/zungr2.c index 980b674463..8cebf96aab 100644 --- a/lapack-netlib/SRC/zungr2.c +++ b/lapack-netlib/SRC/zungr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungrq.c b/lapack-netlib/SRC/zungrq.c index 66d296605a..ff3963cfbd 100644 --- a/lapack-netlib/SRC/zungrq.c +++ b/lapack-netlib/SRC/zungrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungtr.c b/lapack-netlib/SRC/zungtr.c index b9ba88865e..4565107bed 100644 --- a/lapack-netlib/SRC/zungtr.c +++ b/lapack-netlib/SRC/zungtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungtsqr.c b/lapack-netlib/SRC/zungtsqr.c index 5e8c70b37e..eb95d42f70 100644 --- a/lapack-netlib/SRC/zungtsqr.c +++ b/lapack-netlib/SRC/zungtsqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zungtsqr_row.c b/lapack-netlib/SRC/zungtsqr_row.c index dbbcdc9338..e292fe5892 100644 --- a/lapack-netlib/SRC/zungtsqr_row.c +++ b/lapack-netlib/SRC/zungtsqr_row.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunhr_col.c b/lapack-netlib/SRC/zunhr_col.c index fc0cdb3f63..97ec705658 100644 --- a/lapack-netlib/SRC/zunhr_col.c +++ b/lapack-netlib/SRC/zunhr_col.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunm22.c b/lapack-netlib/SRC/zunm22.c index 8fd3646e2e..09deecf0d7 100644 --- a/lapack-netlib/SRC/zunm22.c +++ b/lapack-netlib/SRC/zunm22.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunm2l.c b/lapack-netlib/SRC/zunm2l.c index 959cc0b5d9..5e81cafdd5 100644 --- a/lapack-netlib/SRC/zunm2l.c +++ b/lapack-netlib/SRC/zunm2l.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunm2r.c b/lapack-netlib/SRC/zunm2r.c index 1a20bed0be..68a1b363f3 100644 --- a/lapack-netlib/SRC/zunm2r.c +++ b/lapack-netlib/SRC/zunm2r.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmbr.c b/lapack-netlib/SRC/zunmbr.c index 283af09921..45f050f7b7 100644 --- a/lapack-netlib/SRC/zunmbr.c +++ b/lapack-netlib/SRC/zunmbr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmhr.c b/lapack-netlib/SRC/zunmhr.c index 9680b23750..d5e03a0099 100644 --- a/lapack-netlib/SRC/zunmhr.c +++ b/lapack-netlib/SRC/zunmhr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunml2.c b/lapack-netlib/SRC/zunml2.c index a33d19b089..d190cb582c 100644 --- a/lapack-netlib/SRC/zunml2.c +++ b/lapack-netlib/SRC/zunml2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmlq.c b/lapack-netlib/SRC/zunmlq.c index fa902c43eb..d350f02821 100644 --- a/lapack-netlib/SRC/zunmlq.c +++ b/lapack-netlib/SRC/zunmlq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmql.c b/lapack-netlib/SRC/zunmql.c index 35b4b80e11..888f1cd462 100644 --- a/lapack-netlib/SRC/zunmql.c +++ b/lapack-netlib/SRC/zunmql.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmqr.c b/lapack-netlib/SRC/zunmqr.c index f7e866bff0..8730d158ab 100644 --- a/lapack-netlib/SRC/zunmqr.c +++ b/lapack-netlib/SRC/zunmqr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmr2.c b/lapack-netlib/SRC/zunmr2.c index d2cadca74c..f96ef2e351 100644 --- a/lapack-netlib/SRC/zunmr2.c +++ b/lapack-netlib/SRC/zunmr2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmr3.c b/lapack-netlib/SRC/zunmr3.c index 804fde3f02..117f8948bc 100644 --- a/lapack-netlib/SRC/zunmr3.c +++ b/lapack-netlib/SRC/zunmr3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmrq.c b/lapack-netlib/SRC/zunmrq.c index 028688862f..68abbbf689 100644 --- a/lapack-netlib/SRC/zunmrq.c +++ b/lapack-netlib/SRC/zunmrq.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmrz.c b/lapack-netlib/SRC/zunmrz.c index 301307fd48..2bd5446329 100644 --- a/lapack-netlib/SRC/zunmrz.c +++ b/lapack-netlib/SRC/zunmrz.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zunmtr.c b/lapack-netlib/SRC/zunmtr.c index 74d5182f9c..7d97355b4f 100644 --- a/lapack-netlib/SRC/zunmtr.c +++ b/lapack-netlib/SRC/zunmtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zupgtr.c b/lapack-netlib/SRC/zupgtr.c index 3daebc3cc1..32f818e31d 100644 --- a/lapack-netlib/SRC/zupgtr.c +++ b/lapack-netlib/SRC/zupgtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/SRC/zupmtr.c b/lapack-netlib/SRC/zupmtr.c index 47cebe548e..877f0caa40 100644 --- a/lapack-netlib/SRC/zupmtr.c +++ b/lapack-netlib/SRC/zupmtr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/clagge.c b/lapack-netlib/TESTING/MATGEN/clagge.c index 838df0c029..b264a9abca 100644 --- a/lapack-netlib/TESTING/MATGEN/clagge.c +++ b/lapack-netlib/TESTING/MATGEN/clagge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -647,7 +647,7 @@ static integer c__1 = 1; complex wa, wb; extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); real wn; - extern /* Subroutine */ int xerbla_(char *, integer *), clarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clarnv_( integer *, integer *, integer *, complex *); complex tau; @@ -686,7 +686,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("CLAGGE", &i__1); + xerbla_("CLAGGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/claghe.c b/lapack-netlib/TESTING/MATGEN/claghe.c index 084a3264e9..ad206b7443 100644 --- a/lapack-netlib/TESTING/MATGEN/claghe.c +++ b/lapack-netlib/TESTING/MATGEN/claghe.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -643,7 +643,7 @@ static integer c__1 = 1; extern real scnrm2_(integer *, complex *, integer *); complex wa, wb; real wn; - extern /* Subroutine */ int xerbla_(char *, integer *), clarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clarnv_( integer *, integer *, integer *, complex *); complex tau; @@ -678,7 +678,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("CLAGHE", &i__1); + xerbla_("CLAGHE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/clagsy.c b/lapack-netlib/TESTING/MATGEN/clagsy.c index 908bdc4a8a..65af1e3e8a 100644 --- a/lapack-netlib/TESTING/MATGEN/clagsy.c +++ b/lapack-netlib/TESTING/MATGEN/clagsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -644,7 +644,7 @@ static integer c__1 = 1; complex wa, wb; extern /* Subroutine */ int clacgv_(integer *, complex *, integer *); real wn; - extern /* Subroutine */ int xerbla_(char *, integer *), clarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clarnv_( integer *, integer *, integer *, complex *); complex tau; @@ -679,7 +679,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("CLAGSY", &i__1); + xerbla_("CLAGSY", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/clahilb.c b/lapack-netlib/TESTING/MATGEN/clahilb.c index 4c4fe1bb92..68b3042a13 100644 --- a/lapack-netlib/TESTING/MATGEN/clahilb.c +++ b/lapack-netlib/TESTING/MATGEN/clahilb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -672,7 +672,7 @@ static complex c_b6 = {0.f,0.f}; integer ti, tm; extern /* Subroutine */ int claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, - integer *); + integer *, ftnlen); extern logical lsamen_(integer *, char *, char *); complex tmp; @@ -722,7 +722,7 @@ static complex c_b6 = {0.f,0.f}; } if (*info < 0) { i__1 = -(*info); - xerbla_("CLAHILB", &i__1); + xerbla_("CLAHILB", &i__1, (ftnlen)7); return 0; } if (*n > 6) { diff --git a/lapack-netlib/TESTING/MATGEN/clakf2.c b/lapack-netlib/TESTING/MATGEN/clakf2.c index e24f47f2d0..e4a3bcedd3 100644 --- a/lapack-netlib/TESTING/MATGEN/clakf2.c +++ b/lapack-netlib/TESTING/MATGEN/clakf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/clarge.c b/lapack-netlib/TESTING/MATGEN/clarge.c index 299ec93087..d1483357f9 100644 --- a/lapack-netlib/TESTING/MATGEN/clarge.c +++ b/lapack-netlib/TESTING/MATGEN/clarge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -618,7 +618,7 @@ static integer c__1 = 1; extern real scnrm2_(integer *, complex *, integer *); complex wa, wb; real wn; - extern /* Subroutine */ int xerbla_(char *, integer *), clarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), clarnv_( integer *, integer *, integer *, complex *); complex tau; @@ -650,7 +650,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("CLARGE", &i__1); + xerbla_("CLARGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/clarnd.c b/lapack-netlib/TESTING/MATGEN/clarnd.c index 260f246d51..fa8a144201 100644 --- a/lapack-netlib/TESTING/MATGEN/clarnd.c +++ b/lapack-netlib/TESTING/MATGEN/clarnd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/claror.c b/lapack-netlib/TESTING/MATGEN/claror.c index 1fb287af32..7349576e0e 100644 --- a/lapack-netlib/TESTING/MATGEN/claror.c +++ b/lapack-netlib/TESTING/MATGEN/claror.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -699,7 +699,7 @@ t by U and the right by UC> SIDE = 'T' Multiply A on the left by U and t extern complex clarnd_(integer *, integer *); extern /* Subroutine */ int claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), xerbla_(char *, - integer *); + integer *, ftnlen); real factor; complex xnorms; @@ -750,7 +750,7 @@ t by U and the right by UC> SIDE = 'T' Multiply A on the left by U and t } if (*info != 0) { i__1 = -(*info); - xerbla_("CLAROR", &i__1); + xerbla_("CLAROR", &i__1, (ftnlen)6); return 0; } @@ -815,7 +815,7 @@ t by U and the right by UC> SIDE = 'T' Multiply A on the left by U and t if (abs(factor) < 1e-20f) { *info = 1; i__2 = -(*info); - xerbla_("CLAROR", &i__2); + xerbla_("CLAROR", &i__2, (ftnlen)6); return 0; } else { factor = 1.f / factor; diff --git a/lapack-netlib/TESTING/MATGEN/clarot.c b/lapack-netlib/TESTING/MATGEN/clarot.c index 9bc295062d..ac0fcb1e6e 100644 --- a/lapack-netlib/TESTING/MATGEN/clarot.c +++ b/lapack-netlib/TESTING/MATGEN/clarot.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/clatm1.c b/lapack-netlib/TESTING/MATGEN/clatm1.c index a2a62a5f47..bb496e518d 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm1.c +++ b/lapack-netlib/TESTING/MATGEN/clatm1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -664,7 +664,7 @@ static integer c__3 = 3; complex ctemp; //extern /* Complex */ VOID clarnd_(complex *, integer *, integer *); extern complex clarnd_(integer *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real slaran_(integer *); extern /* Subroutine */ int clarnv_(integer *, integer *, integer *, complex *); @@ -711,7 +711,7 @@ static integer c__3 = 3; if (*info != 0) { i__1 = -(*info); - xerbla_("CLATM1", &i__1); + xerbla_("CLATM1", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/clatm2.c b/lapack-netlib/TESTING/MATGEN/clatm2.c index cf60fa2968..54b0e733c6 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm2.c +++ b/lapack-netlib/TESTING/MATGEN/clatm2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/clatm3.c b/lapack-netlib/TESTING/MATGEN/clatm3.c index 58cd4e551e..bafa76716b 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm3.c +++ b/lapack-netlib/TESTING/MATGEN/clatm3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/clatm5.c b/lapack-netlib/TESTING/MATGEN/clatm5.c index dbd1ee642b..90792899d6 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm5.c +++ b/lapack-netlib/TESTING/MATGEN/clatm5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/clatm6.c b/lapack-netlib/TESTING/MATGEN/clatm6.c index 54c0af9dab..565748a488 100644 --- a/lapack-netlib/TESTING/MATGEN/clatm6.c +++ b/lapack-netlib/TESTING/MATGEN/clatm6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/clatme.c b/lapack-netlib/TESTING/MATGEN/clatme.c index 72effbf9a0..804489a7d6 100644 --- a/lapack-netlib/TESTING/MATGEN/clatme.c +++ b/lapack-netlib/TESTING/MATGEN/clatme.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -859,7 +859,7 @@ static integer c__5 = 5; real ralpha; extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer *), claset_(char *, integer *, integer *, complex *, complex *, - complex *, integer *), xerbla_(char *, integer *), + complex *, integer *), xerbla_(char *, integer *, ftnlen), clarnv_(integer *, integer *, integer *, complex *); integer irsign, iupper; complex xnorms; @@ -986,7 +986,7 @@ static integer c__5 = 5; if (*info != 0) { i__1 = -(*info); - xerbla_("CLATME", &i__1); + xerbla_("CLATME", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/clatmr.c b/lapack-netlib/TESTING/MATGEN/clatmr.c index 1265052ab5..9c18ae3ffb 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmr.c +++ b/lapack-netlib/TESTING/MATGEN/clatmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -1041,7 +1041,7 @@ static integer c__1 = 1; extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer *); logical fulbnd; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical badpvt; extern real clansp_(char *, char *, integer *, complex *, real *), clansy_(char *, char *, integer *, complex *, integer *, real *); @@ -1278,7 +1278,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); - xerbla_("CLATMR", &i__1); + xerbla_("CLATMR", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/clatms.c b/lapack-netlib/TESTING/MATGEN/clatms.c index 6f878e400e..c467a0a224 100644 --- a/lapack-netlib/TESTING/MATGEN/clatms.c +++ b/lapack-netlib/TESTING/MATGEN/clatms.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -891,7 +891,7 @@ static logical c_false = FALSE_; extern /* Subroutine */ int claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, complex *, real *, complex *, complex *), xerbla_(char *, integer - *), clagsy_(integer *, integer *, real *, complex *, + *, ftnlen), clagsy_(integer *, integer *, real *, complex *, integer *, integer *, complex *, integer *); extern real slarnd_(integer *, integer *); extern /* Subroutine */ int clarot_(logical *, logical *, logical *, @@ -1068,7 +1068,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("CLATMS", &i__1); + xerbla_("CLATMS", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/clatmt.c b/lapack-netlib/TESTING/MATGEN/clatmt.c index 04dc346972..6a38102c38 100644 --- a/lapack-netlib/TESTING/MATGEN/clatmt.c +++ b/lapack-netlib/TESTING/MATGEN/clatmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -899,7 +899,7 @@ static logical c_false = FALSE_; extern /* Subroutine */ int claset_(char *, integer *, integer *, complex *, complex *, complex *, integer *), clartg_(complex *, complex *, real *, complex *, complex *), xerbla_(char *, integer - *), clagsy_(integer *, integer *, real *, complex *, + *, ftnlen), clagsy_(integer *, integer *, real *, complex *, integer *, integer *, complex *, integer *); extern real slarnd_(integer *, integer *); extern /* Subroutine */ int clarot_(logical *, logical *, logical *, @@ -1075,7 +1075,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("CLATMT", &i__1); + xerbla_("CLATMT", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlagge.c b/lapack-netlib/TESTING/MATGEN/dlagge.c index 448f70a390..787eaea3c6 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagge.c +++ b/lapack-netlib/TESTING/MATGEN/dlagge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -645,7 +645,7 @@ static doublereal c_b13 = 0.; doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal wa, wb, wn; - extern /* Subroutine */ int xerbla_(char *, integer *), dlarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlarnv_( integer *, integer *, integer *, doublereal *); doublereal tau; @@ -684,7 +684,7 @@ static doublereal c_b13 = 0.; } if (*info < 0) { i__1 = -(*info); - xerbla_("DLAGGE", &i__1); + xerbla_("DLAGGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlagsy.c b/lapack-netlib/TESTING/MATGEN/dlagsy.c index 802ce683c7..287e31698a 100644 --- a/lapack-netlib/TESTING/MATGEN/dlagsy.c +++ b/lapack-netlib/TESTING/MATGEN/dlagsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -642,7 +642,7 @@ static doublereal c_b26 = 1.; integer *, doublereal *, doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal wa, wb, wn; - extern /* Subroutine */ int xerbla_(char *, integer *), dlarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlarnv_( integer *, integer *, integer *, doublereal *); doublereal tau; @@ -677,7 +677,7 @@ static doublereal c_b26 = 1.; } if (*info < 0) { i__1 = -(*info); - xerbla_("DLAGSY", &i__1); + xerbla_("DLAGSY", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlahilb.c b/lapack-netlib/TESTING/MATGEN/dlahilb.c index 0f79547cf7..34bf1f03ef 100644 --- a/lapack-netlib/TESTING/MATGEN/dlahilb.c +++ b/lapack-netlib/TESTING/MATGEN/dlahilb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -647,7 +647,7 @@ static doublereal c_b4 = 0.; integer i__, j, m, r__, ti, tm; extern /* Subroutine */ int dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *); + xerbla_(char *, integer *, ftnlen); /* -- LAPACK test routine (version 3.8.0) -- */ @@ -691,7 +691,7 @@ static doublereal c_b4 = 0.; } if (*info < 0) { i__1 = -(*info); - xerbla_("DLAHILB", &i__1); + xerbla_("DLAHILB", &i__1, (ftnlen)7); return 0; } if (*n > 6) { diff --git a/lapack-netlib/TESTING/MATGEN/dlakf2.c b/lapack-netlib/TESTING/MATGEN/dlakf2.c index 5d838ef353..df50c5531a 100644 --- a/lapack-netlib/TESTING/MATGEN/dlakf2.c +++ b/lapack-netlib/TESTING/MATGEN/dlakf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlaran.c b/lapack-netlib/TESTING/MATGEN/dlaran.c index 3aed1fce03..0ddef1bd57 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaran.c +++ b/lapack-netlib/TESTING/MATGEN/dlaran.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlarge.c b/lapack-netlib/TESTING/MATGEN/dlarge.c index 580c502345..d113168dd2 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarge.c +++ b/lapack-netlib/TESTING/MATGEN/dlarge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -618,7 +618,7 @@ static doublereal c_b10 = 0.; doublereal *, integer *, doublereal *, integer *, doublereal *, doublereal *, integer *); doublereal wa, wb, wn; - extern /* Subroutine */ int xerbla_(char *, integer *), dlarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlarnv_( integer *, integer *, integer *, doublereal *); doublereal tau; @@ -650,7 +650,7 @@ static doublereal c_b10 = 0.; } if (*info < 0) { i__1 = -(*info); - xerbla_("DLARGE", &i__1); + xerbla_("DLARGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlarnd.c b/lapack-netlib/TESTING/MATGEN/dlarnd.c index 8e0f43ee52..ec972adf9d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarnd.c +++ b/lapack-netlib/TESTING/MATGEN/dlarnd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlaror.c b/lapack-netlib/TESTING/MATGEN/dlaror.c index 8e66e55111..b35a442c12 100644 --- a/lapack-netlib/TESTING/MATGEN/dlaror.c +++ b/lapack-netlib/TESTING/MATGEN/dlaror.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -686,7 +686,7 @@ static integer c__1 = 1; extern doublereal dlarnd_(integer *, integer *); extern /* Subroutine */ int dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *); + xerbla_(char *, integer *, ftnlen); doublereal factor, xnorms; @@ -734,7 +734,7 @@ static integer c__1 = 1; } if (*info != 0) { i__1 = -(*info); - xerbla_("DLAROR", &i__1); + xerbla_("DLAROR", &i__1, (ftnlen)6); return 0; } @@ -782,7 +782,7 @@ static integer c__1 = 1; factor = xnorms * (xnorms + x[kbeg]); if (abs(factor) < 1e-20) { *info = 1; - xerbla_("DLAROR", info); + xerbla_("DLAROR", info, (ftnlen)6); return 0; } else { factor = 1. / factor; diff --git a/lapack-netlib/TESTING/MATGEN/dlarot.c b/lapack-netlib/TESTING/MATGEN/dlarot.c index 16ff2eeb09..a9f22ecb0e 100644 --- a/lapack-netlib/TESTING/MATGEN/dlarot.c +++ b/lapack-netlib/TESTING/MATGEN/dlarot.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlatm1.c b/lapack-netlib/TESTING/MATGEN/dlatm1.c index 5c2837e223..e2e30f3664 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm1.c +++ b/lapack-netlib/TESTING/MATGEN/dlatm1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -654,7 +654,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer i__; doublereal alpha; extern doublereal dlaran_(integer *); - extern /* Subroutine */ int xerbla_(char *, integer *), dlarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlarnv_( integer *, integer *, integer *, doublereal *); @@ -699,7 +699,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); - xerbla_("DLATM1", &i__1); + xerbla_("DLATM1", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlatm2.c b/lapack-netlib/TESTING/MATGEN/dlatm2.c index d74bc9168f..6cacf2bd0f 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm2.c +++ b/lapack-netlib/TESTING/MATGEN/dlatm2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlatm3.c b/lapack-netlib/TESTING/MATGEN/dlatm3.c index 86f964cedc..c246511c86 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm3.c +++ b/lapack-netlib/TESTING/MATGEN/dlatm3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlatm5.c b/lapack-netlib/TESTING/MATGEN/dlatm5.c index 5043da3985..f07df039ce 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm5.c +++ b/lapack-netlib/TESTING/MATGEN/dlatm5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlatm6.c b/lapack-netlib/TESTING/MATGEN/dlatm6.c index a1c995d24d..3833bd0685 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm6.c +++ b/lapack-netlib/TESTING/MATGEN/dlatm6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/dlatm7.c b/lapack-netlib/TESTING/MATGEN/dlatm7.c index df5eccf845..a02f318540 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatm7.c +++ b/lapack-netlib/TESTING/MATGEN/dlatm7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -640,7 +640,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ integer i__; doublereal alpha; extern doublereal dlaran_(integer *); - extern /* Subroutine */ int xerbla_(char *, integer *), dlarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), dlarnv_( integer *, integer *, integer *, doublereal *); @@ -685,7 +685,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); - xerbla_("DLATM7", &i__1); + xerbla_("DLATM7", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlatme.c b/lapack-netlib/TESTING/MATGEN/dlatme.c index c679007890..e14e953495 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatme.c +++ b/lapack-netlib/TESTING/MATGEN/dlatme.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -888,7 +888,7 @@ static doublereal c_b39 = 1.; extern doublereal dlaran_(integer *); extern /* Subroutine */ int dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), - xerbla_(char *, integer *), dlarnv_(integer *, integer *, + xerbla_(char *, integer *, ftnlen), dlarnv_(integer *, integer *, integer *, doublereal *); integer irsign, iupper; doublereal xnorms; @@ -1042,7 +1042,7 @@ static doublereal c_b39 = 1.; if (*info != 0) { i__1 = -(*info); - xerbla_("DLATME", &i__1); + xerbla_("DLATME", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlatmr.c b/lapack-netlib/TESTING/MATGEN/dlatmr.c index c5d88ad298..c47c3e057d 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmr.c +++ b/lapack-netlib/TESTING/MATGEN/dlatmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -1021,7 +1021,7 @@ static integer c__1 = 1; extern doublereal dlansb_(char *, char *, integer *, integer *, doublereal *, integer *, doublereal *); logical fulbnd; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical badpvt; extern doublereal dlansp_(char *, char *, integer *, doublereal *, doublereal *), dlansy_(char *, char *, integer *, @@ -1252,7 +1252,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); - xerbla_("DLATMR", &i__1); + xerbla_("DLATMR", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlatms.c b/lapack-netlib/TESTING/MATGEN/dlatms.c index 330bd279ab..665d572bfb 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatms.c +++ b/lapack-netlib/TESTING/MATGEN/dlatms.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -871,7 +871,7 @@ static logical c_false = FALSE_; extern /* Subroutine */ int dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *), dlagsy_( + doublereal *), xerbla_(char *, integer *, ftnlen), dlagsy_( integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *), dlarot_(logical *, logical *, logical *, integer *, doublereal *, doublereal *, doublereal *, @@ -1043,7 +1043,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("DLATMS", &i__1); + xerbla_("DLATMS", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/dlatmt.c b/lapack-netlib/TESTING/MATGEN/dlatmt.c index 5037405e31..aeb1f461a6 100644 --- a/lapack-netlib/TESTING/MATGEN/dlatmt.c +++ b/lapack-netlib/TESTING/MATGEN/dlatmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -882,7 +882,7 @@ static logical c_false = FALSE_; extern /* Subroutine */ int dlaset_(char *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *), dlartg_(doublereal *, doublereal *, doublereal *, doublereal *, - doublereal *), xerbla_(char *, integer *), dlagsy_( + doublereal *), xerbla_(char *, integer *, ftnlen), dlagsy_( integer *, integer *, doublereal *, doublereal *, integer *, integer *, doublereal *, integer *), dlarot_(logical *, logical *, logical *, integer *, doublereal *, doublereal *, doublereal *, @@ -1053,7 +1053,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("DLATMT", &i__1); + xerbla_("DLATMT", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slagge.c b/lapack-netlib/TESTING/MATGEN/slagge.c index 9e3e47712c..c89a86587e 100644 --- a/lapack-netlib/TESTING/MATGEN/slagge.c +++ b/lapack-netlib/TESTING/MATGEN/slagge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -643,7 +643,7 @@ static real c_b13 = 0.f; sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real wa, wb, wn; - extern /* Subroutine */ int xerbla_(char *, integer *), slarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarnv_( integer *, integer *, integer *, real *); real tau; @@ -682,7 +682,7 @@ static real c_b13 = 0.f; } if (*info < 0) { i__1 = -(*info); - xerbla_("SLAGGE", &i__1); + xerbla_("SLAGGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slagsy.c b/lapack-netlib/TESTING/MATGEN/slagsy.c index 5038e1c653..f41112d690 100644 --- a/lapack-netlib/TESTING/MATGEN/slagsy.c +++ b/lapack-netlib/TESTING/MATGEN/slagsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -638,7 +638,7 @@ static real c_b26 = 1.f; char *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real wa, wb, wn; - extern /* Subroutine */ int xerbla_(char *, integer *), slarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarnv_( integer *, integer *, integer *, real *); real tau; @@ -673,7 +673,7 @@ static real c_b26 = 1.f; } if (*info < 0) { i__1 = -(*info); - xerbla_("SLAGSY", &i__1); + xerbla_("SLAGSY", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slahilb.c b/lapack-netlib/TESTING/MATGEN/slahilb.c index 786804ca30..821d062872 100644 --- a/lapack-netlib/TESTING/MATGEN/slahilb.c +++ b/lapack-netlib/TESTING/MATGEN/slahilb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -645,7 +645,7 @@ static real c_b4 = 0.f; /* Local variables */ integer i__, j, m, r__, ti, tm; - extern /* Subroutine */ int xerbla_(char *, integer *), slaset_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slaset_( char *, integer *, integer *, real *, real *, real *, integer *); @@ -690,7 +690,7 @@ static real c_b4 = 0.f; } if (*info < 0) { i__1 = -(*info); - xerbla_("SLAHILB", &i__1); + xerbla_("SLAHILB", &i__1, (ftnlen)7); return 0; } if (*n > 6) { diff --git a/lapack-netlib/TESTING/MATGEN/slakf2.c b/lapack-netlib/TESTING/MATGEN/slakf2.c index 27efd82a80..76e10ad083 100644 --- a/lapack-netlib/TESTING/MATGEN/slakf2.c +++ b/lapack-netlib/TESTING/MATGEN/slakf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slaran.c b/lapack-netlib/TESTING/MATGEN/slaran.c index 43982d8608..209d393f17 100644 --- a/lapack-netlib/TESTING/MATGEN/slaran.c +++ b/lapack-netlib/TESTING/MATGEN/slaran.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slarge.c b/lapack-netlib/TESTING/MATGEN/slarge.c index 20453f08b6..37bebc5c9f 100644 --- a/lapack-netlib/TESTING/MATGEN/slarge.c +++ b/lapack-netlib/TESTING/MATGEN/slarge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -616,7 +616,7 @@ static real c_b10 = 0.f; sgemv_(char *, integer *, integer *, real *, real *, integer *, real *, integer *, real *, real *, integer *); real wa, wb, wn; - extern /* Subroutine */ int xerbla_(char *, integer *), slarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarnv_( integer *, integer *, integer *, real *); real tau; @@ -648,7 +648,7 @@ static real c_b10 = 0.f; } if (*info < 0) { i__1 = -(*info); - xerbla_("SLARGE", &i__1); + xerbla_("SLARGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slarnd.c b/lapack-netlib/TESTING/MATGEN/slarnd.c index af9bf4a57f..c79dc78ddd 100644 --- a/lapack-netlib/TESTING/MATGEN/slarnd.c +++ b/lapack-netlib/TESTING/MATGEN/slarnd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slaror.c b/lapack-netlib/TESTING/MATGEN/slaror.c index 26db2e6450..6ddcde26b4 100644 --- a/lapack-netlib/TESTING/MATGEN/slaror.c +++ b/lapack-netlib/TESTING/MATGEN/slaror.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -679,7 +679,7 @@ static integer c__1 = 1; real *, integer *, real *, real *, integer *); integer ixfrm, itype, nxfrm; real xnorm; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); real factor; extern real slarnd_(integer *, integer *); extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, @@ -731,7 +731,7 @@ static integer c__1 = 1; } if (*info != 0) { i__1 = -(*info); - xerbla_("SLAROR", &i__1); + xerbla_("SLAROR", &i__1, (ftnlen)6); return 0; } @@ -779,7 +779,7 @@ static integer c__1 = 1; factor = xnorms * (xnorms + x[kbeg]); if (abs(factor) < 1e-20f) { *info = 1; - xerbla_("SLAROR", info); + xerbla_("SLAROR", info, (ftnlen)6); return 0; } else { factor = 1.f / factor; diff --git a/lapack-netlib/TESTING/MATGEN/slarot.c b/lapack-netlib/TESTING/MATGEN/slarot.c index 205f7a622e..e905dd19fe 100644 --- a/lapack-netlib/TESTING/MATGEN/slarot.c +++ b/lapack-netlib/TESTING/MATGEN/slarot.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slatm1.c b/lapack-netlib/TESTING/MATGEN/slatm1.c index c5bb56d302..8a45572764 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm1.c +++ b/lapack-netlib/TESTING/MATGEN/slatm1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -652,7 +652,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ real temp; integer i__; real alpha; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real slaran_(integer *); extern /* Subroutine */ int slarnv_(integer *, integer *, integer *, real *); @@ -699,7 +699,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); - xerbla_("SLATM1", &i__1); + xerbla_("SLATM1", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slatm2.c b/lapack-netlib/TESTING/MATGEN/slatm2.c index e7b72006f2..3a10855344 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm2.c +++ b/lapack-netlib/TESTING/MATGEN/slatm2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slatm3.c b/lapack-netlib/TESTING/MATGEN/slatm3.c index 4f9f5fee2b..3dc2f06530 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm3.c +++ b/lapack-netlib/TESTING/MATGEN/slatm3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slatm5.c b/lapack-netlib/TESTING/MATGEN/slatm5.c index 238bf7e97e..a40124c9c4 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm5.c +++ b/lapack-netlib/TESTING/MATGEN/slatm5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slatm6.c b/lapack-netlib/TESTING/MATGEN/slatm6.c index d69028e6cd..cfc4735c6a 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm6.c +++ b/lapack-netlib/TESTING/MATGEN/slatm6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/slatm7.c b/lapack-netlib/TESTING/MATGEN/slatm7.c index 21976e322f..8c53da5a95 100644 --- a/lapack-netlib/TESTING/MATGEN/slatm7.c +++ b/lapack-netlib/TESTING/MATGEN/slatm7.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -639,7 +639,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ real temp; integer i__; real alpha; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real slaran_(integer *); extern /* Subroutine */ int slarnv_(integer *, integer *, integer *, real *); @@ -686,7 +686,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ if (*info != 0) { i__1 = -(*info); - xerbla_("SLATM7", &i__1); + xerbla_("SLATM7", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slatme.c b/lapack-netlib/TESTING/MATGEN/slatme.c index 96178bee67..2b38b6ac81 100644 --- a/lapack-netlib/TESTING/MATGEN/slatme.c +++ b/lapack-netlib/TESTING/MATGEN/slatme.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -877,7 +877,7 @@ static real c_b39 = 1.f; *); extern /* Subroutine */ int slarge_(integer *, real *, integer *, integer *, real *, integer *), slarfg_(integer *, real *, real *, integer - *, real *), xerbla_(char *, integer *); + *, real *), xerbla_(char *, integer *, ftnlen); extern real slaran_(integer *); integer irsign; extern /* Subroutine */ int slaset_(char *, integer *, integer *, real *, @@ -1036,7 +1036,7 @@ static real c_b39 = 1.f; if (*info != 0) { i__1 = -(*info); - xerbla_("SLATME", &i__1); + xerbla_("SLATME", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slatmr.c b/lapack-netlib/TESTING/MATGEN/slatmr.c index 9d416d23f5..2b239d1591 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmr.c +++ b/lapack-netlib/TESTING/MATGEN/slatmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -1017,7 +1017,7 @@ static integer c__1 = 1; integer *, real *), slange_(char *, integer *, integer *, real *, integer *, real *); logical fulbnd; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical badpvt; extern real slansb_(char *, char *, integer *, integer *, real *, integer *, real *); @@ -1251,7 +1251,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); - xerbla_("SLATMR", &i__1); + xerbla_("SLATMR", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slatms.c b/lapack-netlib/TESTING/MATGEN/slatms.c index ade2391cca..0ce9290ce2 100644 --- a/lapack-netlib/TESTING/MATGEN/slatms.c +++ b/lapack-netlib/TESTING/MATGEN/slatms.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -864,7 +864,7 @@ static logical c_false = FALSE_; integer *, real *, real *, integer *, integer *, real *, integer * ); integer minlda; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real slarnd_(integer *, integer *); logical iltemp, givens; integer ioffst, irsign; @@ -1039,7 +1039,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("SLATMS", &i__1); + xerbla_("SLATMS", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/slatmt.c b/lapack-netlib/TESTING/MATGEN/slatmt.c index b3185363b4..f0fd8df7b1 100644 --- a/lapack-netlib/TESTING/MATGEN/slatmt.c +++ b/lapack-netlib/TESTING/MATGEN/slatmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -874,7 +874,7 @@ static logical c_false = FALSE_; integer *, real *, real *, integer *, integer *, real *, integer * ); integer minlda; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern real slarnd_(integer *, integer *); integer ioffst, irsign; logical givens, iltemp; @@ -1049,7 +1049,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("SLATMT", &i__1); + xerbla_("SLATMT", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlagge.c b/lapack-netlib/TESTING/MATGEN/zlagge.c index 70651f8502..b734a61d93 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagge.c +++ b/lapack-netlib/TESTING/MATGEN/zlagge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -648,7 +648,7 @@ static integer c__1 = 1; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); doublecomplex wa, wb; doublereal wn; - extern /* Subroutine */ int xerbla_(char *, integer *), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( integer *, doublecomplex *, integer *), zlarnv_(integer *, integer *, integer *, doublecomplex *); doublecomplex tau; @@ -688,7 +688,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("ZLAGGE", &i__1); + xerbla_("ZLAGGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlaghe.c b/lapack-netlib/TESTING/MATGEN/zlaghe.c index b781dc9949..a2cf15d157 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaghe.c +++ b/lapack-netlib/TESTING/MATGEN/zlaghe.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -648,7 +648,7 @@ static integer c__1 = 1; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); doublecomplex wa, wb; doublereal wn; - extern /* Subroutine */ int xerbla_(char *, integer *), zlarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarnv_( integer *, integer *, integer *, doublecomplex *); doublecomplex tau; @@ -683,7 +683,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("ZLAGHE", &i__1); + xerbla_("ZLAGHE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlagsy.c b/lapack-netlib/TESTING/MATGEN/zlagsy.c index 7f29344a92..e014302029 100644 --- a/lapack-netlib/TESTING/MATGEN/zlagsy.c +++ b/lapack-netlib/TESTING/MATGEN/zlagsy.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -646,7 +646,7 @@ static integer c__1 = 1; integer ii, jj; doublecomplex wa, wb; doublereal wn; - extern /* Subroutine */ int xerbla_(char *, integer *), zlacgv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlacgv_( integer *, doublecomplex *, integer *), zlarnv_(integer *, integer *, integer *, doublecomplex *); doublecomplex tau; @@ -682,7 +682,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("ZLAGSY", &i__1); + xerbla_("ZLAGSY", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlahilb.c b/lapack-netlib/TESTING/MATGEN/zlahilb.c index c08c751969..5f169158fa 100644 --- a/lapack-netlib/TESTING/MATGEN/zlahilb.c +++ b/lapack-netlib/TESTING/MATGEN/zlahilb.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -671,7 +671,7 @@ static doublecomplex c_b6 = {0.,0.}; integer i__, j, m, r__; char c2[2]; integer ti, tm; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern logical lsamen_(integer *, char *, char *); extern /* Subroutine */ int zlaset_(char *, integer *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *); @@ -723,7 +723,7 @@ static doublecomplex c_b6 = {0.,0.}; } if (*info < 0) { i__1 = -(*info); - xerbla_("ZLAHILB", &i__1); + xerbla_("ZLAHILB", &i__1, (ftnlen)7); return 0; } if (*n > 6) { diff --git a/lapack-netlib/TESTING/MATGEN/zlakf2.c b/lapack-netlib/TESTING/MATGEN/zlakf2.c index ea23907530..5d78901155 100644 --- a/lapack-netlib/TESTING/MATGEN/zlakf2.c +++ b/lapack-netlib/TESTING/MATGEN/zlakf2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/zlarge.c b/lapack-netlib/TESTING/MATGEN/zlarge.c index 9084df6acf..6527a30afc 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarge.c +++ b/lapack-netlib/TESTING/MATGEN/zlarge.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -620,7 +620,7 @@ static integer c__1 = 1; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); doublecomplex wa, wb; doublereal wn; - extern /* Subroutine */ int xerbla_(char *, integer *), zlarnv_( + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), zlarnv_( integer *, integer *, integer *, doublecomplex *); doublecomplex tau; @@ -652,7 +652,7 @@ static integer c__1 = 1; } if (*info < 0) { i__1 = -(*info); - xerbla_("ZLARGE", &i__1); + xerbla_("ZLARGE", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlarnd.c b/lapack-netlib/TESTING/MATGEN/zlarnd.c index 014d48afb4..31435c59cf 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarnd.c +++ b/lapack-netlib/TESTING/MATGEN/zlarnd.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/zlaror.c b/lapack-netlib/TESTING/MATGEN/zlaror.c index eeb9f4fcfe..999ba796ac 100644 --- a/lapack-netlib/TESTING/MATGEN/zlaror.c +++ b/lapack-netlib/TESTING/MATGEN/zlaror.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -698,7 +698,7 @@ t by U and the right by UC> SIDE = 'T' Multiply A on the left by U and t integer itype, nxfrm; doublereal xnorm; extern doublereal dznrm2_(integer *, doublecomplex *, integer *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); doublereal factor; extern /* Subroutine */ int zlacgv_(integer *, doublecomplex *, integer *) ; @@ -756,7 +756,7 @@ t by U and the right by UC> SIDE = 'T' Multiply A on the left by U and t } if (*info != 0) { i__1 = -(*info); - xerbla_("ZLAROR", &i__1); + xerbla_("ZLAROR", &i__1, (ftnlen)6); return 0; } @@ -821,7 +821,7 @@ t by U and the right by UC> SIDE = 'T' Multiply A on the left by U and t if (abs(factor) < 1e-20) { *info = 1; i__2 = -(*info); - xerbla_("ZLAROR", &i__2); + xerbla_("ZLAROR", &i__2, (ftnlen)6); return 0; } else { factor = 1. / factor; diff --git a/lapack-netlib/TESTING/MATGEN/zlarot.c b/lapack-netlib/TESTING/MATGEN/zlarot.c index da7207df2c..0a6b5a7304 100644 --- a/lapack-netlib/TESTING/MATGEN/zlarot.c +++ b/lapack-netlib/TESTING/MATGEN/zlarot.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/zlatm1.c b/lapack-netlib/TESTING/MATGEN/zlatm1.c index 4b84fcc595..463b1836af 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm1.c +++ b/lapack-netlib/TESTING/MATGEN/zlatm1.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -663,7 +663,7 @@ static integer c__3 = 3; doublereal alpha; doublecomplex ctemp; extern doublereal dlaran_(integer *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); //extern /* Double Complex */ VOID zlarnd_(doublecomplex *, integer *, extern doublecomplex zlarnd_(integer *, integer *); @@ -712,7 +712,7 @@ static integer c__3 = 3; if (*info != 0) { i__1 = -(*info); - xerbla_("ZLATM1", &i__1); + xerbla_("ZLATM1", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlatm2.c b/lapack-netlib/TESTING/MATGEN/zlatm2.c index e1689d8753..dfd37364b8 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm2.c +++ b/lapack-netlib/TESTING/MATGEN/zlatm2.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/zlatm3.c b/lapack-netlib/TESTING/MATGEN/zlatm3.c index c35ffe4d9e..d455afe014 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm3.c +++ b/lapack-netlib/TESTING/MATGEN/zlatm3.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/zlatm5.c b/lapack-netlib/TESTING/MATGEN/zlatm5.c index 047a633c44..e643833376 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm5.c +++ b/lapack-netlib/TESTING/MATGEN/zlatm5.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/zlatm6.c b/lapack-netlib/TESTING/MATGEN/zlatm6.c index 6e25e50231..af5d7a6492 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatm6.c +++ b/lapack-netlib/TESTING/MATGEN/zlatm6.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; diff --git a/lapack-netlib/TESTING/MATGEN/zlatme.c b/lapack-netlib/TESTING/MATGEN/zlatme.c index 3e4c1f3a29..45d27cb9f8 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatme.c +++ b/lapack-netlib/TESTING/MATGEN/zlatme.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -849,7 +849,7 @@ static integer c__5 = 5; integer *, doublecomplex *, integer *, integer *); integer ic, jc, ir; doublereal ralpha; - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); extern /* Subroutine */ int zdscal_(integer *, doublereal *, @@ -990,7 +990,7 @@ static integer c__5 = 5; if (*info != 0) { i__1 = -(*info); - xerbla_("ZLATME", &i__1); + xerbla_("ZLATME", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlatmr.c b/lapack-netlib/TESTING/MATGEN/zlatmr.c index c0c2d0b3b0..60560b4fcd 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmr.c +++ b/lapack-netlib/TESTING/MATGEN/zlatmr.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -1039,7 +1039,7 @@ static integer c__1 = 1; logical fulbnd; extern doublereal zlangb_(char *, integer *, integer *, integer *, doublecomplex *, integer *, doublereal *); - extern /* Subroutine */ int xerbla_(char *, integer *); + extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen); logical badpvt; extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, integer *, doublereal *); @@ -1284,7 +1284,7 @@ static integer c__1 = 1; if (*info != 0) { i__1 = -(*info); - xerbla_("ZLATMR", &i__1); + xerbla_("ZLATMR", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlatms.c b/lapack-netlib/TESTING/MATGEN/zlatms.c index ca0191a135..07d4358944 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatms.c +++ b/lapack-netlib/TESTING/MATGEN/zlatms.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -887,7 +887,7 @@ static logical c_false = FALSE_; integer *, doublereal *, doublecomplex *, integer *, integer *, doublecomplex *, integer *), zlaghe_(integer *, integer *, doublereal *, doublecomplex *, integer *, integer *, - doublecomplex *, integer *), xerbla_(char *, integer *); + doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); logical iltemp, givens; integer ioffst, irsign; //extern /* Double Complex */ VOID zlarnd_(doublecomplex *, integer *, @@ -1073,7 +1073,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("ZLATMS", &i__1); + xerbla_("ZLATMS", &i__1, (ftnlen)6); return 0; } diff --git a/lapack-netlib/TESTING/MATGEN/zlatmt.c b/lapack-netlib/TESTING/MATGEN/zlatmt.c index 47279858b5..44565953a1 100644 --- a/lapack-netlib/TESTING/MATGEN/zlatmt.c +++ b/lapack-netlib/TESTING/MATGEN/zlatmt.c @@ -52,7 +52,7 @@ 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 integer logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; @@ -895,7 +895,7 @@ static logical c_false = FALSE_; integer *, doublereal *, doublecomplex *, integer *, integer *, doublecomplex *, integer *), zlaghe_(integer *, integer *, doublereal *, doublecomplex *, integer *, integer *, - doublecomplex *, integer *), xerbla_(char *, integer *); + doublecomplex *, integer *), xerbla_(char *, integer *, ftnlen); integer ioffst, irsign; logical givens, iltemp; //extern /* Double Complex */ VOID zlarnd_(doublecomplex *, integer *, @@ -1081,7 +1081,7 @@ static logical c_false = FALSE_; if (*info != 0) { i__1 = -(*info); - xerbla_("ZLATMT", &i__1); + xerbla_("ZLATMT", &i__1, (ftnlen)6); return 0; }