!   TITLE:  oga1_solve.mac (ISS)
!
!
/prep7
!
parm_val,'stat068','H5','h5'
parm_val,'rear_cvr','L2','l2'
parm_val,'hous_slv','L1','l1'
!
csys,CShsa1
!
asel,s,loc,z,h5
asel,u,area,,am-1195
asel,u,area,,am-1228
asel,u,area,,am-1261
asel,u,area,,am-1294
!
nsla,s
cm,nd_cnset,node
d,all,all
!
allsel,all
!
modmsh,detach               ! detach solid model from mesh
!
emid,remove                 ! remove mid-side nodes
!
ndele,all                   ! delete detached nodes
!
init_entity_num
!
allsel,all
!
!
/TITLE,PSD Response of OGA Pump Assembly
!
/solu
!
antype,modal             ! perform a modal analysis
modopt,lanb,2           ! subspace iertation method
!eqslv,pcg                ! extract 2 modes from entire frequency range
mxpand,2                   ! expand 2 modes, do element stress calculations
solve
!
*get,freq1,mode,1,freq
*get,freq2,mode,2,freq
!*get,freq3,mode,3,freq
!*get,freq4,mode,4,freq
!*get,freq5,mode,5,freq
!
save,oga1_results,db
!
finish


*go,:skip1

/solu
antype,spectr            ! perform spectrum analysis
spopt,psd,2,yes          ! use first 2 modes from modal analysis

psdunit,1,accg           ! use g**2/hz for psd and dimension in inches
nsel,s,node,,nd_cnset
d,all,uy,1.0               ! apply spectrum at the support point
allsel,all
psdfrq,1,1,280,500,2000    ! frequency range of 10 to 100 hertz
psdval,1,.057,.057,.014    ! white noise psd, values in  g**2/hz
pfact,1,base             ! base excitation

dmprat,0.02              ! 2% damping
psdcom                   ! combine modes for psd, use default significance level

psdres,acel,rel          ! calculate relative acceleration solutions
solve
finish


:skip1