*HEADING
 BASIC VERIFICATION OF USER SUBROUTINE DISP
 TEST TYPE: USER SUBROUTINE, TEST NAME: UDISP
*NODE,NSET=ALL
*NGEN,NSET=ALL
*ELEMENT,TYPE=T3D2, ELSET=EALL
*ELGEN, ELSET=EALL
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
1.,
*MATERIAL,NAME=A1
*ELASTIC
3.E6      , .3
*DENSITY
1.E-4,
**
** DEFINE THE IDENTICAL FUNCTION USED IN SUBROUTINE DISP VIA THE
** PERIODIC AMPLITUDE DEFINITION
**
*AMPLITUDE,DEFINITION=PERIODIC,TIME=TOTAL,VALUE=ABSOLUTE,NAME=SINCOS
1,.314159,0.,0.
.5,1.5
*STEP,INC=100
 RESPONSE AT NODES 2 AND 3 SHOULD BE IDENTICAL
*DYNAMIC
.5,10.
*BOUNDARY
1,1,1
*BOUNDARY,USER
2,1,1
3,1,1
4,1,1
*BOUNDARY,TYPE=DISPLACEMENT,AMPLITUDE=SINCOS
5,1,1
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=SINCOS
6,1,1
*BOUNDARY,TYPE=ACCELERATION,AMPLITUDE=SINCOS
7,1,1
*NSET,NSET=OUT,GENERATE
*EL PRINT,FREQ=0
*NODE PRINT,FREQ=10,NSET=OUT
U1,V1,A1
*NODE FILE,FREQ=5,NSET=OUT
U,V,A
*END STEP
*STEP,INC=100
 CONTINUE ANALYSIS IN ADDITIONAL STEP
*DYNAMIC
.5,2.
*END STEP