!
!   TITLE:  new3_nom_solve.mac
!
FINISH
/clear,start
resume,new3_aaav,db
!
/prep7
eplot
modmsh,detach
emid,remove,all
ndele,all
eplot

/out,new3_nom.01Gstl,out

! In 5.6, shear moduli must be defined for orthotropic materials
mp,GXY,13,11.2e6*.01
mp,GYZ,13,11.2e6*.01
mp,GXZ,13,11.2e6*.01
mp,GXY,10,11.2e6*.01
mp,GYZ,10,11.2e6*.01
mp,GXZ,10,11.2e6*.01

!
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
/out

*go,:skip

!******************************
!***** QR DAMP
!******************************
ANTYPE,2
!*  
MODOPT,QRDAMP,4
EQSLV,FRONT
MXPAND,4, , ,0
LUMPM,1
PSTRES,0
!*  
MODOPT,QRDAMP,4,50,1000, ,OFF, ,0
/STATUS,SOLU
SOLVE
/out

:skip

/AUTO, 1
/REP
/VIEW, 1 ,1,1,1
/ANG, 1
/REP,FAST