*HEADING
 QUENCHING OF AN INFINITE PLATE - CPEG8RHT
*NODE
*NGEN,NSET=ALL
*NODE,NSET=XTRA
*NSET,NSET=XAXIS
*NSET,NSET=YAXIS,GENERATE
*NSET,NSET=TOP
*NSET,NSET=SIDE,GENERATE
*NSET,NSET=SIDE1,GENERATE
*ELEMENT,TYPE=CPEG8RHT
*ELGEN,ELSET=ALL
*ELSET,ELSET=PR
*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
*BOUNDARY
 999,4,5
*EQUATION
 SIDE1,1,1., 201,1,-1.
*INITIAL CONDITIONS,TYPE=TEMPERATURE
 ALL,1900.
*STEP,INC=500
*COUPLED TEMPERATURE-DISPLACEMENT,DELTMX=10.
 20.,4.7107E5,0.5,
*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