fparser.one.block_statements
Fortran block statements.
Module Contents
Classes
Dummy End statement for BeginSource. |
|
Fortran source content. |
|
END [<blocktype> [<name>]] |
|
MODULE <name> |
|
END [<blocktype> [<name>]] |
|
PYTHON MODULE <name> |
|
END [PROGRAM [name]] |
|
PROGRAM [name] |
|
END [BLOCK DATA [<block-data-name>]] |
|
BLOCK DATA [<block-data-name>] |
|
END [<blocktype> [<name>]] |
|
INTERFACE [<generic-spec>] | ABSTRACT INTERFACE |
|
END [SUBROUTINE [name]] |
|
[<prefix>] SUBROUTINE <name> [( [<dummy-arg-list>] ) |
|
END [FUNCTION [name]] |
|
END [<blocktype> [<name>]] |
|
[<case-construct-name> :] SELECT CASE ( <case-expr> ) |
|
[<case-construct-name> :] SELECT TYPE ( <case-expr> ) |
|
END WHERE [<where-construct-name>] |
|
END FORALL [<forall-construct-name>] |
|
END IF [<if-construct-name>] |
|
[<if-construct-name> :] IF ( <scalar-logical-expr> ) THEN |
|
IF ( <scalar-logical-expr> ) action-stmt |
|
END DO [<do-construct-name>] |
|
[<do-construct-name> :] DO label [loopcontrol] |
|
END ASSOCIATE [<associate-construct-name>] |
|
[<associate-construct-name> :] ASSOCIATE ( <association-list> ) |
|
END TYPE [<type-name>] |
|
END ENUM |
|
ENUM , BIND(C) |
Attributes
- class fparser.one.block_statements.EndSource(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
Dummy End statement for BeginSource.
- class fparser.one.block_statements.BeginSource(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
Fortran source content.
- class fparser.one.block_statements.EndModule(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [<blocktype> [<name>]]
EndStatement instances have additional attributes:
name blocktype
- class fparser.one.block_statements.Module(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
,HasAttributes
,HasImplicitStmt
,HasUseStmt
,HasVariables
,HasTypeDecls
,AccessSpecs
- MODULE <name>
END [MODULE [name]]
- get_provides()[source]
Returns dictonary containing statements that block provides or None when N/A.
- class fparser.one.block_statements.EndPythonModule(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [<blocktype> [<name>]]
EndStatement instances have additional attributes:
name blocktype
- class fparser.one.block_statements.PythonModule(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
,HasImplicitStmt
,HasUseStmt
,HasVariables
- PYTHON MODULE <name>
END [PYTHON MODULE [name]]
- class fparser.one.block_statements.EndProgram(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [PROGRAM [name]]
- class fparser.one.block_statements.Program(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
,fparser.common.base_classes.ProgramBlock
,HasVariables
,HasImplicitStmt
,HasUseStmt
,AccessSpecs
PROGRAM [name]
- class fparser.one.block_statements.EndBlockData(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [BLOCK DATA [<block-data-name>]]
- class fparser.one.block_statements.BlockData(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
,HasImplicitStmt
,HasUseStmt
,HasVariables
,AccessSpecs
BLOCK DATA [<block-data-name>]
- class fparser.one.block_statements.EndInterface(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [<blocktype> [<name>]]
EndStatement instances have additional attributes:
name blocktype
- class fparser.one.block_statements.Interface(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
,HasAttributes
,HasImplicitStmt
,HasUseStmt
,HasModuleProcedures
,AccessSpecs
INTERFACE [<generic-spec>] | ABSTRACT INTERFACE END INTERFACE [<generic-spec>]
- <generic-spec> = <generic-name>
- OPERATOR ( <defined-operator> )ASSIGNMENT ( = )<dtio-generic-spec>
- <dtio-generic-spec> = READ ( FORMATTED )
- READ ( UNFORMATTED )WRITE ( FORMATTED )WRITE ( UNFORMATTED )
- class fparser.one.block_statements.EndSubroutine(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [SUBROUTINE [name]]
- class fparser.one.block_statements.Subroutine(parent, item=None)[source]
Bases:
SubProgramStatement
[<prefix>] SUBROUTINE <name> [( [<dummy-arg-list>] ) [<proc-language-binding-spec>]]
- class fparser.one.block_statements.EndFunction(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [FUNCTION [name]]
- class fparser.one.block_statements.Function(parent, item=None)[source]
Bases:
SubProgramStatement
[<prefix>] FUNCTION <name> ( [<dummy-arg-list>] ) [<suffix>] <prefix> = <prefix-spec> [<prefix-spec>]... <prefix-spec> = <declaration-type-spec> | RECURSIVE | PURE | ELEMENTAL <suffix> = <proc-language-binding-spec> [RESULT ( <result-name> )] | RESULT ( <result-name> ) [<proc-language-binding-spec>]
- class fparser.one.block_statements.EndSelect(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END [<blocktype> [<name>]]
EndStatement instances have additional attributes:
name blocktype
- class fparser.one.block_statements.SelectCase(parent, item=None)[source]
Bases:
Select
[<case-construct-name> :] SELECT CASE ( <case-expr> )
- class fparser.one.block_statements.SelectType(parent, item=None)[source]
Bases:
Select
[<case-construct-name> :] SELECT TYPE ( <case-expr> )
- class fparser.one.block_statements.EndWhere(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END WHERE [<where-construct-name>]
- class fparser.one.block_statements.EndForall(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END FORALL [<forall-construct-name>]
- class fparser.one.block_statements.EndIfThen(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END IF [<if-construct-name>]
- class fparser.one.block_statements.IfThen(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
[<if-construct-name> :] IF ( <scalar-logical-expr> ) THEN
- IfThen instance has the following attributes:
expr
- class fparser.one.block_statements.If(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
IF ( <scalar-logical-expr> ) action-stmt
- class fparser.one.block_statements.EndDo(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END DO [<do-construct-name>]
- class fparser.one.block_statements.Do(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
[<do-construct-name> :] DO label [loopcontrol] [<do-construct-name> :] DO [loopcontrol]
- process_item()[source]
Parses the next line assuming it is a “Do” statement.
Overrides method in BeginStatement.
- class fparser.one.block_statements.EndAssociate(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END ASSOCIATE [<associate-construct-name>]
- class fparser.one.block_statements.Associate(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
- [<associate-construct-name> :] ASSOCIATE ( <association-list> )
<block>
<association> = <associate-name> => <selector> <selector> = <expr> | <variable>
- class fparser.one.block_statements.EndType(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END TYPE [<type-name>]
- class fparser.one.block_statements.EndEnum(parent, item)[source]
Bases:
fparser.common.base_classes.EndStatement
END ENUM
- class fparser.one.block_statements.Enum(parent, item=None)[source]
Bases:
fparser.common.base_classes.BeginStatement
- ENUM , BIND(C)
<enumerator-def-stmt> [<enumerator-def-stmt>]…