Commit 4ed839b3 authored by Miguel Angel Gonzalez's avatar Miguel Angel Gonzalez
Browse files

Remove useless comments

parent c76843bb
......@@ -310,10 +310,6 @@ PRO rdid_d17, INST,numor,nvers,text,exper,scan,cnt,WOUT,vparm,param,par1,par2,pa
if idx ge 0 then PARAM[116] = par4[idx]
endelse
;Shuffle parameters to be consistent with order in ASCII file, but the inconsistency between ASCII and NeXuS should be solved in the files
;TS 2021-04-20: I do think they are in the correct order.
;PARAM[109:116] = [PARAM[109], PARAM[113], PARAM[111], PARAM[115], PARAM[110], PARAM[114], PARAM[112], PARAM[116]]
;PUT NeXus PARAMETERS in PAR1
par1 = fltarr(128)
......@@ -723,10 +719,10 @@ PRO rdid_d17, INST,numor,nvers,text,exper,scan,cnt,WOUT,vparm,param,par1,par2,pa
ysize=LONG(par1[100]-par1[99]+1)
;IF (tot ne ((xsize*ysize*tsize))) THEN PRINT,'read_d17: Error in data array dimensions'
;IF (iprint GT 0) THEN BEGIN
IF (iprint GT 0) THEN BEGIN
PRINT,'tsize= ',tsize,' detector size= ',xsize*ysize
PRINT,'xsize= ',xsize,' ysize= ',ysize,' tot1= ',xsize*ysize*tsize,' tot2= ',tot
;ENDIF
ENDIF
mon=par1[4]
......
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