diff options
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)) * .. * |