freebsd/ports
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

opps forgot to add some patches.

Browse Source
This commit is contained in:
Maho Nakata
2012-01-22 12:03:07 +00:00
parent 795bd78d81
commit 7e24845fb7
2 changed files with 128 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
math/lapack/files/patch-r1097 Normal file
View File

@@ -0,0 +1,52 @@
Index: TESTING/LIN/cdrvsyx.f
===================================================================
--- TESTING/LIN/cdrvsyx.f (revision 1096)
+++ TESTING/LIN/cdrvsyx.f (revision 1097)
@@ -620,7 +620,7 @@
$ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
$ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
$ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
- $ IWORK( N+1 ), INFO )
+ $ RWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.
Index: TESTING/LIN/zdrvhex.f
===================================================================
--- TESTING/LIN/zdrvhex.f (revision 1096)
+++ TESTING/LIN/zdrvhex.f (revision 1097)
@@ -614,7 +614,7 @@
$ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
$ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
$ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
- $ IWORK( N+1 ), INFO )
+ $ RWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.
Index: TESTING/LIN/cdrvhex.f
===================================================================
--- TESTING/LIN/cdrvhex.f (revision 1096)
+++ TESTING/LIN/cdrvhex.f (revision 1097)
@@ -614,7 +614,7 @@
$ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
$ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
$ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
- $ IWORK( N+1 ), INFO )
+ $ RWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.
Index: TESTING/LIN/zdrvsyx.f
===================================================================
--- TESTING/LIN/zdrvsyx.f (revision 1096)
+++ TESTING/LIN/zdrvsyx.f (revision 1097)
@@ -620,7 +620,7 @@
$ LDA, IWORK, EQUED, WORK( N+1 ), B, LDA, X,
$ LDA, RCOND, RPVGRW_SVXX, BERR, N_ERR_BNDS,
$ ERRBNDS_N, ERRBNDS_C, 0, ZERO, WORK,
- $ IWORK( N+1 ), INFO )
+ $ RWORK, INFO )
*
* Adjust the expected value of INFO to account for
* pivoting.

76
math/lapack/files/patch-r1099 Normal file
View File

@@ -0,0 +1,76 @@
Index: SRC/ilazlr.f
===================================================================
--- SRC/ilazlr.f (revision 1098)
+++ SRC/ilazlr.f (revision 1099)
@@ -111,12 +111,9 @@
ILAZLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
- ENDDO
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
+ ENDDO
ILAZLR = MAX( ILAZLR, I )
END DO
END IF
Index: SRC/ilaclr.f
===================================================================
--- SRC/ilaclr.f (revision 1098)
+++ SRC/ilaclr.f (revision 1099)
@@ -111,12 +111,9 @@
ILACLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
- ENDDO
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
+ ENDDO
ILACLR = MAX( ILACLR, I )
END DO
END IF
Index: SRC/ilaslr.f
===================================================================
--- SRC/ilaslr.f (revision 1098)
+++ SRC/ilaslr.f (revision 1099)
@@ -111,11 +111,8 @@
ILASLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
ENDDO
ILASLR = MAX( ILASLR, I )
END DO
Index: SRC/iladlr.f
===================================================================
--- SRC/iladlr.f (revision 1098)
+++ SRC/iladlr.f (revision 1099)
@@ -111,11 +111,8 @@
ILADLR = 0
DO J = 1, N
I=M
- DO WHILE ((A(I,J).NE.ZERO).AND.(I.GE.1))
- I=I-1
- IF (I.EQ.0) THEN
- EXIT
- END IF
+ DO WHILE((A(MAX(I,1),J).EQ.ZERO).AND.(I.GE.1))
+ I=I-1
ENDDO
ILADLR = MAX( ILADLR, I )
END DO