chore: update fortan wrapper

ShabiShett07 · ShabiShett07 · commit 4c6be0336c46 · 2025-05-28T12:12:19.000+05:30
diff --git a/lib/node_modules/@stdlib/blas/base/zdscal/src/zdscal_f.c b/lib/node_modules/@stdlib/blas/base/zdscal/src/zdscal_f.c
@@ -35,7 +35,7 @@ void API_SUFFIX(c_zdscal)( const CBLAS_INT N, const double alpha, void *X, const
 	if ( sx < 0 ) {
 		sx = -sx;
 	}
-	zdscal( &N, &alpha, X, &strideX );
+	zdscal( &N, &alpha, X, &sx );
 }
 
 /**
@@ -55,5 +55,5 @@ void API_SUFFIX(c_zdscal_ndarray)( const CBLAS_INT N, const double alpha, void *
 	if ( sx < 0 ) {
 		sx = -sx;
 	}
-	zdscal( &N, &alpha, (void *)x, &strideX );
+	zdscal( &N, &alpha, (void *)x, &sx );
 }

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,7 @@ void API_SUFFIX(c_zdscal)( const CBLAS_INT N, const double alpha, void *X, const`
`35`	`35`	`if ( sx < 0 ) {`
`36`	`36`	`sx = -sx;`
`37`	`37`	`}`
`38`		`- zdscal( &N, &alpha, X, &strideX );`
	`38`	`+ zdscal( &N, &alpha, X, &sx );`
`39`	`39`	`}`
`40`	`40`
`41`	`41`	`/**`
`@@ -55,5 +55,5 @@ void API_SUFFIX(c_zdscal_ndarray)( const CBLAS_INT N, const double alpha, void *`
`55`	`55`	`if ( sx < 0 ) {`
`56`	`56`	`sx = -sx;`
`57`	`57`	`}`
`58`		`- zdscal( &N, &alpha, (void *)x, &strideX );`
	`58`	`+ zdscal( &N, &alpha, (void *)x, &sx );`
`59`	`59`	`}`