;SET_PLOT,'PS' ;DEVICE, FILENAME='../plots/thor/tuv19z18utnew.ps',/landscape DEVICE, SET_FONT='Helvetica Bold', /TT_FONT SET_CHARACTER_SIZE=[70,90] ;device,decomposed=0 ;device,/color loadct,13 ; ****************************************************** htjoul1 = fltarr(121) htjoul4 = fltarr(121) htjoul12 = fltarr(121) htjoul42 = fltarr(121) spv=-999999.9 dum=fltarr(73,36) openr,8,'traj1htja.dat' readf,8,'$(10E11.4)',htjoul1 close,8 openr,8,'traj2htja.dat' readf,8,'$(10E11.4)',htjoul4 close,8 for jut = 0,120,1 do begin htjoul12(jut) = htjoul1(120-jut)*1.e6 htjoul42(jut) = htjoul4(120-jut) endfor !p.position=[0.2,0.2,0.80,0.80] ; ****************************************************** ; label graph ; ****************************************************** plot,htjoul12,color=255.*8./10.,thick=3.,xcharsize=1.6,ycharsize=1.6,font=1 $ ,xtitle='Time(s)',ytitle='Heating Rate (ergs/cm**2/s)' toplabel='Frictional heating rate along flux tube 1' toplabel2=strtrim(toplabel,2) xyouts,0.45,0.85, toplabel2,alignment=.5,charsize=1.9,color=255*8/10, $ /normal,font=1 nnn=108 ; ****************************************************** filename='plots/htjoutraj1' + $ strcompress(string(nnn,format="(i3)"),/remove_all) + '.jpg' dump=tvrd(true=3) write_jpeg,filename,dump,true=3,quality=100 ; ****************************************************** ; ****************************************************** ;end do loop ;endfor ; ****************************************************** ; ****************************************************** ;DEVICE,/CLOSE stop end ; ******************************************************