Inheritance diagram for psyclone.f2pygen.SubroutineGen:

Collaboration diagram for psyclone.f2pygen.SubroutineGen:

Public Member Functions
def	__init__ (self, parent, name="", args=None, implicitnone=False)

def	args (self)

def	args (self, namelist)

Public Member Functions inherited from psyclone.f2pygen.ProgUnitGen
def	__init__ (self, parent, sub)

def	add (self, content, position=None, bubble_up=False)

Public Member Functions inherited from psyclone.f2pygen.BaseGen
def	parent (self)

def	children (self)

def	root (self)

def	add (self, new_object, position=None)

def	previous_loop (self)

def	last_declaration (self)

def	start_parent_loop (self, debug=False)

Detailed Description

 Generate a Fortran subroutine

Definition at line 706 of file f2pygen.py.

Constructor & Destructor Documentation

◆ init()

def psyclone.f2pygen.SubroutineGen.__init__	(	self,
		parent,
		name = `""`,
		args = `None`,
		implicitnone = `False`
	)

:param parent: node in AST to which to add Subroutine as a child
:type parent: :py:class:`psyclone.f2pygen.BaseGen`
:param str name: name of the Fortran subroutine
:param list args: list of arguments accepted by the subroutine
:param bool implicitnone: whether or not we should specify
                          "implicit none" for the body of this
                          subroutine

Definition at line 708 of file f2pygen.py.

     def __init__(self, parent, name="", args=None, implicitnone=False):
         '''
         :param parent: node in AST to which to add Subroutine as a child
         :type parent: :py:class:`psyclone.f2pygen.BaseGen`
         :param str name: name of the Fortran subroutine
         :param list args: list of arguments accepted by the subroutine
         :param bool implicitnone: whether or not we should specify
                                   "implicit none" for the body of this
                                   subroutine
         '''
         reader = FortranStringReader(
             "subroutine vanilla(vanilla_arg)\nend subroutine")
         reader.set_format(FortranFormat(True, True))  # free form, strict
         subline = reader.next()
         endsubline = reader.next()
  
         from fparser.one.block_statements import Subroutine, EndSubroutine
         self._sub = Subroutine(parent.root, subline)
         self._sub.name = name
         if args is None:
             args = []
         self._sub.args = args
         endsub = EndSubroutine(self._sub, endsubline)
         self._sub.content.append(endsub)
         ProgUnitGen.__init__(self, parent, self._sub)
         if implicitnone:
             self.add(ImplicitNoneGen(self))
  

References psyclone.f2pygen.SubroutineGen._sub, psyclone.f2pygen.IfThenGen.add(), psyclone.f2pygen.ProgUnitGen.add(), psyclone.f2pygen.DoGen.add(), psyclone.psyir.symbols.datatypes.StructureType.add(), psyclone.f2pygen.BaseGen.add(), and psyclone.psyir.symbols.symbol_table.SymbolTable.add().

Here is the call graph for this function:

Member Function Documentation

◆ args() [1/2]

def psyclone.f2pygen.SubroutineGen.args ( self )

 Returns the list of arguments of this subroutine

Definition at line 737 of file f2pygen.py.

     def args(self):
         ''' Returns the list of arguments of this subroutine '''
         return self._sub.args
  

References psyclone.f2pygen.SubroutineGen._sub.

Here is the caller graph for this function:

◆ args() [2/2]

def psyclone.f2pygen.SubroutineGen.args	(	self,
		namelist
	)

 sets the subroutine arguments to the values in the list provide.

Definition at line 742 of file f2pygen.py.

     def args(self, namelist):
         ''' sets the subroutine arguments to the values in the list provide.'''
         self._sub.args = namelist
  
  

References psyclone.f2pygen.SubroutineGen._sub, and psyclone.f2pygen.SubroutineGen.args().