/*
@Node Header
@Next Macro

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

Comments:

Create  a  four  node  quad element by selecting four existing nodes in the
counterclockwise  direction.   The  material  number  may  be  set with the
variable 'material'.

@EndNode
@Node Macro
*/

options results

if show('ports', "AMI2D") then do
    address ami2d
    'get material'
    if length(result) > 0 then 'quad4 0 'result%1
    else 'quad4 0 1'
end
exit