*HEADING
 eccrgyda: CORIOLIS LOAD  [CCL24RH]
*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=CCL24RH, ELSET=EALL    
  1 , 201, 203, 209, 207,   1,   3,   9,   7, 101,  103, 109, 107, 202, 206, 208, 
      204,   2,   6,   8,   4, 102, 106, 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
*NODE PRINT,TOT=YES
 RF, 
*OUTPUT,FIELD
*NODE OUTPUT
 RF
*END STEP