tell user whether DEBUG version or not

2018-08-31 11:22:59 -04:00 · 2018-08-31 11:22:59 -04:00 · 3e81110830
parent 87a8a9536b
commit 3e81110830
1 changed files with 3 additions and 0 deletions
--- a/src/DAMASK_spectral.f90
+++ b/src/DAMASK_spectral.f90
@ -154,6 +154,9 @@ program DAMASK_spectral
 ! init DAMASK (all modules)
 call CPFEM_initAll(el = 1_pInt, ip = 1_pInt)
 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,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"