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

Merge pull request #2635 from ilayn/patch-1

Browse Source 
BUG: Fix the loop range in ZHEEQUB.f
This commit is contained in:
Martin Kroeker
2020-05-30 14:37:12 +02:00
committed by GitHub
parent 4a4c50a7ce 76d2612e0c
commit e79245acd9
1 changed files with 1 additions and 1 deletions
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
STD = 0.0D0
DO I = N+1, N
DO I = N+1, 2*N
WORK( I ) = S( I-N ) * WORK( I-N ) - AVG
END DO
CALL ZLASSQ( N, WORK( N+1 ), 1, SCALE, SUMSQ )