From 19b6fae88b9f35186ecff8f3da9ffcdda4afc47e Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Tue, 18 May 2010 08:07:55 +0000
Subject: [PATCH] added a missing exclamation mark in front of an $OMP
 directive

---
 code/mesh.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/mesh.f90 b/code/mesh.f90
index 688af6ef0..44d87b14f 100644
--- a/code/mesh.f90
+++ b/code/mesh.f90
@@ -2836,7 +2836,7 @@ subroutine mesh_marc_count_cpSizes (unit)
    mesh_HomogMicro(mesh_element(3,i),mesh_element(4,i)) + 1 ! count combinations of homogenization and microstructure
  enddo
  
-$OMP CRITICAL (write2out)
+!$OMP CRITICAL (write2out)
 
 ! write(6,*)
 ! write(6,*) 'Input Parser: IP COORDINATES'