** 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
*SYSTEM
*NODE, NSET=SPEC1_MODE2
*NSET, NSET=SPEC1_MODE1_TOP
*NSET, NSET=SPEC1_MODE1_BOT
*NSET, NSET=SPEC1_MODE2_TOP
*NSET, NSET=SPEC1_MODE2_BOT
*ELEMENT, TYPE=COH2D4, ELSET=SPEC1_MODE1
*ELEMENT, TYPE=COH2D4, ELSET=SPEC1_MODE2
*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
**#####################################
**DYNAMIC, EXPLICIT  STEP
**#####################################
*STEP
*DYNAMIC, EXPLICIT
, 1.0
*BOUNDARY, TYPE=VELOCITY
SPEC1_MODE1_TOP, 2, 2, 0.01
SPEC1_MODE2_TOP, 1, 1, 0.01
*OUTPUT, FIELD, NUMBER INTERVAL=20, TIME MARKS=YES
*ELEMENT OUTPUT, ELSET=QA_TEST_EALL
S, SDEG, LE, NE, DMICRT, STATUS
*NODE OUTPUT, NSET=QA_TEST_NALL_TOP
U, RF
*OUTPUT, HISTORY, TIME INTERVAL=0.01
*ELEMENT OUTPUT, ELSET=QA_TEST_EALL
S, SDEG, LE, NE, DMICRT, STATUS
*END STEP