FUNCTION prune_extensions, file
  f = file_basename(file)
  return, strmid(f,0,stregex(f,"(.fits(.gz)?)?$"))
END

FUNCTION prune_filename, file
  ;; Remove path and .fits or .fits.gz file extension from a singe file name
  ;; or an array of file names, return pruned file name(s).
  ;; E.g. file =  '/mission/2007/01/05/eis_l0_20070105_075221.fits.gz', return
  ;; 'eis_l0_20070105_075221'
  
  
  sz = size(file)
  IF sz[0] EQ 0 THEN pruned = prune_extensions(file) ELSE BEGIN
     pruned = strarr(sz[1])
     FOR i=0,sz[1]-1 DO  pruned[i] = prune_extensions(file[i])
  ENDELSE
  
  return, pruned
        
END