Fix uninitialized variables in the LAPACK tests for the new ?QP3RK functions (Reference-LAPACK PR961)
This commit is contained in:
Martin Kroeker
GitHub
parent
91a24b837d
commit
c20caa4960
|
|
@ -608,6 +608,9 @@
|
|||
CALL CLACPY( 'All', M, NRHS, COPYB, LDA,
|
||||
$ B, LDA )
|
||||
CALL ICOPY( N, IWORK( 1 ), 1, IWORK( N+1 ), 1 )
|
||||
DO I = 1, NTESTS
|
||||
RESULT( I ) = ZERO
|
||||
END DO
|
||||
*
|
||||
ABSTOL = -1.0
|
||||
RELTOl = -1.0
|
||||
|
|
@ -652,16 +655,6 @@
|
|||
RESULT( 1 ) = CQRT12( M, N, A, LDA, S, WORK,
|
||||
$ LWORK , RWORK )
|
||||
*
|
||||
DO T = 1, 1
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'CGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL, NB, NX,
|
||||
$ IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 1
|
||||
|
|
@ -686,19 +679,6 @@
|
|||
RESULT( 3 ) = CQRT11( M, KFACT, A, LDA, TAU, WORK,
|
||||
$ LWORK )
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 2, 3
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'CGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 2
|
||||
*
|
||||
* Compute test 4:
|
||||
|
|
@ -717,8 +697,8 @@
|
|||
*
|
||||
DO J = 1, KFACT-1, 1
|
||||
*
|
||||
DTEMP = (( ABS( A( (J-1)*M+J ) ) -
|
||||
$ ABS( A( (J)*M+J+1 ) ) ) /
|
||||
DTEMP = (( ABS( A( (J-1)*LDA+J ) ) -
|
||||
$ ABS( A( (J)*LDA+J+1 ) ) ) /
|
||||
$ ABS( A(1) ) )
|
||||
*
|
||||
IF( DTEMP.LT.ZERO ) THEN
|
||||
|
|
@ -727,20 +707,6 @@
|
|||
*
|
||||
END DO
|
||||
*
|
||||
* Print information about the tests that did not
|
||||
* pass the threshold.
|
||||
*
|
||||
DO T = 4, 4
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'CGEQP3RK',
|
||||
$ M, N, NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T,
|
||||
$ RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 4.
|
||||
|
|
@ -773,16 +739,20 @@
|
|||
$ B( ( I-1 )*LDA+1 ), 1 )
|
||||
END DO
|
||||
*
|
||||
RESULT( 5 ) =
|
||||
$ ABS(
|
||||
RESULT( 5 ) = ABS(
|
||||
$ CLANGE( 'One-norm', M, NRHS, B, LDA, RDUMMY ) /
|
||||
$ ( REAL( M )*SLAMCH( 'Epsilon' ) )
|
||||
$ )
|
||||
$ ( REAL( M )*SLAMCH( 'Epsilon' ) ) )
|
||||
*
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End compute test 5.
|
||||
*
|
||||
END IF
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 5, 5
|
||||
DO T = 1, NTESTS
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
|
|
@ -792,11 +762,6 @@
|
|||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End compute test 5.
|
||||
*
|
||||
END IF
|
||||
*
|
||||
* END DO KMAX = 1, MIN(M,N)+1
|
||||
*
|
||||
|
|
|
|||
|
|
@ -605,6 +605,9 @@
|
|||
CALL DLACPY( 'All', M, NRHS, COPYB, LDA,
|
||||
$ B, LDA )
|
||||
CALL ICOPY( N, IWORK( 1 ), 1, IWORK( N+1 ), 1 )
|
||||
DO I = 1, NTESTS
|
||||
RESULT( I ) = ZERO
|
||||
END DO
|
||||
*
|
||||
ABSTOL = -1.0
|
||||
RELTOL = -1.0
|
||||
|
|
@ -648,16 +651,6 @@
|
|||
RESULT( 1 ) = DQRT12( M, N, A, LDA, S, WORK,
|
||||
$ LWORK )
|
||||
*
|
||||
DO T = 1, 1
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'DGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL, NB, NX,
|
||||
$ IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 1
|
||||
|
|
@ -682,19 +675,6 @@
|
|||
RESULT( 3 ) = DQRT11( M, KFACT, A, LDA, TAU, WORK,
|
||||
$ LWORK )
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 2, 3
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'DGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 2
|
||||
*
|
||||
* Compute test 4:
|
||||
|
|
@ -713,8 +693,8 @@
|
|||
*
|
||||
DO J = 1, KFACT-1, 1
|
||||
|
||||
DTEMP = (( ABS( A( (J-1)*M+J ) ) -
|
||||
$ ABS( A( (J)*M+J+1 ) ) ) /
|
||||
DTEMP = (( ABS( A( (J-1)*LDA+J ) ) -
|
||||
$ ABS( A( (J)*LDA+J+1 ) ) ) /
|
||||
$ ABS( A(1) ) )
|
||||
*
|
||||
IF( DTEMP.LT.ZERO ) THEN
|
||||
|
|
@ -723,20 +703,6 @@
|
|||
*
|
||||
END DO
|
||||
*
|
||||
* Print information about the tests that did not
|
||||
* pass the threshold.
|
||||
*
|
||||
DO T = 4, 4
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'DGEQP3RK',
|
||||
$ M, N, NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T,
|
||||
$ RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 4.
|
||||
|
|
@ -769,31 +735,30 @@
|
|||
$ B( ( I-1 )*LDA+1 ), 1 )
|
||||
END DO
|
||||
*
|
||||
RESULT( 5 ) =
|
||||
$ ABS(
|
||||
RESULT( 5 ) = ABS(
|
||||
$ DLANGE( 'One-norm', M, NRHS, B, LDA, RDUMMY ) /
|
||||
$ ( DBLE( M )*DLAMCH( 'Epsilon' ) )
|
||||
$ )
|
||||
$ ( DBLE( M )*DLAMCH( 'Epsilon' ) ) )
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 5, 5
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'DGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End compute test 5.
|
||||
*
|
||||
END IF
|
||||
*
|
||||
* Print information about the tests that did not
|
||||
* pass the threshold.
|
||||
*
|
||||
DO T = 1, NTESTS
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'DGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL, NB, NX,
|
||||
$ IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
*
|
||||
* END DO KMAX = 1, MIN(M,N)+1
|
||||
*
|
||||
END DO
|
||||
|
|
|
|||
|
|
@ -604,6 +604,9 @@
|
|||
CALL SLACPY( 'All', M, NRHS, COPYB, LDA,
|
||||
$ B, LDA )
|
||||
CALL ICOPY( N, IWORK( 1 ), 1, IWORK( N+1 ), 1 )
|
||||
DO I = 1, NTESTS
|
||||
RESULT( I ) = ZERO
|
||||
END DO
|
||||
*
|
||||
ABSTOL = -1.0
|
||||
RELTOL = -1.0
|
||||
|
|
@ -647,16 +650,6 @@
|
|||
RESULT( 1 ) = SQRT12( M, N, A, LDA, S, WORK,
|
||||
$ LWORK )
|
||||
*
|
||||
DO T = 1, 1
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'SGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL, NB, NX,
|
||||
$ IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 1
|
||||
|
|
@ -681,19 +674,6 @@
|
|||
RESULT( 3 ) = SQRT11( M, KFACT, A, LDA, TAU, WORK,
|
||||
$ LWORK )
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 2, 3
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'SGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 2
|
||||
*
|
||||
* Compute test 4:
|
||||
|
|
@ -712,8 +692,8 @@
|
|||
*
|
||||
DO J = 1, KFACT-1, 1
|
||||
|
||||
DTEMP = (( ABS( A( (J-1)*M+J ) ) -
|
||||
$ ABS( A( (J)*M+J+1 ) ) ) /
|
||||
DTEMP = (( ABS( A( (J-1)*LDA+J ) ) -
|
||||
$ ABS( A( (J)*LDA+J+1 ) ) ) /
|
||||
$ ABS( A(1) ) )
|
||||
*
|
||||
IF( DTEMP.LT.ZERO ) THEN
|
||||
|
|
@ -722,20 +702,6 @@
|
|||
*
|
||||
END DO
|
||||
*
|
||||
* Print information about the tests that did not
|
||||
* pass the threshold.
|
||||
*
|
||||
DO T = 4, 4
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'SGEQP3RK',
|
||||
$ M, N, NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T,
|
||||
$ RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 4.
|
||||
|
|
@ -768,16 +734,20 @@
|
|||
$ B( ( I-1 )*LDA+1 ), 1 )
|
||||
END DO
|
||||
*
|
||||
RESULT( 5 ) =
|
||||
$ ABS(
|
||||
RESULT( 5 ) = ABS(
|
||||
$ SLANGE( 'One-norm', M, NRHS, B, LDA, RDUMMY ) /
|
||||
$ ( REAL( M )*SLAMCH( 'Epsilon' ) )
|
||||
$ )
|
||||
$ ( REAL( M )*SLAMCH( 'Epsilon' ) ) )
|
||||
*
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End compute test 5.
|
||||
*
|
||||
END IF
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 5, 5
|
||||
DO T = 1, NTESTS
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
|
|
@ -787,11 +757,6 @@
|
|||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End compute test 5.
|
||||
*
|
||||
END IF
|
||||
*
|
||||
* END DO KMAX = 1, MIN(M,N)+1
|
||||
*
|
||||
|
|
|
|||
|
|
@ -608,6 +608,9 @@
|
|||
CALL ZLACPY( 'All', M, NRHS, COPYB, LDA,
|
||||
$ B, LDA )
|
||||
CALL ICOPY( N, IWORK( 1 ), 1, IWORK( N+1 ), 1 )
|
||||
DO I = 1, NTESTS
|
||||
RESULT( I ) = ZERO
|
||||
END DO
|
||||
*
|
||||
ABSTOL = -1.0
|
||||
RELTOl = -1.0
|
||||
|
|
@ -652,16 +655,6 @@
|
|||
RESULT( 1 ) = ZQRT12( M, N, A, LDA, S, WORK,
|
||||
$ LWORK , RWORK )
|
||||
*
|
||||
DO T = 1, 1
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'ZGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL, NB, NX,
|
||||
$ IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 1
|
||||
|
|
@ -686,19 +679,6 @@
|
|||
RESULT( 3 ) = ZQRT11( M, KFACT, A, LDA, TAU, WORK,
|
||||
$ LWORK )
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 2, 3
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'ZGEQP3RK', M, N,
|
||||
$ NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T, RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 2
|
||||
*
|
||||
* Compute test 4:
|
||||
|
|
@ -717,8 +697,8 @@
|
|||
*
|
||||
DO J = 1, KFACT-1, 1
|
||||
*
|
||||
DTEMP = (( ABS( A( (J-1)*M+J ) ) -
|
||||
$ ABS( A( (J)*M+J+1 ) ) ) /
|
||||
DTEMP = (( ABS( A( (J-1)*LDA+J ) ) -
|
||||
$ ABS( A( (J)*LDA+J+1 ) ) ) /
|
||||
$ ABS( A(1) ) )
|
||||
*
|
||||
IF( DTEMP.LT.ZERO ) THEN
|
||||
|
|
@ -727,20 +707,6 @@
|
|||
*
|
||||
END DO
|
||||
*
|
||||
* Print information about the tests that did not
|
||||
* pass the threshold.
|
||||
*
|
||||
DO T = 4, 4
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
WRITE( NOUT, FMT = 9999 ) 'ZGEQP3RK',
|
||||
$ M, N, NRHS, KMAX, ABSTOL, RELTOL,
|
||||
$ NB, NX, IMAT, T,
|
||||
$ RESULT( T )
|
||||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End test 4.
|
||||
|
|
@ -773,16 +739,20 @@
|
|||
$ B( ( I-1 )*LDA+1 ), 1 )
|
||||
END DO
|
||||
*
|
||||
RESULT( 5 ) =
|
||||
$ ABS(
|
||||
RESULT( 5 ) = ABS(
|
||||
$ ZLANGE( 'One-norm', M, NRHS, B, LDA, RDUMMY ) /
|
||||
$ ( DBLE( M )*DLAMCH( 'Epsilon' ) )
|
||||
$ )
|
||||
$ ( DBLE( M )*DLAMCH( 'Epsilon' ) ) )
|
||||
*
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End compute test 5.
|
||||
*
|
||||
END IF
|
||||
*
|
||||
* Print information about the tests that did not pass
|
||||
* the threshold.
|
||||
*
|
||||
DO T = 5, 5
|
||||
DO T = 1, NTESTS
|
||||
IF( RESULT( T ).GE.THRESH ) THEN
|
||||
IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
|
||||
$ CALL ALAHD( NOUT, PATH )
|
||||
|
|
@ -792,11 +762,6 @@
|
|||
NFAIL = NFAIL + 1
|
||||
END IF
|
||||
END DO
|
||||
NRUN = NRUN + 1
|
||||
*
|
||||
* End compute test 5.
|
||||
*
|
||||
END IF
|
||||
*
|
||||
* END DO KMAX = 1, MIN(M,N)+1
|
||||
*
|
||||
|
|
|
|||
Loading…
Reference in New Issue