/*
@Node Header
@Next Macro

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

Comments:

Create  a  nine  node quad element by selecting nine existing nodes (corner
nodes  first, then midside nodes, center node last) 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 'quad9 0 'result%1
    else 'quad9 0 1'
end
exit