refactor: update a index recalculation to stride addition

---
type: pre_commit_static_analysis_report
description: Results of running static analysis checks when committing changes.
report:
  - task: lint_filenames
    status: passed
  - task: lint_editorconfig
    status: passed
  - task: lint_markdown
    status: na
  - task: lint_package_json
    status: na
  - task: lint_repl_help
    status: na
  - task: lint_javascript_src
    status: passed
  - task: lint_javascript_cli
    status: na
  - task: lint_javascript_examples
    status: na
  - task: lint_javascript_tests
    status: na
  - task: lint_javascript_benchmarks
    status: na
  - task: lint_python
    status: na
  - task: lint_r
    status: na
  - task: lint_c_src
    status: na
  - task: lint_c_examples
    status: na
  - task: lint_c_benchmarks
    status: na
  - task: lint_c_tests_fixtures
    status: na
  - task: lint_shell
    status: na
  - task: lint_typescript_declarations
    status: passed
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: DivitJain26

lib/node_modules/@stdlib/blas/base/ctrsv/lib/base.js

@@ -62,6 +62,7 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 	var magsq;
 	var remul;
 	var immul;
+	var ixend;
 	var isrm;
 	var sign;
 	var rex;
@@ -119,13 +120,13 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 		( isrm && uplo === 'lower' && trans !== 'no-transpose' )
 	) {
 		ix1 = ox + ( ( N - 1 ) * sx );
+		oa2 = oa + ( ( sa1 + sa0 ) * ( N - 1 ) );
 		for ( i1 = N - 1; i1 >= 0; i1-- ) {
 			rex = viewX[ ix1 ];
 			imx = viewX[ ix1 + 1 ];
 			if ( rex !== 0.0 || imx !== 0.0 ) {
-				oa2 = oa + ( sa1 * i1 );
 				if ( nonunit ) {
-					ia = oa2 + ( sa0 * i1 );
+					ia = oa2;
 					rea = viewA[ ia ];
 					ima = sign * viewA[ ia + 1 ];
 					magsq = f32( ( rea * rea ) + ( ima * ima ) );
@@ -137,10 +138,9 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 					retmp = rex;
 					imtmp = imx;
 				}
-				ix0 = ix1;
+				ia = oa2 - sa0;
+				ix0 = ix1 - sx;
 				for ( i0 = i1 - 1; i0 >= 0; i0-- ) {
-					ix0 -= sx;
-					ia = oa2 + ( sa0 * i0 );
 					rea = viewA[ ia ];
 					ima = sign * viewA[ ia + 1 ];
 					rex = viewX[ ix0 ];
@@ -149,8 +149,11 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 					immul = f32( ( retmp * ima ) + ( imtmp * rea ) );
 					viewX[ ix0 ] = f32( rex - remul );
 					viewX[ ix0 + 1 ] = f32( imx - immul );
+					ix0 -= sx;
+					ia -= sa0;
 				}
 			}
+			oa2 -= ( sa1 + sa0 );
 			ix1 -= sx;
 		}
 		return x;
@@ -160,13 +163,13 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 		( isrm && uplo === 'upper' && trans !== 'no-transpose' )
 	) {
 		ix1 = ox;
+		oa2 = oa;
 		for ( i1 = 0; i1 < N; i1++ ) {
 			rex = viewX[ ix1 ];
 			imx = viewX[ ix1 + 1 ];
 			if ( rex !== 0.0 || imx !== 0.0 ) {
-				oa2 = oa + ( sa1 * i1 );
 				if ( nonunit ) {
-					ia = oa2 + ( sa0 * i1 );
+					ia = oa2;
 					rea = viewA[ ia ];
 					ima = sign * viewA[ ia + 1 ];
 					magsq = f32( ( rea * rea ) + ( ima * ima ) );
@@ -178,10 +181,9 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 					retmp = rex;
 					imtmp = imx;
 				}
-				ix0 = ix1;
+				ia = oa2 + sa0;
+				ix0 = ix1 + sx;
 				for ( i0 = i1 + 1; i0 < N; i0++ ) {
-					ix0 += sx;
-					ia = oa2 + ( sa0 * i0 );
 					rea = viewA[ ia ];
 					ima = sign * viewA[ ia + 1 ];
 					rex = viewX[ ix0 ];
@@ -190,8 +192,11 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 					immul = f32( ( retmp * ima ) + ( imtmp * rea ) );
 					viewX[ ix0 ] = f32( rex - remul );
 					viewX[ ix0 + 1 ] = f32( imx - immul );
+					ia += sa0;
+					ix0 += sx;
 				}
 			}
+			oa2 += ( sa1 + sa0 );
 			ix1 += sx;
 		}
 		return x;
@@ -201,25 +206,25 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 		( isrm && uplo === 'lower' && trans === 'no-transpose' )
 	) {
 		ix1 = ox;
+		oa2 = oa;
 		for ( i1 = 0; i1 < N; i1++ ) {
-			oa2 = oa + ( sa1 * i1 );
 			rex = viewX[ ix1 ];
 			imx = viewX[ ix1 + 1 ];
 			retmp = rex;
 			imtmp = imx;
 			ix0 = ox;
+			ia = oa2;
 			for ( i0 = 0; i0 < i1; i0++ ) {
-				ia = oa2 + ( sa0 * i0 );
 				rea = viewA[ ia ];
 				ima = sign * viewA[ ia + 1 ];
 				rex = viewX[ ix0 ];
 				imx = viewX[ ix0 + 1 ];
 				retmp = f32( retmp - f32( ( rex * rea ) - ( imx * ima ) ) );
 				imtmp = f32( imtmp - f32( ( rex * ima ) + ( imx * rea ) ) );
 				ix0 += sx;
+				ia += sa0;
 			}
 			if ( nonunit ) {
-				ia = oa2 + ( sa0 * i1 );
 				rea = viewA[ ia ];
 				ima = sign * viewA[ ia + 1 ];
 				magsq = f32( ( rea * rea ) + ( ima * ima ) );
@@ -231,30 +236,32 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 			viewX[ ix1 ] = retmp;
 			viewX[ ix1 + 1 ] = imtmp;
 			ix1 += sx;
+			oa2 += sa1;
 		}
 		return x;
 	}
 	// ( !isrm && uplo === 'lower' && trans !== 'no-transpose' ) || ( isrm && uplo === 'upper' && trans === 'no-transpose' )
 	ix1 = ox + ( ( N - 1 ) * sx );
+	oa2 = oa + ( ( sa1 + sa0 ) * ( N - 1 ) );
+	ixend = ox + ( ( N - 1 ) * sx );
 	for ( i1 = N - 1; i1 >= 0; i1-- ) {
-		oa2 = oa + ( sa1 * i1 );
 		rex = viewX[ ix1 ];
 		imx = viewX[ ix1 + 1 ];
 		retmp = rex;
 		imtmp = imx;
-		ix0 = ox + ( ( N - 1 ) * sx );
+		ix0 = ixend;
+		ia = oa2;
 		for ( i0 = N - 1; i0 > i1; i0-- ) {
-			ia = oa2 + ( sa0 * i0 );
 			rea = viewA[ ia ];
 			ima = sign * viewA[ ia + 1 ];
 			rex = viewX[ ix0 ];
 			imx = viewX[ ix0 + 1 ];
 			retmp = f32( retmp - f32( ( rex * rea ) - ( imx * ima ) ) );
 			imtmp = f32( imtmp - f32( ( rex * ima ) + ( imx * rea ) ) );
+			ia -= sa0;
 			ix0 -= sx;
 		}
 		if ( nonunit ) {
-			ia = oa2 + ( sa0 * i1 );
 			rea = viewA[ ia ];
 			ima = sign * viewA[ ia + 1 ];
 			magsq = f32( ( rea * rea ) + ( ima * ima ) );
@@ -266,6 +273,7 @@ function ctrsv( uplo, trans, diag, N, A, strideA1, strideA2, offsetA, x, strideX
 		viewX[ ix1 ] = retmp;
 		viewX[ ix1 + 1 ] = imtmp;
 		ix1 -= sx;
+		oa2 -= sa1;
 	}
 	return x;
 }