*HEADING
 PULL-IN CABLE WITH DRAG3D CHAINS (WITH CONTACT INTERFERENCE)
 The MODEL  REPRODUCES THE RESULTS OF THE 2D MODEL (DRAG2D)
*RESTART,WRITE,FREQ=2
*NODE
1,1000,0.0,10.0
6,0.0,0.0,10.0
11,700,400,10.0
9999,0.,0.0,0.0
*NGEN
1,6
*ELEMENT,TYPE=B33H
1,1,2
*ELGEN,ELSET=PIPE
1,5
*ELEMENT,TYPE=GAPSPHER,ELSET=CABLE
101,11,1
*ELEMENT,TYPE=DRAG3D, ELSET=CHAIN1
102,1,9999
103,2,9999
*ELEMENT,TYPE=DRAG3D, ELSET=CHAIN2
104,3,9999
105,4,9999
106,5,9999
107,6,9999
*ELSET,ELSET=CHAINS
CHAIN1,CHAIN2
*RIGID SURFACE, ELSET=CHAINS, TYPE=CYLINDER
-1000,-1000,0,0,-1000,0
-1000,1000,0
START,-10
LINE,10000
*BEAM GENERAL SECTION,SECTION=PIPE,ELSET=PIPE
.375,.025
0,0,1.0
4.32E9, 
*DRAG CHAIN,ELSET=CHAIN1
131.0,0.3,4.0
*DRAG CHAIN,ELSET=CHAIN2
26.20,0.1,20.0
*GAP,ELSET=CABLE
500.0, 
*BOUNDARY
6,1,6
11,1,3
9999,1,6
1,3,3
2,3,3
3,3,3
4,3,3
5,3,3
6,3,3
*AMPLITUDE,NAME=A1
0.,0.,1.,.9999
*STEP,NLGEOM,INC=100
 PULL IN
*STATIC
0.005,1.0 ,1E-7,  .05
*CONTACT INTERFERENCE,TYPE=ELEMENT,AMPLITUDE=A1
CABLE,-500.0
*EL PRINT,ELSET=PIPE,FREQUENCY=1
SF,
NFORC, 
*EL PRINT,ELSET=CHAINS
S,
E, 
*EL PRINT,ELSET=CABLE
S,
E, 
*PRINT,CONTACT=YES
*EL FILE,ELSET=CHAINS,FREQUENCY=1
S,
E, 
*OUTPUT,FIELD,FREQ=1
*ELEMENT OUTPUT,ELSET=CHAINS
S,
E,
*CONTROLS, PARAMETERS=FIELD

,0.0,
*END STEP