chore: fix formatting

kgryte · kgryte · commit 09c9ceb58c6d · 2025-06-07T02:14:54.000-07:00
---
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: na
  - 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
---
diff --git a/lib/node_modules/@stdlib/blas/base/ccopy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/ccopy/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/cscal/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/cscal/benchmark/fortran/benchmark.length.f
@@ -103,11 +103,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/csrot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/csrot/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/cswap/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/cswap/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dasum/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/dasum/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/daxpy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/daxpy/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dcabs1/benchmark/fortran/benchmark.f b/lib/node_modules/@stdlib/blas/base/dcabs1/benchmark/fortran/benchmark.f
@@ -103,11 +103,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dcopy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/dcopy/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/ddot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/ddot/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dnrm2/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/dnrm2/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/drot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/drot/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/drotm/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/drotm/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dscal/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/dscal/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dsdot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/dsdot/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dswap/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/dswap/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/dznrm2/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/dznrm2/benchmark/fortran/benchmark.length.f
@@ -103,11 +103,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/idamax/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/idamax/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/isamax/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/isamax/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/sasum/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/sasum/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/saxpy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/saxpy/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/scabs1/benchmark/fortran/benchmark.f b/lib/node_modules/@stdlib/blas/base/scabs1/benchmark/fortran/benchmark.f
@@ -103,11 +103,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/scasum/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/scasum/benchmark/fortran/benchmark.length.f
@@ -103,11 +103,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/scnrm2/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/scnrm2/benchmark/fortran/benchmark.length.f
@@ -103,11 +103,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/scopy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/scopy/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/sdot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/sdot/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/sdsdot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/sdsdot/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/snrm2/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/snrm2/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/srot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/srot/benchmark/fortran/benchmark.length.f
@@ -96,11 +96,11 @@ subroutine print_results( iterations, elapsed )
     tmp = adjustl( str )
     print '(A,A)', '  iterations: ', trim( tmp )
     ! ..
-    write (str, '(f15.9)') elapsed
+    write (str, '(f100.9)') elapsed
     tmp = adjustl( str )
     print '(A,A)', '  elapsed: ', trim( tmp )
     ! ..
-    write( str, '(f15.9)') rate
+    write( str, '(f100.9)') rate
     tmp = adjustl( str )
     print '(A,A)', '  rate: ', trim( tmp )
     ! ..
diff --git a/lib/node_modules/@stdlib/blas/base/srotm/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/srotm/benchmark/fortran/benchmark.length.f
diff --git a/lib/node_modules/@stdlib/blas/base/sscal/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/sscal/benchmark/fortran/benchmark.length.f
diff --git a/lib/node_modules/@stdlib/blas/base/sswap/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/sswap/benchmark/fortran/benchmark.length.f
diff --git a/lib/node_modules/@stdlib/blas/base/zcopy/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/zcopy/benchmark/fortran/benchmark.length.f
diff --git a/lib/node_modules/@stdlib/blas/base/zdrot/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/zdrot/benchmark/fortran/benchmark.length.f
diff --git a/lib/node_modules/@stdlib/blas/base/zscal/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/zscal/benchmark/fortran/benchmark.length.f
diff --git a/lib/node_modules/@stdlib/blas/base/zswap/benchmark/fortran/benchmark.length.f b/lib/node_modules/@stdlib/blas/base/zswap/benchmark/fortran/benchmark.length.f
