; --- reads data aligned b y Xu, corrects for exposure and then corrects for the broadband filter asymmetry ; --- the output will be used by vis_plot_scans scan=1 wNum=13 CD, current=cdir dataDir='/data/2023sep07/vissr_aligned/' list=FILE_SEARCH(dataDir,'*fts',count=nfls) ; -- exp times for ha scan exp=[7,7,9,12,15,17,20,17,15,12,9,7,7] data=READFITS(list[0]) dim=SIZE(data,/DIM) scans=FLTARR(nFls,dim[2],dim[0],dim[1]) averProf=FLTARR(nFls, wNum) nKoef=FLTARR(nFls) FOR nf=0, nFls-1 DO BEGIN data=READFITS(list[nf]) data=z3(data) FOR i=0, dim[2]-1 DO data[i,*,*]=REFORM(data[i,*,*])/exp[i] VIS_CORRECT_PROFILES, data, aprof=aprof, xscale=xscale, xspline=xspline, normK=normK scans[nf,*,*,*]=data averProf[nf,*]=aprof nKoef[nf]=normK ENDFOR save, list, scans, averProf, nKoef, xscale, xspline, FILENAME='vissr-aligned-xu.sav' END