From 5688fc5698bf780c48399531008340f63d3d29f1 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Fri, 3 Jul 2020 18:12:40 +0200
Subject: [PATCH] need to do initialization first

---
 src/DAMASK_marc.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90
index f57344725..8f170f05d 100644
--- a/src/DAMASK_marc.f90
+++ b/src/DAMASK_marc.f90
@@ -277,10 +277,10 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
   call omp_set_num_threads(1)                                                                       ! no openMP
 
   if (.not. CPFEM_init_done) then
-    debug_Marc => debug_root%get('marc',defaultVal=emptyList)
-    debug_basic = debug_Marc%contains('basic')
     CPFEM_init_done = .true.
     call CPFEM_initAll
+    debug_Marc => debug_root%get('marc',defaultVal=emptyList)
+    debug_basic = debug_Marc%contains('basic')
   endif
 
   computationMode = 0                                                                               ! save initialization value, since it does not result in any calculation