Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 129268
Collapse All | Expand All

(-)LAPACK/SRC/dgesdd.f.BAD (+4 lines)
Lines 294-299 Link Here
294 
*
 294 
*
295 
               WRKBL = 3*N + ( M+N )*ILAENV( 1, 'DGEBRD', ' ', M, N, -1,
 295 
               WRKBL = 3*N + ( M+N )*ILAENV( 1, 'DGEBRD', ' ', M, N, -1,
296 
     $                 -1 )
 296 
     $                 -1 )
297 
               MAXWRK = MAX( WRKBL, BDSPAC )
298 
               MINWRK = BDSPAC
297 
               IF( WNTQO ) THEN
 299 
               IF( WNTQO ) THEN
298 
                  WRKBL = MAX( WRKBL, 3*N+N*
 300 
                  WRKBL = MAX( WRKBL, 3*N+N*
299 
     $                    ILAENV( 1, 'DORMBR', 'QLN', M, N, N, -1 ) )
 301 
     $                    ILAENV( 1, 'DORMBR', 'QLN', M, N, N, -1 ) )
Lines 390-395 Link Here
390 
*
 392 
*
391 
               WRKBL = 3*M + ( M+N )*ILAENV( 1, 'DGEBRD', ' ', M, N, -1,
 393 
               WRKBL = 3*M + ( M+N )*ILAENV( 1, 'DGEBRD', ' ', M, N, -1,
392 
     $                 -1 )
 394 
     $                 -1 )
395 
               MAXWRK = MAX( WRKBL, BDSPAC )
396 
               MINWRK = BDSPAC
393 
               IF( WNTQO ) THEN
 397 
               IF( WNTQO ) THEN
394 
                  WRKBL = MAX( WRKBL, 3*M+M*
 398 
                  WRKBL = MAX( WRKBL, 3*M+M*
395 
     $                    ILAENV( 1, 'DORMBR', 'QLN', M, M, N, -1 ) )
 399 
     $                    ILAENV( 1, 'DORMBR', 'QLN', M, M, N, -1 ) )
(-)LAPACK/SRC/sgesdd.f.BAD (+4 lines)
Lines 294-299 Link Here
294 
*
 294 
*
295 
               WRKBL = 3*N + ( M+N )*ILAENV( 1, 'SGEBRD', ' ', M, N, -1,
 295 
               WRKBL = 3*N + ( M+N )*ILAENV( 1, 'SGEBRD', ' ', M, N, -1,
296 
     $                 -1 )
 296 
     $                 -1 )
297 
               MAXWRK = MAX( WRKBL, BDSPAC )
298 
               MINWRK = BDSPAC
297 
               IF( WNTQO ) THEN
 299 
               IF( WNTQO ) THEN
298 
                  WRKBL = MAX( WRKBL, 3*N+N*
 300 
                  WRKBL = MAX( WRKBL, 3*N+N*
299 
     $                    ILAENV( 1, 'SORMBR', 'QLN', M, N, N, -1 ) )
 301 
     $                    ILAENV( 1, 'SORMBR', 'QLN', M, N, N, -1 ) )
Lines 390-395 Link Here
390 
*
 392 
*
391 
               WRKBL = 3*M + ( M+N )*ILAENV( 1, 'SGEBRD', ' ', M, N, -1,
 393 
               WRKBL = 3*M + ( M+N )*ILAENV( 1, 'SGEBRD', ' ', M, N, -1,
392 
     $                 -1 )
 394 
     $                 -1 )
395 
               MAXWRK = MAX( WRKBL, BDSPAC )
396 
               MINWRK = BDSPAC
393 
               IF( WNTQO ) THEN
 397 
               IF( WNTQO ) THEN
394 
                  WRKBL = MAX( WRKBL, 3*M+M*
 398 
                  WRKBL = MAX( WRKBL, 3*M+M*
395 
     $                    ILAENV( 1, 'SORMBR', 'QLN', M, M, N, -1 ) )
 399 
     $                    ILAENV( 1, 'SORMBR', 'QLN', M, M, N, -1 ) )

Return to bug 129268