*HEADING
          TWO DIMENSIONAL HEAT TRANSFER INTERFACE  (C3D8RT)
          GAP RADIATION
	  ANALYTICAL RIGID SURFACE
          PENALTY CONTACT
**
** 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,
*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
*RIGID BODY,ANALYTICAL=SURF4,REFNODE=1,ISOTHERMAL=YES
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
 ,1000000.
*CONTACT PAIR, INTERACTION=GAP,WEIGHT=0.0,MECHANICAL CONSTRAINT=PENALTY
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