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 /BLAS/SRC/zscal.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 'BLAS/SRC/zscal.f')
| -rw-r--r-- | BLAS/SRC/zscal.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/BLAS/SRC/zscal.f b/BLAS/SRC/zscal.f index a84c618a..d5acf683 100644 --- a/BLAS/SRC/zscal.f +++ b/BLAS/SRC/zscal.f @@ -1,10 +1,10 @@ SUBROUTINE ZSCAL(N,ZA,ZX,INCX) * .. Scalar Arguments .. - DOUBLE COMPLEX ZA + COMPLEX*16 ZA INTEGER INCX,N * .. * .. Array Arguments .. - DOUBLE COMPLEX ZX(*) + COMPLEX*16 ZX(*) * .. * * Purpose |