diff options
| author | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-10 17:33:47 +0000 |
|---|---|---|
| committer | philippe.theveny <philippe.theveny@8a072113-8704-0410-8d35-dd094bca7971> | 2015-08-10 17:33:47 +0000 |
| commit | adba39b8df491800ff087067cef1d54e36ad659c (patch) | |
| tree | 3bf3e8a1691e8cc779cbad1758521f7535f2e295 /SRC/zgges3.f | |
| parent | 7b9b17997ea18c8a3689c6ebb318c78956e99406 (diff) | |
| download | lapack-adba39b8df491800ff087067cef1d54e36ad659c.tar.gz lapack-adba39b8df491800ff087067cef1d54e36ad659c.tar.bz2 lapack-adba39b8df491800ff087067cef1d54e36ad659c.zip | |
Bux fix from Rodney James about implicit typing.
Some variables were undeclared, some were mistyped, and others were unused.
Diffstat (limited to 'SRC/zgges3.f')
| -rw-r--r-- | SRC/zgges3.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SRC/zgges3.f b/SRC/zgges3.f index d4455148..1a7dbccc 100644 --- a/SRC/zgges3.f +++ b/SRC/zgges3.f @@ -401,7 +401,7 @@ $ PVSL, PVSR, DIF, WORK, -1, IDUM, 1, IERR ) LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) END IF - WORK( 1 ) = DCMPLX( WKOPT ) + WORK( 1 ) = DCMPLX( LWKOPT ) END IF * IF( INFO.NE.0 ) THEN |