inform about debug versions indenpendently of the solver

src/DAMASK_spectral.f90

@@ -156,9 +156,6 @@ 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"

src/debug.f90

@@ -109,6 +109,9 @@ subroutine debug_init
  character(len=65536)                     :: tag, line
 
  write(6,'(/,a)')   ' <<<+-  debug init  -+>>>'
+#ifdef DEBUG
+ write(6,'(a)') achar(27)//'[31m <<<+-  DEBUG version  -+>>>'//achar(27)//'[0m'
+#endif
  write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
 #include "compilation_info.f90"