!   test_msh_algorithm_2.mac
!
!   Type 2 test:  This macro tests msh_algorithm's ability to assign
!                 material property attributes in free volume meshing.
!
!
mod_assemb_prep
!
!
mat_select,'c410','al6061'
mat_select,'sand'
!
et,1,solid92
!
csys,0
!
k,,0,0
k,,5,0
k,,5,5
k,,0,5
!
create_volume,,6
!
k,,5,0
k,,10,0
k,,10,5
k,,5,5
!
create_volume,,6
!
k,,3,5
k,,8,5
k,,8,12
k,,3,12
!
create_volume,,6
!
vsel,s,volu,,vm-2
v1=vm-2
vatt,al6061
!
vsel,s,volu,,vm-1
v2=vm-1
vatt,sand
!
vsel,s,volu,,vm
v3=vm
vatt,c410
!
init_entity_num
!
msh_algorithmA,,4,,,,,,1,1.5,1.5,
!
/PNUM,MAT,1
eplot