*HEADING
 FILE NAME: 
 FEATURES TESTED: THREE DIMENSIONAL INTERFACE
                  USER SUBROUTINE - UFIELDGC
                  FIELD VARIABLE DEPENDENT 
*NODE,NSET=PLANEA
1, 
3,,,1.
5,,1.,1.
7,,1.
*NCOPY,CHANGE NUMBER=100,OLD SET=PLANEA,SHIFT,NEW SET=PLANEB
1.,0.,0.

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

*NCOPY,CHANGE NUMBER=300,OLD SET=PLANEA,SHIFT,NEW SET=PLANED
2.,0.,0.

*NSET,NSET=BCPLANE
 PLANEB, PLANEC
*NSET,NSET=ALLP
 PLANEA, PLANED, BCPLANE
*ELEMENT,TYPE=C3D8T,ELSET=ONE
1,101,103,105,107,1,3,5,7
*ELEMENT,TYPE=C3D8T,ELSET=TWO
2,301,303,305,307,201,203,205,207
*ELSET,ELSET=BOTH
ONE,TWO
*SOLID SECTION,ELSET=BOTH,MATERIAL=BLOCK
*MATERIAL,NAME=BLOCK
*ELASTIC,TYPE=ISO
30.E6,.3
*CONDUCTIVITY,TYPE=ISO
150., 
*surface,NAME=ASURF
ONE,S1
*surface,NAME=BSURF
TWO,S2
*CONTACT PAIR,INTERACTION=GAPC,SMALL SLIDING
ASURF,BSURF
*SURFACE INTERACTION,NAME=GAPC
*GAP CONDUCTANCE,DEPENDENCIES=1
15.,,,,25.
15.,1.,,,25.
150.,,,,50.
150.,1.,,,50.
300.,,,,75.
300.,1.,,,75.
3000.,,,,100.
3000.,1.,,,100.
*STEP,AMP=STEP
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
.25,1.,.25,.25
*BOUNDARY
ALLP,1,3
PLANEA,11,11,1000.
PLANED,11,11
*FIELD,VARIABLE=1,USER
ALLP, 
*EL PRINT
COORD, 
*EL FILE,ELSET=BOTH,POSITION=NODES
FV, 
*NODE PRINT
NT, 
*NODE FILE, NSET=BCPLANE
NT, 
*PRINT,CONTACT=YES
*CONTACT PRINT,SUM=YES,TOT=NO,FREQ=1,SLAV=ASURF,MAST=BSURF
*CONTACT FILE,SLAVE=ASURF,MASTER=BSURF,FREQ=1
*END STEP