; =================================================================================
pro read_headers,header_file,head_3d,nhead_3d,head_3e,nhead_3e
    ; =================================================================================
    ; Reads in the string arrays with header text for the 3d and 3e output files.
    ; ---------------------------------------------------------------------------------

    str=' '
    get_lun,nn
    openr,nn,header_file
    nhead_3d=3
    nhead_3e=42
    head_3d=strarr(nhead_3d)
    head_3e=strarr(nhead_3e)
    
    for i=1,3 do readf,nn,str
    for i=0,nhead_3d-1 do begin
        readf,nn,str
        head_3d(i)=str
    endfor
    for i=1,3 do readf,nn,str
    for i=0,nhead_3e-1 do begin
        readf,nn,str
        head_3e(i)=str
    endfor

    close,nn
    free_lun, nn
    
    return
end