function rd_prefix_doc, infil=infil, indir=indir, header=header
;
;
;
if (n_elements(indir) eq 0) then indir = '$DIR_GEN_DOC'
if (n_elements(infil) eq 0) then infil = concat_dir(indir, 'prefix.description')
;
nmax = 100
out0 = {rd_prefix_doc, prefix: ' ', $
			descr: ' ', $
			file_type: ' ', $
			proc_info: ' ', $
			full_descr: strarr(20)}
out = replicate(out0, nmax)
header = strarr(nmax)
openr, lun, infil, /get_lun
;
i = 0
qdone = 0
while not qdone do begin
    lin = '                                                                                                                                    '
    readf, lun, lin
    remtab, lin, lin
    if (strmid(lin, 0, 3) eq '***') then begin
	qdone = 1
    end else begin
	header(i) = lin
	i = i + 1
    end
end
header = header(0:i-1)
;
i = -1
ii = 0
while not eof(lun) do begin
    lin = '                                                                                                                                    '
    readf, lun, lin
    remtab, lin, lin
    ;
    if (strtrim(lin,2) ne '') then begin
	if (strmid(lin, 0, 3) ne '   ') then begin	;new prefix
	    i = i + 1
	    ii = 0
	    out(i).prefix	= strmid(lin,  0,  3)
	    out(i).descr	= strmid(lin,  8, 56)
	    out(i).file_type	= strmid(lin, 64, 24)
	end else begin
	    if (strmid(lin, 40, 9) eq '        [') then begin
		out(i).proc_info = strmid(lin, 40, 80)
	    end else begin
	        out(i).full_descr(ii) = strmid(lin, 40, 80)
	        ii = ii + 1
	    end
	end
    end
end
;
free_lun, lun
out = out(0:i)
return, out
end