Improved thread check in irp_stack

2014-10-23 10:18:03 +02:00 · 2014-10-23 10:18:03 +02:00 · 7ef27a5817
parent 70c0d04aed
commit 7ef27a5817
2 changed files with 6 additions and 1 deletions
--- 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
--- a/src/version.py
+++ b/src/version.py
@ -1 +1 @@
-version = "1.4.2"
+version = "1.4.3"