Merge commit 'v2.0.2-495-g36f0e914'

This commit is contained in:
Test User 2018-09-01 12:39:13 +02:00
commit 87d4cab8dc
1 changed files with 3 additions and 0 deletions

View File

@ -152,6 +152,9 @@ program DAMASK_spectral
! init DAMASK (all modules) ! init DAMASK (all modules)
call CPFEM_initAll(el = 1_pInt, ip = 1_pInt) call CPFEM_initAll(el = 1_pInt, ip = 1_pInt)
write(6,'(/,a)') ' <<<+- DAMASK_spectral init -+>>>' write(6,'(/,a)') ' <<<+- DAMASK_spectral init -+>>>'
#ifdef DEBUG
write(6,'(/,a)') ' <<<+- DEBUG version -+>>>'
#endif
write(6,'(/,a,/)') ' Roters et al., Computational Materials Science, 2018' write(6,'(/,a,/)') ' Roters et al., Computational Materials Science, 2018'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"