*HEADING
 FILE NAME: 
 FEATURES TESTED:  THREE DIMENTIONAL INTERFACE
                   USER SUBROUTINE GAPCON 
                   PRESSURE DEPENDENCE
*NODE,NSET=PLANEA
1, 
3,,,1.
5,,1.,1.
7,,1.
*NCOPY,CHANGE NUMBER=10,OLD SET=PLANEA,SHIFT,NEW SET=PLANEB
0.99,0.,0. 

*NCOPY,CHANGE NUMBER=20,OLD SET=PLANEA,SHIFT,NEW SET=PLANEC
1.,0.,0.

*NCOPY,CHANGE NUMBER=30,OLDSET=PLANEA,SHIFT,NEW SET=PLANED
2.0,0.0,0.0

*NSET,NSET=ALL
PLANEA,PLANEB,PLANEC,PLANED
*NSET,NSET=BCPLANE
PLANEB,PLANEC
*NSET,NSET=CDPLANE
PLANEC,PLANED
*ELEMENT,TYPE=C3D8T,ELSET=ONE
1,11,13,15,17,1,3,5,7
*ELEMENT,TYPE=C3D8T,ELSET=TWO
2,31,33,35,37,21,23,25,27
*ELSET,ELSET=EALL
ONE,TWO
*SOLID SECTION,ELSET=EALL,MATERIAL=BLOCK
*MATERIAL,NAME=BLOCK
*ELASTIC,TYPE=ISO
1.E5, 
*EXPANSION,TYPE=ISO,ZERO=0.0
1.E-5, 
*CONDUCTIVITY,TYPE=ISO
10., 
*surface,NAME=ASURF
ONE,S1
*surface,NAME=BSURF
TWO,S2
*CONTACT PAIR,INTERACTION=GAPC,SMALL SLIDING,ADJUST=0.05
ASURF,BSURF
*SURFACE INTERACTION,NAME=GAPC
** tabulated clearance dependent gap conductance not present
*GAP CONDUCTANCE,USER
*BOUNDARY
ALL,2,3
PLANEA,1
PLANEC,1
*STEP
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
 1., 1.
*BOUNDARY
PLANEA,11,11,200.
CDPLANE,11,11,100.
*NODE FILE, NSET=PLANEB
NT, 
*OUTPUT,FIELD
*NODE OUTPUT,NSET=PLANEB
NT,
*EL FILE,ELSET=ONE
S, 
TEMP, 
*OUTPUT,FIELD
*ELEMENT OUTPUT,ELSET=ONE
S,
TEMP,
*EL PRINT
S,
E,
*NODE PRINT
U,
RF,
NT11,
*PRINT,CONTACT=YES
*CONTACT PRINT,SUM=YES,TOT=NO,SLAV=ASURF,MAST=BSURF,NSET=BCPLANE,FREQ=1
*CONTACT FILE,SLAVE=ASURF,MASTER=BSURF,FREQ=1,NSET=BCPLANE
*OUTPUT,FIELD,FREQ=1
*CONTACT OUTPUT,VARIABLE=PRESELECT,SLAVE=ASURF,MASTER=BSURF,NSET=BCPLANE
*END STEP