fix: use hypot and nested max in base implementation

---
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: na
  - task: lint_typescript_tests
    status: na
  - task: lint_license_headers
    status: passed
---

Author: aayush0325

lib/node_modules/@stdlib/lapack/base/dlartg/lib/base.js

@@ -23,9 +23,10 @@
 var dlamch = require( '@stdlib/lapack/base/dlamch' );
 var sqrt = require( '@stdlib/math/base/special/sqrt' );
 var abs = require( '@stdlib/math/base/special/fast/abs' );
-var sign = require( '@stdlib/math/base/special/copysign' );
+var hypot = require( '@stdlib/math/base/special/fast/hypot' );
+var copysign = require( '@stdlib/math/base/special/copysign' );
 var min = require( '@stdlib/math/base/special/fast/min' );
-var max = require( '@stdlib/math/base/special/maxn' );
+var max = require( '@stdlib/math/base/special/fast/max' );
 
 
 // VARIABLES //
@@ -91,20 +92,20 @@ function dlartg( F, offsetF, G, offsetG, C, offsetC, S, offsetS, R, offsetR ) {
 		R[ offsetR ] = F[ offsetF ];
 	} else if ( F[ offsetF ] === 0.0 ) {
 		C[ offsetC ] = 0.0;
-		S[ offsetS ] = sign( 1.0, G[ offsetG ] );
+		S[ offsetS ] = copysign( 1.0, G[ offsetG ] );
 		R[ offsetR ] = g1;
 	} else if ( f1 > rtmin && f1 < rtmax && g1 > rtmin && g1 < rtmax ) {
-		d = sqrt( (F[ offsetF ]*F[ offsetF ]) + (G[ offsetG ]*G[ offsetG ]) );
+		d = hypot( F[ offsetF ], G[ offsetG ] );
 		C[ offsetC ] = f1 / d;
-		R[ offsetR ] = sign( d, F[ offsetF ] );
+		R[ offsetR ] = copysign( d, F[ offsetF ] );
 		S[ offsetS ] = G[ offsetG ] / R[ offsetR ];
 	} else {
-		u = min( safmax, max( safmin, f1, g1 ) );
+		u = min( safmax, max( safmin, max( f1, g1 ) ) );
 		fs = F[ offsetF ] / u;
 		gs = G[ offsetG ] / u;
-		d = sqrt( (fs*fs) + (gs*gs) );
+		d = hypot( fs, gs );
 		C[ offsetC ] = abs( fs ) / d;
-		R[ offsetR ] = sign( d, F[ offsetF ] );
+		R[ offsetR ] = copysign( d, F[ offsetF ] );
 		S[ offsetS ] = gs / R[ offsetR ];
 		R[ offsetR ] *= u;
 	}