diff --git a/code/IO.f90 b/code/IO.f90
index 5207afd83..3d1338e30 100644
--- a/code/IO.f90
+++ b/code/IO.f90
@@ -1155,6 +1155,7 @@ endfunction
  endif
  write(6,'(a38)') '+------------------------------------+'
  call flush(6)
+ !$OMP END CRITICAL (write2out)
 
  endsubroutine
  
diff --git a/code/crystallite.f90 b/code/crystallite.f90
index 3e4ff6d9e..fcb224de9 100644
--- a/code/crystallite.f90
+++ b/code/crystallite.f90
@@ -1480,7 +1480,7 @@ LpLoop: do
    write(6,'(a,/,3(3(f12.7,x)/))') 'P / MPa',crystallite_P(:,:,g,i,e)/1e6
    write(6,'(a,/,3(3(f12.7,x)/))') 'Lp',crystallite_Lp(:,:,g,i,e)
    write(6,'(a,/,3(3(f12.7,x)/))') 'Fp',crystallite_Fp(:,:,g,i,e)
-   !$OMP CRITICAL (write2out)
+   !$OMP END CRITICAL (write2out)
  endif
 
  !$OMP CRITICAL (distributionStress)