floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix LAPACK for f2c converted sources 

* Change logical type for 64bit interface
* Fix xerbla_ calls in several functons (Added 3rd argument with string size)
* Usage of generated macros in f2c files to determine length of string has been replaced by a common C function.
This commit is contained in:
Andrey Sokolov 2023-05-05 11:22:47 +03:00
parent 88e994116c
commit da82ee4d97
2155 changed files with 2360 additions and 2356 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/INSTALL/dlamch.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/droundup_lwork.c
View File

@ -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;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/dsecnd_INT_ETIME.c
View File

@ -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;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/dsecnd_NONE.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/ilaver.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/lsame.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/lsametst.c
View File

@ -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;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/second_INT_ETIME.c
View File

@ -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;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/second_NONE.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/secondtst.c
View File

@ -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;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/slamch.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/INSTALL/sroundup_lwork.c
View File

@ -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;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

6
lapack-netlib/SRC/DEPRECATED/cgegs.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -779,7 +779,7 @@ rices</b> */
*, integer *, complex *, integer *), claset_(char *, *, integer *, complex *, integer *), claset_(char *,
integer *, integer *, complex *, complex *, complex *, integer *); integer *, integer *, complex *, complex *, complex *, integer *);
real safmin; real safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
@ -898,7 +898,7 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEGS ", &i__1); xerbla_("CGEGS", &i__1, (ftnlen)5);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/cgegv.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -852,7 +852,7 @@ rices</b> */
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex *, integer *,
complex *, integer *, real *, integer *), complex *, integer *, real *, integer *),
xerbla_(char *, integer *); xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
@ -969,7 +969,7 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEGV ", &i__1); xerbla_("CGEGV", &i__1, (ftnlen)5);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/cgelsx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -730,7 +730,7 @@ f"> */
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ int claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), xerbla_(char *, *, complex *, complex *, integer *), xerbla_(char *,
integer *); integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int clatzm_(char *, integer *, integer *, complex extern /* Subroutine */ int clatzm_(char *, integer *, integer *, complex
*, integer *, complex *, complex *, complex *, integer *, complex *, integer *, complex *, complex *, complex *, integer *, complex
@ -787,7 +787,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELSX", &i__1); xerbla_("CGELSX", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/cgeqpf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -688,7 +688,7 @@ f"> */
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ int clarfg_(integer *, complex *, complex *,
integer *, complex *); integer *, complex *);
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
complex aii; complex aii;
integer pvt; integer pvt;
@ -725,7 +725,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGEQPF", &i__1); xerbla_("CGEQPF", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/cggsvd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -878,7 +878,7 @@ f"> */
complex *, integer *, real *, real *, real *, real *, complex *, complex *, integer *, real *, real *, real *, real *, complex *,
integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *, integer *, complex *,
integer *, integer *), xerbla_(char *, integer *, integer *), xerbla_(char *,
integer *), cggsvp_(char *, char *, char *, integer *, integer *, ftnlen), cggsvp_(char *, char *, char *, integer *,
integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer *,
real *, real *, integer *, integer *, complex *, integer *, real *, real *, integer *, integer *, complex *, integer *,
complex *, integer *, complex *, integer *, integer *, real *, complex *, integer *, complex *, integer *, integer *, real *,
@ -950,7 +950,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGGSVD", &i__1); xerbla_("CGGSVD", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/cggsvp.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -803,7 +803,7 @@ f"> */
*, integer *, integer *, complex *, integer *, complex *, integer *, integer *, integer *, complex *, integer *, complex *, integer
*), claset_(char *, integer *, integer *, complex *, *), claset_(char *, integer *, integer *, complex *,
complex *, complex *, integer *), xerbla_(char *, integer complex *, complex *, integer *), xerbla_(char *, integer
*), clapmt_(logical *, integer *, integer *, complex *, *, ftnlen), clapmt_(logical *, integer *, integer *, complex *,
integer *, integer *); integer *, integer *);
logical forwrd; logical forwrd;
@ -872,7 +872,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGGSVP", &i__1); xerbla_("CGGSVP", &i__1, (ftnlen)6);
return 0; return 0;
} }

2
lapack-netlib/SRC/DEPRECATED/clahrd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/DEPRECATED/clatzm.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

6
lapack-netlib/SRC/DEPRECATED/ctzrqf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -672,7 +672,7 @@ f"> */
integer m1; integer m1;
extern /* Subroutine */ int clarfg_(integer *, complex *, complex *, extern /* Subroutine */ int clarfg_(integer *, complex *, complex *,
integer *, complex *), clacgv_(integer *, complex *, integer *), integer *, complex *), clacgv_(integer *, complex *, integer *),
xerbla_(char *, integer *); xerbla_(char *, integer *, ftnlen);
/* -- LAPACK computational routine (version 3.7.0) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -703,7 +703,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CTZRQF", &i__1); xerbla_("CTZRQF", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/dgegs.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -783,7 +783,7 @@ rices</b> */
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int dlaset_(char *, integer *, integer *, extern /* Subroutine */ int dlaset_(char *, integer *, integer *,
doublereal *, doublereal *, doublereal *, integer *), doublereal *, doublereal *, doublereal *, integer *),
xerbla_(char *, integer *); xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
doublereal bignum; doublereal bignum;
@ -904,7 +904,7 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEGS ", &i__1); xerbla_("DGEGS", &i__1, (ftnlen)5);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/dgegv.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -878,7 +878,7 @@ rices</b> */
logical *, integer *, doublereal *, integer *, doublereal *, logical *, integer *, doublereal *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
integer *, integer *, doublereal *, integer *), integer *, integer *, doublereal *, integer *),
xerbla_(char *, integer *); xerbla_(char *, integer *, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
logical ilimit; logical ilimit;
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
@ -997,7 +997,7 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEGV ", &i__1); xerbla_("DGEGV ", &i__1, (ftnlen)6);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/dgelsx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -726,7 +726,7 @@ f"> */
doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *,
integer *), dlaset_(char *, integer *, integer *, doublereal *, integer *), dlaset_(char *, integer *, integer *, doublereal *,
doublereal *, doublereal *, integer *), xerbla_(char *, doublereal *, doublereal *, integer *), xerbla_(char *,
integer *); integer *, ftnlen);
doublereal bignum; doublereal bignum;
extern /* Subroutine */ int dlatzm_(char *, integer *, integer *, extern /* Subroutine */ int dlatzm_(char *, integer *, integer *,
doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *,
@ -781,7 +781,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGELSX", &i__1); xerbla_("DGELSX", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/dgeqpf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -684,7 +684,7 @@ f"> */
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *,
integer *, doublereal *); integer *, doublereal *);
extern integer idamax_(integer *, doublereal *, integer *); extern integer idamax_(integer *, doublereal *, integer *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal aii; doublereal aii;
integer pvt; integer pvt;
@ -719,7 +719,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGEQPF", &i__1); xerbla_("DGEQPF", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/dggsvd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -874,7 +874,7 @@ f"> */
*, doublereal *, integer *, doublereal *, doublereal *, *, doublereal *, integer *, doublereal *, doublereal *,
doublereal *, doublereal *, doublereal *, integer *, doublereal *, doublereal *, doublereal *, doublereal *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, 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 *, integer *, doublereal *, integer *, doublereal *, integer *,
doublereal *, doublereal *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *,
integer *, doublereal *, integer *, doublereal *, integer *, integer *, doublereal *, integer *, doublereal *, integer *,
@ -945,7 +945,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGGSVD", &i__1); xerbla_("DGGSVD", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/dggsvp.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -797,7 +797,7 @@ f"> */
integer *, integer *, doublereal *, doublereal *, integer *), integer *, integer *, doublereal *, doublereal *, integer *),
dlacpy_(char *, integer *, integer *, doublereal *, integer *, dlacpy_(char *, integer *, integer *, doublereal *, integer *,
doublereal *, integer *), dlaset_(char *, 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 *); integer *, integer *, doublereal *, integer *, integer *);
logical forwrd; logical forwrd;
@ -865,7 +865,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DGGSVP", &i__1); xerbla_("DGGSVP", &i__1, (ftnlen)6);
return 0; return 0;
} }

2
lapack-netlib/SRC/DEPRECATED/dlahrd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/DEPRECATED/dlatzm.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

6
lapack-netlib/SRC/DEPRECATED/dtzrqf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -672,7 +672,7 @@ f"> */
; ;
integer m1; integer m1;
extern /* Subroutine */ int dlarfg_(integer *, doublereal *, doublereal *, 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) -- */ /* -- LAPACK computational routine (version 3.7.0) -- */
@ -703,7 +703,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("DTZRQF", &i__1); xerbla_("DTZRQF", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/sgegs.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -772,7 +772,7 @@ ices</b> */
extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *, extern /* Subroutine */ int sgghrd_(char *, char *, integer *, integer *,
integer *, real *, integer *, real *, integer *, real *, integer * integer *, real *, integer *, real *, integer *, real *, integer *
, real *, integer *, integer *), xerbla_(char *, , real *, integer *, integer *), xerbla_(char *,
integer *); integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
real bignum; real bignum;
@ -899,7 +899,7 @@ ices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEGS ", &i__1); xerbla_("SGEGS", &i__1, (ftnlen)5);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/sgegv.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -858,7 +858,7 @@ rices</b> */
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, 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 *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
integer ijobvl, iright; integer ijobvl, iright;
@ -988,7 +988,7 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEGV ", &i__1); xerbla_("SGEGV", &i__1, (ftnlen)5);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/sgelsx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -716,7 +716,7 @@ f"> */
integer mn; integer mn;
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); real *, integer *, real *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
real bignum; real bignum;
extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *, extern /* Subroutine */ int slascl_(char *, integer *, integer *, real *,
real *, integer *, integer *, real *, integer *, integer *), sgeqpf_(integer *, integer *, real *, integer *, integer real *, integer *, integer *, real *, integer *, integer *), sgeqpf_(integer *, integer *, real *, integer *, integer
@ -774,7 +774,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGELSX", &i__1); xerbla_("SGELSX", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/sgeqpf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -679,7 +679,7 @@ f"> */
integer *); integer *);
integer mn; integer mn;
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *), slarfg_( extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen), slarfg_(
integer *, real *, real *, integer *, real *); integer *, real *, real *, integer *, real *);
extern integer isamax_(integer *, real *, integer *); extern integer isamax_(integer *, real *, integer *);
real aii; real aii;
@ -716,7 +716,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGEQPF", &i__1); xerbla_("SGEQPF", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/sggsvd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -869,7 +869,7 @@ f"> */
logical wantu, wantv; logical wantu, wantv;
extern real slamch_(char *), slange_(char *, integer *, integer *, extern real slamch_(char *), slange_(char *, integer *, integer *,
real *, integer *, real *); 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 * char *, char *, char *, integer *, integer *, integer *, integer *
, integer *, real *, integer *, real *, integer *, real *, real *, , integer *, real *, integer *, real *, integer *, real *, real *,
real *, real *, real *, integer *, real *, integer *, real *, real *, real *, real *, integer *, real *, integer *, real *,
@ -944,7 +944,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGGSVD", &i__1); xerbla_("SGGSVD", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/sggsvp.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -789,7 +789,7 @@ f"> */
integer *, integer *, real *, integer *, real *, real *, integer * integer *, integer *, real *, integer *, real *, real *, integer *
), sorm2r_(char *, char *, integer *, integer *, integer *, real * ), sorm2r_(char *, char *, integer *, integer *, integer *, real *
, integer *, real *, real *, integer *, real *, integer *), sormr2_(char *, char *, integer *, integer *, integer *, , 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 *, integer *, real *, integer *, integer *, real *, real *
, integer *), slacpy_(char *, integer *, integer *, real *, , integer *), slacpy_(char *, integer *, integer *, real *,
integer *, real *, integer *), slaset_(char *, integer *, integer *, real *, integer *), slaset_(char *, integer *,
@ -861,7 +861,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("SGGSVP", &i__1); xerbla_("SGGSVP", &i__1, (ftnlen)6);
return 0; return 0;
} }

2
lapack-netlib/SRC/DEPRECATED/slahrd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/DEPRECATED/slatzm.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

6
lapack-netlib/SRC/DEPRECATED/stzrqf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -667,7 +667,7 @@ f"> */
real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *); real *, integer *, real *, integer *, real *, real *, integer *), scopy_(integer *, real *, integer *, real *, integer *);
integer m1; integer m1;
extern /* Subroutine */ int saxpy_(integer *, real *, real *, integer *, 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 *); integer *, real *, real *, integer *, real *);
@ -699,7 +699,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("STZRQF", &i__1); xerbla_("STZRQF", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/zgegs.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -767,7 +767,7 @@ rices</b> */
, integer *, doublereal *, doublereal *, doublereal *, integer *); , integer *, doublereal *, doublereal *, doublereal *, integer *);
logical ilascl, ilbscl; logical ilascl, ilbscl;
doublereal safmin; doublereal safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
@ -903,7 +903,7 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEGS ", &i__1); xerbla_("ZGEGS", &i__1, (ftnlen)5);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/zgegv.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -829,7 +829,7 @@ rices</b> */
doublecomplex *, integer *, doublecomplex *, integer *, integer * doublecomplex *, integer *, doublecomplex *, integer *, integer *
, integer *, doublereal *, doublereal *, doublereal *, integer *); , integer *, doublereal *, doublereal *, doublereal *, integer *);
doublereal salfar, safmin; doublereal salfar, safmin;
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
doublereal safmax; doublereal safmax;
char chtemp[1]; char chtemp[1];
logical ldumma[1]; logical ldumma[1];
@ -972,7 +972,7 @@ rices</b> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEGV ", &i__1); xerbla_("ZGEGV", &i__1, (ftnlen)5);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

6
lapack-netlib/SRC/DEPRECATED/zgelsx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -723,7 +723,7 @@ f"> */
integer mn; integer mn;
extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *, extern /* Subroutine */ int zunm2r_(char *, char *, integer *, integer *,
integer *, doublecomplex *, integer *, doublecomplex *, 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 *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
doublereal bignum; doublereal bignum;
@ -788,7 +788,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGELSX", &i__1); xerbla_("ZGELSX", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/zgeqpf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -689,7 +689,7 @@ f"> */
integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *); doublecomplex *, integer *, doublecomplex *, integer *);
extern integer idamax_(integer *, doublereal *, 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 *, integer *, doublecomplex *, doublecomplex *, integer *,
doublecomplex *); doublecomplex *);
doublecomplex aii; doublecomplex aii;
@ -727,7 +727,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGEQPF", &i__1); xerbla_("ZGEQPF", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/zggsvd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -871,7 +871,7 @@ f"> */
doublereal *, integer *); doublereal *, integer *);
logical wantq, wantu, wantv; logical wantq, wantu, wantv;
extern doublereal dlamch_(char *); extern doublereal dlamch_(char *);
extern /* Subroutine */ int xerbla_(char *, integer *); extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, extern doublereal zlange_(char *, integer *, integer *, doublecomplex *,
integer *, doublereal *); integer *, doublereal *);
extern /* Subroutine */ int ztgsja_(char *, char *, char *, integer *, extern /* Subroutine */ int ztgsja_(char *, char *, char *, integer *,
@ -953,7 +953,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGGSVD", &i__1); xerbla_("ZGGSVD", &i__1, (ftnlen)6);
return 0; return 0;
} }

6
lapack-netlib/SRC/DEPRECATED/zggsvp.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -803,7 +803,7 @@ f"> */
doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *), zunmr2_(char *, char *, integer *, integer *, integer *,
doublecomplex *, integer *, doublecomplex *, doublecomplex *, doublecomplex *, integer *, doublecomplex *, doublecomplex *,
integer *, doublecomplex *, integer *), xerbla_( integer *, doublecomplex *, integer *), xerbla_(
char *, integer *), zgeqpf_(integer *, integer *, char *, integer *, ftnlen), zgeqpf_(integer *, integer *,
doublecomplex *, integer *, integer *, doublecomplex *, doublecomplex *, integer *, integer *, doublecomplex *,
doublecomplex *, doublereal *, integer *), zlacpy_(char *, doublecomplex *, doublereal *, integer *), zlacpy_(char *,
integer *, integer *, doublecomplex *, integer *, doublecomplex *, integer *, integer *, doublecomplex *, integer *, doublecomplex *,
@ -878,7 +878,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZGGSVP", &i__1); xerbla_("ZGGSVP", &i__1, (ftnlen)6);
return 0; return 0;
} }

2
lapack-netlib/SRC/DEPRECATED/zlahrd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/DEPRECATED/zlatzm.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

6
lapack-netlib/SRC/DEPRECATED/ztzrqf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -671,7 +671,7 @@ f"> */
extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *, extern /* Subroutine */ int zcopy_(integer *, doublecomplex *, integer *,
doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *), zaxpy_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *, integer *), xerbla_( doublecomplex *, integer *, doublecomplex *, integer *), xerbla_(
char *, integer *), zlarfg_(integer *, doublecomplex *, char *, integer *, ftnlen), zlarfg_(integer *, doublecomplex *,
doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *, doublecomplex *, integer *, doublecomplex *), zlacgv_(integer *,
doublecomplex *, integer *); doublecomplex *, integer *);
@ -704,7 +704,7 @@ f"> */
} }
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("ZTZRQF", &i__1); xerbla_("ZTZRQF", &i__1, (ftnlen)6);
return 0; return 0;
} }

2
lapack-netlib/SRC/cbbcsd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cbdsqr.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbbrd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbcon.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbequ.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbequb.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbrfs.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbrfsx.c
View File

@ -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;} static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbsv.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbsvx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbsvxx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbtf2.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbtrf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgbtrs.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgebak.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgebal.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgebd2.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgebrd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgecon.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeequ.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeequb.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgees.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeesx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeev.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeevx.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgehd2.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgehrd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgejsv.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgelq.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgelq2.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgelqf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgelqt.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgelqt3.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgels.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgelsd.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgelss.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

6
lapack-netlib/SRC/cgelst.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;
@ -736,7 +736,7 @@ f"> */
extern real slamch_(char *); extern real slamch_(char *);
extern /* Subroutine */ int claset_(char *, integer *, integer *, complex extern /* Subroutine */ int claset_(char *, integer *, integer *, complex
*, complex *, complex *, integer *), xerbla_(char *, *, complex *, complex *, integer *), xerbla_(char *,
integer *); integer *, ftnlen);
extern integer ilaenv_(integer *, char *, char *, integer *, integer *, extern integer ilaenv_(integer *, char *, char *, integer *, integer *,
integer *, integer *, ftnlen, ftnlen); integer *, integer *, ftnlen, ftnlen);
extern /* Subroutine */ int cgelqt_(integer *, integer *, integer *, extern /* Subroutine */ int cgelqt_(integer *, integer *, integer *,
@ -826,7 +826,7 @@ f"> */
if (*info != 0) { if (*info != 0) {
i__1 = -(*info); i__1 = -(*info);
xerbla_("CGELST ", &i__1); xerbla_("CGELST", &i__1, (ftnlen)6);
return 0; return 0;
} else if (lquery) { } else if (lquery) {
return 0; return 0;

2
lapack-netlib/SRC/cgelsy.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgemlq.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgemlqt.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgemqr.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgemqrt.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeql2.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqlf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqp3.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqr.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqr2.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqr2p.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqrf.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqrfp.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqrt.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

2
lapack-netlib/SRC/cgeqrt2.c
View File

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif #endif
#define pCf(z) (*_pCf(z)) #define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z)) #define pCd(z) (*_pCd(z))
typedef int logical; typedef integer logical;
typedef short int shortlogical; typedef short int shortlogical;
typedef char logical1; typedef char logical1;
typedef char integer1; typedef char integer1;

Some files were not shown because too many files have changed in this diff Show More