mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-09-02 01:33:42 +02:00
Providers check that they are not in openMP sections.
This commit is contained in:
parent
6bdc7afde4
commit
3ba8730747
@ -459,6 +459,14 @@ class Variable(object):
|
|||||||
name = self.name
|
name = self.name
|
||||||
same_as = self.same_as
|
same_as = self.same_as
|
||||||
|
|
||||||
|
def check_openmp():
|
||||||
|
result = [ "!$ nthreads = omp_get_num_threads()" ,
|
||||||
|
"!$ if (nthreads > 1) then" ,
|
||||||
|
"!$ print *, irp_here//': Error: Provider in an openMP section'" ,
|
||||||
|
"!$ stop 1",
|
||||||
|
"!$ endif" ]
|
||||||
|
return result
|
||||||
|
|
||||||
def build_alloc(name):
|
def build_alloc(name):
|
||||||
self = variables[name]
|
self = variables[name]
|
||||||
if self.dim == []:
|
if self.dim == []:
|
||||||
@ -528,14 +536,18 @@ class Variable(object):
|
|||||||
result += [ "!DEC$ ATTRIBUTES FORCEINLINE :: provide_%s"%(name) ]
|
result += [ "!DEC$ ATTRIBUTES FORCEINLINE :: provide_%s"%(name) ]
|
||||||
result += [ "subroutine provide_%s"%(name) ]
|
result += [ "subroutine provide_%s"%(name) ]
|
||||||
result += build_use( [same_as]+self.to_provide )
|
result += build_use( [same_as]+self.to_provide )
|
||||||
|
result += ["!$ use omp_lib"]
|
||||||
result.append(" implicit none")
|
result.append(" implicit none")
|
||||||
length = len("provide_%s"%(name))
|
length = len("provide_%s"%(name))
|
||||||
result += [\
|
result += [\
|
||||||
" character*(%d) :: irp_here = 'provide_%s'"%(length,name),
|
" character*(%d) :: irp_here = 'provide_%s'"%(length,name),
|
||||||
" integer :: irp_err ",
|
" integer :: irp_err ",
|
||||||
" logical :: irp_dimensions_OK" ]
|
" logical :: irp_dimensions_OK",
|
||||||
|
"!$ integer :: nthreads"]
|
||||||
if command_line.do_openmp:
|
if command_line.do_openmp:
|
||||||
result.append(" call irp_lock_%s(.True.)"%(same_as))
|
result.append(" call irp_lock_%s(.True.)"%(same_as))
|
||||||
|
else:
|
||||||
|
result += check_openmp()
|
||||||
if command_line.do_assert or command_line.do_debug:
|
if command_line.do_assert or command_line.do_debug:
|
||||||
result.append(" call irp_enter(irp_here)")
|
result.append(" call irp_enter(irp_here)")
|
||||||
result += call_provides(self.to_provide)
|
result += call_provides(self.to_provide)
|
||||||
|
Loading…
Reference in New Issue
Block a user