Commit c76843bb authored by Miguel Angel Gonzalez's avatar Miguel Angel Gonzalez
Browse files

Issue 53. Update NeXus reader for D17 and set NeXus as first option from cycle 212

parent 764cd96e
This diff is collapsed.
......@@ -853,11 +853,17 @@ if strpos(pthv, '://') ge 0 then begin ;Internet access!!
if cnt gt 0 then pthv='' else begin & bid = sys_dep('BROWSE',help) & STATUS=11 & return, 1 & endelse
endif
IF (INST[0] EQ 'd16') OR (INST[0] EQ 'db21') THEN INST[1] ='dif' ;Historical
IF (INST[0] EQ 'in6') OR (INST[0] EQ 'in5') THEN order =['.nxs', '.Z' , '' , '.gz']
IF (INST[0] EQ 'in4') THEN order =['.nxs', '.Z' , '' , '.gz']
IF (INST[0] EQ 'd22') OR (INST[0] EQ 'd33') THEN order =['.nxs', '.gz', '.Z', '' ]
IF (INST[0] EQ 'brisp') OR (INST[0] EQ 'd11') THEN order =['.nxs', '.gz', '.Z', '' ]
IF (INST[0] EQ 'd16') OR (INST[0] EQ 'db21') THEN INST[1] ='dif' ;Historical
; set Nexus as first option for some instruments
IF (INST[0] EQ 'in6') OR (INST[0] EQ 'in5') THEN order =['.nxs', '.Z' , '' , '.gz']
IF (INST[0] EQ 'in4') THEN order =['.nxs', '.Z' , '' , '.gz']
IF (INST[0] EQ 'd22') OR (INST[0] EQ 'd33') THEN order =['.nxs', '.gz', '.Z', '' ]
IF (INST[0] EQ 'brisp') OR (INST[0] EQ 'd11') THEN order =['.nxs', '.gz', '.Z', '' ]
; for D17, prefer Nexus only for files from cycle 212 onwards
; numor 639021 is the first valid version 3 NeXus written during the shutdown period between 211 and 212 cycles
IF (INST[0] EQ 'd17') AND (FILENAME GE 639021) THEN order =['.nxs', '.gz', '', '.Z' ]
pthvLN = strlen(pthv)
instLN = strlen(INST[0])
......
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