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/zsymm.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/zsymm.f')
-rw-r--r-- | BLAS/SRC/zsymm.f | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/BLAS/SRC/zsymm.f b/BLAS/SRC/zsymm.f index f5d07e1c..e0192e9f 100644 --- a/BLAS/SRC/zsymm.f +++ b/BLAS/SRC/zsymm.f @@ -1,11 +1,11 @@ SUBROUTINE ZSYMM(SIDE,UPLO,M,N,ALPHA,A,LDA,B,LDB,BETA,C,LDC) * .. Scalar Arguments .. - DOUBLE COMPLEX ALPHA,BETA + COMPLEX*16 ALPHA,BETA INTEGER LDA,LDB,LDC,M,N CHARACTER SIDE,UPLO * .. * .. Array Arguments .. - DOUBLE COMPLEX A(LDA,*),B(LDB,*),C(LDC,*) + COMPLEX*16 A(LDA,*),B(LDB,*),C(LDC,*) * .. * * Purpose @@ -146,14 +146,14 @@ INTRINSIC MAX * .. * .. Local Scalars .. - DOUBLE COMPLEX TEMP1,TEMP2 + COMPLEX*16 TEMP1,TEMP2 INTEGER I,INFO,J,K,NROWA LOGICAL UPPER * .. * .. Parameters .. - DOUBLE COMPLEX ONE + COMPLEX*16 ONE PARAMETER (ONE= (1.0D+0,0.0D+0)) - DOUBLE COMPLEX ZERO + COMPLEX*16 ZERO PARAMETER (ZERO= (0.0D+0,0.0D+0)) * .. * |