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 | |
parent | 7b9b17997ea18c8a3689c6ebb318c78956e99406 (diff) |
Bux fix from Rodney James about implicit typing.
Some variables were undeclared, some were mistyped, and others were unused.
Diffstat (limited to 'SRC')
-rw-r--r-- | SRC/cunmqr.f | 2 | ||||
-rw-r--r-- | SRC/dgehrd.f | 1 | ||||
-rw-r--r-- | SRC/dormrz.f | 2 | ||||
-rw-r--r-- | SRC/iparmq.f | 4 | ||||
-rw-r--r-- | SRC/sormql.f | 2 | ||||
-rw-r--r-- | SRC/sormrz.f | 2 | ||||
-rw-r--r-- | SRC/zgges3.f | 2 |
7 files changed, 3 insertions, 12 deletions
diff --git a/SRC/cunmqr.f b/SRC/cunmqr.f index 903b8d44..a359ce7b 100644 --- a/SRC/cunmqr.f +++ b/SRC/cunmqr.f @@ -273,8 +273,6 @@ NBMIN = MAX( 2, ILAENV( 2, 'CUNMQR', SIDE // TRANS, M, N, K, $ -1 ) ) END IF - ELSE - IWS = NW END IF * IF( NB.LT.NBMIN .OR. NB.GE.K ) THEN diff --git a/SRC/dgehrd.f b/SRC/dgehrd.f index ccaf9055..2c04b622 100644 --- a/SRC/dgehrd.f +++ b/SRC/dgehrd.f @@ -261,7 +261,6 @@ * NB = MIN( NBMAX, ILAENV( 1, 'DGEHRD', ' ', N, ILO, IHI, -1 ) ) NBMIN = 2 - IWS = 1 IF( NB.GT.1 .AND. NB.LT.NH ) THEN * * Determine when to cross over from blocked to unblocked code diff --git a/SRC/dormrz.f b/SRC/dormrz.f index f055763c..34d49ec5 100644 --- a/SRC/dormrz.f +++ b/SRC/dormrz.f @@ -299,8 +299,6 @@ NBMIN = MAX( 2, ILAENV( 2, 'DORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) END IF - ELSE - IWS = NW END IF * IF( NB.LT.NBMIN .OR. NB.GE.K ) THEN diff --git a/SRC/iparmq.f b/SRC/iparmq.f index 581e1cb1..6aea872a 100644 --- a/SRC/iparmq.f +++ b/SRC/iparmq.f @@ -33,7 +33,7 @@ *> This program sets problem and machine dependent parameters *> useful for xHSEQR and related subroutines for eigenvalue *> problems. It is called whenever -*> ILAENV is called with 12 <= ISPEC <= 16 +*> IPARMQ is called with 12 <= ISPEC <= 16 *> \endverbatim * * Arguments: @@ -318,7 +318,7 @@ * * Convert NAME to upper case if the first character is lower case. * - ILAENV = 0 + IPARMQ = 0 SUBNAM = NAME IC = ICHAR( SUBNAM( 1: 1 ) ) IZ = ICHAR( 'Z' ) diff --git a/SRC/sormql.f b/SRC/sormql.f index ccb47c3d..7b092d12 100644 --- a/SRC/sormql.f +++ b/SRC/sormql.f @@ -276,8 +276,6 @@ NBMIN = MAX( 2, ILAENV( 2, 'SORMQL', SIDE // TRANS, M, N, K, $ -1 ) ) END IF - ELSE - IWS = NW END IF * IF( NB.LT.NBMIN .OR. NB.GE.K ) THEN diff --git a/SRC/sormrz.f b/SRC/sormrz.f index 33d5184e..be2da837 100644 --- a/SRC/sormrz.f +++ b/SRC/sormrz.f @@ -298,8 +298,6 @@ NBMIN = MAX( 2, ILAENV( 2, 'SORMRQ', SIDE // TRANS, M, N, K, $ -1 ) ) END IF - ELSE - IWS = NW END IF * IF( NB.LT.NBMIN .OR. NB.GE.K ) THEN 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 |