floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BUG: Fix the loop range in ZHEEQUB.f

This commit is contained in:
Ilhan Polat 2020-05-30 14:11:11 +02:00 committed by GitHub
parent 4a4c50a7ce
commit 76d2612e0c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/zheequb.f
View File

@ -271,7 +271,7 @@
AVG = AVG / N AVG = AVG / N
STD = 0.0D0 STD = 0.0D0
DO I = N+1, N DO I = N+1, 2*N
WORK( I ) = S( I-N ) * WORK( I-N ) - AVG WORK( I ) = S( I-N ) * WORK( I-N ) - AVG
END DO END DO
CALL ZLASSQ( N, WORK( N+1 ), 1, SCALE, SUMSQ ) CALL ZLASSQ( N, WORK( N+1 ), 1, SCALE, SUMSQ )