exception for marc

src/DAMASK_marc.f90

@@ -253,8 +253,8 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
     lastIncConverged  = .false., &                                                                  !< needs description
     outdatedByNewInc  = .false., &                                                                  !< needs description
     CPFEM_init_done   = .false.                                                                     !< remember whether init has been done already
- 
-  if (iand(debug_level(debug_MARC),debug_LEVELBASIC) /= 0) then
+
+  if(debug_marc_basic) then
     write(6,'(a,/,i8,i8,i2)') ' MSC.MARC information on shape of element(2), IP:', m, nn
     write(6,'(a,2(i1))')      ' Jacobian:                      ', ngens,ngens
     write(6,'(a,i1)')         ' Direct stress:                 ', ndi

src/debug.f90

@@ -15,8 +15,11 @@ module debug
   private
 
   class(tNode), pointer, public :: &
-    debug_root 
-  
+    debug_root
+
+  logical, public :: &
+    debug_marc_basic  = .false. 
+
   public :: debug_init
 
 contains
@@ -30,6 +33,8 @@ subroutine debug_init
   character(len=:), allocatable :: &
     debug_input, &
     debug_inFlow
+  class(tNode), pointer :: &
+    debug_Marc
   logical :: fexist 
 
   write(6,'(/,a)')   ' <<<+-  debug init  -+>>>'
@@ -43,6 +48,8 @@ subroutine debug_init
     debug_input  = IO_read('debug.yaml') 
     debug_inFlow = to_flow(debug_input)
     debug_root   => parse_flow(debug_inFlow,defaultVal=emptyDict)
+    debug_Marc   => debug_root%get('marc',defaultVal=emptyList)
+    debug_marc_basic = debug_Marc%contains('basic')
   endif fileExists
 
 end subroutine debug_init