!
!   TITLE:  ea_mesh.mac
!
!   Read in Ansys DB file "ea_assy.db", mesh it and save it
!   as "ea_mesh.db"
!
!   Usage:  ea_mesh,'cres'          (Use CRES mirror support)
!           ea_mesh,'alum'  (Use Alum mirror support)
!
!   DEE 10/23/00
!

FINISH
/clear,start
resume,ea_assy,db
!
/prep7

et,3,solid92

! MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa, etpv,
!
!                elmnl, elmxl, mtrl, rl, ecs, volsel, sprat, radrot, varcang
!                 (9)    (10)  (11) (12) (13)  (14)   (15)    (16)     (17)
!

! This finer mesh reduces stiffness by 3% and increases run time from
! 2 minutes to 24 minutes an prowler (Ultra 10).
!msh_algorithm,1,4,0,1,,,,3,.125,.250,1
!msh_algorithm,1,4,0,1,,,,3,.25,.75,1

alls

*if,arg1,eq,'cres',then
!
vsel,s,volu,,mirsp
msh_algorithm,1,4,0,3,,,,3,.25,.75,c410
!
alls
vsel,u,volu,,mirsp
*endif

msh_algorithm,1,4,0,3,,,,3,.25,.75,al6061

alls

mark_cg,0,CSms_cg0

save,ea_mesh,db

:skip