!
!   TITLE:  ms_cut_sol_modal.mac
!
!   Read in Ansys DB file "mirror_support.db", apply boundary conditions
!   and perform a static analysis.
!
!   The applied boundary conditions are for determining the torsional
!   stiffness about the axis of rotation.
!
!   D. Edwards 10/16/00
!

!*go,:skip

FINISH
/clear,start
resume,mesh_msupport,db
!
/out,ms_cut_sol_modal,out

/prep7

! Get the time
*get,startw,active,0,time,wall

/pbc,all, ,0        ! Turn off symbols until after nrotat command

! Constrain the torquer bearing journal in all directions
asel,s,area,,169,172
da,all,all,0,1
alls


! Constrain band drive journal to rotate only
csys,CSm_res1
nsel,s,loc,z,0.1,1
nsel,r,loc,x,1

nrot,all
d,all,ux
alls

*get,ncnt,node,0,count
*msg,info,ncnt,ncnt*3
There are %G nodes and %G degrees of freedom in this model

/PBC,ALL, ,1
aplot

FINISH
/config,fsplit,250

/solu

!******************************
!*** Powerdynamics - PCG Solve
!******************************
antype,2

modopt,subsp,4
eqslv,pcg,1.0e-5
mxpand,4, , ,0
lumpm,1
pstres,0

modopt,subsp,4,10,1000, ,off
rigid,
subopt,0,0, ,100,

solve

*get,stopw,active,0,time,wall
*msg,info,(stopw-startw)*60
The solve time was %G minutes.


finish
/post1

rsys,CSm_res1

/title,Mirror Support, Cut - Modal Frequency

/out