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

Remove /READ option from call to file_test in order to solve Issue 20

parent 13e82582
......@@ -861,16 +861,17 @@ IF INST[0] EQ 'd11tof' THEN BEGIN & P=strpos(pthv,'tof') ;Historical
;Compressed or not!
; --------- -- ---
FIFI=FILENAME & fufu=strlowcase(FIFI) & zipd=0 & cprs=0 & slashc=0 & nxs=0
stop
IF (strpos(fufu,'.z') gt 0) then zipd=2 else $
IF (strpos(fufu,'.gz') gt 0) or (strpos(fufu,'.gzip') gt 0) then zipd=1 else $
IF (strpos(fufu,'.nxs') gt 0) then nxs =1 $
else begin & cnt=file_test(pthv+FILENAME+order[0] ,/READ)
else begin & cnt=file_test(pthv+FILENAME+order[0])
if cnt gt 0 then begin & FIFI=FIFI+order[0] & endif else begin
cnt=file_test(pthv+FILENAME+order[1] ,/READ)
cnt=file_test(pthv+FILENAME+order[1])
if cnt gt 0 then begin & FIFI=FIFI+order[1] & endif else begin
cnt=file_test(pthv+FILENAME+order[2] ,/READ)
cnt=file_test(pthv+FILENAME+order[2])
if cnt gt 0 then begin & FIFI=FIFI+order[2] & endif else begin
cnt=file_test(pthv+FILENAME+order[3] ,/READ)
cnt=file_test(pthv+FILENAME+order[3])
if cnt gt 0 then begin & FIFI=FIFI+order[3] & endif
endelse & endelse & endelse
IF strpos(FIFI,'.Z') gt 0 then zipd=2 else $
......
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