phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix -Wconversion errors in XBLAS sources during Index-64 builds

Browse Source
This commit is contained in:
Simon Maertens
2026-05-12 16:41:01 +01:00
parent 46ec5a4b1c
commit c131da97cb
30 changed files with 38 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SRC/cgbrfsx.f
+2 -2
View File
@@ -513,7 +513,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -527,7 +527,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/cgerfsx.f
+2 -2
View File
@@ -490,7 +490,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -504,7 +504,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS(LA_LINRX_ITHRESH_I) = ITHRESH
PARAMS(LA_LINRX_ITHRESH_I) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/cherfsx.f
+2 -2
View File
@@ -475,7 +475,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -489,7 +489,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/cla_gbamv.f
+1 -1
View File
@@ -287,7 +287,7 @@
* number of additions in each row.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (N+1)*SAFE1
SAFE1 = REAL( N+1 )*SAFE1
*
* Form y := alpha*abs(A)*abs(x) + beta*abs(y).
*
SRC/cla_geamv.f
+1 -1
View File
@@ -274,7 +274,7 @@
* number of additions in each row.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (N+1)*SAFE1
SAFE1 = REAL( N+1 )*SAFE1
*
* Form y := alpha*abs(A)*abs(x) + beta*abs(y).
*
SRC/cla_heamv.f
+1 -1
View File
@@ -261,7 +261,7 @@
* number of additions in each row.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (N+1)*SAFE1
SAFE1 = REAL( N+1 )*SAFE1
*
* Form y := alpha*abs(A)*abs(x) + beta*abs(y).
*
SRC/cla_lin_berr.f
+2 -2
View File
@@ -126,7 +126,7 @@
REAL SAFE1
* ..
* .. Statement Functions ..
COMPLEX CABS1
REAL CABS1
* ..
* .. Statement Function Definitions ..
CABS1( CDUM ) = ABS( REAL( CDUM ) ) + ABS( AIMAG( CDUM ) )
@@ -138,7 +138,7 @@
* to compute AYB.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (NZ+1)*SAFE1
SAFE1 = REAL( NZ+1 )*SAFE1
DO J = 1, NRHS
BERR(J) = 0.0
SRC/cla_syamv.f
+1 -1
View File
@@ -263,7 +263,7 @@
* number of additions in each row.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (N+1)*SAFE1
SAFE1 = REAL( N+1 )*SAFE1
*
* Form y := alpha*abs(A)*abs(x) + beta*abs(y).
*
SRC/cporfsx.f
+2 -2
View File
@@ -467,7 +467,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -481,7 +481,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS(LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/csyrfsx.f
+2 -2
View File
@@ -477,7 +477,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -491,7 +491,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/dgbrfsx.f
+1 -1
View File
@@ -516,7 +516,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/dgerfsx.f
+1 -1
View File
@@ -489,7 +489,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/dporfsx.f
+1 -1
View File
@@ -468,7 +468,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/dsyrfsx.f
+1 -1
View File
@@ -475,7 +475,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/sgbrfsx.f
+2 -2
View File
@@ -516,7 +516,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -530,7 +530,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/sgerfsx.f
+2 -2
View File
@@ -489,7 +489,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -503,7 +503,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/sla_gbamv.f
+1 -1
View File
@@ -277,7 +277,7 @@
* number of additions in each row.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (N+1)*SAFE1
SAFE1 = REAL( N+1 )*SAFE1
*
* Form y := alpha*abs(A)*abs(x) + beta*abs(y).
*
SRC/sla_geamv.f
+1 -1
View File
@@ -264,7 +264,7 @@
* number of additions in each row.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (N+1)*SAFE1
SAFE1 = REAL( N+1 )*SAFE1
*
* Form y := alpha*abs(A)*abs(x) + beta*abs(y).
*
SRC/sla_lin_berr.f
+1 -1
View File
@@ -131,7 +131,7 @@
* to compute AYB.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (NZ+1)*SAFE1
SAFE1 = REAL( NZ+1 )*SAFE1
DO J = 1, NRHS
BERR(J) = 0.0
SRC/sla_syamv.f
+1 -1
View File
@@ -252,7 +252,7 @@
* number of additions in each row.
*
SAFE1 = SLAMCH( 'Safe minimum' )
SAFE1 = (N+1)*SAFE1
SAFE1 = REAL( N+1 )*SAFE1
*
* Form y := alpha*abs(A)*abs(x) + beta*abs(y).
*
SRC/sporfsx.f
+2 -2
View File
@@ -468,7 +468,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -482,7 +482,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/ssyrfsx.f
+2 -2
View File
@@ -475,7 +475,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
@@ -489,7 +489,7 @@
*
IF ( NPARAMS.GE.LA_LINRX_ITHRESH_I ) THEN
IF ( PARAMS( LA_LINRX_ITHRESH_I ).LT.0.0 ) THEN
PARAMS( LA_LINRX_ITHRESH_I ) = ITHRESH
PARAMS( LA_LINRX_ITHRESH_I ) = REAL( ITHRESH )
ELSE
ITHRESH = INT( PARAMS( LA_LINRX_ITHRESH_I ) )
END IF
SRC/zgbrfsx.f
+1 -1
View File
@@ -513,7 +513,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/zgerfsx.f
+1 -1
View File
@@ -490,7 +490,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/zherfsx.f
+1 -1
View File
@@ -475,7 +475,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/zla_lin_berr.f
+1 -1
View File
@@ -126,7 +126,7 @@
DOUBLE PRECISION SAFE1
* ..
* .. Statement Functions ..
COMPLEX*16 CABS1
DOUBLE PRECISION CABS1
* ..
* .. Statement Function Definitions ..
CABS1( CDUM ) = ABS( DBLE( CDUM ) ) + ABS( DIMAG( CDUM ) )
SRC/zporfsx.f
+1 -1
View File
@@ -467,7 +467,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
SRC/zsyrfsx.f
+1 -1
View File
@@ -477,7 +477,7 @@
IF ( PARAMS( LA_LINRX_ITREF_I ) .LT. 0.0D+0 ) THEN
PARAMS( LA_LINRX_ITREF_I ) = ITREF_DEFAULT
ELSE
REF_TYPE = PARAMS( LA_LINRX_ITREF_I )
REF_TYPE = INT( PARAMS( LA_LINRX_ITREF_I ) )
END IF
END IF
*
TESTING/LIN/cebchvxx.f
-8
View File
@@ -120,7 +120,6 @@
* .. Local Arrays ..
REAL TSTRAT(NTESTS), RINV(NMAX), PARAMS(NPARAMS),
$ S(NMAX), R(NMAX),C(NMAX),RWORK(3*NMAX),
$ DIFF(NMAX, NMAX),
$ ERRBND_N(NMAX*3), ERRBND_C(NMAX*3)
INTEGER IPIV(NMAX)
COMPLEX A(NMAX,NMAX),INVHILB(NMAX,NMAX),X(NMAX,NMAX),
@@ -254,13 +253,6 @@
END IF
END IF
* Calculating the difference between C**SVXX's X and the true X.
DO I = 1,N
DO J =1,NRHS
DIFF(I,J) = X(I,J) - INVHILB(I,J)
END DO
END DO
* Calculating the RCOND
RNORM = 0
RINORM = 0
TESTING/LIN/zebchvxx.f
-8
View File
@@ -120,7 +120,6 @@
* .. Local Arrays ..
DOUBLE PRECISION TSTRAT(NTESTS), RINV(NMAX), PARAMS(NPARAMS),
$ S(NMAX),R(NMAX),C(NMAX),RWORK(3*NMAX),
$ DIFF(NMAX, NMAX),
$ ERRBND_N(NMAX*3), ERRBND_C(NMAX*3)
INTEGER IPIV(NMAX)
COMPLEX*16 A(NMAX,NMAX),INVHILB(NMAX,NMAX),X(NMAX,NMAX),
@@ -254,13 +253,6 @@
END IF
END IF
* Calculating the difference between Z**SVXX's X and the true X.
DO I = 1,N
DO J =1,NRHS
DIFF(I,J) = X(I,J) - INVHILB(I,J)
END DO
END DO
* Calculating the RCOND
RNORM = 0
RINORM = 0