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/TESTING | |
parent | e6e99382cbc69083c53fae5af84986f44e950fb8 (diff) |
Replace DOUBLE COMPLEX by COMPLEX*16
Replace SNGL by REAL
Diffstat (limited to 'BLAS/TESTING')
-rw-r--r-- | BLAS/TESTING/dblat1.f | 4 | ||||
-rw-r--r-- | BLAS/TESTING/zblat2.f | 2 | ||||
-rw-r--r-- | BLAS/TESTING/zblat3.f | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/BLAS/TESTING/dblat1.f b/BLAS/TESTING/dblat1.f index d2435042..249b6abf 100644 --- a/BLAS/TESTING/dblat1.f +++ b/BLAS/TESTING/dblat1.f @@ -625,8 +625,8 @@ END DO ELSE IF (ICASE.EQ.13) THEN * .. DSDOT .. - CALL TESTDSDOT(SNGL(DSDOT(N,SNGL(SX),INCX,SNGL(SY),INCY)), - $ SNGL(DT7(KN,KI)),SNGL(SSIZE1(KN)), .3125E-1) + CALL TESTDSDOT(REAL(DSDOT(N,REAL(SX),INCX,REAL(SY),INCY)), + $ REAL(DT7(KN,KI)),REAL(SSIZE1(KN)), .3125E-1) ELSE WRITE (NOUT,*) ' Shouldn''t be here in CHECK2' STOP diff --git a/BLAS/TESTING/zblat2.f b/BLAS/TESTING/zblat2.f index 8e49cabf..e7829fdf 100644 --- a/BLAS/TESTING/zblat2.f +++ b/BLAS/TESTING/zblat2.f @@ -3100,7 +3100,7 @@ * End of LZERES. * END - DOUBLE COMPLEX FUNCTION ZBEG( RESET ) + COMPLEX*16 FUNCTION ZBEG( RESET ) * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f index fb471255..379d65b8 100644 --- a/BLAS/TESTING/zblat3.f +++ b/BLAS/TESTING/zblat3.f @@ -3305,7 +3305,7 @@ * End of LZERES. * END - DOUBLE COMPLEX FUNCTION ZBEG( RESET ) + COMPLEX*16 FUNCTION ZBEG( RESET ) * * Generates complex numbers as pairs of random numbers uniformly * distributed between -0.5 and 0.5. |