From 7ef27a5817681b6d7cd651aab196569e22a08ba4 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 23 Oct 2014 10:18:03 +0200
Subject: [PATCH] Improved thread check in irp_stack

---
 src/irp_stack.py | 5 +++++
 src/version.py   | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/irp_stack.py b/src/irp_stack.py
index 4c25bef..ce238d8 100644
--- a/src/irp_stack.py
+++ b/src/irp_stack.py
@@ -58,12 +58,17 @@ subroutine irp_enter(irp_where)
  ithread = 0
 !$ ithread = omp_get_thread_num()
 $1
+"""
+
+  if not command_line.do_openmp:
+    txt += """
 if (ithread /= 0) then
    print *, 'Error: Provider is called by thread', ithread
    call irp_trace
    stop 1
 endif
 """
+
   if command_line.do_memory:
       txt+="""
  if (.not.alloc) then
diff --git a/src/version.py b/src/version.py
index 841aad2..8fb4690 100644
--- a/src/version.py
+++ b/src/version.py
@@ -1 +1 @@
-version = "1.4.2"
+version = "1.4.3"