/*
@Node Header
@Next Macro

Code:       dispx.rexx
Author:     Russell Leighton
Revision:   16 Feb 1994

Comments:

Create  a displacement boundary condition in the x direction by selecting a
node  with  the  mouse.   The value of the displacement may be set with the
variable 'disp'.

@EndNode
@Node Macro
*/

options results

if show('ports', "AMI2D") then do
    address ami2d
    'get disp'
    'dispx 0 'result
end
exit