LCPQ/irpf90
10
0
Fork 0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-10-06 00:06:17 +02:00
Code Releases Activity

openMP bug corrected

Browse Source
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: if not do_openmp:
txt += """ txt += """
!$ integer, external :: omp_get_thread_num
!$ integer, external :: omp_get_num_threads
ithread = 0 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: else:
txt += """ txt += """