*HEADING
          TWO DIMENSIONAL HEAT TRANSFER INTERFACE  (C3D8RT)
          GAP RADIATION
	  ANALYTICAL RIGID SURFACE
**
** 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.7.1 of ABAQUS/Verification Manual     
**
*PHYSICAL CONSTANTS,ABS=-460.,STEFAN=5.E-10
*NODE,NSET=NALL
      9,          11.,           0.,           0.
     10,          11.,           1.,           0.
     11,          11.,           1.,           1.
     12,          11.,           0.,           1.
     13,          10.,           1.,           0.
     14,          10.,           1.,           1.
     15,          10.,           0.,           1.
     16,          10.,           0.,           0.
*NSET, NSET=SIDE3
10,11,13,14
*NSET,NSET=QA_TEST
9,12,15,16
*NSET,NSET=NOUT
QA_TEST,
*ELEMENT, TYPE=C3D8RT
1, 16, 13, 14, 15,  9, 10, 11, 12
*ELSET, ELSET=SOLID
1,
*SOLID SECTION,ELSET=SOLID,MATERIAL=SOLMAT
*MATERIAL,NAME=SOLMAT
*CONDUCTIVITY
1.
*SPECIFIC HEAT
46.
*DENSITY
7850.
*ELASTIC
1.0E-2,0.0
*NODE,NSET=BOT
1,10.5,-.5
*ELEMENT,TYPE=HEATCAP,ELSET=HEATC
99001, 1
*HEATCAP,ELSET=HEATC
1.0,
*RIGID BODY,REFNODE=1,ISOTHERMAL=YES, ANALYTICAL SURFACE = SURF4
*SURFACE, NAME=SURF3
1,S6
*SURFACE,NAME=SURF4,TYPE=CYLINDER
0,0,0,1,0,0
0,0,-1
START, 10.0,-.01
LINE, 11.0,-.01
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
 ,1000000.
*CONTACT PAIR, 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
1, ENCASTRE
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=1E5
***NODE OUTPUT, NSET=NOUT
**NT, 
***ELEMENT OUTPUT, ELSET=SOLID
**HFL2,
********
*OUTPUT, HISTORY,TIME INTERV=1.0E6
*ENERGY OUTPUT,VAR=ALL
*********************************
*ENDSTEP