!aus dem Forum von MarkSil

finish   $/clear
*abbr,marcsil,/input,marksil,txt

/prep7 
!blc4,0,0,0.065,0.035,0.0006 
blc4,0,0,0.01,0.002,0.0006 

ET,1,solid226,11

uimp,all,dens,kxx,c,3960,35,850  
MP,EX,all,406000e6	
MP,ALPX,all,6.5e-6	
MP,NUXY,all,0.23
keyopt,1,2,0

esize,0.003
esize,0.001
vmesh,1

nsel,s,loc,x,0
d,all,Ux
d,all,Uy
d,all,Uz
alls

nsel,s,loc,x  
sf,all,hflux,8000000
alls

tunif,20

/SOLU   
/psf,hflux,,2   
ANTYPE,TRANS
outres,all,all
time,0.08
autots,on
nsubst,6,100,6
SOLVE   

/POST1  
PLNS,TEMP