psyclone.gocean1p0.GOACCEnterDataDirective Class Reference

Inheritance diagram for psyclone.gocean1p0.GOACCEnterDataDirective:

Collaboration diagram for psyclone.gocean1p0.GOACCEnterDataDirective:

Public Member Functions
def	lower_to_language_level (self)

Detailed Description

Sub-classes ACCEnterDataDirective to provide the dl_esm_inf infrastructure-
specific interfaces to flag and update when data is on a device.

Definition at line 2133 of file gocean1p0.py.

Member Function Documentation

lower_to_language_level()

def psyclone.gocean1p0.GOACCEnterDataDirective.lower_to_language_level

(

self

)

In-place replacement of DSL or high-level concepts into generic PSyIR
constructs. In addition to calling this method in the base class, the
GOACCEnterDataDirective sets up the 'data_on_device' flag for
each of the fields accessed.

:returns: the lowered version of this node.
:rtype: :py:class:`psyclone.psyir.node.Node`

Definition at line 2191 of file gocean1p0.py.

    def lower_to_language_level(self):
        '''
        In-place replacement of DSL or high-level concepts into generic PSyIR
        constructs. In addition to calling this method in the base class, the
        GOACCEnterDataDirective sets up the 'data_on_device' flag for
        each of the fields accessed.
 
        :returns: the lowered version of this node.
        :rtype: :py:class:`psyclone.psyir.node.Node`
 
        '''
        self._acc_dirs = self.ancestor(InvokeSchedule).walk(
                (ACCParallelDirective, ACCKernelsDirective))
        obj_list = []
        for pdir in self._acc_dirs:
            for var in pdir.fields:
                if var not in obj_list:
                    obj_list.append(var)
 
        read_routine_symbol = self._read_from_device_routine()
 
        for var in obj_list:
            symbol = self.scope.symbol_table.lookup(var)
            assignment = Assignment.create(
                StructureReference.create(symbol, ['data_on_device']),
                Literal("true", BOOLEAN_TYPE))
            self.parent.children.insert(self.position, assignment)
 
            # Use a CodeBlock to encode a Fortran pointer assignment
            reader = FortranReader()
            codeblock = reader.psyir_from_statement(
                f"{symbol.name}%read_from_device_f => "
                f"{read_routine_symbol.name}\n",
                self.scope.symbol_table)
 
            self.parent.children.insert(self.position, codeblock)
 
        return super().lower_to_language_level()
 
 

References psyclone.gocean1p0.GOACCEnterDataDirective._acc_dirs, psyclone.psyir.nodes.acc_directives.ACCEnterDataDirective._acc_dirs, psyclone.gocean1p0.GOACCEnterDataDirective._read_from_device_routine(), psyclone.psyir.nodes.node.Node.ancestor(), psyclone.f2pygen.BaseGen.parent(), psyclone.psyir.nodes.node.Node.parent(), psyclone.f2pygen.Directive.position(), psyclone.psyir.nodes.node.Node.position, psyclone.psyir.nodes.node.Node.scope(), and psyclone.psyir.symbols.symbol_table.SymbolTable.scope().

Here is the call graph for this function:

Here is the caller graph for this function:

---

The documentation for this class was generated from the following file:

• /home/docs/checkouts/readthedocs.org/user_builds/psyclone-ref/checkouts/latest/src/psyclone/gocean1p0.py