*HEADING
          TWO DIMENSIONAL HEAT TRANSFER INTERFACE  (C3D8RT)
          GAP CONDUCTANCE
	  DISCRETE 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  
**
*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.
     17,          10.,          -.1,           0.
     18,          11.,          -.1,           0.
     19,          10.,          -.1,           1.
     20,          11.,          -.1,           1.
*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=R3D4, ELSET=RIGID
90002,17,18,20,19
*ELEMENT,TYPE=HEATCAP,ELSET=HEATC
99001, 1
*HEATCAP,ELSET=HEATC
1.0,
*RIGID BODY,REFNODE=1,ELSET=RIGID,ISOTHERMAL=YES
*SURFACE, NAME=SURF3
1,S6
*SURFACE,NAME=SURF4
RIGID, SPOS
*STEP
*DYNAMIC TEMPERATURE-DISPLACEMENT, EXPLICIT
 ,200000.
*CONTACT PAIR, INTERACTION=GAP,WEIGHT=0.0
SURF3,SURF4
*SURFACE INTERACTION, NAME=GAP
*GAP CONDUCTANCE
10.,0.
10.,10.
*BOUNDARY,OP=NEW
1, 1, 6, 0.0
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=1E4
***NODE OUTPUT, NSET=NOUT
**NT, 
***ELEMENT OUTPUT, ELSET=SOLID
**HFL2,
********
*OUTPUT, HISTORY,TIME INTERV=2.0E5
*ENERGY OUTPUT,VAR=ALL
********
*ENDSTEP