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

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 )