!   test_comb_area.mac
!
mod_assemb_prep
!
l=5
!
csys,0
!
k,,0,0
k,,l,0
k,,l,l
k,,0,l
!
*if,arg1,eq,1,then
    create_volume,,l
*else
    create_area
*endif
!
*if,arg1,eq,1,then
    vsymm,x,all,,,,1,0
    vsymm,y,all,,,,1,0
    vsymm,z,all,,,,1,0
*else
    arsym,x,all,,,,1,0
    arsym,y,all,,,,1,0
*endif
!
*if,arg1,eq,1,then
    vadd,all
*else
    nummrg,all
*endif
!
init_entity_num
!
*if,arg1,eq,1,then
    csys,0
    !
    clocal,11,0,l,l,l,0,0,0
    !
    create_circle,0.85*l
    create_vol-lines,-2*l
    !
    vsbv,vm-1,vm,,delete,delete
    !
    init_entity_num
*endif
!
lplot