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
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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;}
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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;}
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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;}
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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;}
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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;}
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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;}
#define pCf(z) (*_pCf(z))
#define pCd(z) (*_pCd(z))
typedef int logical;
typedef integer logical;
typedef short int shortlogical;
typedef char logical1;
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
#define pCf(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</b> */
*, 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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("CGEGS ", &i__1);
xerbla_("CGEGS", &i__1, (ftnlen)5);
return 0;
} else if (lquery) {
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
#define pCf(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</b> */
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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("CGEGV ", &i__1);
xerbla_("CGEGV", &i__1, (ftnlen)5);
return 0;
} else if (lquery) {
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
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

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

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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</b> */
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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("DGEGS ", &i__1);
xerbla_("DGEGS", &i__1, (ftnlen)5);
return 0;
} else if (lquery) {
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
#define pCf(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</b> */
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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("DGEGV ", &i__1);
xerbla_("DGEGV ", &i__1, (ftnlen)6);
return 0;
} else if (lquery) {
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
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

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

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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</b> */
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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("SGEGS ", &i__1);
xerbla_("SGEGS", &i__1, (ftnlen)5);
return 0;
} else if (lquery) {
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
#define pCf(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</b> */
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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("SGEGV ", &i__1);
xerbla_("SGEGV", &i__1, (ftnlen)5);
return 0;
} else if (lquery) {
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
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

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

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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</b> */
, 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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("ZGEGS ", &i__1);
xerbla_("ZGEGS", &i__1, (ftnlen)5);
return 0;
} else if (lquery) {
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
#define pCf(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</b> */
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</b> */
if (*info != 0) {
i__1 = -(*info);
xerbla_("ZGEGV ", &i__1);
xerbla_("ZGEGV", &i__1, (ftnlen)5);
return 0;
} else if (lquery) {
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
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

@ -52,7 +52,7 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
#endif
#define pCf(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;
}

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

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

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

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

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

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

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