function newfile,filename
;
; Open new file, return ludat
;
ludat = -1
on_ioerror,bad
openr,ludat,filename,/get_lun
print,' '
print,'Opened input file ',filename
return,ludat
;
bad: print,'Error opening file ',filename
return,ludat
end