---- lapack-3.2.2/BLAS/SRC/dgbmv.f.orig 2009-01-02 22:57:02.000000000 +0100
-+++ lapack-3.2.2/BLAS/SRC/dgbmv.f 2010-10-19 09:18:34.583741043 +0200
-@@ -239,18 +239,18 @@
- JX = KX
- IF (INCY.EQ.1) THEN
- DO 60 J = 1,N
-- IF (X(JX).NE.ZERO) THEN
-+c IF (X(JX).NE.ZERO) THEN
- TEMP = ALPHA*X(JX)
- K = KUP1 - J
- DO 50 I = MAX(1,J-KU),MIN(M,J+KL)
- Y(I) = Y(I) + TEMP*A(K+I,J)
- 50 CONTINUE
-- END IF
-+c END IF
- JX = JX + INCX
- 60 CONTINUE
- ELSE
- DO 80 J = 1,N
-- IF (X(JX).NE.ZERO) THEN
-+c IF (X(JX).NE.ZERO) THEN
- TEMP = ALPHA*X(JX)
- IY = KY
- K = KUP1 - J
-@@ -258,7 +258,7 @@
- Y(IY) = Y(IY) + TEMP*A(K+I,J)
- IY = IY + INCY
- 70 CONTINUE
-- END IF
-+c END IF
- JX = JX + INCX
- IF (J.GT.KU) KY = KY + INCY
- 80 CONTINUE
---- lapack-3.2.2/BLAS/SRC/dgemm.f.orig 2009-01-02 22:57:02.000000000 +0100
-+++ lapack-3.2.2/BLAS/SRC/dgemm.f 2010-10-19 09:21:00.999739367 +0200
-@@ -239,12 +239,12 @@
- 60 CONTINUE
- END IF
- DO 80 L = 1,K
-- IF (B(L,J).NE.ZERO) THEN
-+c IF (B(L,J).NE.ZERO) THEN
- TEMP = ALPHA*B(L,J)
- DO 70 I = 1,M
- C(I,J) = C(I,J) + TEMP*A(I,L)
- 70 CONTINUE
-- END IF
-+c END IF
- 80 CONTINUE
- 90 CONTINUE
- ELSE
-@@ -281,12 +281,12 @@
- 140 CONTINUE
- END IF
- DO 160 L = 1,K
-- IF (B(J,L).NE.ZERO) THEN
-+c IF (B(J,L).NE.ZERO) THEN
- TEMP = ALPHA*B(J,L)
- DO 150 I = 1,M
- C(I,J) = C(I,J) + TEMP*A(I,L)
- 150 CONTINUE
-- END IF
-+c END IF
- 160 CONTINUE
- 170 CONTINUE
- ELSE
---- lapack-3.2.2/BLAS/SRC/dgemv.f.orig 2009-01-02 22:57:02.000000000 +0100
-+++ lapack-3.2.2/BLAS/SRC/dgemv.f 2010-10-19 09:21:52.767734339 +0200
-@@ -208,24 +208,24 @@
- JX = KX
- IF (INCY.EQ.1) THEN
- DO 60 J = 1,N
-- IF (X(JX).NE.ZERO) THEN
-+c IF (X(JX).NE.ZERO) THEN
- TEMP = ALPHA*X(JX)
- DO 50 I = 1,M
- Y(I) = Y(I) + TEMP*A(I,J)
- 50 CONTINUE
-- END IF
-+c END IF
- JX = JX + INCX
- 60 CONTINUE
- ELSE
- DO 80 J = 1,N
-- IF (X(JX).NE.ZERO) THEN
-+c IF (X(JX).NE.ZERO) THEN
- TEMP = ALPHA*X(JX)
- IY = KY
- DO 70 I = 1,M
- Y(IY) = Y(IY) + TEMP*A(I,J)
- IY = IY + INCY
- 70 CONTINUE
-- END IF
-+c END IF
- JX = JX + INCX
- 80 CONTINUE
- END IF
---- lapack-3.2.2/BLAS/SRC/zgemv.f.orig 2009-01-02 22:57:02.000000000 +0100
-+++ lapack-3.2.2/BLAS/SRC/zgemv.f 2010-10-19 09:26:18.235739367 +0200
-@@ -215,24 +215,24 @@
- JX = KX
- IF (INCY.EQ.1) THEN
- DO 60 J = 1,N
-- IF (X(JX).NE.ZERO) THEN
-+c IF (X(JX).NE.ZERO) THEN
- TEMP = ALPHA*X(JX)
- DO 50 I = 1,M
- Y(I) = Y(I) + TEMP*A(I,J)
- 50 CONTINUE
-- END IF
-+c END IF
- JX = JX + INCX
- 60 CONTINUE
- ELSE
- DO 80 J = 1,N
-- IF (X(JX).NE.ZERO) THEN
-+c IF (X(JX).NE.ZERO) THEN
- TEMP = ALPHA*X(JX)
- IY = KY
- DO 70 I = 1,M
- Y(IY) = Y(IY) + TEMP*A(I,J)
- IY = IY + INCY
- 70 CONTINUE
-- END IF
-+c END IF
- JX = JX + INCX
- 80 CONTINUE
- END IF