*HEADING
: MODEL CHANGE ACOUSTICS TESTS  [ACIN2D3]
*PREPRINT,ECHO=YES,MODEL=YES,HISTORY=YES
*restart,write
*NODE, Nset=ODB_NSET
1,   10.0, 1.,0.
41,  20.0, 2.,0.,  1., 0.1, 0.
1001,10.0,-1.,0.,
1041,20.0,-2.,0.,  1., -.1, 0.
*NGEN,NSET=NALL1
1,41
*NGEN,NSET=NALL2
1001,1041
*NFILL,NSET=NALL
NALL1,NALL2,2,500
*ELEMENT,TYPE=AC2D8,ELSET=EALL
1,1,1001,1005,5,501,1003,505,3
*ELGEN,ELSET=EALL
1,10,4,1
**************************************
*ELEMENT,TYPE=ACIN2D3,ELSET=INF
11, 41,1041,541
*ELSET,ELSET=SECOND
6,6,7,8,9,10,11
*MATERIAL,NAME=AIR
*DENSITY
1.293, 
*ACOUSTIC MEDIUM,BULK MODULUS
1.42176E5, 
*SOLID SECTION,MATERIAL=AIR,ELSET=EALL
*SOLID SECTION,MATERIAL=AIR,ELSET=INF
1., 0.,0.,0.
*NSET,NSET=QA_TEST,GEN
1,21
*NSET,NSET=DRIV
1, 1001,501
**************************************
*Elset,Elset=ODB_ESET
SECOND, EALL
**
**
*Nset, Nset=ODB_NSET
ODB_NSET, NALL, QA_TEST, DRIV
**
**
*STEP
SECTOR USING INFINITE ELEMENT
*STEADY STATE DYNAMIC,DIRECT
1.,10.0,2
*BOUNDARY
DRIV,8,,1.
*NODE PRINT,NSET=QA_TEST
POR,
*ENERGYPRINT
*OUTPUT,FIELD
*ELEMENTOUTPUT
ENER,INTEN,ELEN
*NODE OUTPUT
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=QA_TEST
POR,
*ENDSTEP
**************************************
*STEP
DUMMY STEP TO EXECUTE CHANGE OF MODEL
*STATIC
1,1
*MODEL CHANGE,REMOVE
SECOND,
*OUTPUT,FIELD,VAR=PRESELECT
*ENDSTEP
**************************************
*STEP
SHORTENED SECTOR USING IMPEDANCE
*STEADY STATE DYNAMIC,DIRECT
1.,10.0,2
*IMPEDANCE,OP=NEW,NON=CIRC
5,I3,17.50,
*BOUNDARY
DRIV,8,,1.
*NODE PRINT,NSET=QA_TEST
POR,
*ENERGYPRINT
*OUTPUT,FIELD
*ELEMENTOUTPUT
ENER,INTEN,ELEN
*NODE OUTPUT
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=QA_TEST
POR,
*ENDSTEP