*HEADING
EC38AFAR: IMPEDANCE PROPERTY  [AC3D8]
*NODE, Nset=ODB_NSET
1, 
41,,10.
1001,1.
1041,1.,10.
2001,,,1.
2041,,10.,1.
3001,1.,,1.
3041,1.,10.,1.
*NGEN,NSET=ALL_NODES
1,41
1001,1041
2001,2041
3001,3041
*ELEMENT,TYPE=AC3D8,ELSET=ALL_ELEMENTS
1,1,1001,1003,3,2001,3001,3003,2003
*ELGEN,ELSET=ALL_ELEMENTS
1,20,2,1
*ELSET,ELSET=LINER5
20, 
*MATERIAL,NAME=AIR
*DENSITY
1.293, 
*ACOUSTIC MEDIUM,BULK MODULUS
1.42176e5, 
*SOLID SECTION,MATERIAL=AIR,ELSET=ALL_ELEMENTS
*IMPEDANCE PROPERTY,NAME=IMPED
0.0,2.332317E-3
*NSET,NSET=QA_TEST,GEN
1,41
*NSET,NSET=DRIVEN_NODES
1,1001,2001,3001
**
*STEP
*STEADY STATE DYNAMIC,DIRECT
1., 
5., 
10., 
15., 
20., 
25., 
50., 
75., 
100., 
*IMPEDANCE,prop=imped
LINER5,I5,
*BOUNDARY
DRIVEN_NODES,8,,1.
*NODE PRINT,NSET=QA_TEST
POR,
*OUTPUT,FIELD, OP=NEW
*NODE OUTPUT,NSET=QA_TEST
POR,
*OUTPUT,HISTORY,OP=ADD
*NODE OUTPUT,NSET=QA_TEST
POR,
*END STEP