*Heading EXPLICIT-TO-STANDARD IMPORT *PREPRINT,MODEL=YES *IMPORT, STATE=YES, UPDATE=NO SOLID, FLUID *PARAMETER f=15 omega=2*3.14159*f *AMPLITUDE,NAME=SINE,DEF=PERIODIC 1,,-0.005,0.0 0,1,0,0 *SURFACE,NAME=SOLID 3,S2 4,S2 *SURFACE,NAME=FLUID 14,S3 16,S3 26,S3 28,S3 *TIE,NAME=COUPLE SOLID,FLUID *NSET, NSET=BACK_S 1,3,5,7,1010,1100 *NSET,NSET=FRONT_F 12,14,16, 18, 1050,1500 *BOUNDARY BACK_S,1,3 *STEP *DYNAMIC, HAFTOL=2.5e08 0.0001,0.005,0.0001,0.005 *BOUNDARY,AMP=SINE FRONT_F,8,,1e10 *END STEP