BeginPackage[ "AVSOutputField3`"]

AVSWriteField::usage = "AVSWriteField[ data] will write a three-dimensional
        field of scalars from Mathematica into AVS."

AVSLinkName::usage = "AVSLinkName is the name of the MathLink connection
        which is used to connect Mathematica and AVS."

Begin["Private`"]

AVSLinkName = LinkOpen[ AVSSocket, LinkMode -> Connect]

AVSWriteField[data_ /; MatrixQ[ data]] := LinkWrite[ AVSLinkName, N[data] ]

End[]

EndPackage[]