diff options
Diffstat (limited to 'SRC/ctgsen.f')
-rw-r--r-- | SRC/ctgsen.f | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/SRC/ctgsen.f b/SRC/ctgsen.f index d2ba8de8..894db3be 100644 --- a/SRC/ctgsen.f +++ b/SRC/ctgsen.f @@ -515,6 +515,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 ) @@ -526,6 +527,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) ) |