version 1.1, 2015/11/26 11:44:22
|
version 1.4, 2017/06/17 11:06:45
|
Line 269
|
Line 269
|
$ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, |
$ LDB, SDIM, ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, |
$ WORK, LWORK, RWORK, BWORK, INFO ) |
$ WORK, LWORK, RWORK, BWORK, INFO ) |
* |
* |
* -- LAPACK driver routine (version 3.6.0) -- |
* -- LAPACK driver routine (version 3.6.1) -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* January 2015 |
* January 2015 |
Line 392
|
Line 392
|
$ LDVSL, VSR, LDVSR, WORK, -1, IERR ) |
$ LDVSL, VSR, LDVSR, WORK, -1, IERR ) |
LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) ) |
LWKOPT = MAX( LWKOPT, N + INT ( WORK( 1 ) ) ) |
CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, |
CALL ZHGEQZ( 'S', JOBVSL, JOBVSR, N, 1, N, A, LDA, B, LDB, |
$ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, |
$ ALPHA, BETA, VSL, LDVSL, VSR, LDVSR, WORK, -1, |
$ -1, RWORK, IERR ) |
$ RWORK, IERR ) |
LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) |
LWKOPT = MAX( LWKOPT, INT ( WORK( 1 ) ) ) |
IF( WANTST ) THEN |
IF( WANTST ) THEN |
CALL ZTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, |
CALL ZTGSEN( 0, ILVSL, ILVSR, BWORK, N, A, LDA, B, LDB, |