diff options
34 files changed, 19 insertions, 83 deletions
diff --git a/SRC/cgbrfsx.f b/SRC/cgbrfsx.f index df739be9..63abc5d7 100644 --- a/SRC/cgbrfsx.f +++ b/SRC/cgbrfsx.f @@ -346,8 +346,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/cherfsx.f b/SRC/cherfsx.f index f1ad2a30..30b69c6a 100644 --- a/SRC/cherfsx.f +++ b/SRC/cherfsx.f @@ -317,8 +317,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/cla_gbrfsx_extended.f b/SRC/cla_gbrfsx_extended.f index 04d59475..1dce776c 100644 --- a/SRC/cla_gbrfsx_extended.f +++ b/SRC/cla_gbrfsx_extended.f @@ -32,7 +32,7 @@ * * Purpose * ======= -* +* * CLA_GBRFSX_EXTENDED computes ... . * * Arguments @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL CAXPY, CCOPY, CGBTRS, CGBMV, BLAS_CGBMV_X, diff --git a/SRC/cla_gerfsx_extended.f b/SRC/cla_gerfsx_extended.f index fa9c9a18..af66812b 100644 --- a/SRC/cla_gerfsx_extended.f +++ b/SRC/cla_gerfsx_extended.f @@ -76,8 +76,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL CAXPY, CCOPY, CGETRS, CGEMV, BLAS_CGEMV_X, diff --git a/SRC/cla_herfsx_extended.f b/SRC/cla_herfsx_extended.f index dcb5e58e..8c3dd66d 100644 --- a/SRC/cla_herfsx_extended.f +++ b/SRC/cla_herfsx_extended.f @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/cla_porfsx_extended.f b/SRC/cla_porfsx_extended.f index 7ea06a37..4ec2da74 100644 --- a/SRC/cla_porfsx_extended.f +++ b/SRC/cla_porfsx_extended.f @@ -74,8 +74,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/cla_syrfsx_extended.f b/SRC/cla_syrfsx_extended.f index 9bedfc55..ee9fdaac 100644 --- a/SRC/cla_syrfsx_extended.f +++ b/SRC/cla_syrfsx_extended.f @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/cporfsx.f b/SRC/cporfsx.f index ab4ef3fa..35f40b0b 100644 --- a/SRC/cporfsx.f +++ b/SRC/cporfsx.f @@ -311,8 +311,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/csyrfsx.f b/SRC/csyrfsx.f index 42aa33bf..254e9557 100644 --- a/SRC/csyrfsx.f +++ b/SRC/csyrfsx.f @@ -318,8 +318,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/dgbrfsx.f b/SRC/dgbrfsx.f index ca508300..fa0f8db5 100644 --- a/SRC/dgbrfsx.f +++ b/SRC/dgbrfsx.f @@ -333,7 +333,7 @@ DOUBLE PRECISION COMPONENTWISE_DEFAULT, RTHRESH_DEFAULT DOUBLE PRECISION DZTHRESH_DEFAULT PARAMETER ( ITREF_DEFAULT = 1.0D+0 ) - PARAMETER ( ITHRESH_DEFAULT = 100.0D+0 ) + PARAMETER ( ITHRESH_DEFAULT = 10.0D+0 ) PARAMETER ( COMPONENTWISE_DEFAULT = 1.0D+0 ) PARAMETER ( RTHRESH_DEFAULT = 0.5D+0 ) PARAMETER ( DZTHRESH_DEFAULT = 0.25D+0 ) @@ -346,8 +346,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/dgerfsx.f b/SRC/dgerfsx.f index 0a6c2cb4..6ecfd642 100644 --- a/SRC/dgerfsx.f +++ b/SRC/dgerfsx.f @@ -320,7 +320,7 @@ DOUBLE PRECISION COMPONENTWISE_DEFAULT, RTHRESH_DEFAULT DOUBLE PRECISION DZTHRESH_DEFAULT PARAMETER ( ITREF_DEFAULT = 1.0D+0 ) - PARAMETER ( ITHRESH_DEFAULT = 100.0D+0 ) + PARAMETER ( ITHRESH_DEFAULT = 10.0D+0 ) PARAMETER ( COMPONENTWISE_DEFAULT = 1.0D+0 ) PARAMETER ( RTHRESH_DEFAULT = 0.5D+0 ) PARAMETER ( DZTHRESH_DEFAULT = 0.25D+0 ) diff --git a/SRC/dla_gbrfsx_extended.f b/SRC/dla_gbrfsx_extended.f index 998af02e..88c1003a 100644 --- a/SRC/dla_gbrfsx_extended.f +++ b/SRC/dla_gbrfsx_extended.f @@ -74,8 +74,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL DAXPY, DCOPY, DGBTRS, DGBMV, BLAS_DGBMV_X, diff --git a/SRC/dla_gerfsx_extended.f b/SRC/dla_gerfsx_extended.f index bbb600a6..31fcf0bc 100644 --- a/SRC/dla_gerfsx_extended.f +++ b/SRC/dla_gerfsx_extended.f @@ -73,8 +73,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL DAXPY, DCOPY, DGETRS, DGEMV, BLAS_DGEMV_X, diff --git a/SRC/dla_porfsx_extended.f b/SRC/dla_porfsx_extended.f index d30fdc89..80fe5dc0 100644 --- a/SRC/dla_porfsx_extended.f +++ b/SRC/dla_porfsx_extended.f @@ -31,7 +31,7 @@ * * Purpose * ======= -* +* * DLA_PORFSX_EXTENDED computes ... . * * Arguments @@ -72,8 +72,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME @@ -287,7 +285,7 @@ * op(A) = A, A**T, or A**H depending on TRANS (and type). * CALL DCOPY( N, B( 1, J ), 1, RES, 1 ) - CALL DSYMV( UPLO, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, RES, + CALL DSYMV( UPLO, N, -1.0D+0, A, LDA, Y(1,J), 1, 1.0D+0, RES, $ 1 ) DO I = 1, N diff --git a/SRC/dla_syrfsx_extended.f b/SRC/dla_syrfsx_extended.f index 82a6895d..618fc416 100644 --- a/SRC/dla_syrfsx_extended.f +++ b/SRC/dla_syrfsx_extended.f @@ -73,8 +73,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/dporfsx.f b/SRC/dporfsx.f index 41a3b946..4a0cbb92 100644 --- a/SRC/dporfsx.f +++ b/SRC/dporfsx.f @@ -299,7 +299,7 @@ DOUBLE PRECISION COMPONENTWISE_DEFAULT, RTHRESH_DEFAULT DOUBLE PRECISION DZTHRESH_DEFAULT PARAMETER ( ITREF_DEFAULT = 1.0D+0 ) - PARAMETER ( ITHRESH_DEFAULT = 100.0D+0 ) + PARAMETER ( ITHRESH_DEFAULT = 10.0D+0 ) PARAMETER ( COMPONENTWISE_DEFAULT = 1.0D+0 ) PARAMETER ( RTHRESH_DEFAULT = 0.5D+0 ) PARAMETER ( DZTHRESH_DEFAULT = 0.25D+0 ) @@ -312,8 +312,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/dsyrfsx.f b/SRC/dsyrfsx.f index 9b63c70e..7a053264 100644 --- a/SRC/dsyrfsx.f +++ b/SRC/dsyrfsx.f @@ -305,7 +305,7 @@ DOUBLE PRECISION COMPONENTWISE_DEFAULT, RTHRESH_DEFAULT DOUBLE PRECISION DZTHRESH_DEFAULT PARAMETER ( ITREF_DEFAULT = 1.0D+0 ) - PARAMETER ( ITHRESH_DEFAULT = 100.0D+0 ) + PARAMETER ( ITHRESH_DEFAULT = 10.0D+0 ) PARAMETER ( COMPONENTWISE_DEFAULT = 1.0D+0 ) PARAMETER ( RTHRESH_DEFAULT = 0.5D+0 ) PARAMETER ( DZTHRESH_DEFAULT = 0.25D+0 ) @@ -318,8 +318,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/sgbrfsx.f b/SRC/sgbrfsx.f index 1c1753c0..828297f0 100644 --- a/SRC/sgbrfsx.f +++ b/SRC/sgbrfsx.f @@ -346,8 +346,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/sgesvxx.f b/SRC/sgesvxx.f index 1021c24a..7280fe2d 100644 --- a/SRC/sgesvxx.f +++ b/SRC/sgesvxx.f @@ -428,7 +428,7 @@ * * .. Parameters .. REAL ZERO, ONE - PARAMETER ( ZERO = 0.0D+0, ONE = 1.0D+0 ) + PARAMETER ( ZERO = 0.0E+0, ONE = 1.0E+0 ) INTEGER FINAL_NRM_ERR_I, FINAL_CMP_ERR_I, BERR_I INTEGER RCOND_I, NRM_RCOND_I, NRM_ERR_I, CMP_RCOND_I INTEGER CMP_ERR_I, PIV_GROWTH_I diff --git a/SRC/sla_gbrfsx_extended.f b/SRC/sla_gbrfsx_extended.f index fa2a8a06..7a5825af 100644 --- a/SRC/sla_gbrfsx_extended.f +++ b/SRC/sla_gbrfsx_extended.f @@ -32,7 +32,7 @@ * * Purpose * ======= -* +* * SLA_GBRFSX_EXTENDED computes ... . * * Arguments @@ -74,8 +74,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL SAXPY, SCOPY, SGBTRS, SGBMV, BLAS_SGBMV_X, diff --git a/SRC/sla_gerfsx_extended.f b/SRC/sla_gerfsx_extended.f index c5882bf6..6681e5b0 100644 --- a/SRC/sla_gerfsx_extended.f +++ b/SRC/sla_gerfsx_extended.f @@ -73,8 +73,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL SAXPY, SCOPY, SGETRS, SGEMV, BLAS_SGEMV_X, diff --git a/SRC/sla_porfsx_extended.f b/SRC/sla_porfsx_extended.f index 0fe4a74b..06c7efff 100644 --- a/SRC/sla_porfsx_extended.f +++ b/SRC/sla_porfsx_extended.f @@ -31,7 +31,7 @@ * * Purpose * ======= -* +* * SLA_PORFSX_EXTENDED computes ... . * * Arguments @@ -72,8 +72,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/sla_syrfsx_extended.f b/SRC/sla_syrfsx_extended.f index 9e7c97f9..332316c1 100644 --- a/SRC/sla_syrfsx_extended.f +++ b/SRC/sla_syrfsx_extended.f @@ -73,8 +73,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/sporfsx.f b/SRC/sporfsx.f index 0b5cb181..f9d3bba1 100644 --- a/SRC/sporfsx.f +++ b/SRC/sporfsx.f @@ -312,8 +312,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/ssyrfsx.f b/SRC/ssyrfsx.f index 90154e16..b7f9fe20 100644 --- a/SRC/ssyrfsx.f +++ b/SRC/ssyrfsx.f @@ -318,8 +318,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/zgbrfsx.f b/SRC/zgbrfsx.f index d756afaa..8c4bdd89 100644 --- a/SRC/zgbrfsx.f +++ b/SRC/zgbrfsx.f @@ -333,7 +333,7 @@ DOUBLE PRECISION COMPONENTWISE_DEFAULT, RTHRESH_DEFAULT DOUBLE PRECISION DZTHRESH_DEFAULT PARAMETER ( ITREF_DEFAULT = 1.0D+0 ) - PARAMETER ( ITHRESH_DEFAULT = 100.0D+0 ) + PARAMETER ( ITHRESH_DEFAULT = 10.0D+0 ) PARAMETER ( COMPONENTWISE_DEFAULT = 1.0D+0 ) PARAMETER ( RTHRESH_DEFAULT = 0.5D+0 ) PARAMETER ( DZTHRESH_DEFAULT = 0.25D+0 ) @@ -346,8 +346,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/zherfsx.f b/SRC/zherfsx.f index c0b3d6fb..f9df11de 100644 --- a/SRC/zherfsx.f +++ b/SRC/zherfsx.f @@ -317,8 +317,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/zla_gbrfsx_extended.f b/SRC/zla_gbrfsx_extended.f index 6ec24a7d..72ccb793 100644 --- a/SRC/zla_gbrfsx_extended.f +++ b/SRC/zla_gbrfsx_extended.f @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL ZAXPY, ZCOPY, ZGBTRS, ZGBMV, BLAS_ZGBMV_X, @@ -108,7 +106,7 @@ DO J = 1, NRHS Y_PREC_STATE = EXTRA_RESIDUAL - IF ( Y_PREC_STATE .EQ. EXTRA_Y ) then + IF ( Y_PREC_STATE .EQ. EXTRA_Y ) THEN DO I = 1, N Y_TAIL( I ) = 0.0D+0 END DO diff --git a/SRC/zla_gerfsx_extended.f b/SRC/zla_gerfsx_extended.f index 718f3ca9..a5725505 100644 --- a/SRC/zla_gerfsx_extended.f +++ b/SRC/zla_gerfsx_extended.f @@ -76,8 +76,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Subroutines .. EXTERNAL ZAXPY, ZCOPY, ZGETRS, ZGEMV, BLAS_ZGEMV_X, diff --git a/SRC/zla_herfsx_extended.f b/SRC/zla_herfsx_extended.f index 2d1646bc..d172b873 100644 --- a/SRC/zla_herfsx_extended.f +++ b/SRC/zla_herfsx_extended.f @@ -32,7 +32,7 @@ * * Purpose * ======= -* +* * ZLA_HERFSX_EXTENDED computes ... . * * Arguments @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME @@ -144,14 +142,14 @@ * CALL ZCOPY( N, B( 1, J ), 1, RES, 1 ) IF ( Y_PREC_STATE .EQ. BASE_RESIDUAL ) THEN - CALL ZHEMV( UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y( 1, J ), + CALL ZHEMV( UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y( 1, J ), $ 1, DCMPLX(1.0D+0), RES, 1 ) ELSE IF ( Y_PREC_STATE .EQ. EXTRA_RESIDUAL ) THEN CALL BLAS_ZHEMV_X( UPLO2, N, DCMPLX(-1.0D+0), A, LDA, $ Y( 1, J ), 1, DCMPLX(1.0D+0), RES, 1, PREC_TYPE) ELSE CALL BLAS_ZHEMV2_X(UPLO2, N, DCMPLX(-1.0D+0), A, LDA, - $ Y(1, J), Y_TAIL, 1, DCMPLX(1.0D+0), RES, 1, + $ Y(1, J), Y_TAIL, 1, DCMPLX(1.0D+0), RES, 1, $ PREC_TYPE) END IF diff --git a/SRC/zla_porfsx_extended.f b/SRC/zla_porfsx_extended.f index f39c31ef..befe9329 100644 --- a/SRC/zla_porfsx_extended.f +++ b/SRC/zla_porfsx_extended.f @@ -31,7 +31,7 @@ * * Purpose * ======= -* +* * ZLA_PORFSX_EXTENDED computes ... . * * Arguments @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME @@ -151,7 +149,7 @@ $ Y( 1, J ), 1, DCMPLX(1.0D+0), RES, 1, PREC_TYPE) ELSE CALL BLAS_ZHEMV2_X(UPLO2, N, DCMPLX(-1.0D+0), A, LDA, - $ Y(1, J), Y_TAIL, 1, DCMPLX(1.0D+0), RES, 1, + $ Y(1, J), Y_TAIL, 1, DCMPLX(1.0D+0), RES, 1, $ PREC_TYPE) END IF @@ -297,7 +295,7 @@ * op(A) = A, A**T, or A**H depending on TRANS (and type). * CALL ZCOPY( N, B( 1, J ), 1, RES, 1 ) - CALL ZHEMV(UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y(1,J), 1, + CALL ZHEMV(UPLO, N, DCMPLX(-1.0D+0), A, LDA, Y(1,J), 1, $ DCMPLX(1.0D+0), RES, 1) DO I = 1, N diff --git a/SRC/zla_syrfsx_extended.f b/SRC/zla_syrfsx_extended.f index 1841b7f8..6d92b562 100644 --- a/SRC/zla_syrfsx_extended.f +++ b/SRC/zla_syrfsx_extended.f @@ -75,8 +75,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/zporfsx.f b/SRC/zporfsx.f index c5463ee5..2d59878e 100644 --- a/SRC/zporfsx.f +++ b/SRC/zporfsx.f @@ -298,7 +298,7 @@ DOUBLE PRECISION COMPONENTWISE_DEFAULT, RTHRESH_DEFAULT DOUBLE PRECISION DZTHRESH_DEFAULT PARAMETER ( ITREF_DEFAULT = 1.0D+0 ) - PARAMETER ( ITHRESH_DEFAULT = 100.0D+0 ) + PARAMETER ( ITHRESH_DEFAULT = 10.0D+0 ) PARAMETER ( COMPONENTWISE_DEFAULT = 1.0D+0 ) PARAMETER ( RTHRESH_DEFAULT = 0.5D+0 ) PARAMETER ( DZTHRESH_DEFAULT = 0.25D+0 ) @@ -311,8 +311,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM diff --git a/SRC/zsyrfsx.f b/SRC/zsyrfsx.f index 2d3698e6..f4066be9 100644 --- a/SRC/zsyrfsx.f +++ b/SRC/zsyrfsx.f @@ -318,8 +318,6 @@ $ LA_LINRX_RCOND_I PARAMETER ( LA_LINRX_TRUST_I = 1, LA_LINRX_ERR_I = 2 ) PARAMETER ( LA_LINRX_RCOND_I = 3 ) - INTEGER LA_LINRX_MAX_N_ERRS - PARAMETER ( LA_LINRX_MAX_N_ERRS = 3 ) * .. * .. Local Scalars .. CHARACTER(1) NORM |