Changeset 122

Timestamp:

09/23/08 10:46:38 (16 years ago)

Author:

ericg

Message:

Correct bug in make_linfit.pro when corr_thres = 0

File:

• trunk/procs/macros/make_linfit.pro (modified) (2 diffs)

trunk/procs/macros/make_linfit.pro

@@ -99 +99 @@
                      print, '  size(idt)',size(idt)
                      print, '  pt_linfit, correl = ',coeffl(1), correl
-                     stop
                   ENDIF 
                ENDIF 
@@ -127 +126 @@
 
    idc = where(abs(pt_corr) LT corr_thres)
-   pt_linfit(idc) = !values.f_nan
+   IF idc[0] NE -1 THEN pt_linfit(idc) = !values.f_nan
 
    corr_txt = '[r>'+strtrim(string(corr_thres, format = '(f5.2)'), 2)+']'