;---------------------------------
pro find_galfitnn,galfit_nn
;---------------------------------

  if(n_params() le 0) then begin
     print,'---------------------------------'
     print,'find_galfitnn, galfit_NN'
     print,'find the most recent galfit.NN file'
     print,'---------------------------------'
     return
  endif

  cmd='rm -fr apulist'
  spawn,cmd

;ei auta tursaksessa
   cmd='unalias ls'
   spawn,cmd

  cmd='ls -t1 galfit.*  > apulist'
  spawn,cmd
  
  close,33
  openr,33,'apulist'
  line=''
  readf,33,line
  galfit_nn=line

;tursaksessa kummallista junkkia nimen alussa ja lupussa
  ind=strpos(galfit_nn,'g')
;changed to allow longer than 2-digit file numbers (Joachim's catch)
  galfit_nn=strmid(galfit_nn,ind,12)


  
  close,33
  cmd='rm -rf apulist'
  spawn,cmd
  
end