mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-09-01 17:23:42 +02:00
Improved thread check in irp_stack
This commit is contained in:
parent
70c0d04aed
commit
7ef27a5817
@ -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
|
||||
|
@ -1 +1 @@
|
||||
version = "1.4.2"
|
||||
version = "1.4.3"
|
||||
|
Loading…
Reference in New Issue
Block a user