!   test_glu_ar_attr.mac
!
mod_assemb_prep
!
a=1000
b=0
!
mat_select,'c410','al6061','sand','c17_4'
create_mat_prop,'stator','ex',1e7
!
csys,0
!
k,,1+a,3,b
k,,4+a,3,b
k,,4+a,5,b
k,,1+a,5,b
!
create_area
!
k,,4+a,3,b
k,,5+a,3,b
k,,5+a,6,b
k,,4+a,6,b
!
create_area
!
k,,1.5+a,5,b
k,,3+a,5,b
k,,3+a,9,b
k,,2+a,9,b
!
create_area
!
asel,s,area,,am-2
aatt,c410
!
asel,s,area,,am-1
aatt,al6061
!
asel,s,area,,am
aatt,c17_4
!
init_entity_num
!
glu_ar_attr
!
k,,1,0,0
k,,0,0,0
!
init_entity_num
!
*if,b,eq,0,then
    revolve_aset,km-1,km,360,3
*endif
!
aplot