*heading
	Verification for UINTER user subroutine.
	2-D contact problem. Interfacial constitutive behavior
	defined in UINTER with normal behavior modeled as
	exponential pressure-clearance relationship
	and shear behavior with standard coulomb friction model.
*preprint,echo=yes, model=yes, history=yes, contact=yes
*node
1, 0.0, 0.0
2, 1.0, 0.0
3, 1.0, 1.0
4, 0.0, 1.0
999, 0.0,0.0
*nset, nset=nout
1,2,3,4
*element, type=cpe4, elset=eall
1, 1,2,3,4
*solid section, elset=eall, material=mat1
1.0, 
*material, name=mat1
*elastic
1.D10, 0.3
*surface, type=element,name=sl1
1, s1
*surface, type=segments, name=mas1
start, -1.0, -0.02
line, 3.0, -0.02
*rigid body, analytical surface=mas1, ref node=999
*contact pair, interaction=int
sl1, mas1
*surface interaction, name=int, user, properties=4, depvar=2, unsymm
1.0, 
0.01, 0.005, 0.005, 1.D5
**fric coeff, gcrit, clearance, pressure@zero clearance
*boundary
999, 1, 2
999, 6, 6
1, 1, 1
4, 1, 1
*step
*static
0.1, 1.0
*boundary
3, 2, 2, -0.03
4, 2, 2, -0.03
*el print, f=0
*node print, f=0
*output, history, freq=0
*output, field, freq=0
*el file,freq=100
s, 
e, 
*node file,freq=100
u,
rf,
*contact file,freq=100
cstress,
cdisp,
*end step
*step
*static
0.1, 1.0
*boundary, op=new
999, 1, 2
999, 6, 6
3, 2, 2, -0.03
4, 2, 2, -0.03
1, 1, 1, 0.1
4, 1, 1, 0.1
*el print, f=0
*node print, f=0
*output, history, freq=0
*output, field, freq=0
*end step