;                  GET_SP
;+
;  Routine to load named spectral arrays with the relevant bits of DATA 
;  array returned by test_rd.
;
;  Arrays created:
;                   CAL  has 2-d CaXIX  array
;                   SUL  has 2-d SXV    array
;                   FE25 has 2-d FeXXV  array
;                   FE26 has 2-d FeXXVI array
;
; all arrays omit the bad end bins and may be decompressed if requested.
;
;  USE:   IDL> .run test_rd 
;         IDL> .run get_sp
;
;
;  See related routines GET_SULPHUR & GET_CALCIUM which may be appropriate
;  if the DATA array created by test_rd is ridiculously large.
;
;  Assumes a 256/256/128/128 binning.
;
;  CDP Dec 91
;
;-

cal = data(512:638,*)
sul = data(640:766,*)
fe25  = data(256:510,*)
fe26  = data(0:254,*)
cal = bcs_decomp(cal)
sul = bcs_decomp(sul)
fe25  = bcs_decomp(fe25)
fe26  = bcs_decomp(fe26)

print,'Extracted arrays stored in CAL, SUL, FE25, FE26'
ans = size(cal)
if ans(0) eq 2 then begin
   print,'CAL and SUL arrays have size (',ans(1),',',ans(2),')',$
                                             format='(a,i3,a,i4,a)'
   ans = size(fe25)
   print,'FE25/26 arrays have size (',ans(1),',',ans(2),')',$
                                          format='(a,i3,a,i4,a)'
endif else begin
   print,'CAL and SUL arrays have size (',ans(1),')',$
                                             format='(a,i3,a)'
   ans = size(fe25)
   print,'FE25/26 arrays have size (',ans(1),')',$
                                          format='(a,i3,a)'
endelse
end