Changeset 3830 for trunk/LMDZ.COMMON/makelmdz_fcm

Timestamp:

Jul 4, 2025, 12:06:05 PM (8 weeks ago)

Author:

jbclement

Message:

COMMON:
Gathering all the outputs provided by the argument 'version' when executing the code into the file "pgrm_version_details.txt" (previously named "version_stat-diff.txt").
JBC

File:

• trunk/LMDZ.COMMON/makelmdz_fcm (modified) (2 diffs)

trunk/LMDZ.COMMON/makelmdz_fcm

@@ -606 +606 @@
 
 # Path and name of the file containing the difference result
-res_file="version_stat-diff.txt"
+res_file="pgrm_version_details.txt"
 
 # Get the current date
@@ -679 +679 @@
 SUBROUTINE print_version_info()
 
-write(*,'(a)') '======= Compilation details ======='
-write(*,'(a)') '-> Date: ${current_date}'
-write(*,'(a)') '-> Command: ${compilation_command}'
-write(*,*)
+integer, parameter :: io_unit = 10
+
+open(io_unit, file = '${res_file}',status = 'replace',action = 'write')
+
+write(*,'(a)') '-> Writing compilation details to the file "${res_file}".'
+write(io_unit,'(a)') '========================= COMPILATION DETAILS =========================='
+write(io_unit,'(a)') '-> Date: ${current_date}'
+write(io_unit,'(a)') '-> Command: ${compilation_command}'
+write(io_unit,*)
 EOF
 
 if [ -n "$vcs_info" ]; then
-    echo "write(*,'(a)') '=== Version Control Information ==='" >> "$info_file"
+    echo "write(*,'(a)') '-> Writing information result to the file \"${res_file}\".'" >> "$info_file"
+    echo "write(io_unit,'(a)') '===================== VERSION CONTROL INFORMATION ======================'" >> "$info_file"
     while IFS= read -r line; do
-        echo "write(*,'(a)') '${line}'" >> "$info_file"
+        echo "write(io_unit,'(a)') '${line}'" >> "$info_file"
     done <<< "$(echo -e "$vcs_info")"
 else
-    echo "write(*,'(a)') '==== No version control system ===='" >> "$info_file"
+    echo "write(io_unit,'(a)') '====================== NO VERSION CONTROL SYSTEM ======================='" >> "$info_file"
 fi
 
 if [ -n "$vcs_stat" ]; then
-    echo "write(*,*)" >> "$info_file"
-    echo "write(*,'(a)') '====== Version Control Status ====='" >> "$info_file"
     echo "write(*,'(a)') '-> Writing status result to the file \"${res_file}\".'" >> "$info_file"
-    echo "open(unit = 1, file = \"${res_file}\",status = 'replace',action = 'write')" >> "$info_file"
+    echo "write(io_unit,*)" >> "$info_file"
+    echo "write(io_unit,'(a)') '======================== VERSION CONTROL STATUS ========================'" >> "$info_file"
     while IFS= read -r line; do
-        echo "write(1,'(a)') '${line}'" >> "$info_file"
+        echo "write(io_unit,'(a)') '${line}'" >> "$info_file"
     done <<< "$(echo -e "$vcs_stat")"
-    echo "close(1)" >> "$info_file"
 fi
 
 if [ -n "$vcs_diff" ]; then
-    echo "write(*,*)" >> "$info_file"
-    echo "write(*,'(a)') '====== Version Control Diff ======='" >> "$info_file"
     echo "write(*,'(a)') '-> Writing diff result to the file \"${res_file}\".'" >> "$info_file"
-    echo "open(unit = 1, file = \"${res_file}\",status = 'unknown',position = 'append',action = 'write')" >> "$info_file"
+    echo "write(io_unit,*)" >> "$info_file"
+    echo "write(io_unit,'(a)') '========================= VERSION CONTROL DIFF ========================='" >> "$info_file"
     while IFS= read -r line; do
-        echo "write(1,'(a)') '${line}'" >> "$info_file"
+        echo "write(io_unit,'(a)') '${line}'" >> "$info_file"
     done <<< "$(echo -e "$vcs_diff")"
-    echo "close(1)" >> "$info_file"
 fi
 
 cat << EOF >> "$info_file"
-write(*,'(a)') '==================================='
+write(io_unit,'(a)') '========================================================================'
+
+close(io_unit)
 
 END SUBROUTINE print_version_info