exception for marc

src/DAMASK_marc.f90

@@ -254,7 +254,7 @@ subroutine hypela2(d,g,e,de,s,t,dt,ngens,m,nn,kcus,matus,ndi,nshear,disp, &
     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

@@ -17,6 +17,9 @@ module debug
   class(tNode), pointer, public :: &
     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