diff options
Diffstat (limited to 'SRC/dtgsen.f')
-rw-r--r-- | SRC/dtgsen.f | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/SRC/dtgsen.f b/SRC/dtgsen.f index 82b17626..11928c36 100644 --- a/SRC/dtgsen.f +++ b/SRC/dtgsen.f @@ -542,6 +542,7 @@ * M = 0 PAIR = .FALSE. + IF( .NOT.LQUERY .OR. IJOB.NE.0 ) THEN DO 10 K = 1, N IF( PAIR ) THEN PAIR = .FALSE. @@ -561,6 +562,7 @@ END IF END IF 10 CONTINUE + END IF * IF( IJOB.EQ.1 .OR. IJOB.EQ.2 .OR. IJOB.EQ.4 ) THEN LWMIN = MAX( 1, 4*N+16, 2*M*( N-M ) ) |