Commit f12509e2 by Gonzalez, Miguel

### 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