**
** coupling surfaces
**
*surface,name=upper_arm_right_hole_front
upper_arm_right_hole_front,spos
*coupling,ref node=903465,surface=upper_arm_right_hole_front,constraint name=upper_arm_right_hole_front
*distributing
**
**
*surface,name=upper_arm_right_hole_back
upper_arm_right_hole_back,spos
*coupling,ref node=903459,surface=upper_arm_right_hole_back,constraint name=upper_arm_right_hole_back
*distributing
**
**
*surface,name=upper_arm_right_tip
upper_arm_right_tip,spos
*coupling,ref node=906345,surface=upper_arm_right_tip,constraint name=upper_arm_right_tip
*distributing
**--------------------------------------------------------------
** add dummy mass/rotary inertia to coupling ref nodes
*ELEMENT, TYPE=MASS, ELSET=upper_arm_right_mass
*MASS, ELSET=upper_arm_right_mass
<small_mass>,
*ELEMENT, TYPE=ROTARYI, ELSET=upper_arm_right_rotary
*ROTARY INERTIA, ELSET=upper_arm_right_rotary
<small_rota>,<small_rota>,<small_rota>
**--------------------------------------------------------------
*nset,nset=retained_upper_arm_right,unsorted
*nset,nset=retained_all
retained_upper_arm_right,
***