pro loadarr,seq,list,a,dark=dark,fits=fits

listlnth=n_elements(list)
if keyword_set(dark) then corr=1 else corr=0
imno=strtrim(string(list(0)),2)
if keyword_set(fits) then begin	;for fits files
  exten='0000'
  strput,exten,imno,4-strlen(imno)
  fitsrd,seq+exten+'.fits',img   ;read first image 
  dim=size(img) & a=intarr(dim(1),dim(2),listlnth)
  if corr then begin
    exten='0000' & dark=strtrim(string(dark),2)	;get name of dark
    strput,exten,dark,4-strlen(dark)
    fitsrd,seq+exten+'.fits',dk,h	;read dark
;    fitsrd,'/data3/optest/issoffset196'+exten+'.fits',dk   ;quick fix to no darks in sequence...
    img=img-dk
  endif
   a(0,0,0)=img
  for i=1,listlnth-1 do begin	;loop over image series
    imno=strtrim(string(list(i)),2)
    exten='0000'
    strput,exten,imno,4-strlen(imno)
    fitsrd,seq+exten+'.fits',img  ;read image and dark correct
    if corr then img=img-dk
    a(0,0,i)=img
  endfor
endif else begin	;for f0 files
  exten='.0000'
  strput,exten,imno,5-strlen(imno)
;  exten='.00'
;  strput,exten,imno,3-strlen(imno)
  fzrd,seq+exten,img,h ;& strip,img,h  ;read first image 
  dim=size(img) & a=intarr(dim(1),dim(2),listlnth)
  if corr then begin
    exten='.0000' & dark=strtrim(string(dark),2)	;get name of dark
    strput,exten,dark,5-strlen(dark)
;    exten='.00' & dark=strtrim(string(dark),2)	;get name of dark
;    strput,exten,dark,3-strlen(dark)
    fzrd,seq+exten,dk,h	;read dark
;    fzrd,'/data3/optest/issoffset196'+exten,dk,h   ;quick fix to no darks in sequence...
;    strip,dk,h
    img=img-dk
  endif
   a(0,0,0)=img
  for i=1,listlnth-1 do begin	;loop over image series
    imno=strtrim(string(list(i)),2)
    exten='.0000'
    strput,exten,imno,5-strlen(imno)
;    exten='.00'
;    strput,exten,imno,3-strlen(imno)
    fzrd,seq+exten,img,h; & strip,img,h  ;read image and dark correct
    if corr then img=img-dk
    a(0,0,i)=img
  endfor
endelse

end