*HEADING
  DLOAD TYPE CORIO 
*PREPRINT, MODEL=YES
** units kN and KPa and m
*parameter
 ultI   = 0.3200e+3
 ultII  = 1.0e+10
 Emod   = 8.5E7
** GIc    = 0.33e2
** GIIc   = 0.80e2
 GIc    = 28.
 GIIc   = 28.
*NODE,NSET=COH3D8T
11, 0., 0., 0.
12, 0., 0., 7.
13, 7., 0., 7.
14, 7., 0., 0.
15, 0., 7., 0.
16, 0., 7., 7.
17, 7., 7., 7.
18, 7., 7., 0.
*SYSTEM 
0, 10, 0
*NODE,NSET=COH3D6T
21, 0., 0., 0.
22, 0., 0., 7.
23, 7., 0., 7.
24, 7., 0., 0.
25, 0., 7., 0.
26, 0., 7., 7.
27, 7., 7., 7.
28, 7., 7., 0.
*SYSTEM
0, 20, 0
*NODE, NSET=COH2D4T
31, 0., 0., 0.
32, 7., 0., 0.
33, 7., 7., 0.
34, 0., 7., 0.
*NSET, NSET=COH3DT
COH3D8T, COH3D6T
*NSET, NSET=ALL
COH3D8T, COH3D6T, COH2D4T
*ELEMENT,TYPE=COH3D8T, ELSET=COH3D8T
11, 11, 12, 13, 14, 15, 16, 17, 18
*ELEMENT,TYPE=COH3D6T, ELSET=COH3D6T
21, 21, 22, 23, 25, 26, 27
22, 24, 21, 23, 28, 25, 27
*ELEMENT, TYPE=COH2D4T, ELSET=COH2D4T
31, 31, 32, 33, 34
*ELSET, ELSET=EALL
COH3D8T, COH3D6T, COH2D4T
*COHESIVE SECTION, THICKNESS=GEOMETRY, MATERIAL=COH, ELSET=EALL, RESPONSE=TRACTION SEPARATION
*MATERIAL,NAME=COH
*ELASTIC,TYPE=TRACTION
<Emod>,<Emod>
*DAMAGE INITIATION,CRITERION=QUADS
<ultI>, <ultII>
*DAMAGE EVOLUTION,TYPE=ENERGY
<GIc>
*DENSITY
 10.0, 
*GAP CONDUCTANCE
1.0,0.0
1.1,1.0
*GAP RADIATION
1.0,1.0
1.,0.
0.,0.02
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460., STEFAN=1.E-8 
**  
*ELSET, ELSET=QA_TEST_EALL
EALL
*NSET, NSET=QA_TEST_NALL
COH3D8T, COH3D6T, COH2D4T
**
*INITIAL CONDITIONS, TYPE=TEMPERATURE
ALL, 0.0
**
***************************
** 	STEP-1
***************************
*STEP, NAME=CORIO
*Coupled Temperature-Displacement,Steady State
0.0001, 0.0001
*BOUNDARY
COH3DT, 1, 1, 0.0005
COH3DT, 2, 2, 0.001
COH3DT, 3, 3
COH2D4T, 2, 2, 0.001
COH2D4T, 1, 1
*DLOAD
 COH3D8T,CORIO,5., 0., 0., 0., 1., 0., 0.
 COH3D6T,CORIO,5., 0., 0., 0., 1., 0., 0.
 COH2D4T,CORIO,5., 0., 0., 0., 0., 0., 1.
*OUTPUT, FIELD
*ELEMENT OUTPUT, ELSET=QA_TEST_EALL
 S
*NODE OUTPUT, NSET=QA_TEST_NALL
 U, RF
*OUTPUT, HISTORY, FREQUENCY=0
*EL PRINT
 LOADS,
*NODE PRINT
 U, RF, 
*END STEP