*HEADING
 ecc9gfda: CORIOLIS LOAD  [CCL9]
*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
   3  ,  4.0000    ,  0.0000    ,  0.0000    
 103  ,  0.0000    ,  4.0000    ,  0.0000    
 203  , -4.0000    ,  0.0000    ,  0.0000
   7  ,  1.0000    ,  0.0000    ,  3.0000    
 107  ,  0.0000    ,  1.0000    ,  3.0000    
 207  , -1.0000    ,  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=CCL9, ELSET=EALL    
 1,  201,  203,  209,   1,   3,   9,  101,  103,  109,
 2,  201,  209,  207,   1,   9,   7,  101,  109,  107,
*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