Skip to content

Commit

Permalink
correct prototypes for INTERFACE64 builds
Browse files Browse the repository at this point in the history
  • Loading branch information
@martin-frbg
martin-frbg authored Oct 8, 2023
1 parent d8126c7 commit c5e7339
Show file tree
Hide file tree
Showing 4 changed files with 32 additions and 32 deletions.
12 changes: 6 additions & 6 deletions ctest/c_cblat1c.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -441,11 +441,11 @@ static real c_b43 = (float)1.;
static complex mwpcs[5], mwpct[5];
extern /* Subroutine */ int itest1_(integer*, integer*), stest1_(real*,real*,real*,real*);
static complex cx[8];
extern real scnrm2test_(int*, complex*, int*);
extern real scnrm2test_(integer*, complex*, integer*);
static integer np1;
extern integer icamaxtest_(int*, complex*, int*);
extern /* Subroutine */ int csscaltest_(int*, real*, complex*, int*);
extern real scasumtest_(int*, complex*, int*);
extern integer icamaxtest_(integer*, complex*, integer*);
extern /* Subroutine */ int csscaltest_(integer*, real*, complex*, integer*);
extern real scasumtest_(integer*, complex*, integer*);
static integer len;

/* .. Parameters .. */
Expand Down Expand Up @@ -736,8 +736,8 @@ static real c_b43 = (float)1.;
static complex ctemp;
extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*);
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*),
cswaptest_(int*, complex*, int*, complex*, int*), caxpytest_(int*, complex*, complex*, int*, complex*, int*);
extern /* Subroutine */ int cdotctest_(integer*, complex*, integer*, complex*, integer*,complex*), ccopytest_(integer*, complex*, integer*, complex*, integer*), cdotutest_(integer*, complex*, integer*, complex*, integer*, complex*),
cswaptest_(integer*, complex*, integer*, complex*, integer*), caxpytest_(integer*, complex*, complex*, integer*, complex*, integer*);
static integer ki, kn;
static complex cx[7], cy[7];
static integer mx, my;
Expand Down
20 changes: 10 additions & 10 deletions ctest/c_dblat1c.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -402,14 +402,14 @@ static doublereal c_b34 = 1.;

/* Local variables */
static integer i__;
extern doublereal dnrm2test_(int*, doublereal*, int*);
extern doublereal dnrm2test_(integer*, doublereal*, integer*);
static doublereal stemp[1], strue[8];
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(int*,doublereal*,doublereal*,int*);
extern doublereal dasumtest_(int*,doublereal*,int*);
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(integer*,doublereal*,doublereal*,integer*);
extern doublereal dasumtest_(integer*,doublereal*,integer*);
extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*);
static doublereal sx[8];
static integer np1;
extern integer idamaxtest_(int*,doublereal*,int*);
extern integer idamaxtest_(integer*,doublereal*,integer*);
static integer len;

/* .. Parameters .. */
Expand Down Expand Up @@ -515,10 +515,10 @@ static doublereal c_b34 = 1.;

/* Local variables */
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;
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*);
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dcopytest_(integer*,doublereal*,integer*,doublereal*,integer*), dswaptest_(integer*,doublereal*,integer*,doublereal*,integer*),
daxpytest_(integer*,doublereal*,doublereal*,integer*,doublereal*,integer*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*);
static integer ki, kn, mx, my;
static doublereal sx[7], sy[7], stx[7], sty[7];

Expand Down Expand Up @@ -618,9 +618,9 @@ static doublereal c_b34 = 1.;
;

/* 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;
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 doublereal dparam[5], sx[10], sy[10], stx[10], sty[10];

Expand Down Expand Up @@ -799,7 +799,7 @@ doublereal sdiff_(doublereal* sa, doublereal* sb)
return ret_val;
} /* sdiff_ */

/* Subroutine */ int itest1_(int* icomp, int* itrue)
/* Subroutine */ int itest1_(integer* icomp, integer* itrue)
{
/* Local variables */
static integer id;
Expand Down
22 changes: 11 additions & 11 deletions ctest/c_sblat1c.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -433,14 +433,14 @@ static real c_b34 = (float)1.;

/* Local variables */
static integer i__;
extern real snrm2test_(int*,real*,int*);
extern real snrm2test_(integer*,real*,integer*);
static real stemp[1], strue[8];
extern /* Subroutine */ int stest_(int*, real*,real*,real*,real*), sscaltest_(int*,real*,real*,int*);
extern real sasumtest_(int*,real*,int*);
extern /* Subroutine */ int stest_(integer*, real*,real*,real*,real*), sscaltest_(integer*,real*,real*,integer*);
extern real sasumtest_(integer*,real*,integer*);
extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(real*,real*,real*,real*);
static real sx[8];
static integer np1;
extern integer isamaxtest_(int*,real*,int*);
extern integer isamaxtest_(integer*,real*,integer*);
static integer len;


Expand Down Expand Up @@ -590,10 +590,10 @@ static real c_b34 = (float)1.;

/* Local variables */
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;
extern /* Subroutine */ int stest_(int*,real*,real*,real*,real*), scopytest_(int*,real*,int*,real*,int*), sswaptest_(int*,real*,int*,real*,int*),
saxpytest_(int*,real*,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_(integer*,real*,real*,integer*,real*,integer*);
static integer ki;
extern /* Subroutine */ int stest1_(real*,real*,real*,real*);
static integer kn, mx, my;
Expand Down Expand Up @@ -708,9 +708,9 @@ static real c_b34 = (float)1.;
1.17 };

/* 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;
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 real sx[19], sy[19], sparam[5], stx[19], sty[19];

Expand Down Expand Up @@ -781,7 +781,7 @@ static real c_b34 = (float)1.;
return 0;
} /* 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;
real r__1, r__2, r__3, r__4, r__5;
Expand Down Expand Up @@ -847,7 +847,7 @@ static real c_b34 = (float)1.;
/* Subroutine */ int stest1_(real* scomp1, real* strue1, real* ssize, real* sfac)
{
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 ***************************** */

Expand Down
10 changes: 5 additions & 5 deletions ctest/c_zblat1c.c
View file
Original file line number Diff line number Diff line change
Expand Up @@ -380,7 +380,7 @@ static doublereal c_b43 = 1.;
static integer i__;
extern /* Subroutine */ int ctest_(integer*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*);
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];
extern doublereal dznrm2test_(integer*, doublecomplex*, integer*);
static integer np1;
Expand Down Expand Up @@ -591,11 +591,11 @@ static doublereal c_b43 = 1.;
extern /* Subroutine */ int ctest_(integer*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*);
static integer ksize;
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;
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;
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 integer mx, my;

Expand Down Expand Up @@ -747,7 +747,7 @@ static doublereal c_b43 = 1.;
/* Subroutine */ int stest1_(doublereal* scomp1, doublereal* strue1, doublereal* ssize, doublereal* sfac)
{
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 ***************************** */

Expand Down

0 comments on commit c5e7339

Please sign in to comment.