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

8
lapack-netlib/SRC/zlacrt.c
View File

@@ -614,7 +614,7 @@ f"> */
/* > \ingroup complex16OTHERauxiliary */
/* ===================================================================== */
/* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx,
/* Subroutine */ void zlacrt_(integer *n, doublecomplex *cx, integer *incx,
doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
s)
{
@@ -643,7 +643,7 @@ f"> */
/* Function Body */
if (*n <= 0) {
return 0;
return;
}
if (*incx == 1 && *incy == 1) {
goto L20;
@@ -684,7 +684,7 @@ f"> */
iy += *incy;
/* L10: */
}
return 0;
return;
/* Code for both increments equal to 1 */
@@ -712,6 +712,6 @@ L20:
cx[i__2].r = ctemp.r, cx[i__2].i = ctemp.i;
/* L30: */
}
return 0;
return;
} /* zlacrt_ */