pro mdilaser, seq_filnam, hc=hc, str_ipos=str_ipos
;+
;NAME:
;	mdilaser
;PURPOSE:
;	To process the LFFT "mdilaser" results for Michelson wavelengths
;SAMPLE CALLING SEQUENCE:
;	mdilaser, '/md66/log/sci160k/940402_033500'
;	mdilaser, '/md66/log/sci160k/940402_033500', str_ipos='0'
;	mdilaser, '/md66/log/sci160k/940402_033500', str_ipos='3,4,5'
;INPUT:
;	seq_filnam - the sequence number of telemetry file name
;OPTIONAL KEYWORD INPUT:
;	str_ipos - A string array with a list of the positions to
;		   process
;HISTORY:
;	Written 6-Apr-94 by M.Morrison
;V1.1	25-Apr-94 (MDM) - Added STR_IPOS optional keyword input
;			- Changed to pass 27 images to DISP_MMAP instead of 22
;-
;
common mdilaser, def_seq
;
setenv, 'ys_batch='
;
if (n_elements(def_seq) eq 0) then def_seq = '/md66/log/sci160k/940402_033500'
if (n_elements(seq_filnam) eq 0) then input, 'Enter the sequence number or telemetry file', seq_filnam, def_seq
def_seq = seq_filnam
;
img_shift = 1
nimg_per_pos = 27
idark = 6
iobs = 0
ist1 = 7
qsave = 1
qhc = keyword_set(hc)
ss_reorder = [5,6,7,8,9,1,2,3,4,5]
ss_normal  = indgen(10)
;
if (n_elements(str_ipos) eq 0) then str_ipos = '0,1,2,3,4,5,6,7,8'
irep = 0
;
pos_arr = fix(str2arr(str_ipos))
for i=0,n_elements(pos_arr)-1 do begin
	ipos = pos_arr(i)
        ;imgnum = [idark, iobs, ss_reorder+ist1, ss_normal+10+ist1] + ipos*nimg_per_pos + img_shift
        ;imgnum = [idark, iobs, ss_normal+ist1, ss_normal+10+ist1] + ipos*nimg_per_pos + img_shift
        imgnum = indgen(27) + ipos*nimg_per_pos + img_shift
	;;comment = 'Dark,Obs=' + arr2str(imgnum(0:1)) + '  !cM1=' + arr2str(imgnum(2:11)) + '  !cM2='+arr2str(imgnum(12:21))
	disp_mmap, seq_filnam, ipos, sub10=irep, imgnum=imgnum, comment=comment, save=qsave, hc=hc
	;
	if (qhc eq 0) then begin
	    yesnox, 'Would you like a hardcopy of this result', qdohc, 'No'
	    if (qdohc) then disp_mmap, seq_filnam, ipos, sub10=irep, imgnum=imgnum, comment=comment, /hc
	end
end

end