|
version 1.10, 2012/08/22 09:48:14
|
version 1.11, 2012/12/14 12:30:20
|
|
Line 258
|
Line 258
|
| *> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
| *> \author NAG Ltd. |
*> \author NAG Ltd. |
| * |
* |
| *> \date November 2011 |
*> \date September 2012 |
| * |
* |
| *> \ingroup doubleGEcomputational |
*> \ingroup doubleGEcomputational |
| * |
* |
|
Line 335
|
Line 335
|
| SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, |
SUBROUTINE DGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, |
| $ LDV, WORK, LWORK, INFO ) |
$ LDV, WORK, LWORK, INFO ) |
| * |
* |
| * -- LAPACK computational routine (version 3.4.0) -- |
* -- LAPACK computational routine (version 3.4.2) -- |
| * -- 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..-- |
| * November 2011 |
* September 2012 |
| * |
* |
| * .. Scalar Arguments .. |
* .. Scalar Arguments .. |
| INTEGER INFO, LDA, LDV, LWORK, M, MV, N |
INTEGER INFO, LDA, LDV, LWORK, M, MV, N |
|
Line 1573
|
Line 1573
|
| END IF |
END IF |
| * |
* |
| * Undo scaling, if necessary (and possible). |
* Undo scaling, if necessary (and possible). |
| IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / |
IF( ( ( SKL.GT.ONE ) .AND. ( SVA( 1 ).LT.( BIG / SKL) ) ) |
| $ SKL) ) ) .OR. ( ( SKL.LT.ONE ) .AND. ( SVA( N2 ).GT. |
$ .OR. ( ( SKL.LT.ONE ) .AND. ( SVA( MAX( N2, 1 ) ) .GT. |
| $ ( SFMIN / SKL) ) ) ) THEN |
$ ( SFMIN / SKL) ) ) ) THEN |
| DO 2400 p = 1, N |
DO 2400 p = 1, N |
| SVA( p ) = SKL*SVA( p ) |
SVA( P ) = SKL*SVA( P ) |
| 2400 CONTINUE |
2400 CONTINUE |
| SKL= ONE |
SKL= ONE |
| END IF |
END IF |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to dgesvj.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / lapack / lapack