!   TITLE:  oga2_solve.mac (ISS)
!
!
*go,:skip

/prep7
!
parm_val,'stat068','H5','h5'
parm_val,'ham_sun','L_OGA','l_oga'
!
csys,CShsa1
!
nsel,s,loc,z,h5-0.010-l_oga
!
d,all,all
!
allsel,all
!
lplot
!
!

:skip


*ask,g_load,# of Gs Acceleration,1
*ask,ax_dir,Axis Direction of Acceleration,'y'
!
/TITLE,Constant G-load (G%ax_dir%=%g_load% g's) / OGA Pump Assembly
!
/replot
!
*if,ax_dir,eq,'x',then
    acel,(g_load*g_bin),0,0
*elseif,ax_dir,eq,'y',then
    acel,0,(g_load*g_bin),0
*elseif,ax_dir,eq,'z',then
    acel,0,0,(g_load*g_bin)
*endif
!
/solu
eqslv,iter,5,3
!
solve