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

fix prototypes of stest and itest1 for INTERFACE64

This commit is contained in:
Martin Kroeker 2023-10-08 12:51:41 +02:00 committed by GitHub
parent c30b530878
commit 769a58e9d1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ctest/c_dblat1c.c
View File

@ -404,9 +404,9 @@ L40:
static integer i__; static integer i__;
extern doublereal dnrm2test_(int*, doublereal*, int*); extern doublereal dnrm2test_(int*, doublereal*, int*);
static doublereal stemp[1], strue[8]; static doublereal stemp[1], strue[8];
extern /* Subroutine */ int stest_(int*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(int*,doublereal*,doublereal*,int*); extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(int*,doublereal*,doublereal*,int*);
extern doublereal dasumtest_(int*,doublereal*,int*); extern doublereal dasumtest_(int*,doublereal*,int*);
extern /* Subroutine */ int itest1_(int*,int*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*); extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*);
static doublereal sx[8]; static doublereal sx[8];
static integer np1; static integer np1;
extern integer idamaxtest_(int*,doublereal*,int*); extern integer idamaxtest_(int*,doublereal*,int*);
@ -517,7 +517,7 @@ L40:
static integer lenx, leny; static integer lenx, leny;
extern doublereal ddottest_(int*,doublereal*,int*,doublereal*,int*); extern doublereal ddottest_(int*,doublereal*,int*,doublereal*,int*);
static integer i__, j, ksize; static integer i__, j, ksize;
extern /* Subroutine */ int stest_(int*,doublereal*,doublereal*,doublereal*,doublereal*), dcopytest_(int*,doublereal*,int*,doublereal*,int*), dswaptest_(int*,doublereal*,int*,doublereal*,int*), extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dcopytest_(int*,doublereal*,int*,doublereal*,int*), dswaptest_(int*,doublereal*,int*,doublereal*,int*),
daxpytest_(int*,doublereal*,doublereal*,int*,doublereal*,int*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*); daxpytest_(int*,doublereal*,doublereal*,int*,doublereal*,int*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*);
static integer ki, kn, mx, my; static integer ki, kn, mx, my;
static doublereal sx[7], sy[7], stx[7], sty[7]; static doublereal sx[7], sy[7], stx[7], sty[7];
@ -620,7 +620,7 @@ L40:
/* Local variables */ /* Local variables */
extern /* Subroutine */ int drottest_(int*,doublereal*,int*,doublereal*,int*,doublereal*,doublereal*); extern /* Subroutine */ int drottest_(int*,doublereal*,int*,doublereal*,int*,doublereal*,doublereal*);
static integer i__, k, ksize; static integer i__, k, ksize;
extern /* Subroutine */int stest_(int*,doublereal*,doublereal*,doublereal*,doublereal*), drotmtest_(int*,doublereal*,int*,doublereal*,int*,doublereal*); extern /* Subroutine */int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), drotmtest_(int*,doublereal*,int*,doublereal*,int*,doublereal*);
static integer ki, kn; static integer ki, kn;
static doublereal dparam[5], sx[10], sy[10], stx[10], sty[10]; static doublereal dparam[5], sx[10], sy[10], stx[10], sty[10];
@ -691,7 +691,7 @@ L40:
return 0; return 0;
} /* check3_ */ } /* check3_ */
/* Subroutine */ int stest_(int* len, doublereal* scomp, doublereal* strue, doublereal* ssize, doublereal* sfac) /* Subroutine */ int stest_(integer* len, doublereal* scomp, doublereal* strue, doublereal* ssize, doublereal* sfac)
{ {
/* System generated locals */ /* System generated locals */
integer i__1; integer i__1;
@ -758,7 +758,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 */ int stest_(integer*, doublereal*, doublereal*, doublereal*, doublereal*);
/* ************************* STEST1 ***************************** */ /* ************************* STEST1 ***************************** */