Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix Issue 82.

  • Loading branch information...
commit 7a4ca894125ce2e97de77243b4ef73cd8727d9ff 1 parent e34cf79
@dsimcha dsimcha authored
Showing with 3 additions and 3 deletions.
  1. +1 −1  scid/demos/dmatinv.d
  2. +2 −2 scid/lapack.d
View
2  scid/demos/dmatinv.d
@@ -11,7 +11,7 @@ void dMatInvTest() {
// Thank you Octave...
enforceMatData( eval(inv(x)*y), 3, 3, [ -2.4, -2.2, 2.6, 2.6, 1.8, -1.4, 4.2, 3.6, -3.8 ] );
// enforceMatData( eval(y*inv(x)), 3, 3, [ -0.8, 2.6, 0.2, 3.0, -3.0, 1.0, -0.6, -0.8, -0.6 ] ); // Issue 82
-// enforceMatData( eval(inv(x.t)*y), 3, 3, [ 0.0, -1.0, 1.0, -0.2, 3.0, -0.4, -0.2, 3.0, -1.4 ] ); // Issue 83
+ enforceMatData( eval(inv(x.t)*y), 3, 3, [ 0.0, -1.0, 1.0, -0.2, 3.0, -0.4, -0.2, 3.0, -1.4 ] ); // Issue 83
enforceMatData( eval(y*inv(x.t)), 3, 3, [ 1.6, 4.6, 2.2, 1.8, 1.8, 1.6, -1.4, -3.4, -1.8 ] );
enforceMatData( eval(inv(y)*x), 3, 3, [ -9.0, 5.0, -8.0, 20.0, -9.0, 17.0, 9.0, -3.0, 7.0 ] );
// enforceMatData( eval(x*inv(y)), 3, 3, [ 13.0, 7.0, 16.0, 6.0, 3.0, 7.0, -21.0, -11.0, -27.0 ] ); // Issue 82
View
4 scid/lapack.d
@@ -137,7 +137,7 @@ private struct naive_ {
writeln( "<n> ..." );
}
- static void laswp( T )( size_t n, T *a, size_t lda, size_t k1, size_t k2, int *ipiv, size_t incx ) {
+ static void laswp( T )( size_t n, T *a, size_t lda, size_t k1, size_t k2, int *ipiv, sizediff_t incx ) {
reportNaiveln_();
// convert FORTRAN indices
@@ -158,7 +158,7 @@ private struct naive_ {
blas.swap( n, a + i, lda, a + pivot, lda );
}
} else {
- for( auto i = k2; i >= k1 ; -- i ) {
+ for( sizediff_t i = k2; i >= cast(sizediff_t) k1 ; -- i ) {
int pivot = ipiv[ i ] - 1; // convert FORTRAN index
if( pivot != i )
blas.swap( n, a + i, lda, a + pivot, lda );
Please sign in to comment.
Something went wrong with that request. Please try again.