*HEADING
 BASIC VERIFICATION OF USER SUBROUTINE VDISP
 TEST TYPE: USER SUBROUTINE, TEST NAME: VDISP_UVA
*NODE,NSET=qa_test
1, 
7    , 6.
*NGEN,NSET=qa_test
1,7
*ELEMENT,TYPE=T3D2, ELSET=EALL
1    , 1    , 2
*ELGEN, ELSET=EALL
1,6
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
1., 
*MATERIAL,NAME=A1
*ELASTIC
3.E4      , .3
*DENSITY
1.E4, 
**
** DEFINE THE IDENTICAL FUNCTION USED IN SUBROUTINE DISP VIA THE
** PERIODIC AMPLITUDE DEFINITION
**
*AMPLITUDE,DEFINITION=PERIODIC,TIME=TOTAL,VALUE=ABSOLUTE,NAME=SIN
1,.314159,0.,0.
0.,1.5
*AMPLITUDE,DEFINITION=PERIODIC,TIME=TOTAL,VALUE=ABSOLUTE,NAME=SINCOS
1,.314159,0.,0.
.5,1.5
*INITIAL CONDITIONS, TYPE=VELOCITY
5,1, 0.47124
*INITIAL CONDITIONS, TYPE=VELOCITY
6,1, 0.5
*INITIAL CONDITIONS, TYPE=VELOCITY
7,1, 0.7
*STEP
***DYNAMIC, EXPLICIT, DIRECT USER CONTROL
**.1,4.
*DYNAMIC, EXPLICIT
 ,4.
*BOUNDARY
1,1,1
*BOUNDARY,USER,TYPE=DISPLACEMENT
2,1,1
*BOUNDARY,USER,TYPE=VELOCITY
3,1,1
*BOUNDARY,USER,TYPE=ACCELERATION
4,1,1
*BOUNDARY,TYPE=DISPLACEMENT,AMPLITUDE=SIN
5,1,1
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=SINCOS
6,1,1
*BOUNDARY,TYPE=ACCELERATION,AMPLITUDE=SINCOS
7,1,1
*OUTPUT,HISTORY,TIME INTERVAL=0.1,OP=NEW
*NODE OUTPUT,NSET=qa_test
 U1, V1
*END STEP
*STEP
***DYNAMIC, EXPLICIT, DIRECT USER CONTROL
**.1,6.
*DYNAMIC, EXPLICIT
 ,6.
*END STEP