*HEADING
EC3KSRDA: CORIOLIS LOAD  [C3D20R]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE
 1,0.,0.,0.
 3,7.,0.,0.
19,0.,7.,0.
 21,7.,7.,0.
 7,0.,0.,-7.
 9,7.,0.,-7.
25,0.,7.,-7.
 27,7.,7.,-7.
*NGEN,NSET=ALL
 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
*ELEMENT,TYPE=C3D20R, ELSET=EALL
 1,1,3,9,7,19,21,27,25,2,6,8,4,20,24,26,
        22,10,12,18,16
*SOLID SECTION,MATERIAL=A1, ELSET=EALL
*MATERIAL,NAME=A1
*ELASTIC
  3.E+6,0.3
*STEP
*STATIC
.0001,.0001
*BOUNDARY
 ALL,1,1,.001
 ALL,2,2,.0005
 ALL,3,3
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT
*OUTPUT,FIELD
*NODE OUTPUT
 RF, 
*DLOAD
 1, CORIO, 5., -1000.,3.5,-3.5, 0.,1.,0.
*EL PRINT
 LOADS,
*OUTPUT,FIELD
*ELEMENT OUTPUT
 LOADS,
*NODE PRINT
 RF, 
*END STEP