*#for(i=1;i<=ElemsNNodeFace;i=i+1)
*Set Var j=LocalNodes(1)
*Set Var k=LocalNodes(2)
*# *j *\
*Set Var sx=Operation(NodesCoord(*k,1)-NodesCoord(*j,1))
*Set Var sy=Operation(NodesCoord(*k,2)-NodesCoord(*j,2))
*#End
*#//my sx=*sx sy=*sy
*#
*Set Var nx=Operation(-1.0*sy)
*Set Var ny=Operation(1.0*sx)
*#//my nx=*nx ny=*ny