*SURFACE,NAME=DOOR-HINGE-LOW-RIGHT,TYPE=ELEMENT
DOOR-HINGE-LOW-RIGHT,SPOS
*COUPLING,REF NODE=9000008,SURFACE=DOOR-HINGE-LOW-RIGHT,CONSTRAINT NAME=DOOR-HINGE-LOW-RIGHT
*DISTRIBUTING
**-----------------------------------------------------
*SURFACE,NAME=DOOR-HINGE-UP-RIGHT,TYPE=ELEMENT
DOOR-HINGE-UP-RIGHT,SPOS
*COUPLING,REF NODE=9000006,SURFACE=DOOR-HINGE-UP-RIGHT,CONSTRAINT NAME=DOOR-HINGE-UP-RIGHT
*DISTRIBUTING
**-----------------------------------------------------
*NSET,NSET=DOOR-LOCK-BEAMS-RT-COUP-1
*NSET,NSET=DOOR-LOCK-RT-COUP-1,GEN
*NSET,NSET=DOOR-LOCK-RT-COUP
DOOR-LOCK-BEAMS-RT-COUP-1,DOOR-LOCK-RT-COUP-1
*SURFACE,NAME=DOOR-LOCK-RT-COUP,TYPE=NODE
DOOR-LOCK-RT-COUP,1
*COUPLING,REF NODE=800077,SURFACE=DOOR-LOCK-RT-COUP,CONSTRAINT NAME=DOOR-LOCK-RT-COUP
*DISTRIBUTING
**-----------------------------------------------------
*SURFACE,NAME=DOOR-CLOSURE-RIGHT,TYPE=ELEMENT
DOOR-CLOSURE-RIGHT,SPOS
*COUPLING,REF NODE=1800066,SURFACE=DOOR-CLOSURE-RIGHT,CONSTRAINT NAME=DOOR-CLOSURE-RIGHT
*DISTRIBUTING
**-----------------------------------------------------
** add dummy mass/rotary inertia to coupling ref nodes
*ELEMENT, TYPE=MASS, ELSET=door_right_mass
*MASS, ELSET=door_right_mass
<small_mass>,
*ELEMENT, TYPE=ROTARYI, ELSET=door_right_rotary
*ROTARY INERTIA, ELSET=door_right_rotary
<small_rota>,<small_rota>,<small_rota>
**-----------------------------------------------------
*nset,nset=retained_door_right,unsorted
*nset,nset=retained_all
retained_door_right,
**