From 81cfa31b31d19d5d8c3f04ead9d9f0ee87137716 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 13 Mar 2019 06:16:31 +0100
Subject: [PATCH] [skip ci] with DAMASK ASCII art

---
 src/CMakeLists.txt       |  2 ++
 src/DAMASK_abaqus.f      |  4 ++--
 src/DAMASK_interface.f90 | 33 +++++++++++++++++++++++++++++++--
 src/DAMASK_marc.f90      |  4 ++--
 4 files changed, 37 insertions(+), 6 deletions(-)

diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt
index a0b0c819f..a0cd44faa 100644
--- a/src/CMakeLists.txt
+++ b/src/CMakeLists.txt
@@ -2,6 +2,8 @@
 if (CMAKE_Fortran_COMPILER_ID STREQUAL "GNU")
     SET_SOURCE_FILES_PROPERTIES( "lattice.f90" PROPERTIES
                                 COMPILE_FLAGS "-ffree-line-length-240")
+    SET_SOURCE_FILES_PROPERTIES( "DAMASK_interface.f90" PROPERTIES
+                                COMPILE_FLAGS "-ffree-line-length-164")
     # long lines for interaction matrix
 endif()
 
diff --git a/src/DAMASK_abaqus.f b/src/DAMASK_abaqus.f
index bdfdbc302..514307fe8 100644
--- a/src/DAMASK_abaqus.f
+++ b/src/DAMASK_abaqus.f
@@ -56,8 +56,8 @@ subroutine DAMASK_interface_init
 
 ! https://github.com/jeffhammond/HPCInfo/blob/master/docs/Preprocessor-Macros.md
 #if __INTEL_COMPILER >= 1800
- write(6,'(/,a)') 'Compiled with: '//compiler_version()
- write(6,'(a)')   'Compiler options: '//compiler_options()
+ write(6,'(/,a)') ' Compiled with: '//compiler_version()
+ write(6,'(a)')   ' Compiler options: '//compiler_options()
 #else
  write(6,'(/,a,i4.4,a,i8.8)') ' Compiled with Intel fortran version :', __INTEL_COMPILER,&
                                                       ', build date :', __INTEL_COMPILER_BUILD_DATE
diff --git a/src/DAMASK_interface.f90 b/src/DAMASK_interface.f90
index 9a2285f40..b70508779 100644
--- a/src/DAMASK_interface.f90
+++ b/src/DAMASK_interface.f90
@@ -152,6 +152,35 @@ subroutine DAMASK_interface_init()
 
   write(6,'(/,a)') ' <<<+-  DAMASK_interface init  -+>>>'
 
+  write(6,*) achar(27)//'[94m'
+  write(6,*) '     _/_/_/      _/_/    _/      _/    _/_/      _/_/_/  _/    _/'
+  write(6,*) '    _/    _/  _/    _/  _/_/  _/_/  _/    _/  _/        _/  _/'
+  write(6,*) '   _/    _/  _/_/_/_/  _/  _/  _/  _/_/_/_/    _/_/    _/_/'
+  write(6,*) '  _/    _/  _/    _/  _/      _/  _/    _/        _/  _/  _/'
+  write(6,*) ' _/_/_/    _/    _/  _/      _/  _/    _/  _/_/_/    _/    _/'
+  write(6,*) ' '
+  write(6,*) '██████╗  █████╗ ███╗   ███╗ █████╗ ███████╗██╗  ██╗'
+  write(6,*) '██╔══██╗██╔══██╗████╗ ████║██╔══██╗██╔════╝██║ ██╔╝'
+  write(6,*) '██║  ██║███████║██╔████╔██║███████║███████╗█████╔╝ '
+  write(6,*) '██║  ██║██╔══██║██║╚██╔╝██║██╔══██║╚════██║██╔═██╗ '
+  write(6,*) '██████╔╝██║  ██║██║ ╚═╝ ██║██║  ██║███████║██║  ██╗'
+  write(6,*) '╚═════╝ ╚═╝  ╚═╝╚═╝     ╚═╝╚═╝  ╚═╝╚══════╝╚═╝  ╚═╝'
+  write(6,*) ' _____  _____  __  __  _____  _____  __ ___'
+  write(6,*) '|  _  \/  _  \/  \/  \/  _  \/  ___>|  |  /'
+  write(6,*) '|  |  ||  _  ||  \/  ||  _  ||___  ||  _ < '
+  write(6,*) '|_____/\__|__/\__ \__/\__|__/<_____/|__|__\'
+  write(6,*) '                                           '
+  write(6,*) ' _____  _______ _______ _______ _______ __  __ '
+  write(6,*) '|     \|   _   |   |   |   _   |     __|  |/  |'
+  write(6,*) '|  --  |       |       |       |__     |     < '
+  write(6,*) '|_____/|___|___|__|_|__|___|___|_______|__|\__|'
+  write(6,*) '                                               '
+  write(6,*) ' _____  _____  __  __  _____  _____  __ ___'
+  write(6,*) '|  _  \/  _  \/  \/  \/  _  \/  ___>|  |  /'
+  write(6,*) '|  |  ||  _  ||  \/  ||  _  ||___  ||  _ < '
+  write(6,*) '|_____/\__|__/\__ \__/\__|__/<_____/|__|__\'
+  write(6,*) achar(27)//'[0m'
+
   write(6,'(/,a)') ' Roters et al., Computational Materials Science 158:420–478, 2019'
   write(6,'(a)')   ' https://doi.org/10.1016/j.commatsci.2018.04.030'
 
@@ -159,8 +188,8 @@ subroutine DAMASK_interface_init()
 
  ! https://github.com/jeffhammond/HPCInfo/blob/master/docs/Preprocessor-Macros.md
 #if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800
-  write(6,'(/,a)') 'Compiled with: '//compiler_version()
-  write(6,'(a)')   'Compiler options: '//compiler_options()
+  write(6,'(/,a)') ' Compiled with: '//compiler_version()
+  write(6,'(a)')   ' Compiler options: '//compiler_options()
 #elif defined(__INTEL_COMPILER)
   write(6,'(/,a,i4.4,a,i8.8)') ' Compiled with Intel fortran version :', __INTEL_COMPILER,&
                                                        ', build date :', __INTEL_COMPILER_BUILD_DATE
diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90
index 8f9a81aed..edf00a203 100644
--- a/src/DAMASK_marc.f90
+++ b/src/DAMASK_marc.f90
@@ -67,8 +67,8 @@ subroutine DAMASK_interface_init
 
  ! https://github.com/jeffhammond/HPCInfo/blob/master/docs/Preprocessor-Macros.md
 #if __INTEL_COMPILER >= 1800
-  write(6,'(/,a)') 'Compiled with: '//compiler_version()
-  write(6,'(a)')   'Compiler options: '//compiler_options()
+  write(6,'(/,a)') ' Compiled with: '//compiler_version()
+  write(6,'(a)')   ' Compiler options: '//compiler_options()
 #else
   write(6,'(/,a,i4.4,a,i8.8)') ' Compiled with Intel fortran version :', __INTEL_COMPILER,&
                                                        ', build date :', __INTEL_COMPILER_BUILD_DATE