fix: account for layout when passing stride arguments and update tests

lib/node_modules/@stdlib/lapack/base/dlaswp/lib/dlaswp.js

@@ -56,6 +56,8 @@ var base = require( './base.js' );
 function dlaswp( order, N, A, LDA, k1, k2, IPIV, incx ) {
 	var tmp;
 	var inc;
+	var sa1;
+	var sa2;
 	var io;
 	if ( !isLayout( order ) ) {
 		throw new TypeError( format( 'invalid argument. First argument must be a valid order. Value: `%s`.', order ) );
@@ -75,7 +77,14 @@ function dlaswp( order, N, A, LDA, k1, k2, IPIV, incx ) {
 	} else {
 		return A;
 	}
-	return base( order, N, A, LDA, 1, 0, k1, k2, inc, IPIV, 1, io );
+	if ( order === 'column-major' ) {
+		sa1 = 1;
+		sa2 = LDA;
+	} else { // order === 'row-major'
+		sa1 = LDA;
+		sa2 = 1;
+	}
+	return base( order, N, A, sa1, sa2, 0, k1, k2, inc, IPIV, incx, io );
 }
 
 

lib/node_modules/@stdlib/lapack/base/dlaswp/test/fixtures/column_major_lda.json

@@ -0,0 +1,86 @@
+{
+  "order": "column-major",
+
+  "A_mat": [
+    [ 1.0, 4.0 ],
+    [ 2.0, 5.0 ],
+    [ 3.0, 6.0 ]
+  ],
+  "N": 2,
+  "LDA": 12,
+  "strideA1": 1,
+  "strideA2": 12,
+  "offsetA": 0,
+  "A": [
+    1.0,
+    2.0,
+    3.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    4.0,
+    5.0,
+    6.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0
+],
+
+  "k1": 0,
+  "k2": 2,
+  "incK": 1,
+
+  "IPIV": [ 2, 0, 1 ],
+  "strideIPIV": 1,
+  "offsetIPIV": 0,
+
+  "interchanges": [
+    [ 0, 2 ],
+    [ 1, 0 ],
+    [ 2, 1 ]
+  ],
+
+  "A_out_mat": [
+    [ 2.0, 5.0 ],
+    [ 1.0, 4.0 ],
+    [ 3.0, 6.0 ]
+  ],
+  "A_out": [
+    2.0,
+    1.0,
+    3.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    5.0,
+    4.0,
+    6.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0,
+    9999.0
+  ]
+}

lib/node_modules/@stdlib/lapack/base/dlaswp/test/fixtures/row_major_lda.json

@@ -0,0 +1,62 @@
+{
+  "order": "row-major",
+
+  "A_mat": [
+    [ 1.0, 2.0 ],
+    [ 3.0, 4.0 ],
+    [ 5.0, 6.0 ]
+  ],
+  "N": 2,
+  "LDA": 4,
+  "strideA1": 4,
+  "strideA2": 1,
+  "offsetA": 0,
+  "A": [
+    1.0,
+    2.0,
+    9999.0,
+    9999.0,
+    3.0,
+    4.0,
+    9999.0,
+    9999.0,
+    5.0,
+    6.0,
+    9999.0,
+    9999.0
+],
+
+  "k1": 0,
+  "k2": 2,
+  "incK": 1,
+
+  "IPIV": [ 2, 0, 1 ],
+  "strideIPIV": 1,
+  "offsetIPIV": 0,
+
+  "interchanges": [
+    [ 0, 2 ],
+    [ 1, 0 ],
+    [ 2, 1 ]
+  ],
+
+  "A_out_mat": [
+    [ 3.0, 4.0 ],
+    [ 1.0, 2.0 ],
+    [ 5.0, 6.0 ]
+  ],
+  "A_out": [
+    3.0,
+    4.0,
+    9999.0,
+    9999.0,
+    1.0,
+    2.0,
+    9999.0,
+    9999.0,
+    5.0,
+    6.0,
+    9999.0,
+    9999.0
+  ]
+}