Merge pull request #267 from lanl/ehinrichs/testing

Ehinrichs/testing
lanl · May 6, 2024 · 7a8377a · 7a8377a
2 parents 17b2604 + b0a788c
commit 7a8377a
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 0 deletions.
diff --git a/src/lagrit.h.in b/src/lagrit.h.in
@@ -16,10 +16,14 @@ c
       character*22   date_compile
       character*8    os_name
       character*16   my_name
+      character*26    compiler_name
+      character*23    compiler_version
 
       data my_name      /'lagritgen'/
       data os_name      /'@CMAKE_SYSTEM_NAME@ '/
       data date_compile /'@CMAKE_DATE_COMPILE@ '/
+      data compiler_name /'@CMAKE_CXX_COMPILER_ID@ '/
+      data compiler_version /'@CMAKE_CXX_COMPILER_VERSION@ '/
 
       integer         NCall
       save            NCall

diff --git a/src/writinit.f b/src/writinit.f
@@ -255,6 +255,17 @@ subroutine writinit(logbat,loglog,ixnamxxx,mode)
 
       call writloga('default',0,interfil,0,ierrdum)
 
+C-----Banner Program, Compiler, and Compiler Version from lagrit.h
+
+      write(interfil,9200) compiler_name
+      call writloga('default',0,interfil,0,ierrdum)
+ 9200 format('*',15x,'*    Compiler Name: ',a,'*')
+
+      write(interfil,9201) compiler_version
+      call writloga('default',0,interfil,0,ierrdum)
+ 9201 format('*',15x,'*    Compiler Version: ',a,'*')
+
+
 C-----Banner Compile Time and expiration check
 C     now string is day 6:10   time 12:20   year 21:24
 C     the front six is blank or has a year