function azam_merlin_fits_read, directory, file tmp = mrdfits(file, 0, header) index = fitshead2struct(header) output = add_tag(output, index, 'HEADER') for i = 1, 41 do begin tmp_data = mrdfits(file, i, tmp_header) name = fxpar(tmp_header, 'EXTNAME') name = strcompress(name, /rem) output = add_tag(output, tmp_data, name) endfor ; save MERLIN FITS header in the AZAM directory as an ; IDL save-file save,filename=directory+'MERLIN_FITSheader.save',header return, output end