diff --git a/src/lagrit.h.in b/src/lagrit.h.in index 807c11ce..98698cde 100644 --- 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 index 8d51edd5..6be0b370 100755 --- 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