fini
/clear
/filn,bremsscheibe

/PREP7

ET,1,PLANE55
KEYOPT,1,3,1
ET,2,SURF151
KEYOPT,2,3,1
KEYOPT,2,4,1
KEYOPT,2,8,1

MP,KXX,1,40
MP,C,1,500
MP,DENS,1,7800

MP,KXX,2,8
MP,KYY,2,8
MP,KZZ,2,1e-6
MP,C,2,100
MP,DENS,2,7800

MPLIST

K,1,0.10,0.0
K,2,0.19,0.0
KGEN,4,1,2,1,0,0.01
K,9,0.07,0.01
K,10,0.07,0.04
K,11,0.02,0.04
K,12,0.02,0.05
K,13,0.08,0.05
K,14,0.08,0.02
A,1,2,4,3
A,3,4,6,5
A,5,6,8,7
A,3,9,10,11,12,13,14,5

ASEL,S,,,2
AATT,2
ALLS

ESIZE,0.005
AMESH,ALL

/ANG,,90
EPLOT

/PNUM,MAT,1
EPLOT

LSEL,S,,,1
LSEL,A,,,9
NSLL,S,1
nsel,r,loc,x,0.11,0.18
type,2
esurf
alls

/solu

antype,trans
autots,on
outres,all,all
tintp,,,,1.0

timint,off
time,1e-6

nsel,s,ext
sf,all,conv,500,20

lsel,s,,,3,6,3

nsll,s,1

esel,s,mat,,2
nsle,s,1
allsel,below,node

sf,all,conv,1000,20
alls

/psf,conv,hf,1
nplot

esel,s,type,,2
sfe,all,,hflux,,0

alls

/psf,hflux,,1
nplot

solve

timint,on
time,10
deltim,0.03,0.01,1.0

esel,s,type,,2
sfe,all,,hflux,,2.e6
alls

kbc,1

solve

time,100
deltim,0.2,0.1,2.0

nsel,s,ext
sf,all,conv,100,20
lsel,s,,,3,6,3
nsll,s,1
esel,s,mat,,2
sf,all,conv,100,20
esel,s,type,,2
sfe,all,,hflux,,0
alls

solve