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

fix prototypes of stest and ctest for INTERFACE64

This commit is contained in:
Martin Kroeker 2023-10-08 11:55:10 +02:00 committed by GitHub
parent 65bfe1a06d
commit 2b865da730
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ctest/c_zblat1c.c
View File

@ -378,7 +378,7 @@ static doublereal c_b43 = 1.;
/* Local variables */ /* Local variables */
static integer i__; static integer i__;
extern /* Subroutine */ int ctest_(int*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*); extern /* Subroutine */ int ctest_(integer*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*);
static doublecomplex mwpcs[5], mwpct[5]; static doublecomplex mwpcs[5], mwpct[5];
extern /* Subroutine */ int zscaltest_(int*, doublereal*, doublecomplex*, int*), itest1_(int*, int*), stest1_(doublereal*, doublereal*, doublereal*, doublereal*); extern /* Subroutine */ int zscaltest_(int*, doublereal*, doublecomplex*, int*), itest1_(int*, int*), stest1_(doublereal*, doublereal*, doublereal*, doublereal*);
static doublecomplex cx[8]; static doublecomplex cx[8];
@ -588,7 +588,7 @@ static doublereal c_b43 = 1.;
/* Local variables */ /* Local variables */
static doublecomplex cdot[1]; static doublecomplex cdot[1];
static integer lenx, leny, i__; static integer lenx, leny, i__;
extern /* Subroutine */ int ctest_(int*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*); extern /* Subroutine */ int ctest_(integer*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*);
static integer ksize; static integer ksize;
static doublecomplex ztemp; static doublecomplex ztemp;
extern /* Subroutine */ int zdotctest_(int*, doublecomplex*, int*, doublecomplex*, int*, doublecomplex*), zcopytest_(int*, doublecomplex*, int*, doublecomplex*, int*); extern /* Subroutine */ int zdotctest_(int*, doublecomplex*, int*, doublecomplex*, int*, doublecomplex*), zcopytest_(int*, doublecomplex*, int*, doublecomplex*, int*);
@ -747,7 +747,7 @@ L40:
/* Subroutine */ int stest1_(doublereal* scomp1, doublereal* strue1, doublereal* ssize, doublereal* sfac) /* Subroutine */ int stest1_(doublereal* scomp1, doublereal* strue1, doublereal* ssize, doublereal* sfac)
{ {
static doublereal scomp[1], strue[1]; static doublereal scomp[1], strue[1];
extern /* Subroutine */ int stest_(int*,doublereal*, doublereal*, doublereal*, doublereal*); extern /* Subroutine */ integer stest_(int*,doublereal*, doublereal*, doublereal*, doublereal*);
/* ************************* STEST1 ***************************** */ /* ************************* STEST1 ***************************** */