# Template to export grid matrices while flipping row order
#
# Template contributed by: Argus Tech Support Dept.
# Posted: May 96
# Many thanks to Mr. Starn (USGS) for finding an error
# in the first version.
Redirect output to: $BaseName$
	Start a new line
		Export expression: NumRows(); [I8]
		Export expression: NumColumns(); [I8]
		Export expression: NumBlockParameters()+1 [I8]
	End line
	Loop for: Rows
		Start a new line
			Export expression: NthRowPos(numrows()-$Row$) [F8.2]
		End line
	End loop
	Loop for: Columns
		Start a new line
			Export expression: NthColumnPos($Column$) [F8.2]
		End line
	End loop
	Loop for: Rows
		If: $row$<numrows()
			Start a new line
				Loop for: Columns
					If: $column$<numcolumns()
						Export expression: BlockIsActive(numrows()-$row$,$column$+1) [I5]
					End if
				End loop
			End line
		End if
	End loop
	Loop for: Parameters
		Start a new line
		End line
		Start a new line
			Export expression: "$Parameter$"
		End line
		Loop for: Rows
			If: $row$<numrows()
				Start a new line
					Loop for: Columns
						If: $column$<numcolumns()
							Export expression: $parameter$(0.5*(nthColumnPos($column$+1)+nthColumnPos($column$)),0.5*(nthRowPos(numrows()-$row$)+nthRowPos(numrows()-$row$-1))) [F8.2]
						End if
					End loop
				End line
			End if
		End loop
	End loop
End file