*heading
Coriolis loading for SSD - C3D10M
Analytical Results:   : Coriollis    RF = 12.57    PRF = +/- 90
                      : Displacement RF = 39.97    PRF = 170.96
*node,nset=nall
 1,0.,0.,0.
 3,1.,0.,0.
 19,0.,1.,0.
 21,1.,1.,0.
 7,0.,0.,-1.
 9,1.,0.,-1.
 25,0.,1.,-1.
 27,1.,1.,-1.
*ngen,nset=nall
 1,3
 1,7,3
 3,9,3
 7,9
 1,19,9
 3,21,9
 7,25,9
 9,27,9
 19,25,3
 21,27,3
 19,21
 25,27
 8,26,9
 2,20,9
 2,8,3
 10,16,3
 20,26,3
 12,18,3
*element,type=c3d10m,elset=one
 1, 7,9,25,1, 8,17,16, 4,5,13
 2, 1,9,21,3, 5,15,11, 2,6,12
 3, 9,27,25,21, 18,26,17, 15,24,23
 4, 1,21,25,19, 11,23,13, 10,20,22
 5, 1,21,9,25, 11,15,5, 13,23,17
*solid section,elset=one,material=elas
*material,name=elas
*elastic
1000,.3
*density
1,
*damping,alpha=1.
*step,perturbation,unsymm=yes
*steady state dynamics,direct
1,
*load case,name=case-1
*boundary,op=new
nall,1,1,1
nall,2,2
nall,3,3
*end load case
*load case,name=case-2
*dload,op=new
one,corio,1,.5,-10,0,0,0,1
*boundary,op=new
nall,1,1,1
nall,2,2
nall,3,3
*end load case
*load case,name=case-3
*boundary,op=new
nall,1,1
nall,2,2,1
nall,3,3
*end load case
*load case,name=case-4
*dload,op=new
one,corio,1,.5,-10,0,0,0,1
*boundary,op=new
nall,1,1
nall,2,2,1
nall,3,3
*end load case
*node print
u,pu
v, 
*node print,tot=yes
rf,prf
*el print,f=0
*OUTPUT,FIELD
*NODE OUTPUT
rf,
*end step