/prep7 
blc4,0,0,0.065,0.035,0.0006 
ET,1,solid70
uimp,all,dens,kxx,c,3960,35,850  
esize,0.003
vmesh,1

/SOLU   
/psf,hflux,,2   
ANTYPE,TRANS
tunif,20

*DO,t,0.02,0.08,0.02
time,t  
deltim,0.1 
nsel,s,loc,x  
sf,all,hflux,8000000
alls
SOLVE   
*ENDDO  

/POST1  
PLNS,TEMP
!save,var1therm,db

/prep7
et,1,solid186
MP,EX,1,406000e6
MP,ALPX,1,6.5e-6	
MP,NUXY,1,0.23
MP,REFT,1,20

/SOLU      
ANTYPE,TRANS

alls
nsel,s,loc,x
d,all,ux
d,all,uy
d,all,uz
alls

*DO,t,0.02,0.08,0.02
TIME,t
deltim,0.1 
ldread,temp,,,t,,,rth
SOLVE    
*ENDDO 

/POST1  
Pldisp
plns,s,z