*HEADING
 STD_TWINIT_AX_DCAY: INITIALIZATION OF ACOUSTIC FIELDS IN TOTAL WAVE FORMULATION
*PREPRINT,ECHO=NO,HISTORY=yes,MODEL=NO
*****************************************
*part, name = acax3
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*ELEMENT,TYPE=ACAX3
*ELGEN,ELSET=CHANNEL
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*end part
***************************************
*part,name = acax4
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=LOAD
*ELEMENT,TYPE=ACAX4
*ELGEN,ELSET=CHANNEL
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*end part
*part,name=acax6
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=LOAD
*ELEMENT,TYPE=ACAX6
*ELSET,ELSET=CHANNEL,generate
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*end part
*********************************************
*part,name=acax8
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=LOAD
*ELEMENT,TYPE=ACAX8
*ELGEN,ELSET=CHANNEL
*ELEMENT,TYPE=ACAX8
*ELGEN,ELSET=channel
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*end part
************************************************
*assembly,name=all
*instance,part=acax3,name=acax3
*endinstance
*instance,part=acax4,name=acax4
*endinstance
*instance,part=acax6,name=acax6
*endinstance
*instance,part=acax8,name=acax8
*endinstance
**************************
*SURFACE,NAME=IW_LOAD
acax3.2,S3
acax4.1,S4
acax6.2,S2
acax8.1,S4
**************************
*endassembly
***************************************
*MATERIAL,NAME=AIR
*DENSITY
 1.21,
*ACOUSTIC MEDIUM,BULK MODULUS
**
*acousticwaveformulation,type=tot
**************************
*INCIDENT WAVE PROPERTY,NAME=IWPROP,TYPE=S
*INCIDENT WAVE FLUID PROPERTY
*AMPLITUDE,DEFINITION=TABULAR,NAME=PRESSUREVTIME
0.0,0.0,.03,1.0,.06,0.0
*AMPLITUDE, NAME=PULSE-D-2, DEFINITION=DECAY, TIME=TOTAL TIME, VALUE=RELATIVE
0.0, 1.0,  0.0, 0.01
*amplitude,name=sine2,definition=periodic,time=totaltime,value=relative
1,48.e0,0.0,0,
0,1,0,0,
**************************
*RESTART,WRITE
**
*STEP
*STEADYSTATE DYNAMICS,DIRECT
*NODE PRINT,F=0
*EL PRINT,F=0
*OUTPUT,FIELD,Frequency=0
*END STEP
**
*STEP
*DYNAMIC,direct
 0.01,.04,
**
*INCIDENT WAVE,PRESSUREAMPLITUDE=PULSE-D-2,PROPERTY=IWPROP
IW_LOAD,1.000
**
*EL PRINT,FREQUENCY=0
*OUTPUT,FIELD,FREQ=1
*NODE OUTPUT
 POR,
*OUTPUT,HISTORY,frequency=0
*ENDSTEP