diff options
| author | brian <brian@8a072113-8704-0410-8d35-dd094bca7971> | 2010-11-10 23:11:43 +0000 |
|---|---|---|
| committer | brian <brian@8a072113-8704-0410-8d35-dd094bca7971> | 2010-11-10 23:11:43 +0000 |
| commit | 84d4f2a6166ad08aa05cd3a6dd59942d30981a51 (patch) | |
| tree | 02a31456ec6e9e25e8efc727596e81dbae901b8d | |
| parent | 0d8a6de04bf0c6a486bb9ec6df27ad8cf851e840 (diff) | |
| download | lapack-84d4f2a6166ad08aa05cd3a6dd59942d30981a51.tar.gz lapack-84d4f2a6166ad08aa05cd3a6dd59942d30981a51.tar.bz2 lapack-84d4f2a6166ad08aa05cd3a6dd59942d30981a51.zip | |
| -rw-r--r-- | TESTING/EIG/cckcsd.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/ccsdts.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/sckcsd.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/scsdts.f | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/TESTING/EIG/cckcsd.f b/TESTING/EIG/cckcsd.f index 76d983e2..e081652e 100644 --- a/TESTING/EIG/cckcsd.f +++ b/TESTING/EIG/cckcsd.f @@ -121,7 +121,7 @@ * .. * .. Local Arrays .. LOGICAL DOTYPE( NTYPES ) - DOUBLE PRECISION RESULT( NTESTS ) + REAL RESULT( NTESTS ) * .. * .. External Subroutines .. EXTERNAL ALAHDG, ALAREQ, ALASUM, CCSDTS, CLACSG, CLAROR, diff --git a/TESTING/EIG/ccsdts.f b/TESTING/EIG/ccsdts.f index bbdc43d6..ffbd1976 100644 --- a/TESTING/EIG/ccsdts.f +++ b/TESTING/EIG/ccsdts.f @@ -93,7 +93,7 @@ * The leading dimension of the array V2T. LDV2T >= * max(1,M-Q). * -* THETA (output) DOUBLE PRECISION array, dimension MIN(P,M-P,Q,M-Q) +* THETA (output) REAL array, dimension MIN(P,M-P,Q,M-Q) * The CS values of X; the essentially diagonal matrices C and * S are constructed from THETA; see subroutine CUNCSD for * details. diff --git a/TESTING/EIG/sckcsd.f b/TESTING/EIG/sckcsd.f index 1b95eb8f..9c768be1 100644 --- a/TESTING/EIG/sckcsd.f +++ b/TESTING/EIG/sckcsd.f @@ -121,7 +121,7 @@ * .. * .. Local Arrays .. LOGICAL DOTYPE( NTYPES ) - DOUBLE PRECISION RESULT( NTESTS ) + REAL RESULT( NTESTS ) * .. * .. External Subroutines .. EXTERNAL ALAHDG, ALAREQ, ALASUM, SCSDTS, SLACSG, SLAROR, diff --git a/TESTING/EIG/scsdts.f b/TESTING/EIG/scsdts.f index c874f5a2..fa7bf9f3 100644 --- a/TESTING/EIG/scsdts.f +++ b/TESTING/EIG/scsdts.f @@ -93,7 +93,7 @@ * The leading dimension of the array V2T. LDV2T >= * max(1,M-Q). * -* THETA (output) DOUBLE PRECISION array, dimension MIN(P,M-P,Q,M-Q) +* THETA (output) REAL array, dimension MIN(P,M-P,Q,M-Q) * The CS values of X; the essentially diagonal matrices C and * S are constructed from THETA; see subroutine SORCSD for * details. |