diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-08-15 18:25:57 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-08-15 18:25:57 +0000 |
| commit | 46b5d7df011c648f2ea8af3413122cca6a616468 (patch) | |
| tree | cd830baebc31357579be50696ab793df749a9771 /TESTING/MATGEN | |
| parent | e6e99382cbc69083c53fae5af84986f44e950fb8 (diff) | |
Replace DOUBLE COMPLEX by COMPLEX*16
Replace SNGL by REAL
Diffstat (limited to 'TESTING/MATGEN')
| -rw-r--r-- | TESTING/MATGEN/zlarnd.f | 2 | ||||
| -rw-r--r-- | TESTING/MATGEN/zlatm2.f | 2 | ||||
| -rw-r--r-- | TESTING/MATGEN/zlatm3.f | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/TESTING/MATGEN/zlarnd.f b/TESTING/MATGEN/zlarnd.f index b5b413fe..09a20c4f 100644 --- a/TESTING/MATGEN/zlarnd.f +++ b/TESTING/MATGEN/zlarnd.f @@ -1,4 +1,4 @@ - DOUBLE COMPLEX FUNCTION ZLARND( IDIST, ISEED ) + COMPLEX*16 FUNCTION ZLARND( IDIST, ISEED ) * * -- LAPACK auxiliary routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f index 26afabb1..c5c2d950 100644 --- a/TESTING/MATGEN/zlatm2.f +++ b/TESTING/MATGEN/zlatm2.f @@ -1,4 +1,4 @@ - DOUBLE COMPLEX FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, + COMPLEX*16 FUNCTION ZLATM2( M, N, I, J, KL, KU, IDIST, $ ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, SPARSE ) * * -- LAPACK auxiliary test routine (version 3.1) -- diff --git a/TESTING/MATGEN/zlatm3.f b/TESTING/MATGEN/zlatm3.f index cf8f1fdd..e07ae49e 100644 --- a/TESTING/MATGEN/zlatm3.f +++ b/TESTING/MATGEN/zlatm3.f @@ -1,4 +1,4 @@ - DOUBLE COMPLEX FUNCTION ZLATM3( M, N, I, J, ISUB, JSUB, KL, KU, + COMPLEX*16 FUNCTION ZLATM3( M, N, I, J, ISUB, JSUB, KL, KU, $ IDIST, ISEED, D, IGRADE, DL, DR, IPVTNG, IWORK, $ SPARSE ) * |