Formatting

lamp_mac/rdid.pro

@@ -1675,6 +1675,7 @@ IF STATUS eq 0  THEN BEGIN
                   
            'db21':BEGIN & WOUT=reform(WOUT,128 ,128,/overwrite)
                   END
+                  
            'd1b': BEGIN
                    XT  ='2*Theta'
                    YT  ='Temperature'
@@ -1684,10 +1685,11 @@ IF STATUS eq 0  THEN BEGIN
                    YY  =param[46]
                    if (size(NN))[1] gt 1 then NN = reverse(NN[0:1,*]) else NN = NN[0,*]
                   END
+                  
            'salsa':BEGIN
                      WOUT = float(WOUT)  ;+0.01
                      bix=0
-                    ;Test kinetic case
+                     ;Test kinetic case
                      IF (n_elements(WOU) gt 1) and (n_elements(WOUT) gt 256.*256) then kin = 1 else kin = 0
                      IF kin then begin
                         scan  = n_elements(Wout)/256/256
@@ -1701,7 +1703,7 @@ IF STATUS eq 0  THEN BEGIN
                        IF scan gt 1 THEN WOUT=transpose(temporary(WOUT),[1,0,2]) $
                                     ELSE WOUT=transpose(temporary(WOUT))
                      ENDELSE
-                    ;WOUT=reverse(WOUT) ; First detector till run 394
+                     ;WOUT=reverse(WOUT) ; First detector till run 394
                     
                      IF (n_elements(cal_d1a) eq 0) or (n_elements(cal_d1a) eq 25) then P_DID_CALOD, insv,insv+'.cal', flg
                      If (n_elements(ang_d1a) ne 256) then ang_d1a=findgen(256)
@@ -1743,6 +1745,7 @@ IF STATUS eq 0  THEN BEGIN
                      endelse
                      if n_elements(cal_d1a) eq 256.*256. then for i=0,scan-1 do WOUT[0,0,i]=WOUT[*,*,i]*cal_d1a
                      if (INST[2] eq '0') then begin ;Raw button not set.
+
                        WOUT=WOUT[17:238,1:254,*] & sz=size(WOUT)   ;Bad areas
                        XX  =XX[  17:238,*] & YY=YY[1:254]          ;Bad areas
 
@@ -1814,6 +1817,7 @@ IF STATUS eq 0  THEN BEGIN
                                YY  =param[46] & YT='Counts'
                   ENDIF
                   END
+                  
            'd2b': BEGIN
 
 ;                  *** initialize parameters ***