*HEADING
EC38AFP5: PATCH TEST FOR ACCOUSTIC ELEMENTS [AC3D8]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE, Nset=ODB_NSET
10,0.,0.,1.
20,1.,0.,1.
120,1.,0.,0.
110,0.,0.,0.
100,0.32,0.186,0.643
202,0.677,0.305,0.683
302,.826,.288,.288
400,.249,.342,.192
102,.165,.745,.702
200,.788,.693,.644
300,.850,.649,.263
402,.273,.750,.230
12,0.,1.,1.
22,1.,1.,1.
320,1.,1.,0.
420,0.,1.,0.
*NSET,NSET=SIDES
10, 
20, 
110, 
120, 
12, 
22, 
320, 
420, 
*ELEMENT,TYPE=AC3D8, ELSET=EALL
1,10,20,120,110,100,202,302,400
2,10,100,400,110,12,102,402,420
3,100,202,302,400,102,200,300,402
4,202,20,120,302,200,22,320,300
5,102,200,300,402,12,22,320,420
6,302,120,110,400,300,320,420,402
7,20,202,100,10,22,200,102,12
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
*MATERIAL,NAME=A1
*ACOUSTIC MEDIUM,BULK MODULUS
2.0E+09, 
*DENSITY
1.0E+03, 
*RESTART,WRITE
**
** Sets added by addodb
**
*Elset,Elset=ODB_ESET
EALL,
**
**
*Nset, Nset=ODB_NSET
ODB_NSET, SIDES
**
**
*STEP
 ACCOUSTIC PATCH TEST
*STEADY STATE DYNAMICS, DIRECT
.01,
*BOUNDARY
 10, 8,  ,200.
 20, 8,  ,400.
120, 8,  ,200.
110, 8,  , 0.0
 12, 8,  ,300.
 22, 8,  ,500.
320, 8,  ,300.
420, 8,  ,100.
*NODE PRINT, FREQ=2
 POR, 
*EL PRINT, FREQ=2
*OUTPUT,FIELD,VARIABLE=PRESELECT,OP=ADD,FREQUENCY=9999
*OUTPUT,FIELD, OP=ADD,Frequency=2
*NODE OUTPUT
 POR, 
*OUTPUT,HISTORY,OP=ADD,Frequency=2
*NODE OUTPUT, Nset=ODB_NSET
 POR, 
*OUTPUT,FIELD, OP=ADD,Frequency=0
*ELEMENT OUTPUT
*OUTPUT,HISTORY,OP=ADD,Frequency=0
*ELEMENT OUTPUT, Elset=ODB_ESET
*ENDSTEP