;  Routine to clean up the temporary directory and place newly
;  processed files in main directory.

pro azam_cleanup, mainDir, tempDir

  ; Check path strings for ending '/'
  if(strmid(mainDir, strlen(mainDir)-1, 1) ne '/') then mainDir = mainDir+'/'
  if(strmid(tempDir, strlen(tempDir)-1, 1) ne '/') then tempDir = tempDir+'/'
  
  ;  Delete files in temporary directory
  file_delete, tempDir+'BACKUP', /noexpand_path, /allow_nonexistent
  file_delete, tempDir+'a__cct', /noexpand_path
  file_delete, tempDir+'AZAM', /noexpand_path
  file_delete, tempDir+'a_1azm', /noexpand_path
  file_delete, tempDir+'a_1incl', /noexpand_path
  file_delete, tempDir+'a_2azm', /noexpand_path
  file_delete, tempDir+'a_2incl', /noexpand_path
  file_delete, tempDir+'a___header', /noexpand_path
  file_delete, tempDir+'a__latitude', /noexpand_path
  file_delete, tempDir+'a__longitude', /noexpand_path
  file_delete, tempDir+'a__mu', /noexpand_path
  file_delete, tempDir+'a__pip', /noexpand_path
  file_delete, tempDir+'a__points', /noexpand_path
  file_delete, tempDir+'a__utime', /noexpand_path
  file_delete, tempDir+'a_alpha', /noexpand_path
  file_delete, tempDir+'a_azm', /noexpand_path
  file_delete, tempDir+'a_azm0', /noexpand_path
  file_delete, tempDir+'a_cen1', /noexpand_path
  file_delete, tempDir+'a_cen2', /noexpand_path
  file_delete, tempDir+'a_fld', /noexpand_path
  file_delete, tempDir+'a_psi', /noexpand_path
  file_delete, tempDir+'a_solved', /noexpand_path
  file_delete, tempDir+'a__rgtasn', /noexpand_path
  file_delete, tempDir+'a__dclntn', /noexpand_path
  file_delete, tempDir+'a_b1mu', /noexpand_path
  file_delete, tempDir+'a_bzero', /noexpand_path
  file_delete, tempDir+'a_delta', /noexpand_path
  file_delete, tempDir+'a_dmp', /noexpand_path
  file_delete, tempDir+'a_dop', /noexpand_path
  file_delete, tempDir+'a_eta0', /noexpand_path

;  FOR NEW AZAM, move the .ps and .eps files to the main directory
  ;  move any postscript files from the temporary directory
  derf = file_search(tempdir, '/*.ps')	;  get PostScript files in tempDir
  derfe = file_search(tempdir, '/*.eps')	;  get PostScript files in tempDir
  tempdir_len = strlen(tempDir)	; length of string tempDir
  ;  first for .ps files
  nfps = n_elements(derf)
  if nfps eq 1 then begin
	  if derf eq '' then nfps = 0
  endif
  if nfps gt 0 then for kk = 0,nfps-1 do begin
  ;  extract name of files
	psfilename = strmid(derf(kk),tempdir_len)
  ;	move file to main directory  
  	file_move, derf(kk),maindir+psfilename, /overwrite, /noexpand_path
  endfor
  ;  now for .eps files
  nfeps = n_elements(derfe)
  if nfeps eq 1 then begin
	  if derfe eq '' then nfeps = 0
  endif
  if nfeps gt 0 then for kk = 0,nfeps-1 do begin
  ;  extract name of files
	psfilename = strmid(derfe(kk),tempdir_len)
  ;	move file to main directory  
  	file_move, derfe(kk),maindir+psfilename, /overwrite, /noexpand_path
  endfor
 
  ;  Delete the temporary directory.
  file_delete, tempDir, /noexpand_path
  
  ;  Move the temporary files to permanent files.
  if(file_test(mainDir+'n_a_azm')) then begin 
    file_move, mainDir+'n_a_azm', mainDir+'a_azm', /overwrite, /noexpand_path
  endif
  if(file_test(mainDir+'n_a_1azm')) then begin
    file_move, mainDir+'n_a_1azm', mainDir+'a_1azm', /overwrite, /noexpand_path
  endif
  if(file_test(mainDir+'n_a_2azm')) then begin
    file_move, mainDir+'n_a_2azm', mainDir+'a_2azm', /overwrite, /noexpand_path
  endif
  if(file_test(mainDir+'n_a_1incl')) then begin 
    file_move, mainDir+'n_a_1incl', mainDir+'a_1incl', /overwrite, /noexpand_path
  endif
  if(file_test(mainDir+'n_a_2incl')) then begin
    file_move, mainDir+'n_a_2incl', mainDir+'a_2incl', /overwrite, /noexpand_path
  endif
  
  ;  Copy the a_azm file to AZAM.
  file_copy, mainDir+'a_azm', mainDir+'AZAM', /overwrite, /noexpand_path
  return
end