LCPQ
/
irpf90
mirror of https://gitlab.com/scemama/irpf90.git
10
0
Fork 0
Code Releases Activity

openMP bug corrected

This commit is contained in:
Anthony Scemama 2015-04-12 01:03:47 +02:00
parent 6aa8f2d4a1
commit 23efc552ac
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/irp_stack.py
View File

@ -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 += """