*HEADING
DUCT_ACIN3D8  [AC3D20]
*NODE, NSET=ODB_NSET
1, 
41,  0.,10.,0.,  0,1,0
1001,1.
1041,1.,10.,0.,  0,1,0
2001,0., 0.,1.
2041,0.,10.,1.,  0,1,0
3001,1.,,1.
3041,1.,10.,1.,  0,1,0
4001,,,.5
4041,0.,10.,.5,  0,1,0
5001,1.,,.5
5041,1.,10.,.5,  0,1,0
*NGEN,NSET=NALL1
1,41
2001,2041
*NGEN,NSET=NALL2
1001,1041
3001,3041
*NFILL,NSET=NALL
NALL1,NALL2,2,500
*NGEN,NSET=NALL3
4001,4041
5001,5041
*NSET,NSET=NALL
ODB_NSET,NALL1,NALL2,NALL3
*ELEMENT,TYPE=AC3D20,ELSET=EALL
1,1,1001,1005,5,2001,3001,3005,2005,501,1003,505,3,2501,3003,2505,
2003,4001,5001,5005,4005
*ELGEN,ELSET=EALL
1,10,4,1
*ELSET,ELSET=LINER
10
******************************************
*NCOPY,CHANGENUMBER=10000,OLDSET=NALL,NEWSET=INF,SHIFT
2,0,0
1,0,0,  0,1,0,0
*ELCOPY,ELEMENTSHIFT=10000,OLDSET=EALL,NEWSET=INF,SHIFTNODES=10000
*ELEMENT,TYPE=ACIN3D8,ELSET=INF
99998,11041,10041,12041,13041,10541,14041,12541,15041
*MATERIAL,NAME=AIR320
*DENSITY
1.25, 
*ACOUSTIC MEDIUM,BULK MODULUS
1.28E5, 
*SOLID SECTION,MATERIAL=AIR320,ELSET=EALL
*SOLIDSECTION,MATERIAL=AIR320,ELSET=INF
1.0, 2.5, -100.0, 0.5
*NSET,NSET=QA_TEST,GEN
1,41
10001,10041
*NSET,NSET=QA_TEST
11041,12041,13041,10541,14041,12541,15041
*NSET,NSET=DRIV
    1,  501, 1001, 2001, 2501, 3001, 4001, 5001,
10001,10501,11001,12001,12501,13001,14001,15001
*AMPLITUDE,DEFINITION=PERIO,NAME=COSINE
1,10.00,0.0,0.0
0.0,1.0,
***************************************
*STEP
*STEADY STATE DYNAMIC,DIRECT
1.,10.0,2
*BOUNDARY
DRIV,8,8,1.
*IMPEDANCE,OP=NEW
LINER,I5
*NODE PRINT,NSET=QA_TEST
POR,
*OUTPUT,FIELD, OP=NEW
*NODE OUTPUT
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=QA_TEST
POR,
*END STEP
***************************************
*STEP,INC=200
*DYNAMIC,DIRECT
1.0e-5,1.0e-3
*BOUNDARY,OP=NEW,AMPLITUDE=COSINE
DRIV,8,8,1.0
*IMPEDANCE,OP=NEW
LINER,I5
*NODE PRINT,NSET=QA_TEST,FREQ=40
POR,
*OUTPUT,FIELD,FREQUENCY=40
*NODE OUTPUT
POR,
*OUTPUT,HISTORY,OP=NEW,FREQ=40
*NODE OUTPUT,NSET=QA_TEST
POR,
*END STEP