From 3e811108309c3474f973ccdc56447391642af5c4 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Fri, 31 Aug 2018 11:22:59 -0400 Subject: [PATCH] tell user whether DEBUG version or not --- src/DAMASK_spectral.f90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/DAMASK_spectral.f90 b/src/DAMASK_spectral.f90 index 2ed94d06a..c60593912 100644 --- 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"