diff --git a/code/CPFEM.f90 b/code/CPFEM.f90
index 0e7f78f4b..b6a4058e7 100644
--- a/code/CPFEM.f90
+++ b/code/CPFEM.f90
@@ -536,9 +536,11 @@ subroutine CPFEM_general(mode, coords, ffn, ffn1, Temperature, dt, element, IP,
             call mesh_build_subNodeCoords()                               ! update subnodal coordinates
             call mesh_build_ipVolumes()                                   ! update ip center of gravity
           endif
+          if (debug_verbosity > 0) then
             !$OMP CRITICAL (write2out)
               write(6,'(a,i5,a,i5)') '<< CPFEM >> Start stress and tangent ',FEsolving_execElem(1),' to ',FEsolving_execElem(2)
             !$OMP END CRITICAL (write2out)
+          endif
           call materialpoint_stressAndItsTangent(updateJaco, dt)          ! calculate stress and its tangent (parallel execution inside)
           call materialpoint_postResults(dt)                              ! post results
           !$OMP PARALLEL DO
diff --git a/code/math.f90 b/code/math.f90
index 1d358d068..805a3c2ab 100644
--- a/code/math.f90
+++ b/code/math.f90
@@ -164,12 +164,11 @@ real(pReal), dimension(4,36), parameter :: math_symOperations = &
  endif
 
  call random_seed(get=randInit)
- if (debug_verbosity > 0) then
-   !$OMP CRITICAL (write2out)
-   ! this critical block did cause trouble at IWM
-     write(6,*) 'random seed: ',randInit(1)
-     write(6,*)
-   !$OMP END CRITICAL (write2out)
+ !$OMP CRITICAL (write2out)
+ ! this critical block did cause trouble at IWM
+ write(6,*) 'random seed: ',randInit(1)
+ write(6,*)
+ !$OMP END CRITICAL (write2out)
  endif
   
  call halton_seed_set(randInit(1))