diff options
Diffstat (limited to 'SRC/ztgsen.f')
| -rw-r--r-- | SRC/ztgsen.f | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/SRC/ztgsen.f b/SRC/ztgsen.f index 4c991ec4..4d5eae2e 100644 --- a/SRC/ztgsen.f +++ b/SRC/ztgsen.f @@ -518,6 +518,7 @@ * subspaces. * M = 0 + IF( .NOT.LQUERY .OR. IJOB.NE.0 ) THEN DO 10 K = 1, N ALPHA( K ) = A( K, K ) BETA( K ) = B( K, K ) @@ -529,6 +530,7 @@ $ M = M + 1 END IF 10 CONTINUE + END IF * IF( IJOB.EQ.1 .OR. IJOB.EQ.2 .OR. IJOB.EQ.4 ) THEN LWMIN = MAX( 1, 2*M*( N-M ) ) |