Browse Source

fix missing initialization

tags/v0.3.30
Martin Kroeker GitHub 7 months ago
parent
commit
1804ff58d7
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 1 additions and 0 deletions
  1. +1
    -0
      lapack-netlib/SRC/zgeqp3rk.f

+ 1
- 0
lapack-netlib/SRC/zgeqp3rk.f View File

@@ -760,6 +760,7 @@
* for the whole original matrix stored in A(1:M,1:N).
*
KP1 = IDAMAX( N, RWORK( 1 ), 1 )
MAXC2NRM = RWORK( KP1 )
*
* ==================================================================.
*


Loading…
Cancel
Save