Commit f12509e2 authored by Gonzalez, Miguel's avatar Gonzalez, Miguel
Browse files

Formatting

parent 34ceb330
......@@ -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 ***
......
Markdown is supported
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