mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-10-08 09:07:29 +02:00
Bug with openmp corrected
This commit is contained in:
parent
66c2934d6d
commit
6aa8f2d4a1
@ -55,11 +55,12 @@ subroutine irp_enter(irp_where)
|
||||
integer :: ithread
|
||||
character*(*) :: irp_where
|
||||
"""
|
||||
if do_openmp:
|
||||
if not do_openmp:
|
||||
txt += """
|
||||
integer, external :: omp_get_thread_num
|
||||
integer, external :: omp_get_num_threads
|
||||
ithread = omp_get_thread_num()
|
||||
!$ 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
|
||||
@ -68,7 +69,9 @@ endif
|
||||
"""
|
||||
else:
|
||||
txt += """
|
||||
ithread = 0
|
||||
integer, external :: omp_get_thread_num
|
||||
integer, external :: omp_get_num_threads
|
||||
ithread = omp_get_thread_num()
|
||||
"""
|
||||
|
||||
txt += "$1"
|
||||
@ -137,6 +140,8 @@ $1
|
||||
print *, 'Allocating irp_cpu(',STACKMAX,',',nthread,')'
|
||||
print *, 'Allocating stack_index(',nthread,')'
|
||||
endif
|
||||
"""
|
||||
txt += """
|
||||
$2
|
||||
end subroutine
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user