;
;------------------------------------------------------------------
;
function readstr, str,vals,lab
;
; Read vals from str, returning -1 and print of lab if i/o error occurs
;
on_ioerror,bad
reads,str,vals
return,0
bad:
print,'>>> Error reading ',lab
print,'    Bad string = ''',str,'''
print,'    IDL error message: ',!err_string
return,-1
end