*HEADING
 BASIC VERIFICATION OF USER SUBROUTINE DISP AND THE UTILITY ROUTINE GETINTERNAL
 TEST TYPE: USER SUBROUTINE, TEST NAME: UDISP
*PART, NAME=PART1
   *NODE,NSET=ALL
    1, 
    13, 6.
   *NGEN,NSET=ALL
    1,13,2
   *ELEMENT,TYPE=T3D2, ELSET=EALL
    1, 1, 3
   *ELGEN, ELSET=EALL
    1, 6, 2
   *SOLID SECTION,MATERIAL=A1, ELSET=EALL
    1., 
*END PART
*ASSEMBLY, NAME=A1
   *INSTANCE, NAME=TRUSS, PART=PART1
   *END INSTANCE   
   *NSET,NSET=OUT,GENERATE
    3,13,2
*END ASSEMBLY
*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
*DYNAMIC
 .5,10.
*BOUNDARY
 A1.TRUSS.1,1,1
*BOUNDARY,USER
 A1.TRUSS.3,1,1
 A1.TRUSS.5,1,1
 A1.TRUSS.7,1,1
*BOUNDARY,TYPE=DISPLACEMENT,AMPLITUDE=SINCOS
 A1.TRUSS.9,1,1
*BOUNDARY,TYPE=VELOCITY,AMPLITUDE=SINCOS
 A1.TRUSS.11,1,1
*BOUNDARY,TYPE=ACCELERATION,AMPLITUDE=SINCOS
 A1.TRUSS.13,1,1
*NSET,NSET=OUT,GENERATE
 A1.TRUSS.3,A1.TRUSS.13
*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