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"