240127.044723.HKT revise preproc.f90 for debugging before verify_small

libprima · Jan 26, 2024 · 050f2e5 · 050f2e5
1 parent a2b7b4a
commit 050f2e5
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/.github/workflows/verify_small.yml b/.github/workflows/verify_small.yml
@@ -61,6 +61,15 @@ jobs:
           $SEDI 's|\(prob.options = test_options;\)|\1\nformat long; prob.options|' isequiv.m
           cat isequiv.m
 
+      # Revise preproc.f90 for debugging.
+      - name: Revise preproc.f90
+        shell: bash
+        run: |
+          cd fortran/common || exit 42
+          $SEDI "s|\(rhoend = .*$\)|\1\nwrite(18, \*) 'rhoend, rhobeg = ', rhoend, rhobeg|" preproc.f90
+          $SEDI "s|\(end subroutine preproc\)|close(18)\n\1|" preproc.f90
+          cat preproc.f90
+
       # Revise cobyla/trustregion.f90 for debugging.
       - name: Revise cobyla/trustregion.f90
         shell: bash