** Test to verify damage evolution independent of mode mix. 
*HEADING
  Damage evolution independent of mode mix
*PREPRINT, MODEL=YES
**#####################################
**TEST CASE I: PURE TENSILE (MODE 1)
**TEST CASE II: SIMPLE SHEAR (MODE 2)
**#####################################
*NODE, NSET=SPEC1_MODE1
11, 0., 0.
12, 1., 0.
13, 1., 1.
14, 0., 1.
*SYSTEM
2, 0, 0
*NODE, NSET=SPEC1_MODE2
21, 0., 0.
22, 1., 0.
23, 1., 1.
24, 0., 1.
*NSET, NSET=SPEC1_MODE1_TOP
13, 14
*NSET, NSET=SPEC1_MODE1_BOT
11, 12
*NSET, NSET=SPEC1_MODE2_TOP
23, 24
*NSET, NSET=SPEC1_MODE2_BOT
21, 22
*ELEMENT, TYPE=COH2D4, ELSET=SPEC1_MODE1
11, 11, 12, 13, 14
*ELEMENT, TYPE=COH2D4, ELSET=SPEC1_MODE2
21, 21, 22, 23, 24
*ELSET, ELSET=EALL_DISP
SPEC1_MODE1, SPEC1_MODE2
**
*COHESIVE SECTION, RESPONSE=TRACTION SEPARATION, ELSET=EALL_DISP, MATERIAL=COH_DISP
*MATERIAL, NAME=COH_DISP
*ELASTIC,TYPE=TRACTION
4.0E6, 2.0E6, 2.0E6
*DAMAGE INITIATION, CRITERION=MAXS
8000., 2000.
*DAMAGE EVOLUTION, TYPE=DISPLACEMENT, SOFTENING=LINEAR
0.006
*DENSITY
100.
**
*NSET, NSET=NALL_BOT
SPEC1_MODE1_BOT, SPEC1_MODE2_BOT
*BOUNDARY
NALL_BOT, 1, 2
SPEC1_MODE1_TOP, 1, 1
SPEC1_MODE2_TOP, 2, 2
*ELSET, ELSET=QA_TEST_EALL
EALL_DISP
*NSET, NSET=QA_TEST_NALL_TOP
SPEC1_MODE1_TOP, SPEC1_MODE2_TOP
**#####################################
**STATIC STEP
**#####################################
*STEP, INC=1000
*STATIC
0.001, 1.0, 1.0E-5, 0.01
*BOUNDARY
SPEC1_MODE1_TOP, 2, 2, 0.01
SPEC1_MODE2_TOP, 1, 1, 0.01
*OUTPUT, FIELD
*ELEMENT OUTPUT, ELSET=QA_TEST_EALL
S, E, SDEG, DMICRT, STATUS
*NODE OUTPUT, NSET=QA_TEST_NALL_TOP
U, RF
*OUTPUT, HISTORY
*ELEMENT OUTPUT, ELSET=QA_TEST_EALL
S, E, SDEG, DMICRT, STATUS
*END STEP