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/zhetri_3.c
View File

@@ -683,7 +683,7 @@ static integer c_n1 = -1;
/* > \endverbatim */
/* ===================================================================== */
/* Subroutine */ int zhetri_3_(char *uplo, integer *n, doublecomplex *a,
/* Subroutine */ void zhetri_3_(char *uplo, integer *n, doublecomplex *a,
integer *lda, doublecomplex *e, integer *ipiv, doublecomplex *work,
integer *lwork, integer *info)
{
@@ -691,7 +691,7 @@ static integer c_n1 = -1;
integer a_dim1, a_offset, i__1, i__2;
/* Local variables */
extern /* Subroutine */ int zhetri_3x_(char *, integer *, doublecomplex *
extern /* Subroutine */ void zhetri_3x_(char *, integer *, doublecomplex *
, integer *, doublecomplex *, integer *, doublecomplex *, integer
*, integer *);
extern logical lsame_(char *, char *);
@@ -749,16 +749,16 @@ static integer c_n1 = -1;
if (*info != 0) {
i__1 = -(*info);
xerbla_("ZHETRI_3", &i__1, (ftnlen)8);
return 0;
return;
} else if (lquery) {
work[1].r = (doublereal) lwkopt, work[1].i = 0.;
return 0;
return;
}
/* Quick return if possible */
if (*n == 0) {
return 0;
return;
}
zhetri_3x_(uplo, n, &a[a_offset], lda, &e[1], &ipiv[1], &work[1], &nb,
@@ -766,7 +766,7 @@ static integer c_n1 = -1;
work[1].r = (doublereal) lwkopt, work[1].i = 0.;
return 0;
return;
/* End of ZHETRI_3 */