#This template will export mesh topology (Quad. and Triang.) to a .inc file
#and all node and element parameters each to a different file.
#Note that since file names will be that of the parameters names
#You should use short paramters names when working with a PC
Redirect output to: $BaseNameNoExt$.inc
	Start a new line
		Export expression: NumElements(); [I8]
		Export expression: NumNodes() [I8]
	End line
	Loop for: Nodes
		Start a new line
			Export expression: "N";
			Export expression: NodeNumber(); [I8]
			Export expression: PositionX(); [F8.2]
			Export expression: PositionY() [F8.2]
		End line
	End loop
	Loop for: Elements
		Start a new line
			Export expression: "E";
			Export expression: ElementNumber(); [I8]
			Export expression: NthNodeNum(1); [I8]
			Export expression: NthNodeNum(2); [I8]
			Export expression: NthNodeNum(3) [I8]
			if: NthNodeNum(1) != NthNodeNum(4)
				Export expression: ;NthNodeNum(4) [I8]
			end if
		End line
	End loop
End file
# 
# output each node parameter to a different file
# 
Loop for: Node Parameters
	Redirect output to: $parameter$.dat
		Loop for: Nodes
			Start a new line
				Export expression: NodeNumber(); [I5]
				Export expression: $parameter$ [E20.6]
			End line
		End loop
	End file
End loop
#
# output each element parameter to a different file
#
Loop for: Element Parameters
	Redirect output to: $parameter$.dat
		Loop for: Elements
			Start a new line
				Export expression: ElementNumber(); [I5]
				Export expression: $parameter$ [E20.6]
			End line
		End loop
	End file
End loop