refactor: reduce number of operations

Co-authored-by: Athan <[email protected]>
Signed-off-by: Shabareesh Shetty <[email protected]>

Author: ShabiShett07

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

@@ -166,17 +166,16 @@ function dtrmm( side, uplo, transa, diag, M, N, alpha, A, strideA1, strideA2, of
 		( !isrma && side === 'right' && uplo === 'lower' && transa === 'no-transpose' )
 	) {
 		for ( j = 0; j < N; j++ ) {
+			ib = offsetB + ( j*sb0 );
 			for ( k = 0; k < M; k++ ) {
-				ob2 = offsetB + ( k * sb1 ) + ( j * sb0 );
+				ob2 = ib + ( k * sb1 );
 				tmp = alpha * B[ ob2 ];
+				ia = offsetA + ( k*sa0 );
 				for ( i = 0; i < k; i++ ) {
-					oa2 = offsetA + ( i * sa1 ) + ( k * sa0 );
-					ob = offsetB + ( i * sb1 ) + ( j * sb0 );
-					B[ ob ] += ( tmp * A[ oa2 ] );
+					B[ ib+(i*sb1) ] += ( tmp * A[ ia+(i*sa1) ] );
 				}
 				if ( nonunit ) {
-					oa2 = offsetA + ( k * sa1 ) + ( k * sa0 );
-					tmp *= A[ oa2 ];
+					tmp *= A[ ia+(k*sa1) ];
 				}
 				B[ ob2 ] = tmp;
 			}