docs: add comments in base algo for better understanding

---
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
---

---
type: pre_push_report
description: Results of running various checks prior to pushing changes.
report:
  - task: run_javascript_examples
    status: na
  - task: run_c_examples
    status: na
  - task: run_cpp_examples
    status: na
  - task: run_javascript_readme_examples
    status: na
  - task: run_c_benchmarks
    status: na
  - task: run_cpp_benchmarks
    status: na
  - task: run_fortran_benchmarks
    status: na
  - task: run_javascript_benchmarks
    status: na
  - task: run_julia_benchmarks
    status: na
  - task: run_python_benchmarks
    status: na
  - task: run_r_benchmarks
    status: na
  - task: run_javascript_tests
    status: na
---

Author: aayush0325

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

@@ -74,6 +74,7 @@ function dgttrf( N, DL, sdl, odl, D, sd, od, DU, sdu, odu, DU2, sdu2, odu2, IPIV
 	var ip;
 	var i;
 
+	// Quick return if possible
 	if ( N === 0 ) {
 		return 0;
 	}
@@ -84,22 +85,24 @@ function dgttrf( N, DL, sdl, odl, D, sd, od, DU, sdu, odu, DU2, sdu2, odu2, IPIV
 	idu2 = odu2;
 	ip = oi;
 
+	// Initialise ith element of IPIV as i
 	for ( i = 0; i < N; i++ ) {
 		IPIV[ ip + (si*i) ] = i;
 	}
 
+	// Initialise ith element of DU2 as 0
 	for ( i = 0; i < N-2; i++ ) {
 		DU2[ idu + (sdu*i) ] = 0;
 	}
 
 	for ( i = 0; i < N-2; i++ ) {
-		if ( abs( D[ id + (sd*i) ] ) >= abs( DL[ idl + (sdl*i) ] ) ) { // no row interchange required
+		if ( abs( D[ id + (sd*i) ] ) >= abs( DL[ idl + (sdl*i) ] ) ) { // No row interchange required, eleminate ith element of DL
 			if ( D[ id ] !== 0.0 ) {
 				fact = DL[ idl + (sdl*i) ] / D[ id + (sd*i) ];
 				DL[ idl + (sdl*i) ] = fact;
 				D[ id + (sd*(i+1)) ] = D[ id + (sd*(i+1)) ] - ( fact*DU[ idu + (sdu*i) ] ); // eslint-disable-line max-len
 			}
-		} else {
+		} else { // Interchange the ith and (i+1)th rows and eliminate ith element of DL
 			fact = D[ id+(sd*i) ] / DL[ idl+(sdl*i) ];
 			D[ id+(sd*i) ] = DL[ idl+(sdl*i) ];
 			DL[ idl+(sdl*i) ] = fact;
@@ -131,6 +134,7 @@ function dgttrf( N, DL, sdl, odl, D, sd, od, DU, sdu, odu, DU2, sdu2, odu2, IPIV
 		}
 	}
 
+	// Check for a 0 on the diagonal of U
 	for ( i = 0; i < N; i++ ) {
 		if ( D[ id+(sd*i) ] === 0.0 ) {
 			return i;