!   TITLE:  nut.mac (PART_LIB)
!
mod_assemb_prep
!
k,,0,0
k,,1.5,0
k,,1.5,.75
k,,1,1
k,,0,1
!
create_area
!
revolve_aset,km,km-4,90,1
!
create_cs,0,,1,0,1.2,0,0,-90,0
!
k,,1.5,0,0
k,,1.5,-60,0
k,,1.5,-120,0
k,,1.5,-120,-2
!
create_lines,,1
!
adrag,lm-2,lm-1,,,,,lm
!
ldele,lm,,,1
!
init_entity_num
!
isolate_areas
cm,aset1,area
init_entity_num
!
vol_part_area,'aset1'
!
vdele,vm-2,vm-1,1,1
!
init_entity_num
!
csys,0
vsymm,x,vm
vsymm,z,vm,vm+1,1
!
vadd,all