*HEADING
 BASIC VERIFICATION - KINEMATIC COUPLING 
 EQUIVALENT TO MPC TYPE BEAM 
*SYSTEM
0.,0.,0., 2.,2.,2.
-0.408248,0.8164965,-0.4082482
*NODE
1,0.,0.,0.,0.,1.,0.
6,12.,0.,0.,0.,1.,0.
*NGEN
1,6,
*ELEMENT, TYPE=MASS, ELSET=MASS
100,6
*ELEMENT, TYPE=ROTARYI, ELSET=ROTARY
101,6
*MASS, ELSET=MASS
.1,
*ROTARY INERTIA, ELSET=ROTARY
.1,.1,.1
*ELEMENT,TYPE=B31, ELSET=EALL
1,1,2
2,2,3
3,3,4
4,4,5
*NSET, NSET=TWO
5, 
*NSET, NSET=THREE
6, 
*BEAM SECTION,SECTION=I,MATERIAL=MAT, ELSET=EALL
0.7,1.4,0.5,0.5,0.3,0.3,0.3
*BOUNDARY
1,1,6
*SURFACE, NAME=TIP, TYPE=NODE
 5, 1.0
*COUPLING, CONSTRAINT NAME=BEAMMPC, REF NODE=6, SURFACE=TIP, INFLUENCE RADIUS=100.0
*KINEMATIC
 1,1
 2,5
 6,6
*MATERIAL,NAME=MAT
*ELASTIC
2.E+11,.3 
*DENSITY
7800., 
*NSET, NSET=OUT
5,6 
*NSET, NSET=QA_TEST_ALLNODES
1,2,3,4,5,6
*AMPLITUDE, NAME=AMP,DEFINITION=SMOOTH STEP
0.0,0.0,1.0,1.0
*STEP
*DYNAMIC,EXPLICIT
**,1.E-2
,1.0
*CLOAD, AMPLITUDE=AMP
6,2,-816.4965809
6,1,408.24829
6,3,408.24829
*OUTPUT, FIELD, NUMBER=4, TIMEMARKS=YES
*NODE OUTPUT, NSET=QA_TEST_ALLNODES
U
***OUTPUT,HISTORY,FREQ=1
***NODE OUTPUT,NSET=OUT
**U,V,A
*END STEP