!   test_rotate_volm_msh_1.mac
!
!   Type 1 test:  This macro tests 'rotate_volm_msh.mac' ability to assign
!                 material property attributes to single-part areas and/or
!                 volumes.
!
mod_assemb_prep
!
!
mat_select,'c410','al6061'
mat_select,'sand'
mat_select,'inc718'
!
et,1,shell63
et,2,solid45
!
yoffst_=4
!
csys,0
!
k,,0,0+yoffst_
k,,5,0+yoffst_
k,,5,5+yoffst_
k,,0,5+yoffst_
!
create_area
!
k,,5,0+yoffst_
k,,10,0+yoffst_
k,,10,5+yoffst_
k,,5,5+yoffst_
!
create_area
!
k,,3,5+yoffst_
k,,8,5+yoffst_
k,,8,12+yoffst_
k,,3,12+yoffst_
!
create_area
!

!*go,:skpassgn

asel,s,area,,am-2
a1=am-2
aatt,al6061
!
asel,s,area,,am-1
a2=am-1
aatt,sand
!
asel,s,area,,am
a3=am
aatt,c410
!

:skpassgn

init_entity_num
!
create_cs,0,'CSrev',0,0,0,0,0,0,-90
!
subassy_revolve,CSrev,360,4
!
aplot
!
!
!                         (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)
!
!asel,s,loc,x,0
!asel,r,loc,y,0,20
!
!rotate_volm_msh,CSrev,0,,,1,2,1,1,,
!
/PNUM,MAT,1
eplot