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

Fix signatures of external functions in the f2c-generated C sources

Browse Source
This commit is contained in:
martin-frbg
2022-12-14 14:06:55 +01:00
parent 48f4151373
commit 8df791e513
1949 changed files with 14669 additions and 14041 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lapack-netlib/SRC/zgtsv.c
View File

@@ -634,7 +634,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* > \ingroup complex16GTsolve */
/* ===================================================================== */
/* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
/* Subroutine */ void zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb,
integer *info)
{
@@ -678,11 +678,11 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
if (*info != 0) {
i__1 = -(*info);
xerbla_("ZGTSV ", &i__1, (ftnlen)6);
return 0;
return;
}
if (*n == 0) {
return 0;
return;
}
i__1 = *n - 1;
@@ -699,7 +699,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* solution can not be found. */
*info = k;
return 0;
return;
}
} else /* if(complicated condition) */ {
i__2 = k;
@@ -787,7 +787,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
i__1 = *n;
if (d__[i__1].r == 0. && d__[i__1].i == 0.) {
*info = *n;
return 0;
return;
}
/* Back solve with the matrix U from the factorization. */
@@ -828,7 +828,7 @@ static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integ
/* L50: */
}
return 0;
return;
/* End of ZGTSV */