From 23efc552ac3fae2701a01d009ecf79e5f18167f8 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Sun, 12 Apr 2015 01:03:47 +0200
Subject: [PATCH] openMP bug corrected

---
 src/irp_stack.py | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/src/irp_stack.py b/src/irp_stack.py
index 546e0b2..d60710b 100644
--- a/src/irp_stack.py
+++ b/src/irp_stack.py
@@ -57,15 +57,7 @@ subroutine irp_enter(irp_where)
 """
   if not do_openmp:
     txt += """
-!$ integer, external :: omp_get_thread_num
-!$ integer, external :: omp_get_num_threads
    ithread = 0
-!$ ithread = omp_get_thread_num()
-if (ithread /= 0) then
-   print *, 'Error: Provider is called by thread', ithread
-   call irp_trace
-   stop 1
-endif
 """
   else:
     txt += """