From 9b5047c828c0acbc9ff0a1e525cae19ebc1f315e Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Tue, 6 Apr 2010 06:47:15 +0000
Subject: [PATCH] corrected two OMP CRITICAL terminations

---
 code/IO.f90          | 1 +
 code/crystallite.f90 | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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)