chore: update fortan wrapper

Author: ShabiShett07

lib/node_modules/@stdlib/blas/base/zdscal/src/zdscal_f.c

@@ -31,6 +31,10 @@
 * @param strideX  X stride length
 */
 void API_SUFFIX(c_zdscal)( const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT strideX ) {
+	CBLAS_INT sx = strideX;
+	if ( sx < 0 ) {
+		sx = -sx;
+	}
 	zdscal( &N, &alpha, X, &strideX );
 }
 
@@ -45,6 +49,11 @@ void API_SUFFIX(c_zdscal)( const CBLAS_INT N, const double alpha, void *X, const
 */
 void API_SUFFIX(c_zdscal_ndarray)( const CBLAS_INT N, const double alpha, void *X, const CBLAS_INT strideX, const CBLAS_INT offsetX ) {
 	stdlib_complex128_t *x = (stdlib_complex128_t *)X;
+	CBLAS_INT sx = strideX;
+
 	x += stdlib_strided_min_view_buffer_index( N, strideX, offsetX );
+	if ( sx < 0 ) {
+		sx = -sx;
+	}
 	zdscal( &N, &alpha, (void *)x, &strideX );
 }