style: group expressions based on order of operations

Author: kgryte

lib/node_modules/@stdlib/blas/base/zdrot/src/zdrot.c

@@ -47,13 +47,13 @@ void API_SUFFIX(c_zdrot)( const CBLAS_INT N, void *ZX, const CBLAS_INT strideX,
 	}
 	if ( strideX == 1 && strideY == 1 ) {
 		for ( i = 0; i < N*2; i += 2 ) {
-			tmp = c*zx[ i ] + s*zy[ i ];
-			zy[ i ] = c*zy[ i ] - s*zx[ i ];
+			tmp = ( c*zx[ i ] ) + ( s*zy[ i ] );
+			zy[ i ] = ( c*zy[ i ] ) - ( s*zx[ i ] );
 			zx[ i ] = tmp;
 
 			j = i + 1;
-			tmp = c*zx[ j ] + s*zy[ j ];
-			zy[ j ] = c*zy[ j ] - s*zx[ j ];
+			tmp = ( c*zx[ j ] ) + ( s*zy[ j ] );
+			zy[ j ] = ( c*zy[ j ] ) - ( s*zx[ j ] );
 			zx[ j ] = tmp;
 		}
 		return;
@@ -63,12 +63,12 @@ void API_SUFFIX(c_zdrot)( const CBLAS_INT N, void *ZX, const CBLAS_INT strideX,
 	ix = stdlib_strided_stride2offset( N, strideX );
 	iy = stdlib_strided_stride2offset( N, strideY );
 	for ( i = 0; i < N; i++ ) {
-		tmp = c*zx[ ix ] + s*zy[ iy ];
-		zy[ iy ] = c*zy[ iy ] - s*zx[ ix ];
+		tmp = ( c*zx[ ix ] ) + ( s*zy[ iy ] );
+		zy[ iy ] = ( c*zy[ iy ] ) - ( s*zx[ ix ] );
 		zx[ ix ] = tmp;
 
-		tmp = c*zx[ ix+1 ] + s*zy[ iy+1 ];
-		zy[ iy+1 ] = c*zy[ iy+1 ] - s*zx[ ix+1 ];
+		tmp = ( c*zx[ ix+1 ] ) + ( s*zy[ iy+1 ] );
+		zy[ iy+1 ] = ( c*zy[ iy+1 ] ) - ( s*zx[ ix+1 ] );
 		zx[ ix+1 ] = tmp;
 
 		ix += sx;

lib/node_modules/@stdlib/blas/base/zdrot/src/zdrot.f

@@ -69,8 +69,8 @@ subroutine zdrot( N, zx, strideX, zy, strideY, c, s )
   ! ..
   if ( strideX == 1 .AND. strideY == 1 ) then
     do i = 1, N
-      ztmp = c*zx( i ) + s*zy( i )
-      zy( i ) = c*zy( i ) - s*zx( i )
+      ztmp = ( c*zx( i ) ) + ( s*zy( i ) )
+      zy( i ) = ( c*zy( i ) ) - ( s*zx( i ) )
       zx( i ) = ztmp
     end do
   else
@@ -85,8 +85,8 @@ subroutine zdrot( N, zx, strideX, zy, strideY, c, s )
       iy = 1
     end if
     do i = 1, N
-      ztmp = c*zx( ix ) + s*zy( iy )
-      zy( iy ) = c*zy( iy ) - s*zx( ix )
+      ztmp = ( c*zx( ix ) ) + ( s*zy( iy ) )
+      zy( iy ) = ( c*zy( iy ) ) - ( s*zx( ix ) )
       zx( ix ) = ztmp
       ix = ix + strideX
       iy = iy + strideY