Skip to content

Commit c5e7339

Browse files
martin-frbgmartin-frbg
authored
correct prototypes for INTERFACE64 builds
1 parent d8126c7 commit c5e7339

4 files changed

Lines changed: 32 additions & 32 deletions

File tree

‎ctest/c_cblat1c.c‎

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -441,11 +441,11 @@ static real c_b43 = (float)1.;
441441
static complex mwpcs[5], mwpct[5];
442442
extern /* Subroutine */ int itest1_(integer*, integer*), stest1_(real*,real*,real*,real*);
443443
static complex cx[8];
444-
extern real scnrm2test_(int*, complex*, int*);
444+
extern real scnrm2test_(integer*, complex*, integer*);
445445
static integer np1;
446-
extern integer icamaxtest_(int*, complex*, int*);
447-
extern /* Subroutine */ int csscaltest_(int*, real*, complex*, int*);
448-
extern real scasumtest_(int*, complex*, int*);
446+
extern integer icamaxtest_(integer*, complex*, integer*);
447+
extern /* Subroutine */ int csscaltest_(integer*, real*, complex*, integer*);
448+
extern real scasumtest_(integer*, complex*, integer*);
449449
static integer len;
450450

451451
/* .. Parameters .. */
@@ -736,8 +736,8 @@ static real c_b43 = (float)1.;
736736
static complex ctemp;
737737
extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*);
738738
static integer ksize;
739-
extern /* Subroutine */ int cdotctest_(int*, complex*, int*, complex*, int*,complex*), ccopytest_(int*, complex*, int*, complex*, int*), cdotutest_(int*, complex*, int*, complex*, int*, complex*),
740-
cswaptest_(int*, complex*, int*, complex*, int*), caxpytest_(int*, complex*, complex*, int*, complex*, int*);
739+
extern /* Subroutine */ int cdotctest_(integer*, complex*, integer*, complex*, integer*,complex*), ccopytest_(integer*, complex*, integer*, complex*, integer*), cdotutest_(integer*, complex*, integer*, complex*, integer*, complex*),
740+
cswaptest_(integer*, complex*, integer*, complex*, integer*), caxpytest_(integer*, complex*, complex*, integer*, complex*, integer*);
741741
static integer ki, kn;
742742
static complex cx[7], cy[7];
743743
static integer mx, my;

‎ctest/c_dblat1c.c‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -402,14 +402,14 @@ static doublereal c_b34 = 1.;
402402

403403
/* Local variables */
404404
static integer i__;
405-
extern doublereal dnrm2test_(int*, doublereal*, int*);
405+
extern doublereal dnrm2test_(integer*, doublereal*, integer*);
406406
static doublereal stemp[1], strue[8];
407-
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(int*,doublereal*,doublereal*,int*);
408-
extern doublereal dasumtest_(int*,doublereal*,int*);
407+
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dscaltest_(integer*,doublereal*,doublereal*,integer*);
408+
extern doublereal dasumtest_(integer*,doublereal*,integer*);
409409
extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*);
410410
static doublereal sx[8];
411411
static integer np1;
412-
extern integer idamaxtest_(int*,doublereal*,int*);
412+
extern integer idamaxtest_(integer*,doublereal*,integer*);
413413
static integer len;
414414

415415
/* .. Parameters .. */
@@ -515,10 +515,10 @@ static doublereal c_b34 = 1.;
515515

516516
/* Local variables */
517517
static integer lenx, leny;
518-
extern doublereal ddottest_(int*,doublereal*,int*,doublereal*,int*);
518+
extern doublereal ddottest_(integer*,doublereal*,integer*,doublereal*,integer*);
519519
static integer i__, j, ksize;
520-
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dcopytest_(int*,doublereal*,int*,doublereal*,int*), dswaptest_(int*,doublereal*,int*,doublereal*,int*),
521-
daxpytest_(int*,doublereal*,doublereal*,int*,doublereal*,int*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*);
520+
extern /* Subroutine */ int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), dcopytest_(integer*,doublereal*,integer*,doublereal*,integer*), dswaptest_(integer*,doublereal*,integer*,doublereal*,integer*),
521+
daxpytest_(integer*,doublereal*,doublereal*,integer*,doublereal*,integer*), stest1_(doublereal*,doublereal*,doublereal*,doublereal*);
522522
static integer ki, kn, mx, my;
523523
static doublereal sx[7], sy[7], stx[7], sty[7];
524524

@@ -618,9 +618,9 @@ static doublereal c_b34 = 1.;
618618
;
619619

620620
/* Local variables */
621-
extern /* Subroutine */ int drottest_(int*,doublereal*,int*,doublereal*,int*,doublereal*,doublereal*);
621+
extern /* Subroutine */ int drottest_(integer*,doublereal*,integer*,doublereal*,integer*,doublereal*,doublereal*);
622622
static integer i__, k, ksize;
623-
extern /* Subroutine */int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), drotmtest_(int*,doublereal*,int*,doublereal*,int*,doublereal*);
623+
extern /* Subroutine */int stest_(integer*,doublereal*,doublereal*,doublereal*,doublereal*), drotmtest_(integer*,doublereal*,integer*,doublereal*,integer*,doublereal*);
624624
static integer ki, kn;
625625
static doublereal dparam[5], sx[10], sy[10], stx[10], sty[10];
626626

@@ -799,7 +799,7 @@ doublereal sdiff_(doublereal* sa, doublereal* sb)
799799
return ret_val;
800800
} /* sdiff_ */
801801

802-
/* Subroutine */ int itest1_(int* icomp, int* itrue)
802+
/* Subroutine */ int itest1_(integer* icomp, integer* itrue)
803803
{
804804
/* Local variables */
805805
static integer id;

‎ctest/c_sblat1c.c‎

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -433,14 +433,14 @@ static real c_b34 = (float)1.;
433433

434434
/* Local variables */
435435
static integer i__;
436-
extern real snrm2test_(int*,real*,int*);
436+
extern real snrm2test_(integer*,real*,integer*);
437437
static real stemp[1], strue[8];
438-
extern /* Subroutine */ int stest_(int*, real*,real*,real*,real*), sscaltest_(int*,real*,real*,int*);
439-
extern real sasumtest_(int*,real*,int*);
438+
extern /* Subroutine */ int stest_(integer*, real*,real*,real*,real*), sscaltest_(integer*,real*,real*,integer*);
439+
extern real sasumtest_(integer*,real*,integer*);
440440
extern /* Subroutine */ int itest1_(integer*,integer*), stest1_(real*,real*,real*,real*);
441441
static real sx[8];
442442
static integer np1;
443-
extern integer isamaxtest_(int*,real*,int*);
443+
extern integer isamaxtest_(integer*,real*,integer*);
444444
static integer len;
445445

446446

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

591591
/* Local variables */
592592
static integer lenx, leny;
593-
extern real sdottest_(int*,real*,int*,real*,int*);
593+
extern real sdottest_(integer*,real*,integer*,real*,integer*);
594594
static integer i__, j, ksize;
595-
extern /* Subroutine */ int stest_(int*,real*,real*,real*,real*), scopytest_(int*,real*,int*,real*,int*), sswaptest_(int*,real*,int*,real*,int*),
596-
saxpytest_(int*,real*,real*,int*,real*,int*);
595+
extern /* Subroutine */ int stest_(integer*,real*,real*,real*,real*), scopytest_(integer*,real*,integer*,real*,integer*), sswaptest_(integer*,real*,integer*,real*,integer*),
596+
saxpytest_(integer*,real*,real*,integer*,real*,integer*);
597597
static integer ki;
598598
extern /* Subroutine */ int stest1_(real*,real*,real*,real*);
599599
static integer kn, mx, my;
@@ -708,9 +708,9 @@ static real c_b34 = (float)1.;
708708
1.17 };
709709

710710
/* Local variables */
711-
extern /* Subroutine */ void srottest_(int*,real*,int*,real*,int*,real*,real*);
711+
extern /* Subroutine */ void srottest_(integer*,real*,integer*,real*,integer*,real*,real*);
712712
static integer i__, k, ksize;
713-
extern /* Subroutine */ int stest_(int*,real*,real*,real*,real*), srotmtest_(int*,real*,int*,real*,int*,real*);
713+
extern /* Subroutine */ int stest_(integer*,real*,real*,real*,real*), srotmtest_(integer*,real*,integer*,real*,integer*,real*);
714714
static integer ki, kn;
715715
static real sx[19], sy[19], sparam[5], stx[19], sty[19];
716716

@@ -781,7 +781,7 @@ static real c_b34 = (float)1.;
781781
return 0;
782782
} /* check3_ */
783783

784-
/* Subroutine */ int stest_(int* len, real* scomp, real* strue, real* ssize, real* sfac)
784+
/* Subroutine */ int stest_(integer* len, real* scomp, real* strue, real* ssize, real* sfac)
785785
{
786786
integer i__1;
787787
real r__1, r__2, r__3, r__4, r__5;
@@ -847,7 +847,7 @@ static real c_b34 = (float)1.;
847847
/* Subroutine */ int stest1_(real* scomp1, real* strue1, real* ssize, real* sfac)
848848
{
849849
static real scomp[1], strue[1];
850-
extern /* Subroutine */ int stest_(int*,real*,real*,real*,real*);
850+
extern /* Subroutine */ int stest_(integer*,real*,real*,real*,real*);
851851

852852
/* ************************* STEST1 ***************************** */
853853

‎ctest/c_zblat1c.c‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -380,7 +380,7 @@ static doublereal c_b43 = 1.;
380380
static integer i__;
381381
extern /* Subroutine */ int ctest_(integer*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*);
382382
static doublecomplex mwpcs[5], mwpct[5];
383-
extern /* Subroutine */ int zscaltest_(int*, doublereal*, doublecomplex*, int*), itest1_(int*, int*), stest1_(doublereal*, doublereal*, doublereal*, doublereal*);
383+
extern /* Subroutine */ int zscaltest_(integer*, doublereal*, doublecomplex*, integer*), itest1_(integer*, integer*), stest1_(doublereal*, doublereal*, doublereal*, doublereal*);
384384
static doublecomplex cx[8];
385385
extern doublereal dznrm2test_(integer*, doublecomplex*, integer*);
386386
static integer np1;
@@ -591,11 +591,11 @@ static doublereal c_b43 = 1.;
591591
extern /* Subroutine */ int ctest_(integer*, doublecomplex*, doublecomplex*, doublecomplex*, doublereal*);
592592
static integer ksize;
593593
static doublecomplex ztemp;
594-
extern /* Subroutine */ int zdotctest_(int*, doublecomplex*, int*, doublecomplex*, int*, doublecomplex*), zcopytest_(int*, doublecomplex*, int*, doublecomplex*, int*);
594+
extern /* Subroutine */ int zdotctest_(integer*, doublecomplex*, integer*, doublecomplex*, integer*, doublecomplex*), zcopytest_(integer*, doublecomplex*, integer*, doublecomplex*, integer*);
595595
static integer ki;
596-
extern /* Subroutine */ int zdotutest_(int*, doublecomplex*, int*, doublecomplex*, int*, doublecomplex*), zswaptest_(int*, doublecomplex*, int*, doublecomplex*, int*);
596+
extern /* Subroutine */ int zdotutest_(integer*, doublecomplex*, integer*, doublecomplex*, integer*, doublecomplex*), zswaptest_(integer*, doublecomplex*, integer*, doublecomplex*, integer*);
597597
static integer kn;
598-
extern /* Subroutine */ int zaxpytest_(int*, doublereal*, doublecomplex*, int*, doublecomplex*, int*);
598+
extern /* Subroutine */ int zaxpytest_(integer*, doublereal*, doublecomplex*, integer*, doublecomplex*, integer*);
599599
static doublecomplex cx[7], cy[7];
600600
static integer mx, my;
601601

@@ -747,7 +747,7 @@ static doublereal c_b43 = 1.;
747747
/* Subroutine */ int stest1_(doublereal* scomp1, doublereal* strue1, doublereal* ssize, doublereal* sfac)
748748
{
749749
static doublereal scomp[1], strue[1];
750-
extern /* Subroutine */ integer stest_(int*,doublereal*, doublereal*, doublereal*, doublereal*);
750+
extern /* Subroutine */ int stest_(integer*,doublereal*, doublereal*, doublereal*, doublereal*);
751751

752752
/* ************************* STEST1 ***************************** */
753753

0 commit comments

Comments
 (0)