*HEADING
 Basic verification for *COUPLING
 Test tributary area of surface with underlying element s8r
*NODE, NSET=A
  1,  0.0000,  0.0,  0.0
  2,  1.2500,  0.0,  0.0
  3,  2.5000,  0.0,  0.0
  4,  3.2500,  0.0,  0.0
  5,  4.0000,  0.0,  0.0
  6,  4.5000,  0.0,  0.0
  7,  5.0000,  0.0,  0.0
  8,  5.5000,  0.0,  0.0
  9,  6.0000,  0.0,  0.0
 10,  6.7500,  0.0,  0.0
 11,  7.5000,  0.0,  0.0
 12,  8.7500,  0.0,  0.0
 13, 10.0000,  0.0,  0.0
*NCOPY, CHANGE NUMBER=100, OLD SET=A, SHIFT
 0.0, 0.0, 1.25
 
*NCOPY, CHANGE NUMBER=200, OLD SET=A, SHIFT
 0.0, 0.0, 2.5

*NCOPY, CHANGE NUMBER=300, OLD SET=A, SHIFT
 0.0, 0.0, 3.25

*NCOPY, CHANGE NUMBER=400, OLD SET=A, SHIFT
 0.0, 0.0, 4.0

*NCOPY, CHANGE NUMBER=500, OLD SET=A, SHIFT
 0.0, 0.0, 4.5

*NCOPY, CHANGE NUMBER=600, OLD SET=A, SHIFT
 0.0, 0.0, 5.0

*NCOPY, CHANGE NUMBER=700, OLD SET=A, SHIFT
 0.0, 0.0, 5.5

*NCOPY, CHANGE NUMBER=800, OLD SET=A, SHIFT
 0.0, 0.0, 6.0

*NCOPY, CHANGE NUMBER=900, OLD SET=A, SHIFT
 0.0, 0.0, 6.75

*NCOPY, CHANGE NUMBER=1000, OLD SET=A, SHIFT
 0.0, 0.0, 7.5

*NCOPY, CHANGE NUMBER=1100, OLD SET=A, SHIFT
 0.0, 0.0, 8.75

*NCOPY, CHANGE NUMBER=1200, OLD SET=A, SHIFT
 0.0, 0.0, 10.0

*ELEMENT, ELSET=ELEM, TYPE=S8R
 1, 1, 3, 203, 201, 2, 103, 202, 101
*ELGEN, ELSET=ELEM
 1, 6, 2, 1, 6, 200, 7
*SHELL SECTION, ELSET=ELEM, MATERIAL=ELASTIC
 0.1,
*MATERIAL, NAME=ELASTIC
*ELASTIC
 30e6, 0.3
*NSET, NSET=EDGE_1, GEN
 1, 13, 1
*NSET, NSET=EDGE_2, GEN
 113, 1213, 100
*NSET, NSET=EDGE_3, GEN
 1201, 1212, 1
*NSET, NSET=EDGE_4, GEN
 101, 1201, 100
*NSET, NSET=MID
 1,
*SURFACE, NAME=TOP
 ELEM, SPOS
*NODE
 9999, 5.0, 5.0, 5.0
*NSET, NSET=MID
 607,
**
*COUPLING, CONSTRAINT NAME=LOAD, REF NODE=9999, SURFACE=TOP
*DISTRIBUTING
**
*STEP
*STATIC
*BOUNDARY
 EDGE_1, 1, 6 
 EDGE_2, 1, 6
 EDGE_3, 1, 6
 EDGE_4, 1, 6
 9999, 1,1
 9999, 3,6
*CLOAD
 9999, 2, -100
*NODE FILE, FREQ=1000
 U,
 RF,
*NODE PRINT, FREQ=1000, TOTALS=YES, NSET=MID
 U,
*OUTPUT, FIELD, FREQ=1000
*NODE OUTPUT
 U,
 RF,
*END STEP