223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

[skip ci] with DAMASK ASCII art

This commit is contained in:
Martin Diehl 2019-03-13 06:16:31 +01:00
parent fb6a6e9db5
commit 81cfa31b31
4 changed files with 37 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/CMakeLists.txt
View File

@ -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()

29
src/DAMASK_interface.f90
View File

@ -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'