diff options
| -rw-r--r-- | SRC/cuncsd.f | 10 | ||||
| -rw-r--r-- | SRC/dorcsd.f | 4 | ||||
| -rw-r--r-- | SRC/sorcsd.f | 10 | ||||
| -rw-r--r-- | SRC/zuncsd.f | 6 |
4 files changed, 19 insertions, 11 deletions
diff --git a/SRC/cuncsd.f b/SRC/cuncsd.f index 070b45cc..b5166a8f 100644 --- a/SRC/cuncsd.f +++ b/SRC/cuncsd.f @@ -14,6 +14,8 @@ * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * +* @generated c +* * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -157,7 +159,7 @@ * this value as the first entry of the work array, and no error * message related to LRWORK is issued by XERBLA. * -* IWORK (workspace) INTEGER array, dimension (M-MIN(P, M-P, Q, M-Q)) +* IWORK (workspace) INTEGER array, dimension (M-MIN(P,M-P,Q,M-Q)) * * INFO (output) INTEGER * = 0: successful exit. @@ -197,8 +199,8 @@ LOGICAL LRQUERY * .. * .. External Subroutines .. - EXTERNAL CBBCSD, CLACPY, CLAPMR, CLAPMT, CLASCL, CLASET, - $ CUNBDB, CUNGLQ, CUNGQR, XERBLA + EXTERNAL XERBLA, CBBCSD, CLACPY, CLAPMR, CLAPMT, CLASCL, + $ CLASET, CUNBDB, CUNGLQ, CUNGQR * .. * .. External Functions .. LOGICAL LSAME @@ -327,7 +329,7 @@ $ IORBDB + LORBDBWORKOPT ) - 1 LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN, $ IORBDB + LORBDBWORKMIN ) - 1 - WORK(1) = LWORKOPT + WORK(1) = MAX(LWORKOPT,LWORKMIN) * IF( LWORK .LT. LWORKMIN $ .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN diff --git a/SRC/dorcsd.f b/SRC/dorcsd.f index d1c4377c..65b2fbe2 100644 --- a/SRC/dorcsd.f +++ b/SRC/dorcsd.f @@ -13,6 +13,8 @@ * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * +* @precisions normal d -> s +* * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -302,7 +304,7 @@ $ IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKOPT ) - 1 LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN, $ IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKMIN ) - 1 - WORK(1) = LWORKOPT + WORK(1) = MAX(LWORKOPT,LWORKMIN) * IF( LWORK .LT. LWORKMIN .AND. .NOT. LQUERY ) THEN INFO = -22 diff --git a/SRC/sorcsd.f b/SRC/sorcsd.f index 36809c24..6886ff8f 100644 --- a/SRC/sorcsd.f +++ b/SRC/sorcsd.f @@ -13,6 +13,8 @@ * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * +* @generated s +* * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -162,11 +164,11 @@ * * .. Parameters .. REAL REALONE - PARAMETER ( REALONE = 1.0E0 ) + PARAMETER ( REALONE = 1.0E+0 ) REAL NEGONE, ONE, PIOVER2, ZERO - PARAMETER ( NEGONE = -1.0E0, ONE = 1.0E0, + PARAMETER ( NEGONE = -1.0E+0, ONE = 1.0E+0, $ PIOVER2 = 1.57079632679489662E0, - $ ZERO = 0.0E0 ) + $ ZERO = 0.0E+0 ) * .. * .. Local Scalars .. CHARACTER TRANST, SIGNST @@ -302,7 +304,7 @@ $ IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKOPT ) - 1 LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN, $ IORBDB + LORBDBWORKOPT, IBBCSD + LBBCSDWORKMIN ) - 1 - WORK(1) = LWORKOPT + WORK(1) = MAX(LWORKOPT,LWORKMIN) * IF( LWORK .LT. LWORKMIN .AND. .NOT. LQUERY ) THEN INFO = -22 diff --git a/SRC/zuncsd.f b/SRC/zuncsd.f index 1d8b87b1..0e4f973a 100644 --- a/SRC/zuncsd.f +++ b/SRC/zuncsd.f @@ -14,6 +14,8 @@ * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- * +* @precisions normal z -> c +* * .. Scalar Arguments .. CHARACTER JOBU1, JOBU2, JOBV1T, JOBV2T, SIGNS, TRANS INTEGER INFO, LDU1, LDU2, LDV1T, LDV2T, LDX11, LDX12, @@ -157,7 +159,7 @@ * this value as the first entry of the work array, and no error * message related to LRWORK is issued by XERBLA. * -* IWORK (workspace) INTEGER array, dimension (M-MIN(P, M-P, Q, M-Q)) +* IWORK (workspace) INTEGER array, dimension (M-MIN(P,M-P,Q,M-Q)) * * INFO (output) INTEGER * = 0: successful exit. @@ -327,7 +329,7 @@ $ IORBDB + LORBDBWORKOPT ) - 1 LWORKMIN = MAX( IORGQR + LORGQRWORKMIN, IORGLQ + LORGLQWORKMIN, $ IORBDB + LORBDBWORKMIN ) - 1 - WORK(1) = LWORKOPT + WORK(1) = MAX(LWORKOPT,LWORKMIN) * IF( LWORK .LT. LWORKMIN $ .AND. .NOT. ( LQUERY .OR. LRQUERY ) ) THEN |