pro get_ffd,sh_flag,c_dli2,c_sli,c_dli1,f_dli2,f_sli,f_dli1,dli2_bpm,sli_bpm,dli1_bpm,$
  dark_testlog,rs_dark,mz_mri,mz_sli,mz_hri,f1_mri,f2_mri,f1_sli,f2_sli,f1_hri,f2_hri,$
  ar_mri,ar_sli,ar_hri  

; Quick-look display of helicopter images taken with DISR#2 on 17 December 1997
; Modified 6/5/97 by B. Rizk to include image distortion unwarping
; Modified 6/9/97 by B. Rizk to add a grid of angles
; Cannibalized 6/18/97 by B. Rizk to prep images for mosaicking 
; Modified 7/21/97 by B. Rizk to do images from second roof-top observing run
; Modified 7/30/97 by B. Rizk to accept bad pixel maps
; Modified 8/25/97 by B. Rizk to do helicopter data
; v2 create 8/27/01 to handle named, not indexed, images
; v3 works on PC
; v4 2/6/4 loads A. Eibl's descent-mode dark model
;      loads sh3 absolute responsivity created by fit_sh3_abs_resp_v1
;      load on-board sh3 flat-field
;      sh_flag=0 (SH2), =1 (SH3)

; load the dark current coefficients for SH2 single-measurement mode
d_read,'c:\panoramas\parameters\reduction\dli2_heli2_coefs',h,c_dli2
d_read,'c:\panoramas\parameters\reduction\sli_heli2_coefs',h,c_sli
d_read,'c:\panoramas\parameters\reduction\dli1_heli2_coefs',h1,c_dli1

; load the flat field files for DISR#2
d_read,'c:\panoramas\parameters\reduction\dli2_flat_field_sh2.disrsoft',h,f_dli2
d_read,'c:\panoramas\parameters\reduction\sli_flat_field_sh2.disrsoft',h,f_sli
d_read,'c:\panoramas\parameters\reduction\dli1_flat_field_sh2.disrsoft',h,f_dli1

; load in the bad-pixel maps for DISR#2
header=bytarr(512)
openr,ol_dli1,'c:\panoramas\parameters\reduction\dli1.bpm',/get_lun
openr,ol_dli2,'c:\panoramas\parameters\reduction\dli2.bpm',/get_lun
openr,ol_sli,'c:\panoramas\parameters\reduction\sli.bpm',/get_lun
dli1_bpm=bytarr(160,254)
dli2_bpm=bytarr(176,254)
sli_bpm=bytarr(128,254)

readu,ol_dli1,header,dli1_bpm
readu,ol_dli2,header,dli2_bpm
readu,ol_sli,header,sli_bpm

if sh_flag eq 1 then begin
; load the dark model for descent mode (sh3)
  d_read,'c:\panoramas\parameters\reduction\disr3f12_mri_f1',h1,f1_mri
  d_read,'c:\panoramas\parameters\reduction\disr3f12_mri_f2',h2,f2_mri
  d_read,'c:\panoramas\parameters\reduction\disr3f12_sli_f1',h1,f1_sli
  d_read,'c:\panoramas\parameters\reduction\disr3f12_sli_f2',h2,f2_sli
  d_read,'c:\panoramas\parameters\reduction\disr3f12_hri_f1',h1,f1_hri
  d_read,'c:\panoramas\parameters\reduction\disr3f12_hri_f2',h2,f2_hri
  fullrm=2.159
  mz_mri=dblarr(176,256)
  mz_sli=dblarr(128,256)
  mz_hri=dblarr(160,256)
  for j=0,255 do begin
    mz_mri(*,j)=((j+1)/256.0)*fullrm
    mz_sli(*,j)=((j+1)/256.0)*fullrm
    mz_hri(*,j)=((j+1)/256.0)*fullrm
  endfor
  mz_mri=mz_mri(*,1:254)
  f1_mri=f1_mri(*,1:254)
  f2_mri=f2_mri(*,1:254)
  mz_sli=mz_sli(*,1:254)
  f1_sli=f1_sli(*,1:254)
  f2_sli=f2_sli(*,1:254)
  mz_hri=mz_hri(*,1:254)
  f1_hri=f1_hri(*,1:254)
  f2_hri=f2_hri(*,1:254)
  get_mdark,dark_testlog,'FULL',2,rs_dark,rs_bsr
endif else begin
  mz_mri=dblarr(176,254)
  f1_mri=dblarr(176,254)
  f2_mri=dblarr(176,254)
  mz_sli=dblarr(128,254)
  f1_sli=dblarr(128,254)
  f2_sli=dblarr(128,254)
  mz_hri=dblarr(160,254)
  f1_hri=dblarr(160,254)
  f2_hri=dblarr(160,254)
  rs_dark=dblarr(1,6)
endelse

; load the sh3 absolute responsivity
ar_mri=dblarr(176,254,7)
ar_sli=dblarr(128,254,7)
ar_hri=dblarr(160,254,7)
openr,ol_mri,'c:\panoramas\parameters\reduction\sh3_ar_mri_6',/get_lun
readu,ol_mri,ar_mri
openr,ol_sli,'c:\panoramas\parameters\reduction\sh3_ar_sli_6',/get_lun
readu,ol_sli,ar_sli
openr,ol_hri,'c:\panoramas\parameters\reduction\sh3_ar_hri_6',/get_lun
readu,ol_hri,ar_hri
close,/all

return
end