*HEADING
 eccighda: CORIOLIS LOAD  [CCL18H]
*PREPRINT,MODEL=NO,HIST=NO
*NODE,NSET=ALL
   1  ,  1.0000    ,  0.0000    ,  0.0000    
 101  ,  0.0000    ,  1.0000    ,  0.0000    
 201  , -1.0000    ,  0.0000    ,  0.0000
   2  ,  2.5000    ,  0.0000    ,  0.0000
 102  ,  0.0000    ,  2.5000    ,  0.0000
 202  , -2.5000    ,  0.0000    ,  0.0000
   3  ,  4.0000    ,  0.0000    ,  0.0000    
 103  ,  0.0000    ,  4.0000    ,  0.0000    
 203  , -4.0000    ,  0.0000    ,  0.0000
   4  ,  1.0000    ,  0.0000    ,  1.5000
 104  ,  0.0000    ,  1.0000    ,  1.5000
 204  , -1.0000    ,  0.0000    ,  1.5000
   5  ,  2.5000    ,  0.0000    ,  1.5000
 105  ,  0.0000    ,  2.5000    ,  1.5000
 205  , -2.5000    ,  0.0000    ,  1.5000
   6  ,  4.0000    ,  0.0000    ,  1.5000
 106  ,  0.0000    ,  4.0000    ,  1.5000
 206  , -4.0000    ,  0.0000    ,  1.5000
   7  ,  1.0000    ,  0.0000    ,  3.0000    
 107  ,  0.0000    ,  1.0000    ,  3.0000    
 207  , -1.0000    ,  0.0000    ,  3.0000
   8  ,  2.5000    ,  0.0000    ,  3.0000
 108  ,  0.0000    ,  2.5000    ,  3.0000
 208  , -2.5000    ,  0.0000    ,  3.0000
   9  ,  4.0000    ,  0.0000    ,  3.0000    
 109  ,  0.0000    ,  4.0000    ,  3.0000    
 209  , -4.0000    ,  0.0000    ,  3.0000
*ELEMENT,TYPE=CCL18H, ELSET=EALL    
 1,  201, 203, 209,   1,   3,   9,  101, 103, 109, 202, 206, 205,    2,   6,   5, 
     102, 106, 105
 2,  201, 209, 207,   1,   9,   7,  101, 109, 107, 205, 208, 204,    5,   8,   4, 
     105, 108, 104
*SOLID SECTION ,ELSET=EALL,MATERIA= A1,ORIENTA=CYL                                   
*ORIENTATION,SYS=CYLIN,NAME=CYL
 0.0, 0.0, 0.0,  0.0, 0.0, 1.0
 1,  90.0
*TRANSFORM,TYPE=C,NSET=ALL
  0.0, 0.0, 0.0,  0.0, 0.0, 1.0 
*MATERIAL,NAME=A1
*ELASTIC
 3.E6,0.3
*DENSITY
 10.0, 
*DAMPING,ALPHA=1.0
***********************
*STEP,PERTURBATION,UNSYMM=YES
*STEADY STATE DYNAMICS,DIRECT
 1,
*LOAD CASE,NAME=CASE-1 
*BOUNDARY,OP=NEW
 ALL,1,1,0.0
 ALL,2,2,5.0
 ALL,3,3
*END LOAD CASE
*LOAD CASE,NAME=CASE-2
*DLOAD,OP=NEW
 EALL, CORIO, 5.0,  0.0, 0.0, 0.0,   0.0, 0.0, 1.0
*BOUNDARY,OP=NEW
 ALL,1,1,0.0
 ALL,2,2,5.0
 ALL,3,3
*END LOAD CASE
*NODE PRINT
 U,PU
 V, 
*NODE PRINT,TOT=YES
 RF,PRF
*OUTPUT,FIELD
*NODE OUTPUT
 RF,
*END STEP
***********************
*STEP,PERT
*STATIC
*BOUNDARY,OP=NEW
 ALL,1,1,
 ALL,2,2
 ALL,3,3,
*DLOAD
 EALL, ROTA, 10.0,  0.0, 0.0, 0.0,   0.0, 0.0, 1.0
*EL PRINT
 LOADS,
*NODE PRINT,TOT=YES
 RF, 
*OUTPUT,FIELD
*NODE OUTPUT
 RF
*END STEP
***********************
*STEP
*STATIC
.0001,.0001
*BOUNDARY,OP=NEW
 ALL,1,1,
 ALL,2,2,.005
 ALL,3,3,
*DLOAD
 EALL, CORIO, 5.0,  0.0, 0.0, 0.0,   0.0, 0.0, 1.0
*EL PRINT
 LOADS,
*NODE PRINT
 RF, 
*END STEP