program tempor
      implicit none
      character*(100) fn
      integer mem
      mem = 1
      write(fn,'(A,I3.3,A)') 'ls ../ens/',mem,'/assimilate/pickup.in'
      write(*,*) fn
      end