!   TITLE:  ea_modal.mac  (AAAV)
!
!  Build and perform modal solve on the Elevation Axis Assy.

! Usage:    ea_modal,'demval'   (Assy with DEMVAL mirror support)
!           ea_modal,'nocut'    (Assy with Igor's mirror support)
!           ea_modal,'cut'      (Assy with Igor's support with a center cut)
!           ea_modal            (Assy with Igor's support with a center cut)
!
!  D.Edwards 02/02/01


clear_start_new

pnam=arg1

*get,ityp,parm,pnam,type
*if,ityp,ne,3,then
    arg1='cut'
*elseif,arg1,eq,'demval',then
    ms_demval
*elseif,arg1,eq,'nocut',then
    mirror_support
*else
    ms_cut
*endif

elev_axis_assy,arg1
ea_mesh
ea_sol_modal