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 /SRC/zsyswapr.f | |
parent | e6e99382cbc69083c53fae5af84986f44e950fb8 (diff) | |
download | lapack-46b5d7df011c648f2ea8af3413122cca6a616468.tar.gz lapack-46b5d7df011c648f2ea8af3413122cca6a616468.tar.bz2 lapack-46b5d7df011c648f2ea8af3413122cca6a616468.zip |
Replace DOUBLE COMPLEX by COMPLEX*16
Replace SNGL by REAL
Diffstat (limited to 'SRC/zsyswapr.f')
-rw-r--r-- | SRC/zsyswapr.f | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SRC/zsyswapr.f b/SRC/zsyswapr.f index 62cace36..40239000 100644 --- a/SRC/zsyswapr.f +++ b/SRC/zsyswapr.f @@ -10,7 +10,7 @@ INTEGER I1, I2, LDA, N * .. * .. Array Arguments .. - DOUBLE COMPLEX A( LDA, N ) + COMPLEX*16 A( LDA, N ) * * Purpose * ======= @@ -30,7 +30,7 @@ * N (input) INTEGER * The order of the matrix A. N >= 0. * -* A (input/output) DOUBLE COMPLEX array, dimension (LDA,N) +* A (input/output) COMPLEX*16 array, dimension (LDA,N) * On entry, the NB diagonal matrix D and the multipliers * used to obtain the factor U or L as computed by ZSYTRF. * @@ -56,7 +56,7 @@ * .. Local Scalars .. LOGICAL UPPER INTEGER I - DOUBLE COMPLEX TMP + COMPLEX*16 TMP * * .. External Functions .. LOGICAL LSAME |