LCPQ/irpf90
10
0
Fork 0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-12-21 20:03:33 +01:00
Code Releases Activity

Improved thread check in irp_stack

Browse Source
This commit is contained in:
Anthony Scemama 2014-10-23 10:18:03 +02:00
parent 70c0d04aed
commit 7ef27a5817
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/irp_stack.py
View File

@ -58,12 +58,17 @@ subroutine irp_enter(irp_where)
ithread = 0 ithread = 0
!$ ithread = omp_get_thread_num() !$ ithread = omp_get_thread_num()
$1 $1
"""
if not command_line.do_openmp:
txt += """
if (ithread /= 0) then if (ithread /= 0) then
print *, 'Error: Provider is called by thread', ithread print *, 'Error: Provider is called by thread', ithread
call irp_trace call irp_trace
stop 1 stop 1
endif endif
""" """
if command_line.do_memory: if command_line.do_memory:
txt+=""" txt+="""
if (.not.alloc) then if (.not.alloc) then

2
src/version.py
View File

@ -1 +1 @@
version = "1.4.2" version = "1.4.3"