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). * for the whole original matrix stored in A(1:M,1:N).
* *
KP1 = IDAMAX( N, RWORK( 1 ), 1 ) KP1 = IDAMAX( N, RWORK( 1 ), 1 )
MAXC2NRM = RWORK( KP1 )
* *
* ==================================================================. * ==================================================================.
* *


Loading…
Cancel
Save