Test on dTheta calculation.

lamp_mac/SANS/sans_settings.pro

@@ -200,7 +200,10 @@ if siz[0] eq 2 then begin
          if keyword_set(gravity) then Cxy=(Cxy+Cxyf)/2. else Cxy=Cxyf ;(Fit & Gravity) or Fit or gravity
       endif
      ;if Dtheta then supl49=atan(sqrt(total((([Xpar(3),Ypar(3)]/2.)*sans_supl(8:9))^2))/sqrt(2)/(sans_supl(1)*100.)) ;beam width (radian)
+     ;resultX = gaussfit(X, Xproj, paramX, nterms=4)
+     ;resultY = gaussfit(Y, Yproj, paramY, nterms=4)
       if Dtheta then supl49=atan(     total(  [Xpar[3],Ypar[3]]/2. *sans_supl[8:9]) /2./2.3548 /(sans_supl[1]*100.)) ;beam width (radian)
+
    endif
@@ -263,6 +266,7 @@ if siz[0] eq 2 then begin
                     sans_supl[49] = supl49 ;Dtheta
               endif
 endif
+
 return, Cxy
 end
@@ -2368,6 +2372,7 @@ pro sans_merge_in_f, rpb, titW, fctb, fifib, Wb,Xb,Eb,dQb
      if strpos(rpb.TIT,' [*') gt px then fifib = fifib+'by'   +strmid(rpb.TIT,ps+3,bc-ps-3)
   endif else $
      if pb gt px then fifib = fifib+'bg'+strmid(rpb.TIT,pb+3,strpos(rpb.TIT,')',pb)-pb-3)
+
 end
@@ -6644,6 +6649,7 @@ endif else case uv[0] of
            if (uv[1] eq 7) and ((uv[2] eq 5) or (uv[2] eq 6)) then begin ;MERGE (sorted)
                widget_control,baset.bases1[3],get_value=instru
                widget_control,/hourglass
+
                sans_merging, 'MERGE_file', cur_menu[2], idxll,idxmm,idxhh, gtlist=gtlist, background=farr[9], instrument=instru, WaveSuplement=WaveSuplement
            endif