Bugfix: wavelengths smaller than !QSFIT_OPT.min_wavelength are now ig…

…nored
gcalderone · Mar 16, 2020 · d151191 · d151191
1 parent b1160f9
commit d151191
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/IDL/qsfit/qsfit.pro b/IDL/qsfit/qsfit.pro
@@ -319,8 +319,11 @@ FUNCTION qsfit_input, x, y, e, TYPE=type, ID=id, Z=z, EBV=ebv
   IF (z LT 0) THEN MESSAGE, 'Redshift is negative: ' + gn2s(z)
   IF (gn(good) EQ 0) THEN good = REPLICATE(1, gn(xx))
 
-  IF (gsearch(xx LE !QSFIT_OPT.min_wavelength, i)) THEN BEGIN
-     good[i] = 0
+  IF (gsearch(xx GE !QSFIT_OPT.min_wavelength * (1+z), i)) THEN BEGIN
+     xx = xx[i]
+     yy = yy[i]
+     ee = ee[i]
+     good = good[i]
   ENDIF
 
   file = STRSPLIT(file, PATH_SEP(), /extract)