Browse Source

Fix wrong indexation in test (Reference-LAPACK PR755)

tags/v0.3.22^2
Martin Kroeker GitHub 3 years ago
parent
commit
0d26f1a4c7
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
  1. +1
    -1
      lapack-netlib/TESTING/LIN/schktr.f

+ 1
- 1
lapack-netlib/TESTING/LIN/schktr.f View File

@@ -559,7 +559,7 @@
$ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT ) $ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
* *
CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,
$ SCALE3 ( 1 ), RWORK, ONE, B( N+1 ), LDA,
$ SCALE3 ( 1 ), RWORK, ONE, B( 1 ), LDA,
$ X, LDA, WORK, RESULT( 10 ) ) $ X, LDA, WORK, RESULT( 10 ) )
CALL SSCAL( N, BIGNUM, X, 1 ) CALL SSCAL( N, BIGNUM, X, 1 )
CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,


Loading…
Cancel
Save