*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
 800078, 800079 ,800066
*NSET,NSET=DOOR-LOCK-RT-COUP-1,GEN
800335,800367,1
*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
817001,9000008
817002,9000006
817003,1800066
*MASS, ELSET=door_right_mass
<small_mass>,
*ELEMENT, TYPE=ROTARYI, ELSET=door_right_rotary
817021,9000008
817022,9000006
817023,1800066
*ROTARY INERTIA, ELSET=door_right_rotary
<small_rota>,<small_rota>,<small_rota>
**-----------------------------------------------------
*nset,nset=retained_door_right,unsorted
9000008,
9000006,
1800066,
*nset,nset=retained_all
retained_door_right,
**