@@ -31,7 +31,7 @@ var reverse = require( '@stdlib/array/base/reverse' );
3131var ndarray2array = require ( '@stdlib/ndarray/base/to-array' ) ;
3232var numel = require ( '@stdlib/ndarray/base/numel' ) ;
3333var shape2strides = require ( '@stdlib/ndarray/base/shape2strides' ) ;
34- var dlaswp = require ( './../lib/ndarray.js' ) ;
34+ var zlaswp = require ( './../lib/ndarray.js' ) ;
3535
3636
3737// FIXTURES //
@@ -63,12 +63,12 @@ var ROW_MAJOR_K1 = require( './fixtures/row_major_k1.json' );
6363
6464tape ( 'main export is a function' , function test ( t ) {
6565 t . ok ( true , __filename ) ;
66- t . strictEqual ( typeof dlaswp , 'function' , 'main export is a function' ) ;
66+ t . strictEqual ( typeof zlaswp , 'function' , 'main export is a function' ) ;
6767 t . end ( ) ;
6868} ) ;
6969
7070tape ( 'the function has an arity of 11' , function test ( t ) {
71- t . strictEqual ( dlaswp . length , 11 , 'returns expected value' ) ;
71+ t . strictEqual ( zlaswp . length , 11 , 'returns expected value' ) ;
7272 t . end ( ) ;
7373} ) ;
7474
@@ -86,7 +86,7 @@ tape( 'the function performs a series of row interchanges (column-major)', funct
8686
8787 expected = new Complex128Array ( data . A_out ) ;
8888
89- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
89+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
9090 t . strictEqual ( out , A , 'returns expected value' ) ;
9191 t . deepEqual ( out , expected , 'returns expected value' ) ;
9292
@@ -107,7 +107,7 @@ tape( 'the function performs a series of row interchanges (column-major, k1 > 0)
107107
108108 expected = new Complex128Array ( data . A_out ) ;
109109
110- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
110+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
111111 t . strictEqual ( out , A , 'returns expected value' ) ;
112112 t . deepEqual ( out , expected , 'returns expected value' ) ;
113113
@@ -128,7 +128,7 @@ tape( 'the function supports applying pivots in reverse order (column-major)', f
128128
129129 expected = new Complex128Array ( data . A_out ) ;
130130
131- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
131+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
132132 t . strictEqual ( out , A , 'returns expected value' ) ;
133133 t . deepEqual ( out , expected , 'returns expected value' ) ;
134134
@@ -149,7 +149,7 @@ tape( 'the function supports an `IPIV` stride (column-major)', function test( t
149149
150150 expected = new Complex128Array ( data . A_out ) ;
151151
152- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
152+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
153153 t . strictEqual ( out , A , 'returns expected value' ) ;
154154 t . deepEqual ( out , expected , 'returns expected value' ) ;
155155
@@ -170,7 +170,7 @@ tape( 'the function supports an `IPIV` stride (reverse pivots, column-major)', f
170170
171171 expected = new Complex128Array ( data . A_out ) ;
172172
173- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
173+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
174174 t . strictEqual ( out , A , 'returns expected value' ) ;
175175 t . deepEqual ( out , expected , 'returns expected value' ) ;
176176
@@ -191,7 +191,7 @@ tape( 'the function supports an `IPIV` offset (column-major)', function test( t
191191
192192 expected = new Complex128Array ( data . A_out ) ;
193193
194- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
194+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
195195 t . strictEqual ( out , A , 'returns expected value' ) ;
196196 t . deepEqual ( out , expected , 'returns expected value' ) ;
197197
@@ -212,7 +212,7 @@ tape( 'the function supports an `IPIV` offset (reverse pivots, column-major)', f
212212
213213 expected = new Complex128Array ( data . A_out ) ;
214214
215- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
215+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
216216 t . strictEqual ( out , A , 'returns expected value' ) ;
217217 t . deepEqual ( out , expected , 'returns expected value' ) ;
218218
@@ -233,7 +233,7 @@ tape( 'the function supports `A` strides (column-major)', function test( t ) {
233233
234234 expected = new Complex128Array ( data . A_out ) ;
235235
236- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
236+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
237237 t . strictEqual ( out , A , 'returns expected value' ) ;
238238 t . deepEqual ( out , expected , 'returns expected value' ) ;
239239
@@ -254,7 +254,7 @@ tape( 'the function supports an `A` offset (column-major)', function test( t ) {
254254
255255 expected = new Complex128Array ( data . A_out ) ;
256256
257- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
257+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
258258 t . strictEqual ( out , A , 'returns expected value' ) ;
259259 t . deepEqual ( out , expected , 'returns expected value' ) ;
260260
@@ -275,7 +275,7 @@ tape( 'the function supports complex access patterns (column-major)', function t
275275
276276 expected = new Complex128Array ( data . A_out ) ;
277277
278- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
278+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
279279 t . strictEqual ( out , A , 'returns expected value' ) ;
280280 t . deepEqual ( out , expected , 'returns expected value' ) ;
281281
@@ -316,7 +316,7 @@ tape( 'the function efficiently handles large datasets (column-major)', function
316316 expected = new Complex128Array ( flatten ( expected , sh , true ) ) ;
317317
318318 // Interchange rows:
319- out = dlaswp ( sh [ 1 ] , A , st [ 0 ] , st [ 1 ] , o , 3 , 4 , 1 , IPIV , 1 , 0 ) ;
319+ out = zlaswp ( sh [ 1 ] , A , st [ 0 ] , st [ 1 ] , o , 3 , 4 , 1 , IPIV , 1 , 0 ) ;
320320
321321 t . strictEqual ( out , A , 'returns expected value' ) ;
322322 t . deepEqual ( out , expected , 'returns expected value' ) ;
@@ -338,7 +338,7 @@ tape( 'the function performs a series of row interchanges (row-major)', function
338338
339339 expected = new Complex128Array ( data . A_out ) ;
340340
341- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
341+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
342342 t . strictEqual ( out , A , 'returns expected value' ) ;
343343 t . deepEqual ( out , expected , 'returns expected value' ) ;
344344
@@ -359,7 +359,7 @@ tape( 'the function performs a series of row interchanges (row-major, k1 > 0)',
359359
360360 expected = new Complex128Array ( data . A_out ) ;
361361
362- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
362+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
363363 t . strictEqual ( out , A , 'returns expected value' ) ;
364364 t . deepEqual ( out , expected , 'returns expected value' ) ;
365365
@@ -380,7 +380,7 @@ tape( 'the function supports applying pivots in reverse order (row-major)', func
380380
381381 expected = new Complex128Array ( data . A_out ) ;
382382
383- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
383+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
384384 t . strictEqual ( out , A , 'returns expected value' ) ;
385385 t . deepEqual ( out , expected , 'returns expected value' ) ;
386386
@@ -401,7 +401,7 @@ tape( 'the function supports an `IPIV` stride (row-major)', function test( t ) {
401401
402402 expected = new Complex128Array ( data . A_out ) ;
403403
404- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
404+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
405405 t . strictEqual ( out , A , 'returns expected value' ) ;
406406 t . deepEqual ( out , expected , 'returns expected value' ) ;
407407
@@ -422,7 +422,7 @@ tape( 'the function supports an `IPIV` stride (reverse pivots, row-major)', func
422422
423423 expected = new Complex128Array ( data . A_out ) ;
424424
425- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
425+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
426426 t . strictEqual ( out , A , 'returns expected value' ) ;
427427 t . deepEqual ( out , expected , 'returns expected value' ) ;
428428
@@ -443,7 +443,7 @@ tape( 'the function supports an `IPIV` offset (row-major)', function test( t ) {
443443
444444 expected = new Complex128Array ( data . A_out ) ;
445445
446- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
446+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
447447 t . strictEqual ( out , A , 'returns expected value' ) ;
448448 t . deepEqual ( out , expected , 'returns expected value' ) ;
449449
@@ -464,7 +464,7 @@ tape( 'the function supports an `IPIV` offset (reverse pivots, row-major)', func
464464
465465 expected = new Complex128Array ( data . A_out ) ;
466466
467- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
467+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
468468 t . strictEqual ( out , A , 'returns expected value' ) ;
469469 t . deepEqual ( out , expected , 'returns expected value' ) ;
470470
@@ -485,7 +485,7 @@ tape( 'the function supports `A` strides (row-major)', function test( t ) {
485485
486486 expected = new Complex128Array ( data . A_out ) ;
487487
488- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
488+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
489489 t . strictEqual ( out , A , 'returns expected value' ) ;
490490 t . deepEqual ( out , expected , 'returns expected value' ) ;
491491
@@ -506,7 +506,7 @@ tape( 'the function supports an `A` offset (row-major)', function test( t ) {
506506
507507 expected = new Complex128Array ( data . A_out ) ;
508508
509- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
509+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
510510 t . strictEqual ( out , A , 'returns expected value' ) ;
511511 t . deepEqual ( out , expected , 'returns expected value' ) ;
512512
@@ -527,7 +527,7 @@ tape( 'the function supports complex access patterns (row-major)', function test
527527
528528 expected = new Complex128Array ( data . A_out ) ;
529529
530- out = dlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
530+ out = zlaswp ( data . N , A , data . strideA1 , data . strideA2 , data . offsetA , data . k1 , data . k2 , data . incK , IPIV , data . strideIPIV , data . offsetIPIV ) ;
531531 t . strictEqual ( out , A , 'returns expected value' ) ;
532532 t . deepEqual ( out , expected , 'returns expected value' ) ;
533533
@@ -568,7 +568,7 @@ tape( 'the function efficiently handles large datasets (row-major)', function te
568568 expected = new Complex128Array ( flatten ( expected , sh , false ) ) ;
569569
570570 // Interchange rows:
571- out = dlaswp ( sh [ 1 ] , A , st [ 0 ] , st [ 1 ] , o , 3 , 4 , 1 , IPIV , 1 , 0 ) ;
571+ out = zlaswp ( sh [ 1 ] , A , st [ 0 ] , st [ 1 ] , o , 3 , 4 , 1 , IPIV , 1 , 0 ) ;
572572
573573 t . strictEqual ( out , A , 'returns expected value' ) ;
574574 t . deepEqual ( out , expected , 'returns expected value' ) ;
0 commit comments