*HEADING
 Basic verification for COUPLING option
 Test a uniform distributed load applied through the
 COUPLING option to a surface with underlying elements CPE4
*PREPRINT, MODEL=YES
*NODE, NSET=NALL
 1,   0.0, 0.0
 2,   1.0, 0.0
 3,   3.0, 0.0
 4,   6.0, 0.0
 5,   0.0, 1.0
 6,   1.0, 1.0
 7,   3.0, 1.0
 8,   6.0, 1.0
 9,   0.0, 3.0
10,   1.0, 3.0
11,   3.0, 3.0
12,   6.0, 3.0
13,   0.0, 6.0
14,   1.0, 6.0
15,   3.0, 6.0
16,   6.0, 6.0
17,   0.0,10.0
18,   1.0,10.0
19,   3.0,10.0
20,   6.0,10.0
*ELEMENT, TYPE=CPE4R, ELSET=EALL
 1, 1,2,6,5
*ELGEN, ELSET=EALL
 1, 3, 1, 1, 4, 4, 3
*ELEMENT, TYPE=MASS, ELSET=MASS
1000,9999
*MASS, ELSET=MASS
1.E-6,
*ELEMENT, TYPE=ROTARYI, ELSET=ROTARY
1001,9999
*ROTARY INERTIA, ELSET=ROTARY
1.E-6,1.E-6,1.E-6
*SOLID SECTION, MATERIAL=ELASTIC, ELSET=EALL
*MATERIAL, NAME=ELASTIC
*ELASTIC
 30.0e6,0.3
*DENSITY
1.0,
*SURFACE, NAME=LSURFACE
  1, S4
  4, S4
  7, S4
 10, S4
*NODE, NSET=NREF
 9999, -1, 5.0
*COUPLING, CONSTRAINT NAME=LOAD_DISTRIBUTOR, SURFACE=LSURFACE, REF NODE=NREF
*DISTRIBUTING
*BOUNDARY
  4, 1,2
  8, 1,1
 12, 1,1
 16, 1,1
 20, 1,1
  1, 2,2
  2, 2,2
  3, 2,2
*NSET, NSET=QA_TEST_ALLNODES
NALL,NREF
*NSET, NSET=QA_TEST_OUTNODES
4,8,12,16,20,1,2,3
*ELSET, ELSET=QA_TEST_ALLELEMS
EALL,
*AMPLITUDE, NAME=AMP,DEFINITION=SMOOTH STEP
0.0,0.0,.5,1.0,1.0,1.0
*STEP
*DYNAMIC, EXPLICIT
,1.
*CLOAD, AMPLITUDE=AMP
 NREF, 1, 2.E+3
*OUTPUT,FIELD,NUMBER=1
*NODE OUTPUT,NSET=QA_TEST_ALLNODES
 U, 
***ELEMENT OUTPUT,ELSET=QA_TEST_ALLELEMS
***S,
**OUTPUT, HISTORY,FREQ=1
**NODE OUTPUT, NSET=QA_TEST_OUTNODES
**U,RF
*END STEP