diff options
author | Maho Nakata <maho@FreeBSD.org> | 2012-01-22 12:02:17 +0000 |
---|---|---|
committer | Maho Nakata <maho@FreeBSD.org> | 2012-01-22 12:02:17 +0000 |
commit | 795bd78d81a3073e57d469f026f47a15637e33b0 (patch) | |
tree | faf868b994287945c547b33981a61c4dfb7646ea /math/lapack/files/patch-r1128 | |
parent | - update to 1.10.0 (diff) |
Update with many small following changes.
1. adding upstream patches and bump port revision.
2. adding precompiled man by default rather than building.
3. adding regression-test target, several tests fails, though.
4. prepare for xlapack and now blas is secondary port of this port.
Submitted by: bf@
Notes
Notes:
svn path=/head/; revision=289605
Diffstat (limited to 'math/lapack/files/patch-r1128')
-rw-r--r-- | math/lapack/files/patch-r1128 | 252 |
1 files changed, 252 insertions, 0 deletions
diff --git a/math/lapack/files/patch-r1128 b/math/lapack/files/patch-r1128 new file mode 100644 index 000000000000..e4c63001e20b --- /dev/null +++ b/math/lapack/files/patch-r1128 @@ -0,0 +1,252 @@ +Index: SRC/cgesvxx.f +=================================================================== +--- SRC/cgesvxx.f (revision 1127) ++++ SRC/cgesvxx.f (revision 1128) +@@ -584,9 +584,9 @@ + $ ROWCND, SMLNUM + * .. + * .. External Functions .. +- EXTERNAL LSAME, SLAMCH, CLA_RPVGRW ++ EXTERNAL LSAME, SLAMCH, CLA_GERPVGRW + LOGICAL LSAME +- REAL SLAMCH, CLA_RPVGRW ++ REAL SLAMCH, CLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL CGEEQUB, CGETRF, CGETRS, CLACPY, CLAQGE, +@@ -735,14 +735,14 @@ + * Compute the reciprocal pivot growth factor of the + * leading rank-deficient INFO columns of A. + * +- RPVGRW = CLA_RPVGRW( N, INFO, A, LDA, AF, LDAF ) ++ RPVGRW = CLA_GERPVGRW( N, INFO, A, LDA, AF, LDAF ) + RETURN + END IF + END IF + * + * Compute the reciprocal pivot growth factor RPVGRW. + * +- RPVGRW = CLA_RPVGRW( N, N, A, LDA, AF, LDAF ) ++ RPVGRW = CLA_GERPVGRW( N, N, A, LDA, AF, LDAF ) + * + * Compute the solution matrix X. + * +Index: SRC/sgesvxx.f +=================================================================== +--- SRC/sgesvxx.f (revision 1127) ++++ SRC/sgesvxx.f (revision 1128) +@@ -584,9 +584,9 @@ + $ SMLNUM + * .. + * .. External Functions .. +- EXTERNAL LSAME, SLAMCH, SLA_RPVGRW ++ EXTERNAL LSAME, SLAMCH, SLA_GERPVGRW + LOGICAL LSAME +- REAL SLAMCH, SLA_RPVGRW ++ REAL SLAMCH, SLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL SGEEQUB, SGETRF, SGETRS, SLACPY, SLAQGE, +@@ -735,14 +735,14 @@ + * Compute the reciprocal pivot growth factor of the + * leading rank-deficient INFO columns of A. + * +- RPVGRW = SLA_RPVGRW( N, INFO, A, LDA, AF, LDAF ) ++ RPVGRW = SLA_GERPVGRW( N, INFO, A, LDA, AF, LDAF ) + RETURN + END IF + END IF + * + * Compute the reciprocal pivot growth factor RPVGRW. + * +- RPVGRW = SLA_RPVGRW( N, N, A, LDA, AF, LDAF ) ++ RPVGRW = SLA_GERPVGRW( N, N, A, LDA, AF, LDAF ) + * + * Compute the solution matrix X. + * +Index: SRC/dgesvxx.f +=================================================================== +--- SRC/dgesvxx.f (revision 1127) ++++ SRC/dgesvxx.f (revision 1128) +@@ -581,9 +581,9 @@ + $ SMLNUM + * .. + * .. External Functions .. +- EXTERNAL LSAME, DLAMCH, DLA_RPVGRW ++ EXTERNAL LSAME, DLAMCH, DLA_GERPVGRW + LOGICAL LSAME +- DOUBLE PRECISION DLAMCH, DLA_RPVGRW ++ DOUBLE PRECISION DLAMCH, DLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL DGEEQUB, DGETRF, DGETRS, DLACPY, DLAQGE, +@@ -732,14 +732,14 @@ + * Compute the reciprocal pivot growth factor of the + * leading rank-deficient INFO columns of A. + * +- RPVGRW = DLA_RPVGRW( N, INFO, A, LDA, AF, LDAF ) ++ RPVGRW = DLA_GERPVGRW( N, INFO, A, LDA, AF, LDAF ) + RETURN + END IF + END IF + * + * Compute the reciprocal pivot growth factor RPVGRW. + * +- RPVGRW = DLA_RPVGRW( N, N, A, LDA, AF, LDAF ) ++ RPVGRW = DLA_GERPVGRW( N, N, A, LDA, AF, LDAF ) + * + * Compute the solution matrix X. + * +Index: SRC/zgesvxx.f +=================================================================== +--- SRC/zgesvxx.f (revision 1127) ++++ SRC/zgesvxx.f (revision 1128) +@@ -581,9 +581,9 @@ + $ ROWCND, SMLNUM + * .. + * .. External Functions .. +- EXTERNAL LSAME, DLAMCH, ZLA_RPVGRW ++ EXTERNAL LSAME, DLAMCH, ZLA_GERPVGRW + LOGICAL LSAME +- DOUBLE PRECISION DLAMCH, ZLA_RPVGRW ++ DOUBLE PRECISION DLAMCH, ZLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL ZGEEQUB, ZGETRF, ZGETRS, ZLACPY, ZLAQGE, +@@ -732,14 +732,14 @@ + * Compute the reciprocal pivot growth factor of the + * leading rank-deficient INFO columns of A. + * +- RPVGRW = ZLA_RPVGRW( N, INFO, A, LDA, AF, LDAF ) ++ RPVGRW = ZLA_GERPVGRW( N, INFO, A, LDA, AF, LDAF ) + RETURN + END IF + END IF + * + * Compute the reciprocal pivot growth factor RPVGRW. + * +- RPVGRW = ZLA_RPVGRW( N, N, A, LDA, AF, LDAF ) ++ RPVGRW = ZLA_GERPVGRW( N, N, A, LDA, AF, LDAF ) + * + * Compute the solution matrix X. + * +Index: TESTING/LIN/zdrvgex.f +=================================================================== +--- TESTING/LIN/zdrvgex.f (revision 1127) ++++ TESTING/LIN/zdrvgex.f (revision 1128) +@@ -217,9 +217,9 @@ + * .. + * .. External Functions .. + LOGICAL LSAME +- DOUBLE PRECISION DGET06, DLAMCH, ZLANGE, ZLANTR, ZLA_RPVGRW ++ DOUBLE PRECISION DGET06, DLAMCH, ZLANGE, ZLANTR, ZLA_GERPVGRW + EXTERNAL LSAME, DGET06, DLAMCH, ZLANGE, ZLANTR, +- $ ZLA_RPVGRW ++ $ ZLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, ZGEEQU, +@@ -745,9 +745,11 @@ + * + + IF ( INFO .GT. 0 .AND. INFO .LT. N+1 ) THEN +- RPVGRW = ZLA_RPVGRW(N, INFO, A, LDA, AFAC, LDA) ++ RPVGRW = ZLA_GERPVGRW ++ $ (N, INFO, A, LDA, AFAC, LDA) + ELSE +- RPVGRW = ZLA_RPVGRW(N, N, A, LDA, AFAC, LDA) ++ RPVGRW = ZLA_GERPVGRW ++ $ (N, N, A, LDA, AFAC, LDA) + ENDIF + + RESULT( 7 ) = ABS( RPVGRW-rpvgrw_svxx ) / +Index: TESTING/LIN/cdrvgex.f +=================================================================== +--- TESTING/LIN/cdrvgex.f (revision 1127) ++++ TESTING/LIN/cdrvgex.f (revision 1128) +@@ -217,9 +217,9 @@ + * .. + * .. External Functions .. + LOGICAL LSAME +- REAL CLANGE, CLANTR, SGET06, SLAMCH, CLA_RPVGRW ++ REAL CLANGE, CLANTR, SGET06, SLAMCH, CLA_GERPVGRW + EXTERNAL LSAME, CLANGE, CLANTR, SGET06, SLAMCH, +- $ CLA_RPVGRW ++ $ CLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGEEQU, CGESV, +@@ -745,9 +745,11 @@ + * + + IF ( INFO .GT. 0 .AND. INFO .LT. N+1 ) THEN +- RPVGRW = CLA_RPVGRW(N, INFO, A, LDA, AFAC, LDA) ++ RPVGRW = CLA_GERPVGRW ++ $ (N, INFO, A, LDA, AFAC, LDA) + ELSE +- RPVGRW = CLA_RPVGRW(N, N, A, LDA, AFAC, LDA) ++ RPVGRW = CLA_GERPVGRW ++ $ (N, N, A, LDA, AFAC, LDA) + ENDIF + + RESULT( 7 ) = ABS( RPVGRW-rpvgrw_svxx ) / +Index: TESTING/LIN/sdrvgex.f +=================================================================== +--- TESTING/LIN/sdrvgex.f (revision 1127) ++++ TESTING/LIN/sdrvgex.f (revision 1128) +@@ -217,9 +217,9 @@ + * .. + * .. External Functions .. + LOGICAL LSAME +- REAL SGET06, SLAMCH, SLANGE, SLANTR, SLA_RPVGRW ++ REAL SGET06, SLAMCH, SLANGE, SLANTR, SLA_GERPVGRW + EXTERNAL LSAME, SGET06, SLAMCH, SLANGE, SLANTR, +- $ SLA_RPVGRW ++ $ SLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SGEEQU, SGESV, +@@ -743,9 +743,11 @@ + * + + IF ( INFO .GT. 0 .AND. INFO .LT. N+1 ) THEN +- RPVGRW = SLA_RPVGRW(N, INFO, A, LDA, AFAC, LDA) ++ RPVGRW = SLA_GERPVGRW ++ $ (N, INFO, A, LDA, AFAC, LDA) + ELSE +- RPVGRW = SLA_RPVGRW(N, N, A, LDA, AFAC, LDA) ++ RPVGRW = SLA_GERPVGRW ++ $ (N, N, A, LDA, AFAC, LDA) + ENDIF + + RESULT( 7 ) = ABS( RPVGRW-RPVGRW_SVXX ) / +Index: TESTING/LIN/ddrvgex.f +=================================================================== +--- TESTING/LIN/ddrvgex.f (revision 1127) ++++ TESTING/LIN/ddrvgex.f (revision 1128) +@@ -217,9 +217,9 @@ + * .. + * .. External Functions .. + LOGICAL LSAME +- DOUBLE PRECISION DGET06, DLAMCH, DLANGE, DLANTR, DLA_RPVGRW ++ DOUBLE PRECISION DGET06, DLAMCH, DLANGE, DLANTR, DLA_GERPVGRW + EXTERNAL LSAME, DGET06, DLAMCH, DLANGE, DLANTR, +- $ DLA_RPVGRW ++ $ DLA_GERPVGRW + * .. + * .. External Subroutines .. + EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGEEQU, DGESV, +@@ -743,9 +743,11 @@ + * + + IF ( INFO .GT. 0 .AND. INFO .LT. N+1 ) THEN +- RPVGRW = DLA_RPVGRW(N, INFO, A, LDA, AFAC, LDA) ++ RPVGRW = DLA_GERPVGRW ++ $ (N, INFO, A, LDA, AFAC, LDA) + ELSE +- RPVGRW = DLA_RPVGRW(N, N, A, LDA, AFAC, LDA) ++ RPVGRW = DLA_GERPVGRW ++ $ (N, N, A, LDA, AFAC, LDA) + ENDIF + + RESULT( 7 ) = ABS( RPVGRW-RPVGRW_SVXX ) / |