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

correct prototypes for INTERFACE64 builds

This commit is contained in:
Martin Kroeker 2023-10-08 16:13:37 +02:00 committed by GitHub
parent d8126c76e7
commit c5e7339c9e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 32 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ctest/c_cblat1c.c
View File

@ -441,11 +441,11 @@ static real c_b43 = (float)1.;
static complex mwpcs[5], mwpct[5]; static complex mwpcs[5], mwpct[5];
extern /* Subroutine */ int itest1_(integer*, integer*), stest1_(real*,real*,real*,real*); extern /* Subroutine */ int itest1_(integer*, integer*), stest1_(real*,real*,real*,real*);
static complex cx[8]; static complex cx[8];
extern real scnrm2test_(int*, complex*, int*); extern real scnrm2test_(integer*, complex*, integer*);
static integer np1; static integer np1;
extern integer icamaxtest_(int*, complex*, int*); extern integer icamaxtest_(integer*, complex*, integer*);
extern /* Subroutine */ int csscaltest_(int*, real*, complex*, int*); extern /* Subroutine */ int csscaltest_(integer*, real*, complex*, integer*);
extern real scasumtest_(int*, complex*, int*); extern real scasumtest_(integer*, complex*, integer*);
static integer len; static integer len;
/* .. Parameters .. */ /* .. Parameters .. */
@ -736,8 +736,8 @@ static real c_b43 = (float)1.;
static complex ctemp; static complex ctemp;
extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*); extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*);
static integer ksize; static integer ksize;
extern /* Subroutine */ int cdotctest_(int*, complex*, int*, complex*, int*,complex*), ccopytest_(int*, complex*, int*, complex*, int*), cdotutest_(int*, complex*, int*, complex*, int*, complex*), extern /* Subroutine */ int cdotctest_(integer*, complex*, integer*, complex*, integer*,complex*), ccopytest_(integer*, complex*, integer*, complex*, integer*), cdotutest_(integer*, complex*, integer*, complex*, integer*, complex*),
cswaptest_(int*, complex*, int*, complex*, int*), caxpytest_(int*, complex*, complex*, int*, complex*, int*); cswaptest_(integer*, complex*, integer*, complex*, integer*), caxpytest_(integer*, complex*, complex*, integer*, complex*, integer*);
static integer ki, kn; static integer ki, kn;
static complex cx[7], cy[7]; static complex cx[7], cy[7];
static integer mx, my; static integer mx, my;

20
ctest/c_dblat1c.c
View File

@ -402,14 +402,14 @@ L40:
/* Local variables */ /* Local variables */
static integer i__; static integer i__;
extern doublereal dnrm2test_(int*, doublereal*, int*); extern doublereal dnrm2test_(integer*, doublereal*, integer*);
static doublereal stemp[1], strue[8]; static doublereal stemp[1], strue[8];
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(int*,doublereal*,doublereal*,int*); extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(integer*,doublereal*,doublereal*,integer*);
extern doublereal dasumtest_(int*,doublereal*,int*); extern doublereal dasumtest_(integer*,doublereal*,integer*);
extern /* Subroutine */ int itest1_(integer*,integer*), 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_(integer*,doublereal*,integer*);
static integer len; static integer len;
/* .. Parameters .. */ /* .. Parameters .. */
@ -515,10 +515,10 @@ L40:
/* Local variables */ /* Local variables */
static integer lenx, leny; static integer lenx, leny;
extern doublereal ddottest_(int*,doublereal*,int*,doublereal*,int*); extern doublereal ddottest_(integer*,doublereal*,integer*,doublereal*,integer*);
static integer i__, j, ksize; static integer i__, j, ksize;
extern /* Subroutine */ int stest_(integer*,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_(integer*,doublereal*,integer*,doublereal*,integer*), dswaptest_(integer*,doublereal*,integer*,doublereal*,integer*),
daxpytest_(int*,doublereal*,doublereal*,int*,doublereal*,int*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*); daxpytest_(integer*,doublereal*,doublereal*,integer*,doublereal*,integer*), 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];
@ -618,9 +618,9 @@ L40:
; ;
/* Local variables */ /* Local variables */
extern /* Subroutine */ int drottest_(int*,doublereal*,int*,doublereal*,int*,doublereal*,doublereal*); extern /* Subroutine */ int drottest_(integer*,doublereal*,integer*,doublereal*,integer*,doublereal*,doublereal*);
static integer i__, k, ksize; static integer i__, k, ksize;
extern /* Subroutine */int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), drotmtest_(int*,doublereal*,int*,doublereal*,int*,doublereal*); extern /* Subroutine */int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), drotmtest_(integer*,doublereal*,integer*,doublereal*,integer*,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];
@ -799,7 +799,7 @@ doublereal sdiff_(doublereal* sa, doublereal* sb)
return ret_val; return ret_val;
} /* sdiff_ */ } /* sdiff_ */
/* Subroutine */ int itest1_(int* icomp, int* itrue) /* Subroutine */ int itest1_(integer* icomp, integer* itrue)
{ {
/* Local variables */ /* Local variables */
static integer id; static integer id;

22
ctest/c_sblat1c.c
View File

@ -433,14 +433,14 @@ L40:
/* Local variables */ /* Local variables */
static integer i__; static integer i__;
extern real snrm2test_(int*,real*,int*); extern real snrm2test_(integer*,real*,integer*);
static real stemp[1], strue[8]; static real stemp[1], strue[8];
extern /* Subroutine */ int stest_(int*, real*,real*,real*,real*), sscaltest_(int*,real*,real*,int*); extern /* Subroutine */ int stest_(integer*, real*,real*,real*,real*), sscaltest_(integer*,real*,real*,integer*);
extern real sasumtest_(int*,real*,int*); extern real sasumtest_(integer*,real*,integer*);
extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(real*,real*,real*,real*); extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(real*,real*,real*,real*);
static real sx[8]; static real sx[8];
static integer np1; static integer np1;
extern integer isamaxtest_(int*,real*,int*); extern integer isamaxtest_(integer*,real*,integer*);
static integer len; static integer len;
@ -590,10 +590,10 @@ L40:
/* Local variables */ /* Local variables */
static integer lenx, leny; static integer lenx, leny;
extern real sdottest_(int*,real*,int*,real*,int*); extern real sdottest_(integer*,real*,integer*,real*,integer*);
static integer i__, j, ksize; static integer i__, j, ksize;
extern /* Subroutine */ int stest_(int*,real*,real*,real*,real*), scopytest_(int*,real*,int*,real*,int*), sswaptest_(int*,real*,int*,real*,int*), extern /* Subroutine */ int stest_(integer*,real*,real*,real*,real*), scopytest_(integer*,real*,integer*,real*,integer*), sswaptest_(integer*,real*,integer*,real*,integer*),
saxpytest_(int*,real*,real*,int*,real*,int*); saxpytest_(integer*,real*,real*,integer*,real*,integer*);
static integer ki; static integer ki;
extern /* Subroutine */ int stest1_(real*,real*,real*,real*); extern /* Subroutine */ int stest1_(real*,real*,real*,real*);
static integer kn, mx, my; static integer kn, mx, my;
@ -708,9 +708,9 @@ L40:
1.17 }; 1.17 };
/* Local variables */ /* Local variables */
extern /* Subroutine */ void srottest_(int*,real*,int*,real*,int*,real*,real*); extern /* Subroutine */ void srottest_(integer*,real*,integer*,real*,integer*,real*,real*);
static integer i__, k, ksize; static integer i__, k, ksize;
extern /* Subroutine */ int stest_(int*,real*,real*,real*,real*), srotmtest_(int*,real*,int*,real*,int*,real*); extern /* Subroutine */ int stest_(integer*,real*,real*,real*,real*), srotmtest_(integer*,real*,integer*,real*,integer*,real*);
static integer ki, kn; static integer ki, kn;
static real sx[19], sy[19], sparam[5], stx[19], sty[19]; static real sx[19], sy[19], sparam[5], stx[19], sty[19];
@ -781,7 +781,7 @@ L40:
return 0; return 0;
} /* check3_ */ } /* check3_ */
/* Subroutine */ int stest_(int* len, real* scomp, real* strue, real* ssize, real* sfac) /* Subroutine */ int stest_(integer* len, real* scomp, real* strue, real* ssize, real* sfac)
{ {
integer i__1; integer i__1;
real r__1, r__2, r__3, r__4, r__5; real r__1, r__2, r__3, r__4, r__5;
@ -847,7 +847,7 @@ L40:
/* Subroutine */ int stest1_(real* scomp1, real* strue1, real* ssize, real* sfac) /* Subroutine */ int stest1_(real* scomp1, real* strue1, real* ssize, real* sfac)
{ {
static real scomp[1], strue[1]; static real scomp[1], strue[1];
extern /* Subroutine */ int stest_(int*,real*,real*,real*,real*); extern /* Subroutine */ int stest_(integer*,real*,real*,real*,real*);
/* ************************* STEST1 ***************************** */ /* ************************* STEST1 ***************************** */

10
ctest/c_zblat1c.c
View File

@ -380,7 +380,7 @@ static doublereal c_b43 = 1.;
static integer i__; static integer i__;
extern /* Subroutine */ int ctest_(integer*, 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_(integer*, doublereal*, doublecomplex*, integer*), itest1_(integer*, integer*), stest1_(doublereal*, doublereal*, doublereal*, doublereal*);
static doublecomplex cx[8]; static doublecomplex cx[8];
extern doublereal dznrm2test_(integer*, doublecomplex*, integer*); extern doublereal dznrm2test_(integer*, doublecomplex*, integer*);
static integer np1; static integer np1;
@ -591,11 +591,11 @@ static doublereal c_b43 = 1.;
extern /* Subroutine */ int ctest_(integer*, 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_(integer*, doublecomplex*, integer*, doublecomplex*, integer*, doublecomplex*), zcopytest_(integer*, doublecomplex*, integer*, doublecomplex*, integer*);
static integer ki; static integer ki;
extern /* Subroutine */ int zdotutest_(int*, doublecomplex*, int*, doublecomplex*, int*, doublecomplex*), zswaptest_(int*, doublecomplex*, int*, doublecomplex*, int*); extern /* Subroutine */ int zdotutest_(integer*, doublecomplex*, integer*, doublecomplex*, integer*, doublecomplex*), zswaptest_(integer*, doublecomplex*, integer*, doublecomplex*, integer*);
static integer kn; static integer kn;
extern /* Subroutine */ int zaxpytest_(int*, doublereal*, doublecomplex*, int*, doublecomplex*, int*); extern /* Subroutine */ int zaxpytest_(integer*, doublereal*, doublecomplex*, integer*, doublecomplex*, integer*);
static doublecomplex cx[7], cy[7]; static doublecomplex cx[7], cy[7];
static integer mx, my; static integer mx, my;
@ -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 */ integer stest_(int*,doublereal*, doublereal*, doublereal*, doublereal*); extern /* Subroutine */ int stest_(integer*,doublereal*, doublereal*, doublereal*, doublereal*);
/* ************************* STEST1 ***************************** */ /* ************************* STEST1 ***************************** */