Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11034 lines (11033 sloc) 266 KB
<?xml version="1.0" encoding="UTF-8"?>
<xns1:grammar xmlns:xns1="http://planet-sl.org/bgf">
<root>ExecutableProgram</root>
<xns1:production>
<nonterminal>ExecutableProgram</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>StartCommentBlock</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<plus>
<xns1:expression>
<nonterminal>ProgramUnit</nonterminal>
</xns1:expression>
</plus>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ProgramUnit</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>MainProgram</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FunctionSubprogram</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubroutineSubprogram</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Module</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>BlockDataSubprogram</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>MainProgram</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>ProgramStmt</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>MainRange</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ProgramStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>program</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ProgramName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>LblDef</nonterminal>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Label</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ProgramName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>MainRange</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<plus>
<xns1:expression>
<nonterminal>BodyConstruct</nonterminal>
</xns1:expression>
</plus>
</xns1:expression>
<xns1:expression>
<nonterminal>EndProgramStmt</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>InternalSubProgPart</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EndProgramStmt</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>EndProgramStmt</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>BodyConstruct</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>SpecificationPartConstruct</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ExecutableConstruct</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SpecificationPartConstruct</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>ImplicitStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ParameterStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FormatStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EntryStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DeclarationConstruct</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>UseStmt</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ImplicitStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>implicit</terminal>
</xns1:expression>
<xns1:expression>
<terminal>none</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>implicit</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ImplicitSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ImplicitSpec</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ImplicitSpec</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>TypeSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>LetterSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>LetterSpec</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>TypeSpec</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>integer</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>real</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>double</terminal>
</xns1:expression>
<xns1:expression>
<terminal>precision</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>complex</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>character</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CharSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>logical</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>type</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<terminal>integer</terminal>
</xns1:expression>
<xns1:expression>
<terminal>real</terminal>
</xns1:expression>
<xns1:expression>
<terminal>complex</terminal>
</xns1:expression>
<xns1:expression>
<terminal>logical</terminal>
</xns1:expression>
<xns1:expression>
<terminal>character</terminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>character</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>LengthSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>KindSelector</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>kind</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Expr</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DefinedBinaryOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Level5Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DefinedBinaryOp</nonterminal>
<xns1:expression>
<nonterminal>Dop</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Level5Expr</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Level5Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivOperand</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EquivOp</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>.eqv.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.neqv.</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EquivOperand</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>EquivOperand</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>OrOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>OrOperand</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>OrOp</nonterminal>
<xns1:expression>
<terminal>.or.</terminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>OrOperand</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>OrOperand</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AndOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>AndOperand</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AndOp</nonterminal>
<xns1:expression>
<terminal>.and.</terminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AndOperand</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>NotOp</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Level4Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NotOp</nonterminal>
<xns1:expression>
<terminal>.not.</terminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Level4Expr</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Level3Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>RelOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Level3Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Level3Expr</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Level3Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ConcatOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Level2Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ConcatOp</nonterminal>
<xns1:expression>
<terminal>//</terminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Level2Expr</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Level2Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AddOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>AddOperand</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Sign</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AddOperand</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AddOp</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>+</terminal>
</xns1:expression>
<xns1:expression>
<terminal>-</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AddOperand</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>AddOperand</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>MultOp</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>MultOperand</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>MultOp</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>MultOperand</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Level1Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>PowerOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>MultOperand</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Level1Expr</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>DefinedUnaryOp</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Primary</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DefinedUnaryOp</nonterminal>
<xns1:expression>
<nonterminal>Dop</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Primary</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>ArrayConstructor</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>UnsignedArithmeticConstant</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataRef</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FunctionReference</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>Scon</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>LogicalConstant</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArrayConstructor</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(/</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AcValueList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>/)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AcValueList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>AcValue</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AcValue</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AcValue</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AcImpliedDo</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AcImpliedDo</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ImpliedDoVariable</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ImpliedDoVariable</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AcImpliedDo</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ImpliedDoVariable</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AcImpliedDo</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ImpliedDoVariable</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ImpliedDoVariable</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>UnsignedArithmeticConstant</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>_</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindParam</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Rcon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>_</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindParam</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Rcon</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ComplexConst</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>KindParam</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamedConstantUse</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamedConstantUse</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ComplexConst</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Name</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataRef</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>%</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DataRef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>%</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SectionSubscriptList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DataRef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SectionSubscriptList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SectionSubscriptList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>SectionSubscript</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SectionSubscript</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SectionSubscript</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubscriptTriplet</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SubscriptTriplet</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>FunctionReference</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>FunctionArgList</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>FunctionArgList</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>FunctionArg</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>FunctionArgList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FunctionArg</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>SectionSubscriptList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FunctionArg</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>FunctionArg</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>LogicalConstant</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>.true.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>_</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindParam</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>.false.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>_</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>KindParam</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<terminal>.true.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.false.</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>PowerOp</nonterminal>
<xns1:expression>
<terminal>**</terminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Sign</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>+</terminal>
</xns1:expression>
<xns1:expression>
<terminal>-</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>RelOp</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>==</terminal>
</xns1:expression>
<xns1:expression>
<terminal>/=</terminal>
</xns1:expression>
<xns1:expression>
<terminal>&lt;</terminal>
</xns1:expression>
<xns1:expression>
<terminal>&lt;=</terminal>
</xns1:expression>
<xns1:expression>
<terminal>&gt;</terminal>
</xns1:expression>
<xns1:expression>
<terminal>&gt;=</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.eq.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.ne.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.lt.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.le.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.gt.</terminal>
</xns1:expression>
<xns1:expression>
<terminal>.ge.</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>CharSelector</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<terminal>len</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeParamValue</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<terminal>kind</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<terminal>len</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeParamValue</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<terminal>len</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeParamValue</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>kind</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>TypeParamValue</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>SpecificationExpr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SpecificationExpr</nonterminal>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>TypeName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>LengthSelector</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeParamValue</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CharLength</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>CharLength</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeParamValue</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>ScalarIntLiteralConstant</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>LetterSpec</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Letter</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>-</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Letter</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ParameterStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>parameter</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamedConstantDefList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamedConstantDefList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>NamedConstantDef</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamedConstantDef</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamedConstantDef</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>NamedConstant</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamedConstant</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>FormatStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>format</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>FormatItemList</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>FormatItemList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>FormatItem</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FormatItem</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>FormatItem</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>DataEditDescr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>ControlEditDescr</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CharStringEditDescr</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FormatItemList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>FormatItem</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FormatItem</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataEditDescr</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>I</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>O</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>B</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>Z</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>F</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>E</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>E</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>EN</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>E</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>ES</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>E</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>G</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>E</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>L</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>A</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>D</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>.</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ControlEditDescr</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>PositionEditDescr</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SignEditDescr</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>-</terminal>
</xns1:expression>
<xns1:expression>
<terminal>+</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>P</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>DataEditDescr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>BlankInterpEditDescr</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>PositionEditDescr</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>T</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>TL</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>TR</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>X</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SignEditDescr</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>S</terminal>
</xns1:expression>
<xns1:expression>
<terminal>SP</terminal>
</xns1:expression>
<xns1:expression>
<terminal>SS</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>BlankInterpEditDescr</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>BN</terminal>
</xns1:expression>
<xns1:expression>
<terminal>BZ</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>CharStringEditDescr</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>Scon</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>H</terminal>
</xns1:expression>
<xns1:expression>
<plus>
<xns1:expression>
<nonterminal>Character</nonterminal>
</xns1:expression>
</plus>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EntryStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>entry</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EntryName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubroutineParList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>entry</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EntryName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubroutineParList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>result</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EntryName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SubroutineParList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>SubroutinePar</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubroutinePar</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SubroutinePar</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>DummyArgName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DummyArgName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DeclarationConstruct</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>TypeDeclarationStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SpecificationStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DerivedTypeDef</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>InterfaceBlock</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>TypeDeclarationStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AttrSpec</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EntityDecl</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EntityDecl</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TypeSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EntityDecl</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EntityDecl</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AttrSpec</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>parameter</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AccessSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>allocatable</terminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>dimension</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArraySpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<terminal>external</terminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>intent</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntentSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<terminal>intrinsic</terminal>
</xns1:expression>
<xns1:expression>
<terminal>optional</terminal>
</xns1:expression>
<xns1:expression>
<terminal>pointer</terminal>
</xns1:expression>
<xns1:expression>
<terminal>save</terminal>
</xns1:expression>
<xns1:expression>
<terminal>target</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AccessSpec</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>public</terminal>
</xns1:expression>
<xns1:expression>
<terminal>private</terminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArraySpec</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>AssumedShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DeferredShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ExplicitShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AssumedSizeSpec</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AssumedShapeSpecList</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LowerBound</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DeferredShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>LowerBound</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>AssumedShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AssumedShapeSpec</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>LowerBound</nonterminal>
<xns1:expression>
<nonterminal>SpecificationExpr</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DeferredShapeSpecList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DeferredShapeSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DeferredShapeSpec</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DeferredShapeSpec</nonterminal>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AssumedShapeSpec</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>LowerBound</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ExplicitShapeSpecList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ExplicitShapeSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ExplicitShapeSpec</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ExplicitShapeSpec</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LowerBound</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>UpperBound</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>UpperBound</nonterminal>
<xns1:expression>
<nonterminal>SpecificationExpr</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AssumedSizeSpec</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LowerBound</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ExplicitShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ExplicitShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>LowerBound</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>IntentSpec</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<terminal>in</terminal>
</xns1:expression>
<xns1:expression>
<terminal>out</terminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>in</terminal>
</xns1:expression>
<xns1:expression>
<terminal>out</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EntityDecl</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArraySpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CharLength</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CharLength</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArraySpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CharLength</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArraySpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArraySpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CharLength</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ObjectName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SpecificationStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>AccessStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AllocatableStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CommonStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DimensionStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivalenceStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ExternalStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntrinsicStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SaveStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntentStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamelistStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>OptionalStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>PointerStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TargetStmt</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AccessStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AccessSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AccessIdList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AccessSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>AccessIdList</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AccessIdList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>AccessId</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AccessId</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AccessId</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>GenericName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>GenericSpec</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>GenericName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>GenericSpec</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>operator</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DefinedOperator</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>assignment</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DefinedOperator</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>Dop</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>PowerOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>MultOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AddOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ConcatOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>RelOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NotOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>AndOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>OrOp</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivOp</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>AllocatableStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>allocatable</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArrayAllocationList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>allocatable</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArrayAllocationList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArrayAllocationList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ArrayAllocation</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArrayAllocation</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArrayAllocation</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ArrayName</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DeferredShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArrayName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>CommonStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>common</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>Comblock</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>CommonBlockObjectList</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>Comblock</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CommonBlockObjectList</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Comblock</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>CommonBlockName</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>CommonBlockName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>CommonBlockObjectList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>CommonBlockObject</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CommonBlockObject</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>CommonBlockObject</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArrayDeclarator</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>VariableName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArrayDeclarator</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArraySpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>data</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Datalist</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Datalist</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DataStmtSet</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataStmtSet</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataStmtSet</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DataStmtObjectList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataStmtValueList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataStmtObjectList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DataStmtObject</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataStmtObject</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataStmtObject</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>Variable</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataImpliedDo</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Variable</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Subscript</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Subscript</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubstringRange</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Subscript</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Subscript</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubstringRange</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Subscript</nonterminal>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SubstringRange</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SubscriptTriplet</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataImpliedDo</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataIDoObjectList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ImpliedDoVariable</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>=</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataIDoObjectList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DataIDoObject</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataIDoObject</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataIDoObject</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>ArrayElement</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataImpliedDo</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>StructureComponent</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArrayElement</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>StructureComponent</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SectionSubscriptList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SectionSubscriptList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>StructureComponent</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FieldSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>StructureComponent</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>FieldSelector</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>FieldSelector</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SectionSubscriptList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<terminal>%</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>%</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Name</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataStmtValueList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DataStmtValue</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DataStmtValue</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DataStmtValue</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>Constant</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>NamedConstantUse</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>*</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Constant</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>Constant</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>NamedConstantUse</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>UnsignedArithmeticConstant</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>+</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>UnsignedArithmeticConstant</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>-</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>UnsignedArithmeticConstant</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>Scon</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>LogicalConstant</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>Icon</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>_</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Scon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>NamedConstantUse</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>_</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Scon</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<nonterminal>StructureConstructor</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>BozLiteralConstant</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>StructureConstructor</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>TypeName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Expr</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>BozLiteralConstant</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>BinaryConstant</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>OctalConstant</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>HexConstant</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DimensionStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>dimension</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArrayDeclaratorList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>dimension</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArrayDeclaratorList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ArrayDeclaratorList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ArrayDeclarator</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArrayDeclarator</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EquivalenceStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>equivalence</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivalenceSetList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EquivalenceSetList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>EquivalenceSet</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivalenceSet</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EquivalenceSet</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivalenceObject</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivalenceObject</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EquivalenceObject</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>EquivalenceObject</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>ArrayName</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>Variable</nonterminal>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ExternalStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>external</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ExternalName</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ExternalName</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>ExternalName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>IntrinsicStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>intrinsic</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntrinsicProcedureName</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntrinsicProcedureName</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>IntrinsicProcedureName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SaveStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>save</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SavedEntityList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>save</terminal>
</xns1:expression>
<xns1:expression>
<optional>
<xns1:expression>
<nonterminal>SavedEntityList</nonterminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SavedEntityList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>SavedEntity</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>SavedEntity</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>SavedEntity</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>CommonBlockName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>IntentStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>intent</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntentSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntentParList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>intent</terminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntentSpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntentParList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>IntentParList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>IntentPar</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>IntentPar</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>IntentPar</nonterminal>
<xns1:expression>
<nonterminal>DummyArgName</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamelistStmt</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>namelist</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamelistGroup</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<optional>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
</optional>
</xns1:expression>
<xns1:expression>
<nonterminal>NamelistGroup</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamelistGroup</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamelistGroupName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>/</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamelistGroupObject</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>NamelistGroupObject</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamelistGroupName</nonterminal>
<xns1:expression>
<nonterminal>Ident</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>NamelistGroupObject</nonterminal>
<xns1:expression>
<nonterminal>VariableName</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>OptionalStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>optional</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>OptionalParList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>optional</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>OptionalParList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>OptionalParList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>OptionalPar</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>OptionalPar</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>OptionalPar</nonterminal>
<xns1:expression>
<nonterminal>DummyArgName</nonterminal>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>PointerStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>pointer</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>PointerStmtObjectList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>pointer</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>PointerStmtObjectList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>PointerStmtObjectList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>PointerStmtObject</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>PointerStmtObject</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>PointerStmtObject</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>DeferredShapeSpecList</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>TargetStmt</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>target</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<terminal>:</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TargetObjectList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>LblDef</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>target</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TargetObjectList</nonterminal>
</xns1:expression>
<xns1:expression>
<nonterminal>EOS</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>TargetObjectList</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>TargetObject</nonterminal>
</xns1:expression>
<xns1:expression>
<star>
<xns1:expression>
<sequence>
<xns1:expression>
<terminal>,</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>TargetObject</nonterminal>
</xns1:expression>
</sequence>
</xns1:expression>
</star>
</xns1:expression>
</sequence>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>TargetObject</nonterminal>
<xns1:expression>
<choice>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>ObjectName</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>(</terminal>
</xns1:expression>
<xns1:expression>
<nonterminal>ArraySpec</nonterminal>
</xns1:expression>
<xns1:expression>
<terminal>)</terminal>
</xns1:expression>
</sequence>
</xns1:expression>
</choice>
</xns1:expression>
</xns1:production>
<xns1:production>
<nonterminal>DerivedTypeDef</nonterminal>
<xns1:expression>
<sequence>
<xns1:expression>
<nonterminal>DerivedTypeStmt</nonterminal>
</xns1:expression>
<xns1:expression>
<plus>
<xns1:expression>
<nonterminal>DerivedTypeBody</nonterminal>
</xns1:expression>
</plus>
</xns1:expression>
<xns1:expression>
<nonterminal>EndTypeStmt</nonterminal>
</xns1:expression>
</sequence>