diff options
| author | Eric Wieser <wieser.eric@gmail.com> | 2017-02-21 15:08:46 +0000 |
|---|---|---|
| committer | Eric Wieser <wieser.eric@gmail.com> | 2017-03-25 22:00:15 +0000 |
| commit | fd6962f528d203026555f57bd6be730ef7e36959 (patch) | |
| tree | 56d19e6b5421cd5efbe7e572c05f4726bbb63eb4 /numpy/linalg/lapack_lite/f2c_lapack.f.patch | |
| parent | ab49be1d5a6f1a7c51298a8fe46a9f43bb2bb33b (diff) | |
| download | numpy-fd6962f528d203026555f57bd6be730ef7e36959.tar.gz | |
ENH: Add patch files to allow LAPACK 3.2.2 to be f2c'd
This doesn't yet actually generate the files, since they would cause the diff to balloon
Diffstat (limited to 'numpy/linalg/lapack_lite/f2c_lapack.f.patch')
| -rw-r--r-- | numpy/linalg/lapack_lite/f2c_lapack.f.patch | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/numpy/linalg/lapack_lite/f2c_lapack.f.patch b/numpy/linalg/lapack_lite/f2c_lapack.f.patch new file mode 100644 index 000000000..c743c1f62 --- /dev/null +++ b/numpy/linalg/lapack_lite/f2c_lapack.f.patch @@ -0,0 +1,48 @@ +@@ -267,9 +267,10 @@ + Scan up each column tracking the last zero row seen. + ILACLR = 0 + DO J = 1, N + DO I = M, 1, -1 +- IF( A(I, J).NE.ZERO ) EXIT ++ IF( A(I, J).NE.ZERO ) GO TO 10 + END DO ++ 10 CONTINUE + ILACLR = MAX( ILACLR, I ) + END DO + END IF +@@ -395,9 +396,10 @@ + Scan up each column tracking the last zero row seen. + ILADLR = 0 + DO J = 1, N + DO I = M, 1, -1 +- IF( A(I, J).NE.ZERO ) EXIT ++ IF( A(I, J).NE.ZERO ) GO TO 10 + END DO ++ 10 CONTINUE + ILADLR = MAX( ILADLR, I ) + END DO + END IF +@@ -1078,9 +1080,10 @@ + Scan up each column tracking the last zero row seen. + ILASLR = 0 + DO J = 1, N + DO I = M, 1, -1 +- IF( A(I, J).NE.ZERO ) EXIT ++ IF( A(I, J).NE.ZERO ) GO TO 10 + END DO ++ 10 CONTINUE + ILASLR = MAX( ILASLR, I ) + END DO + END IF +@@ -1206,9 +1209,10 @@ + Scan up each column tracking the last zero row seen. + ILAZLR = 0 + DO J = 1, N + DO I = M, 1, -1 +- IF( A(I, J).NE.ZERO ) EXIT ++ IF( A(I, J).NE.ZERO ) GO TO 10 + END DO ++ 10 CONTINUE + ILAZLR = MAX( ILAZLR, I ) + END DO + END IF |