*HEADING
 Basic verification for *COUPLING
 Test WEIGHTING METHOD=QUADRATIC
*PREPRINT, MODEL=YES
*PART, NAME=BLOCK
*NODE, NSET=NBASE
  1,  0.0, 0.0, 0.0
 21, 20.0, 0.0, 0.0
*NGEN, NSET=NBASE
  1, 21, 1
*NCOPY, CHANGE NUMBER=100, OLD SET=NBASE, SHIFT, NEW SET=NMID
 0.0, 1.0, 0.0

*NCOPY, CHANGE NUMBER=200, OLD SET=NBASE, SHIFT, NEW SET=NTOP
 0.0, 2.0, 0.0

*NODE, NSET=NREF
 9999, 10.0, 2.0, 0.0
*NSET, NSET=NTOP, GEN
201,221,1
*ELSET, ELSET=ETOP, GEN
 21, 40, 1
*SURFACE, NAME=TOP
 ETOP,S3
*ELEMENT, TYPE=CPE4R, ELSET=EALL
 1, 1, 2, 102, 101
*ELGEN, ELSET=EALL
 1, 20, 1, 1, 2, 100, 20
*ELEMENT, TYPE=MASS, ELSET=MASS
1000,9999
*MASS, ELSET=MASS
100.,
*ELEMENT, TYPE=ROTARYI, ELSET=ROTARY
1001,9999
*ROTARY INERTIA, ELSET=ROTARY
100.,100.,100.
*SOLID SECTION, ELSET=EALL, MATERIAL=ELASTIC
*END PART
*MATERIAL, NAME=ELASTIC
*ELASTIC
 30.0e6, 0.3
*DENSITY
1.0,
*DAMPING, ALPHA=.2
**
*ASSEMBLY, NAME=ASSEMBLY
*INSTANCE, NAME=BLOCK_A, PART=BLOCK
 0.0, 0.0, 0.0
*END INSTANCE
*COUPLING, CONSTRAINT NAME=COUPLING_A, REF NODE=BLOCK_A.NREF, SURFACE=BLOCK_A.TOP
*DISTRIBUTING, WEIGHTING METHOD=QUADRATIC
*INSTANCE, NAME=BLOCK_B, PART=BLOCK
 0.0, 5.0, 0.0
*END INSTANCE
*COUPLING, CONSTRAINT NAME=COUPLING_B, REF NODE=BLOCK_B.NREF, SURFACE=BLOCK_B.TOP, INFLUENCE RADIUS=5.5
*DISTRIBUTING, WEIGHTING METHOD=QUADRATIC
*INSTANCE, NAME=BLOCK_C, PART=BLOCK
 0.0, 10.0, 0.0
*END INSTANCE
*COUPLING, CONSTRAINT NAME=COUPLING_C, REF NODE=BLOCK_C.NREF, SURFACE=BLOCK_C.TOP, INFLUENCE RADIUS=2.0
*DISTRIBUTING, WEIGHTING METHOD=QUADRATIC
*END ASSEMBLY
*AMPLITUDE, NAME=AMP, DEFINITION=SMOOTH STEP
0.0,0.0,.5,1.0
*NSET, NSET=QA_TEST_OUTNODES
ASSEMBLY.BLOCK_A.NTOP, ASSEMBLY.BLOCK_B.NTOP, ASSEMBLY.BLOCK_C.NTOP
*STEP
*DYNAMIC, EXPLICIT
,1.0
*BOUNDARY
 ASSEMBLY.BLOCK_A.NBASE, 1, 2, 0.0
 ASSEMBLY.BLOCK_B.NBASE, 1, 2, 0.0
 ASSEMBLY.BLOCK_C.NBASE, 1, 2, 0.0
 ASSEMBLY.BLOCK_A.NREF, 6, 6,0.0
 ASSEMBLY.BLOCK_B.NREF, 6, 6,0.0
 ASSEMBLY.BLOCK_C.NREF, 6, 6,0.0
*CLOAD, AMPLITUDE=AMP
ASSEMBLY.BLOCK_A.NREF, 2, -1.E+6
ASSEMBLY.BLOCK_B.NREF, 2, -1.E+6
ASSEMBLY.BLOCK_C.NREF, 2, -1.E+6
*OUTPUT, FIELD, NUMBER=1
*NODE OUTPUT,NSET=QA_TEST_OUTNODES
 U,
***ELEMENT OUTPUT
**S,
**OUTPUT, HISTORY, FREQ=1
**NODE OUTPUT,NSET=OUT
**U,RF
*END STEP