*HEADING
          TWO DIMENSIONAL HEAT TRANSFER INTERFACE  (CPS4RT)
          GAP RADIATION
	  RIGID BODY-RIGID BODY
**
** The temperature at the NOUT nodes, based on a 1D model is:
** NT_out=100+HFL2*R_th; R_th=L/(kA);  See ch. 1.11.6 of ABAQUS/
** Verification Manual
**
*PHYSICAL CONSTANTS,ABS=-460.,STEFAN=5.E-10
*NODE,NSET=NALL
1,10.,0.0
2,11.0,0.0
3,11.0,.5
4,10.0,0.5
7,11.,1.0
8,10.,1.0
21, 10.0,-.01
22, 11.0,-0.01
23, 11.0,-.6
24, 10.0,-0.6
101,10.5,0.5
*NSET, NSET=SIDE3
7,8
*NSET,NSET=QA_TEST
1,2
*NSET,NSET=NOUT
QA_TEST,
*ELEMENT,TYPE=CPS4RT,ELSET=MID
1,1,2,3,4
*ELEMENT,TYPE=CPS4RT,ELSET=TOP
2,4,3,7,8
*ELEMENT,TYPE=CPS4RT,ELSET=SOLID2
3,24,23,22,21
*ELSET, ELSET=SOLID1
1,2
*ELSET, ELSET=SOLID
SOLID1,SOLID2
**************************************
*SOLID SECTION,ELSET=SOLID1,MATERIAL=SOLMAT1
*MATERIAL,NAME=SOLMAT1
*CONDUCTIVITY
1.
*SPECIFIC HEAT
46.
*DENSITY
7850.
*ELASTIC
1.0e-2,0.0
*RIGIDBODY,ISOTHERMAL=NO,REFNODE=101,ELSET=SOLID1
*********************************
*SOLID SECTION,ELSET=SOLID2,MATERIAL=SOLMAT2
*MATERIAL,NAME=SOLMAT2
*CONDUCTIVITY
1.
*SPECIFIC HEAT
46.
*DENSITY
7850.
*ELASTIC
1.0e-2,0.0
*RIGIDBODY,ISOTHERMAL=YES,REFNODE=11,ELSET=SOLID2
*******************
*NODE,NSET=BOT
11,10.5,-.5
*ELEMENT,TYPE=HEATCAP,ELSET=HEATC
99001, 11
*HEATCAP,ELSET=HEATC
1.0,
*SURFACE,TYPE=ELEMENT, NAME=SURF3
MID,S1
*SURFACE,TYPE=ELEMENT,NAME=SURF4
SOLID2,S3
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT,EXPLICIT,Direct User Control
1000 ,1000000.
*CONTACT PAIR, PENALTY, INTERACTION=GAP,WEIGHT=0.0
SURF3,SURF4
*SURFACE INTERACTION, NAME=GAP
*GAP RADIATION
1.0,1.0
1.0,0.0
1.0,10.0
*BOUNDARY,OP=NEW
SIDE3,11,,100.
BOT,11,,50.
******************************
*FILE OUTPUT, NUM=1
*NODE FILE,NSET=NOUT
 NT,
*****************************
*OUTPUT,FIELD,NUM=1
*NODE OUTPUT,NSET=QA_TEST
NT
*NODE OUTPUT,NSET=NALL
NT
********************************
***OUTPUT, HISTORY,TIME INTERV=5E4
***NODE OUTPUT, NSET=NOUT
**NT, 
***ELEMENT OUTPUT, ELSET=SOLID1
**HFL2,
********
*OUTPUT, HISTORY,TIME INTERV=1E6
*ENERGY OUTPUT,VAR=ALL
********
*ENDSTEP