*heading
: TRANSIENT HEAT TRANSFER ANALYSIS WITH USER SUBROUTINE
*restart,write,f=100
*node
*ngen,nset=nall
*element,type=dc2d4
*elgen,elset=eall
*solid section,elset=eall,material=mat
*material,name=mat
*user material, type=thermal, constants=2
***conductivity
**1.40
***specific heat
**260.0
*density
7800.0,
*film property,name=filmp
*amplitude,name=sink
0.0,100.0, 3600.0,200.0
*initial conditions,type=temperature
nall,0.0
*step,inc=1000
*heattransfer,deltmx=20.0
*film,amp=sink
10,f3,1.0,filmp
*dflux
eall,s2,0.0
eall,s4,0.0
1,s1,0.0
*elprint,f=100,position=centroidal
coord,temp,hfl
*nodeprint,f=100
nt11,
rfl,
*elfile,f=4,position=centroidal
coord,
temp,
hfl,
*nodefile,f=4
nt,
rfl,
*endstep