diff options
author | Julie <julie@cs.utk.edu> | 2016-06-15 22:12:52 -0700 |
---|---|---|
committer | Julie <julie@cs.utk.edu> | 2016-06-15 22:12:52 -0700 |
commit | ba1ff0e2b7e9216faa5ccb63ecc1bab5d136bd77 (patch) | |
tree | 9f21132bf99847b51bf22735ad4ddff468489331 /SRC/zgejsv.f | |
parent | 874eb5ecf0c1e4522de887af355e748f48f9d9a1 (diff) | |
download | lapack-ba1ff0e2b7e9216faa5ccb63ecc1bab5d136bd77.tar.gz lapack-ba1ff0e2b7e9216faa5ccb63ecc1bab5d136bd77.tar.bz2 lapack-ba1ff0e2b7e9216faa5ccb63ecc1bab5d136bd77.zip |
ZGEJSV: coding style unification - DOUBLE COMPLEX
Reported by Eugene Chereshnev on April 4th 2016
See:
http://icl.cs.utk.edu/lapack-forum/posting.php?mode=reply&f=13&t=4943
Diffstat (limited to 'SRC/zgejsv.f')
-rw-r--r-- | SRC/zgejsv.f | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/SRC/zgejsv.f b/SRC/zgejsv.f index 2f6a8454..712f10df 100644 --- a/SRC/zgejsv.f +++ b/SRC/zgejsv.f @@ -27,7 +27,7 @@ * INTEGER INFO, LDA, LDU, LDV, LWORK, M, N * .. * .. Array Arguments .. -* DOUBLE COMPLEX A( LDA, * ), U( LDU, * ), V( LDV, * ), CWORK( LWORK ) +* COMPLEX*16 A( LDA, * ), U( LDU, * ), V( LDV, * ), CWORK( LWORK ) * DOUBLE PRECISION SVA( N ), RWORK( LRWORK ) * INTEGER IWORK( * ) * CHARACTER*1 JOBA, JOBP, JOBR, JOBT, JOBU, JOBV @@ -194,7 +194,7 @@ *> *> \param[in,out] A *> \verbatim -*> A is DOUBLE COMPLEX array, dimension (LDA,N) +*> A is COMPLEX*16 array, dimension (LDA,N) *> On entry, the M-by-N matrix A. *> \endverbatim *> @@ -222,7 +222,7 @@ *> *> \param[out] U *> \verbatim -*> U is DOUBLE COMPLEX array, dimension ( LDU, N ) +*> U is COMPLEX*16 array, dimension ( LDU, N ) *> If JOBU = 'U', then U contains on exit the M-by-N matrix of *> the left singular vectors. *> If JOBU = 'F', then U contains on exit the M-by-M matrix of @@ -247,7 +247,7 @@ *> *> \param[out] V *> \verbatim -*> V is DOUBLE COMPLEX array, dimension ( LDV, N ) +*> V is COMPLEX*16 array, dimension ( LDV, N ) *> If JOBV = 'V', 'J' then V contains on exit the N-by-N matrix of *> the right singular vectors; *> If JOBV = 'W', AND (JOBU.EQ.'U' AND JOBT.EQ.'T' AND M.EQ.N), @@ -269,7 +269,7 @@ *> *> \param[out] CWORK *> \verbatim -*> CWORK is DOUBLE COMPLEX array, dimension at least LWORK. +*> CWORK is COMPLEX*16 array, dimension at least LWORK. *> \endverbatim *> *> \param[in] LWORK @@ -527,7 +527,7 @@ INTEGER INFO, LDA, LDU, LDV, LWORK, LRWORK, M, N * .. * .. Array Arguments .. - DOUBLE COMPLEX A( LDA, * ), U( LDU, * ), V( LDV, * ), + COMPLEX*16 A( LDA, * ), U( LDU, * ), V( LDV, * ), $ CWORK( LWORK ) DOUBLE PRECISION SVA( N ), RWORK( * ) INTEGER IWORK( * ) @@ -539,11 +539,11 @@ * .. Local Parameters .. DOUBLE PRECISION ZERO, ONE PARAMETER ( ZERO = 0.0D0, ONE = 1.0D0 ) - DOUBLE COMPLEX CZERO, CONE + COMPLEX*16 CZERO, CONE PARAMETER ( CZERO = ( 0.0D0, 0.0D0 ), CONE = ( 1.0D0, 0.0D0 ) ) * .. * .. Local Scalars .. - DOUBLE COMPLEX CTEMP + COMPLEX*16 CTEMP DOUBLE PRECISION AAPP, AAQQ, AATMAX, AATMIN, BIG, BIG1, $ COND_OK, CONDR1, CONDR2, ENTRA, ENTRAT, EPSLN, $ MAXPRJ, SCALEM, SCONDA, SFMIN, SMALL, TEMP1, |