;    (12 Apr 96) JTM
;    (10 Oct 96) JTM: name change and call to new structure



pro slog_rdlog, logfile, lstr

; Declare the log structure
    slog_logstr, d

    dtemp = replicate(d, 6000)

; Read the data
    openr, unit, logfile, /get_lun, /xdr, /stream
    i = 0
    while not eof(unit) do begin
        readu, unit, d
        dtemp(i) = d
        i = i + 1
    endwhile
    close, unit
    free_lun, unit
    lstr = dtemp(0:i-1)

end