elev_reslvr_hous
!
elev_reslvr_stator
!
elev_reslvr_rotor
!
elev_reslvr_rotor_hub
!
elev_reslvr_bearing
!
elev_res_wash_retain_nut
!
elev_reslvr_adaptor
!
!
init_entity_num
!
aglue,all
!
init_entity_num
!
csys,cterhcs
!
k,,0,0,0        ! create axis rotation points
k,,0,0,1
!
init_entity_num
!
axp1=km-1
axp2=km
!
revolve_aset,axp1,axp2,360,4
!
nummrg,kp
!
init_entity_num
!
!create_rotaset,1,2,2,3,3,3,4,3

create_rotaset,17,2,2,3,3,3,4,3
create_rotaset,5,3,14,3,6,3,16,4
create_rotaset,13,5,15,2
!
!
!                         (1)     (2)     (3)      (4)     (5)   (6)    (7)
!       ROTATE_VOLM_MSH, actcs,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!                        elmxl, mtrl,  rl,  ecs,  radrot, varcang, ell
!                         (8)   (9)   (10)  (11)   (12)    (13)    (14)
!
!
UIMP,2,EX, , ,25.5E6,       ! Material:  ASTM A582 TYPE 416 COND A  3
UIMP,2,DENS, , ,.29/386.4,
UIMP,2,NUXY, , ,0.24,
!
parm_val,'el_r_st','R1','r1'
!
rotate_volm_msh,cterhcs,0,1,,2,1,0.1,0.1,'array',,,r1,90