*HEADING
: CORIOLIS LOAD  [CPEG3]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=NALL
 1,0.,0.
 3,7.,0.
 7,0.,7.
 9,7.,7.
*NODE
 101,0.,0.
*ELEMENT,TYPE=CPEG3,ELSET=ELEMS
 1, 1,3,9
 2, 1,9,7
*SOLID SECTION,MATERIAL=A1,ELSET=ELEMS,REFNODE=101
 1., 
*MATERIAL,NAME=A1
*ELASTIC,TYPE=ISOTROPIC
 3.E6,.3
*STEP
*STATIC
.0001,.0001
*BOUNDARY
 NALL,1,1,.001
 NALL,2,2,.0005
 101,3,5
*ENERGY FILE
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT,VARIABLE=PRESELECT
*NODE FILE
 RF, 
*OUTPUT,FIELD
*NODE OUTPUT
 RF,
*DLOAD
 ELEMS,CORIO,5.,0.,0.,0.,  0.,0.,1.
*EL PRINT
 LOADS,
*EL FILE
 LOADS,
*OUTPUT,FIELD
*ELEMENT OUTPUT
 LOADS,
*NODE PRINT
 RF, 
*END STEP