*HEADING
 SLENDER PIPE SUBJECT TO DRAG - THE REED IN THE WIND 
*AQUA
0.,2000.,0.,1.94
0.,2.5,0.,0.
*ELEMENT,TYPE=B23H
1,1,2
*ELGEN,ELSET=PIPE
1,5
*NODE
1,1000.
6, 
*NGEN
1,6
*NSET,NSET=ONE
1,
*BEAM GENERAL SECTION,SECTION=PIPE,ELSET=PIPE
.25,.05
,,-1.
4.32E9,2.16E9
*BOUNDARY
6,1,2
6,6
**
*STEP,NLGEOM,INC=50
 DRAG LOADS
*STATIC
.04,1.
*DLOAD
** Normal drag DLOAD placed on ELSET PIPE
PIPE, FDD, 1., 0.5, 1.2, 1., 
**el, FDD, amag0, D, Cd, Alphr, Ampc, Ampw
** Tangential drag DLOAD placed on ELSET PIPE
PIPE,FDT, 1., 0.5, .002, 1., 2., 
**el,FDT, amag0, D, Ct, Alphr, h, Ampc, Ampw 
*EL PRINT,FREQUENCY=100
SF, 
*NODE FILE,NSET=ONE
U, 
*OUTPUT,FIELD
*NODE OUTPUT
U, 
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=ONE
U, 
*END STEP