Skip to content
Snippets Groups Projects
Commit e76a740a authored by Andreas Korpi-Lagg's avatar Andreas Korpi-Lagg
Browse files

wlarr bugfix in read_fitsstokes

parent 6af9ca58
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
ilib_lagg/read_fitsstokes.pro
+ 1
− 1
View file @ e76a740a
...@@ -294,7 +294,7 @@ pro read_fitsstokes,fitsfile,dataout,x=x,y=y,fitstype=fitstype, $ ...@@ -294,7 +294,7 @@ pro read_fitsstokes,fitsfile,dataout,x=x,y=y,fitstype=fitstype, $
dummy=execute('dny='+dfstr+'.ny') dummy=execute('dny='+dfstr+'.ny')
if min(x) ge 0 and max(x) le dnx-1 and $ if min(x) ge 0 and max(x) le dnx-1 and $
min(y) ge 0 and max(y) le dny-1 then begin min(y) ge 0 and max(y) le dny-1 then begin
dummy=execute('wlarr=reform('+dfstr+'.wl)') dummy=execute('wlarr='+dfstr+'.wl')
wl2d=n_elements(size(wlarr,/dim)) ge 2 wl2d=n_elements(size(wlarr,/dim)) ge 2
if wl2d then wl=reform(wlarr(*,min(x):max(x),min(y):max(y))) else wl=wlarr if wl2d then wl=reform(wlarr(*,min(x):max(x),min(y):max(y))) else wl=wlarr
; dummy=execute('wl=reform('+dfstr+'.wl(*,min(x):max(x),min(y):max(y)))') ; dummy=execute('wl=reform('+dfstr+'.wl(*,min(x):max(x),min(y):max(y)))')
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment