*HEADING
 QUENCHING OF AN INFINITE PLATE - CPEG8RHT        
*NODE
 1, 
 81,,18
 101,.5,
 181,.5,18
 201,1.,
 281,1.,18
*NGEN,NSET=ALL
 1,81,4
 101,181,4
 201,281,4
*NODE,NSET=XTRA
 999,
*NSET,NSET=XAXIS
 1,101,201
*NSET,NSET=YAXIS,GENERATE
 1,81,4
*NSET,NSET=TOP
 81,181,281
*NSET,NSET=SIDE,GENERATE
 201,281,4
*NSET,NSET=SIDE1,GENERATE
 205,281,4
*ELEMENT,TYPE=CPEG8RHT
 1,1,201,209,9,101,205,109,5
*ELGEN,ELSET=ALL
 1,10,8,10
*ELSET,ELSET=PR
 1,91
*SOLID SECTION,MATERIAL=MAT,ELSET=ALL,REFNODE=XTRA
*MATERIAL,NAME=MAT
*ELASTIC
 3E7,.3
*PLASTIC
 3.6E4,.0
 3.6E4,.0,250.
 4.5E3,.0,2000.
*EXPANSION,ZERO=70.
 7.5E-6, 
*SPECIFIC HEAT
.1431, 
*DENSITY
.2829, 
*CONDUCTIVITY
 7.872E-4, 
*INELASTIC HEAT FRACTION
 0.,
*BOUNDARY
 999,4,5
*EQUATION
 2, 
 SIDE1,1,1., 201,1,-1.
*INITIAL CONDITIONS,TYPE=TEMPERATURE
 ALL,1900.
*STEP,INC=500
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=10.
 0.2,4.7107E5,0.1,
*FILM
 91,F3,70.,6.559E-5
*BOUNDARY
 XAXIS,2
 YAXIS,1
*NODE PRINT,FREQUENCY=50
 NT, 
*NODE PRINT,FREQUENCY=5
 U
 RF
*EL PRINT,FREQUENCY=50
 COORD,S11
 S,E
 PE, 
*EL FILE,ELSET=PR
 S,PE
*PRINT,FREQUENCY=10
*NODE FILE
 NT, 
*OUTPUT,FIELD
*NODE OUTPUT
 NT,
*ELEMENT OUTPUT
 S,PE
*OUTPUT,HISTORY
*ELEMENT OUTPUT,ELSET=PR
 S,
*NODE OUTPUT,NSET=SIDE
 NT,
*END STEP