1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-10-30 21:49:25 +00:00
freebsd-ports/math/lapack/files/patch-ba
1999-10-13 23:06:53 +00:00

14 lines
351 B
Plaintext

--- BLAS/TESTING/cblat3.f.orig Sun Jun 9 03:15:54 1996
+++ BLAS/TESTING/cblat3.f Wed Oct 6 11:04:27 1999
@@ -1989,8 +1989,8 @@
*
* Initialize ALPHA, BETA, RALPHA, and RBETA.
*
- ALPHA = ( ONE, -ONE )
- BETA = ( TWO, -TWO )
+ ALPHA = CMPLX( ONE, -ONE )
+ BETA = CMPLX( TWO, -TWO )
RALPHA = ONE
RBETA = TWO
*