FUNCTION read_array_from_drms, series, sunum


; EXAMPLE
; IDL>  a = read_array_from_drms('mps_schunker.MT_256x256x61[2002.01.20_00:15:00_TAI]')
; IDL>  a = read_array_from_drms('mps_schunker.V2_mag1_512x512x1919[2010.04.03_22:53:15_TAI],'281474977109500')

;;;;;;;;;;;   SPAWNING USING DRMS   ;;;;;;;;;;;;;;;;;;;;;
if keyword_set(sunum) then begin
    spawn,'show_info ' + series + ' -P sunum=' + sunum + '| grep SUM', dir
    spawn,'show_info ' + series + ' -A sunum=' + sunum + '| grep fits', filename
endif else begin
    spawn,'show_info ' + series + ' -P n=1 | grep SUM', dir
    spawn,'show_info ' + series + ' -A n=1 | grep fits', filename
endelse


; read in fist file
array=readfits(dir+'/'+filename)


return, array


END