*HEADING
: DLOAD, DFLUX, FILM, AND RADIATION FOR COUPLED TEMP-DISP  [COH2D4T]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
**  NOTE  --  SAME DECK MAY BE USED FOR OTHER 4-NODE ELEMENTS
**  BY REPLACING THE ELEMENT NAME
*NODE,NSET=ALL
 1, 1.
 2, 8.
 3, 8.,7.
 4, 1.,7.
*NSET,NSET=FIX1
 1,2
*NSET,NSET=FIX2
 2,3
*NSET,NSET=FIX3
 3,4
*NSET,NSET=FIX4
 1,4
*ELEMENT, TYPE=COH2D4T, ELSET=EALL
 1, 1,2,3,4
*COHESIVE SECTION,ELSET=EALL,MATERIAL=MAT1,RESPONSE=TRACTION SEPARATION, THICKNESS=GEOMETRY
**
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-460., STEFAN BOLTZMANN=5.0E-8
*MATERIAL,NAME=MAT1
*ELASTIC,TYPE=TRACTION
1.0E8,1.0E8
*GAP CONDUCTANCE
10.0,0.0
10.0,7.0
*EXPANSION
 0., 
*DENSITY
 82.9, 
*SPECIFIC HEAT
1.0
**
*INITIAL CONDITIONS,TYPE=TEMPERATURE
ALL,100
**
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT, STEADY STATE
 1.e-3, 1.
*ENERGY FILE
*OUTPUT,HISTORY,FREQUENCY=1
*ENERGY OUTPUT,VARIABLE=PRESELECT
*OUTPUT,FIELD
*NODE OUTPUT
RF,
NT,
RFL,
*EL PRINT
 LOADS,FLUXS
 FILM,RAD
*NODE PRINT
 RF, 
 NT, 
 RFL, 
*BOUNDARY, OP=NEW
 ALL, 1,2
 FIX1, 11
*DFLUX,OP=NEW
 1, BF, .3
*CFILM
3,0.5,20,1.0
4,0.5,20,1.0
*END STEP
*****************************************
*STEP,INC=100
HEATED UP BY PRESCRIBED FLUX
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=250
0.25,10
*CFILM,OP=NEW
*CFLUX,OP=NEW
3,11,6.0
4,11,6.0
*END STEP
*****************************************
*STEP,INC=100
CRADIATE
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=250
0.25,10
*CFILM,OP=NEW
*CFLUX,OP=NEW
*CRADIATE
 3,0.005,26.840,0.98
 4,0.005,26.840,0.98
*END STEP